system "clear"
print " "
print " "
print "============================================================"
print "			Os direitos do autor e a GPL  "
print "============================================================"
print "  "
print "Este programa é distribuido sob GPL. "
print "Se você não souber o que é a GPL, envie um e-mail ao autor "
print "                   tarcisio@member.ams.org "
print "mas em suma  quer dizer que você pode usar livremente o sistema"
print "de programas aqui mencionados, desde que esta informação seja mantida"
print "em todas as alterações que você fizer dos programas e das cópias que "
print "você deles fizer - é a proteção do direito autoral que não lhe impede"
print "de usar livremente o conhecimento mas que mantém na memória  quem "
print "participou de sua produção."
print "Este programa foi escrito por Tarcisio Praciano-Pereira "
print "professor da Universidade Estadual Vale do Acaraú - UeVA "
print "Laboratório de Matemática Computacional  "
print "Sobral - Ceará - Brasil " 
print "Aperte enter para continuar!"
pause -2
system "clear"

pi4 = atan(1); ## uma aproximação para pi-quartos
x(t) = 3*cos(t);
dx(t) = -3*sin(t);
y(t) = 5*sin(t);
dy(t) = 5*cos(t);

print "t 	        x(t)	        y(t)	        dx(t),	       dy(t)" ;
print "    " ;

t= pi4;
print  t ,"     ",	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t= 2*pi4
print  t ,"     ",	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);

t= 3*pi4
print  t ,"     ",	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t=4*pi4;
print  t ,"     ", 	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t=5*pi4
print  t ,"     ", 	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;	
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t=6*pi4
print  t ,"     ", 	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t=7*pi4
print  t ,"     ", 	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
t=8*pi4
print  t ,"     ", 	x(t),"     ", 	y(t),"     ", 	dx(t),"     ",	dy(t) ;
set arrow from  x(t), y(t) to x(t)+dx(t), y(t)+dy(t);
set xrange [-15:15];
set yrange [-9:9];

set parametric
plot x(t),y(t)


print "Aperte enter para continuar!"
pause -2

q

print "Determinação de uma região do plano onde se encontra o gráfico ";
print "Usando os  pontos onde a derivada tiver uma componente nula e ";
print  "a outra componente não nula. "; 
unset parametric
unset arrow

set parametric
set arrow from 1.75, -1 to 1.75, 45
set arrow from -1, 1.75 to 45, 1,75
plot x(t),y(t)


print "Aperte enter para terminar !"
pause -2
system "clear"