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;
fat(n) = (n==0)?1.0:(n==1)?1.0:n*fat(n-1)
print fat(0), fat(1), fat(2), fat(3), fat(10), fat(11), fat(12), fat(13); ## testando
dcos(n) = (n%4==0)?1:(n%4==1)?0:(n%4==2)?-1:0;
print dcos(0), dcos(1),dcos(2),dcos(3),dcos(4),dcos(5),dcos(6),dcos(7),dcos(8)
print "Aperte enter para continuar!"
pause -2

Coseno(x,n,k,y) = (k==n)?y:Coseno(x,n,k+1,y+dcos(k)*pow(x,k)/fat(k));
set xrange [-7.2:7.2] 
plot  Coseno(x,17,0,0),cos(x), 0
print "Aperte enter para continuar!"
pause -2
system "clear"