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 desenha algumas órbitas da equação diferencial "
print "                      yy' = x - 2x**3 "
print "para algumas constantes escolhidas no programa."
print "Aperte enter para continuar!"
pause -2
system "clear"

C =0;
f(x) = sqrt(x**2 - x**4 + C)
set title " C = 0"
set pointsize 0.1
## set terminal postscript enhanced portrait
## set output "edox03_01d_01.eps"
plot f(x) , -f(x), 0

pause -2

C =1;
set title " C = 1"
set pointsize 0.1
## set terminal postscript enhanced portrait
## set output "edox03_01d_02.eps"
plot f(x) , -f(x), 0

pause -2

C =2;
set title " C = 2"
set pointsize 0.1
## set terminal postscript enhanced portrait
## set output "edox03_01d_03.eps"
plot f(x) , -f(x), 0

pause -2


C =3;
set title " C = 3"
set pointsize 0.1
## set terminal postscript enhanced portrait
## set output "edox03_01d_04.eps"
plot f(x) , -f(x), 0

pause -2