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" power(x,n) = x**n; P(x) = 1 + x + power(x,5); dP_1(x) = 1 + 5.0*power(x,4); dP_2(x) = 20.0*power(x,3); dP_3(x) = 60.0*power(x,2); dP_4(x) = 120.0*x; dP_5(x) = 120.0; a = -3.0; a0=P(a); a1=dP_1(a); a2=dP_2(a)/2.0;a3=dP_3(a)/6.0;a4=dP_4(a)/24.0; a5=dP_5(a)/120.0; ## com \ posso escrever uma equação Q(x) = a0 + a1*(x-a) + a2*power(x-a,2) +\ a3*power(x-a,3) + a4*power(x-a,4) + a5*power(x-a,5) ; set xrange [a-4: a+4] plot P(x), Q(x), 0 pause -2 "Aperte enter para continuar " a = 2.0; a0=P(a); a1=dP_1(a); a2=dP_2(a)/2.0;a3=dP_3(a)/6.0;a4=dP_4(a)/24.0; a5=dP_5(a)/120.0; Q(x) = a0 + a1*(x-a) + a2*power(x-a,2) +\ a3*power(x-a,3) + a4*power(x-a,4) + a5*power(x-a,5) ; set xrange [a-4: a+4] plot P(x), Q(x), 0 pause -2 "Aperte enter para continuar " a = 3.0; a0=P(a); a1=dP_1(a); a2=dP_2(a)/2.0;a3=dP_3(a)/6.0;a4=dP_4(a)/24.0; a5=dP_5(a)/120.0; Q(x) = a0 + a1*(x-a) + a2*power(x-a,2) +\ a3*power(x-a,3) + a4*power(x-a,4) + a5*power(x-a,5) ; set xrange [a-4: a+4] plot P(x), Q(x), 0 pause -2 "Aperte enter para terminar "