Graphs-Tangents_Eggbox

150 days ago by fborcic1

g=Graphics() 
       
g=Graphics() g+=plot(x^2, xmin=-100, xmax=100, linestyle=":") for i in srange(-60, 61, 2): g+=plot((2*i*(x-i))+i^2, xmin=-100, xmax=100, rgbcolor=(1/(abs(i/10000)+(1/1000)), 1/(i+1), 1/(abs((2*i)/10000)+(1/1000)))) show(g) 
       
g=Graphics() g+=plot(sin(x), xmin=-2*pi, xmax=2*pi, rgbcolor=(1,0,0), thickness=10) for i in srange(-2*pi, 2*pi+1, pi/10): g+=plot(cos(i)*(x-i)+sin(i), xmin=-2*pi, xmax=2*pi) show(g) 
       
al=[] x=var(x) for k in srange(-2*pi, 2*pi, pi/32): g=plot(cos(k)*(x-k)+sin(k), xmin=-2*pi, xmax=2*pi, ymin=-2,ymax=2, legend_label="Tangent at point x=%f"% k) g+=plot(sin(x), xmin=-2*pi, xmax=2*pi, ymin=-2,ymax=2, rgbcolor=(1,0,0), thickness=2, legend_label="sin x") g+=circle((k, sin(k)), 0.05, facecolor='blue', edgecolor='blue', fill=true) al.append(g) a=animate(al) a.show() 
       
g=plot( x^2 , xmin=-100, xmax=100, linestyle=":") alt=[] for i in srange(-60, 61, 2): g+=plot(2*i*(x-i)+i^2, xmin=-100, xmax=100, rgbcolor=(1/(abs(i/10000)+(1/1000)), 1/(i+1), 1/(abs((2*i)/10000)+(1/1000)))) alt.append(g) a=animate(alt) a.show() 
       
g=plot( x^3 , xmin=-100, xmax=100, linestyle=":") alt=[] for i in srange(-60, 61, 2): g+=plot(3*i^2*(x-i)+i^3, xmin=-100, xmax=100, rgbcolor=(1/(abs(i/10000)+(1/1000)), 1/(i+1), 1/(abs((2*i)/10000)+(1/1000)))) alt.append(g) a=animate(alt) a.show() 
       
plot3d(sin(x^2+y^2),(-pi,pi),(-pi, pi)) 
       
 
       
y=var('y') plot3d(sin(x)^2+sin(y)^2, (-5,pi/2),(-5,5), aspect_ratio=(1,1,pi/2))+sphere((0,0,1.2), 1, color='white')+sphere((-pi,0,1.2), 1, color='white')+sphere((-pi,pi,1.2), 1, color='white')+sphere((-pi,0,1.2), 1, color='white')+sphere((0,pi,1.2), 1, color='white')+sphere((-pi,-pi,1.2), 1, color='white')+sphere((0,-pi,1.2), 1, color='white')