system "clear" print " " 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 isto 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 do programa e das cópias que " print "você dele fizer - é a proteção do direito autoral que não lhe impede" print "de usar livremente o conhecimento mas que mantém a memória de quem " print "participou de sua produção." print "Aperte enter para continuar!" pause -2 system "clear" ##set terminal postscript enhanced color f(x) = sin(0.25*x)*(x+5)*(x-6) a = -8.5 delta = 0.1 ## procura ponto de troca de sinal busca(x,delta)=f(x+delta)*f(x)<=0?x:busca(x+delta, delta) b = busca(a,delta) print "A troca de sinal se dá no intervalo [", a, ",", b,"]" print "Aperte enter para continuar!" pause -2 print b, a , delta; print "Aperte enter para continuar!" pause -2 m = (f(b)-f(a))/(b-a) P(x) = f(a) + m*(x-a) set arrow from -10,-10 rto a, f(a) set arrow from -10,-10 rto b, f(b) set label "pontos de secancia" at -10,-10 set label "raiz da reta secante" at 10,-10 plot f(x), P(x), 0 print "Aperte enter para continuar!" pause -2 a = a - f(a)/m print "Valor aproximado da raíz é ", a; print "Aperte enter para continuar!" pause -2 pause -2