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"

u(x) = 2*x + 1
du(x) = 2
v(x) = (x + 4)*sqrt(2)
dv(x) = sqrt(2)
p(x) = x + 13
dp(x) = 1
q(x) = sin(v(x)/p(x))
dq(x) = cos(v(x)/p(x))*(dv(x)*p(x) - v(x)*dp(x))/(p(x)*p(x))
f(x) = u(x)*q(x)
df(x) = du(x)*q(x) + u(x)*dq(x)
plot f(x),0        
a = -5
r1(x) = f(a) + df(a)*(x-a)
set xrange [-6:3]
plot f(x), r1(x),0
print "Sobral - Ceará - Brasil " 
print "Aperte enter para continuar!"
pause -2
system "clear"