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 - Curso de Matemática "
print "Sobral - Ceará - Brasil " 
print "Aperte enter para continuar!"
pause -2
system "clear"


print "Este programa mostra as raízes aproximadas de uma função definida no program"
print "usndo os dois meodos: da tangente e da secante. São casos particulares. "
print "Aperte enter para continuar!"
pause -2
system "clear"


f(x) = (x + 3)*(x - 4)
df(x) = x + 3 + x - 4
set arrow from 0,40 rto -3,0.1 head
set label "raiz exata" at 0,40 right

a = -5.0
c = a - f(a)/df(a)
set label "raiz aproximada" at c,-40
set arrow from  c,-20 rto c,0 

P1(x) = f(a) + df(a)*(x-a)
set title "Metodo da tangente -  raiz aproximada "
## set terminal postscript enhanced color portrait
## set output "exer03_01_01_01.eps"
plot f(x), P1(x) , 0
pause -2

a = -5.0; b = -1.0;
m = (f(b) - f(a))/(b-a);
P2(x) = f(a) + m*(x-a);
d = a - f(a)/m;
set title "Metodo da secante -  raiz aproximada ";
## set terminal postscript enhanced color portrait;
## set output "exer03_01_01_02.eps";


unset label
set arrow from d, -20 rto d,0
set label "raiz aproximada" at d,-50
plot f(x), P2(x) , 0
pause -2