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 dsen(n) = (n%4==0)?0:(n%4==1)?1:(n%4==2)?0:-1; print dsen(0), dsen(1),dsen(2),dsen(3),dsen(4),dsen(5),dsen(6),dsen(7),dsen(8) print "Aperte enter para continuar!" pause -2 Seno(x,n,k,y) = (k==n)?y:Seno(x,n,k+1,y+dsen(k)*pow(x,k)/fat(k)); ##plot sin(x), Seno(x,5,0,0),0 set xrange [-7.2:7.2] plot Seno(x,17,0,0),sin(x), 0 print "Aperte enter para continuar!" pause -2 system "clear"