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" print "Este programa cria (faz o gráfico) o plano tangente ao gráfico de algumas" print "funções em pontos escolhidos dentro do programa. O objetivo é lhe fornecer" print "um programa funcionando de modo que você possa ver os gráficos dos planos" print "tangentes como foi discutido no texto." print "Quando você fizer alterações no programa para obter planos tangentes em " print "outros pontos, você estará aplicando o que você tiver lido e usando o programa" print "como um laboratório." print "Portanto, altere o programa para visualizar planos tangentes em outros pontos" print "ou ao gráfico de funções bivariadas diferentes destas que se encontram no" print "programa." print "Desta forma você também estará se treinando no cálculo de derivadas parciais." print "Se não aparecer um plano tangente, algo deverá estar errado, e você neste caso" print "deve revisar as suas contas." print "Aperte enter para continuar!" pause -2 system "clear" ##set xrange [-15:15] ##set yrange [-15:15] ##set zrange [-60:60] ## a funcao g g(x,y) = x**2 + y**2 ## derivadas parciais Dgx(x,y) = 2*x Dgy(x,y) = 2*y p = 5 q = 5 set arrow from 0,0,0 to p,q,g(p,q) ## equacao do plano tangente Q(x,y) = g(p,q) + Dgx(p,q)*(x - p) + Dgy(p,q)*(y - q) ## comando do gnuplot para fazer graficos bivariados splot g(x,y), Q(x,y) pause -2 quit ## para gnuplot p = -5 q = 5 splot g(x,y), Q(x,y) pause -2 q = -5 splot g(x,y), Q(x,y) pause -2 ## a funcao g g(x,y) = x**2 - 3*x*y + y**2 ## derivadas parciais Dgx(x,y) = 2*x - 3*y Dgy(x,y) = - 3*x + 2*y p = -1 q = 1 ## equacao do plano tangente P(x,y) = g(p,q) + Dgx(p,q)*(x - p) + Dgy(p,q)*(y - q) ## comando do gnuplot para fazer graficos bivariados splot g(x,y), P(x,y) pause -2 p = -2 splot g(x,y), P(x,y)