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"

pow(x,n) = x**n;
x(t) = pow(t,2) + 3*t + 4;
dx(t) = 2*t + 3;
y(t) = pow(t,2) - 3*t + 4;
dy(t) = 2*t -3 ;

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

t= -5
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
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
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.0/2
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=-1
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=0
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=1
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.0/2
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
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
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
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 parametric
plot x(t),y(t)

print "Aperte enter para continuar!"
pause -2

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 arrow

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"