{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "pseudosph\350re" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "plot3d([cos(v)/cosh(u),sin(v )/cosh(u),u-tanh(u)],u=-3..3,v=0..2*Pi);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{MPLTEXT 1 0 20 "lignes asymptotique." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "plot3d([cos(u+v)/cosh(u-v),sin(u+v)/cosh( u-v),u-v-tanh(u-v)],u=-2..2,v=-2..2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "cateno\357de" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "plot3d([cos(v)*cosh(u),sin(v)*cosh(u),u],u=-2..2,v=0..2*Pi);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "plot3d([cos(u-v)*cosh(u+v),s in(u-v)*cosh(u+v),u+v],u=-3..3,v=-3..3,view=[-2..2,-2..2,-2..2]);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 21 "catenoide \340 h\351licoide" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "a:=Pi/3:plot3d([cos(a)*cos( v)*cosh(u)+sin(a)*sin(v)*sinh(u),cos(a)*sin(v)*cosh(u)-sin(a)*cos(v)*s inh(u),cos(a)*u+sin(a)*v],u=-2..2,v=0..2*Pi);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "h\351lico\357de" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "plot3d([u*cos(v),u*sin(v),v],u=-2..2,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "plot3d([cos(u)+cos(v),sin(u)+sin(v) ,u+v],u=0..4*Pi,v=0..2*Pi);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "h \351lico\357de d\351veloppable" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "plot3d([cos(u)-v*sin(u),sin(u)+v*cos(u),u+v],u=0..4*Pi,v=-3..3 );" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "Plucker" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "cone " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "f:=u->exp(u/10)*cos(u) :g:=u->exp(u/10)*sin(u):plot3d([v*f(u),v*g(u),1-v],u=0..20,v=-2..2,gri d=[100,10]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "tore" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "R:=1/2:implicitplot3d((x^2+y^2+z^2+ R^2-1)^2=4*R^2*(x^2+y^2),x=-R-1..R+1,y=-R-1..R+1,z=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "R:=0.6:implicitplot3d((x^2+y^2+z^2+ R^2-1)^2=4*R^2*(x^2+y^2),x=-R..R,y=-R..R,z=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "x:=(u,v)->(R+cos(u))*cos(v):y:=(u,v)->(R+co s(u))*sin(v):z:=(u,v)->sin(u):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "R:=2:plot3d([x(u,v),y(u,v),z(u,v)],u=0..-Pi,v=0..2*Pi,scaling= constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "x:=(u,v)- >(R+cos(u-v))*cos(u+v):y:=(u,v)->(R+cos(u-v))*sin(u+v):z:=(u,v)->sin(u -v):plot3d([x(u,v),y(u,v),z(u,v)],u=0..2*Pi,v=0..2*Pi,scaling=constrai ned);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 192 "R:=4:villarceau:= seq(tubeplot( [(R+cos(t))*cos(t+2*k*Pi/10), (R+cos(t))*sin(t+2*k*Pi/10 ),sin(t),t=0..2*Pi],radius=1/10,scaling=constrained),k=0..10):\ndispla y3d(\{villarceau\},style=patchnogrid);" }}}{PARA 256 "" 1 "" {TEXT -1 14 "Dome de Boh\350me" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "plot3d([cos(u),4*sin(v),sin(u)+4*cos(v)] ,u=-Pi..Pi,v=0..2*Pi,tickmarks=[0,0,0],scaling=constrained,view=[-5..5 ,-6..6,-6..6]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "implicit plot((x^2+y^2-17)^2=4*(1-x^2)(1-y^2),x=-1..1,y=3..5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "cyclide de Blum." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "a:=8:b:=6:c:=-1:implicitplot3d((x^2 + y^2 + z^2)^2 - a*x^2 - b*y^2 - c*z^2 + 4 = 0,x=-2..2,y=-2..2,z=-2..2) ;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "mobius" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "plot3d([(1+u*cos(v/2))*cos(v),(1+u*cos(v/2))*sin(v),u *sin(v/2)],u=-1/4..1/4,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "plot3d([(1+u*cos(v))*cos(v),(1+u*cos(v))*sin(v),u*sin (v)],u=-1/4..1/4,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "plot3d([(1+u*cos(3*v/2))*cos(v),(1+u*cos(3*v/2))*sin(v),u*sin(3* v/2)],u=-1/4..1/4,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "plot3d([(cos(v)+u*cos(v/2))*cos(v),(cos(v)+u*cos(v/2))*sin(v),u* sin(v/2)],u=-1/3..1/3,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "f:=x->sqrt(1-x)*(1+sqrt(1+x)):plot(f(x),x=-1..1);plot (x^2*(1-x),x=0..1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plot3d(u+v,f(u)+D(f)(u)*v,u+v," }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "plot3d([cos(v)-u*sin(v),sin (v)+u*(cos(v)\n),v+u],u=0..1,v=0..Pi);\ntubeplot([cos(v),sin(v)+sin(2* v)/2,cos(2*v)],v=0..2*Pi,radius=0.1);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "romane" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "plot3 d([sin(2*u)*cos(v),sin(2*u)*sin(v),sin(u)^2*sin(2*v)],u=0..Pi,v=0..Pi) ;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "cross cap" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "implicitplot3d(x^4/4+(x^2+y^2)*(y^2+z^2)=y^ 2+x^2*z,x=-0.5..1,y=-1..1,z=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "h:=-0.5:implicitplot(x^4/4+(x^2+y^2)*(y^2+h^2)=y^2+x^ 2*h,x=-1..1,y=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "fa ctor(x^4/4+(x^2+y^2)*y^2-y^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "plot3d([sin(2*u)*cos(v),sin(2*u)*sin(v),cos(u)^2-sin(u)^2*sin( v)^2],u=0..Pi,v=0..Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 " plot3d([sin(2*v)*sin(u),sin(2*u)*cos(v)^2,cos(2*u)*cos(v)^2],u=-Pi/8.. Pi/8,v=0..Pi);\n\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 212 "disp lay3d(\{plot3d([r*cos(t)*(r^2-1)^(1/2),r^2*cos(t)*sin(t),r*sin(t)*(r^2 -1)^(1/2)],r=1..1.5,t=0..2*Pi),\n plot3d([-r*cos(t)*(r^2+1)^( 1/2),-r^2*cos(t)*sin(t),-r*sin(t)*(r^2+1)^(1/2)],r=0..1,t=0..2*Pi)\}); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "plot3d([(1-sin(v)^2/2 )*cos(u)*cos(v),(1-sin(v)^2/2)*cos(u)*sin(v),(1-sin(v)^2/2)*sin(u)+sin (v)^2/2],u=0..-Pi,v=0..Pi);\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 " pseudo crosscap" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "plot3d([ sqrt(1-u^2)*sin(v),sqrt(1-u^2)*sin(2*v)/2,u],u=-1..1,v=0..2*Pi,scaling =constrained);\n" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 3 "boy" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 472 " plot3d([(sqrt(2)*cos(v)^2*cos(2*u)+cos(u)*sin(2*v))/(2-sqrt(2)*sin(3*u )*sin(2*v)),\n(sqrt(2)*cos(v)^2*sin(2*u)+cos(u)*sin(2*v))/(2-sqrt(2)*s in(3*u)*sin(2*v)),\n3*cos(v)^2/(2-sqrt(2)*sin(3*u)*sin(2*v))],u=-Pi/2. .Pi/2,v=0..Pi);\n \nplot3d([(2/3)*(cos(u)*cos(2*v)+sqrt(2)*sin(u)*cos( v))*cos(u)/(sqrt(2)-sin(2*u)*sin(3*v)),\n(2/3)*(cos(u)*sin(2*v)-sqrt(2 )*sin(u)*sin(v))*cos(u)/(sqrt(2)-sin(2*u)*sin(3*v)),\nsqrt(2)*cos(u)^2 / (sqrt(2) -sin(2*u)*sin(2*v))],\nu=-Pi/2..Pi/2,v=0..Pi);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 552 "a:=1:b:=1:c:=1:plot3d(\n[co s(v)*cos(u)*sin(v)*(cos(v)^2 - cos(u)^2*sin(v)^2) + (a*(-cos(v)^2 + 2* cos(u)^2*sin(v)^2 + cos(v)*cos(u)*sin(v)*(-cos(v)^2 + cos(u)^2*sin(v)^ 2) - sin(v)^2*sin(u)^2 + 2*cos(v)*sin(v)*sin(u)* (-cos(v)^2 + sin(v)^ 2*sin(u)^2) -(sin(v)^4*sin(4*u))/4))/2,\n(3^(1/2)*b*(-cos(-v)^2 + sin( v)^2*sin(u)^2 - (sin(v)^4*sin(4*u))/4))/2, \nc*(cos(v) + cos(u)*sin(v) + sin(v)*sin(u))* (-4*sin(v)*(-cos(v) + cos(u)*sin(v))*(cos(u) - sin( u))* (cos(v) - sin(v)*sin(u)) + (cos(v) + cos(u)*sin(v) + sin(v)*sin( u))^3)],\nu=-Pi/2..Pi/2,v=0..Pi);\n\n " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 281 "x:=cos(t)*sin(s):\ny:=sin(t)*sin(s):\nz:=cos(s):\n f:=1/2*((2*x^2-y^2-z^2) + 2*y*z*(y^2-z^2) + z*x*(x^2-z^2)+x*y*(y^2-x^2 )):\ng:= sqrt(3)/2*((y^2-z^2) + z*x*(z^2-x^2) + x*y*(y^2-x^2)):\nh:=(x +y+z)*((x+y+z)^3 + 4*(y-x)*(z-y)*(x-z)):\nplot3d( [f,g,h/8], s=0..Pi, \+ t=0..Pi,orientation=[0,0]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "stei ner" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "with(plots):implicit plot3d(x^2*y^2+x^2*z^2+y^2*z^2-x*y*z=0,x=-1/2..1/2,y=-1/2..1/2,z=-1/2. .1/2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "plot3d([r^2*sin( t)*cos(t),r*sin(t)*(1-r^2)^(1/2),r*cos(t)*(1-r^2)^(1/2)],r=0..1,t=0..2 *Pi,numpoints=2500);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "coeur" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "with(plots):implicitplot3d( (2*x^2+y^2+z^2-1)^3-(1/10)*x^2*z^3-y^2*z^3 = 0,x=-1.1..1.1,y=-1.1..1.1 ,z=-1.1..1.3); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "steiner (coffmann)" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 122 "animate3d([2*r*sin(t)*(1-r^2)^(1/2),2*r*cos(t )*(1-r^2)^(1/2),-1+2*r^2-r^2*sin(t)^2*e],r=0..1,t=0..2*Pi,e=-2..4,fram es=10);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 268 "display3d(\{ani mate3d([r^2*sin(t)^2-(1+e)*(r^2-1),r*sin(t)*(r^2-1)^(1/2),r*cos(t)*(r^ 2-1)^(1/2)],r=1..1.4,t=0..2*Pi,e=-2..1,frames=10),\n animate3d([-( r^2*sin(t)^2-(1+e)*(r^2+1)),-r*sin(t)*(r^2+1)^(1/2),-r*cos(t)*(r^2+1)^ (1/2)],r=0..1,t=0..2*Pi,e=-2..1,frames=10)\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "Cayley" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " plot3d(1/(1-1/x-1/y),x=-2..2,y=-2..2,view=[-2..2,-2..2,-2..2]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "with(plots):implicitplot3d(x *y+y*z+z*x=x*y*z,x=-1..1,y=-1..1,z=-1..1);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "bouteille de Klein" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "surface astro\357dale " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "plot3d([(cos(u)*cos(v)) ^3,(sin(u)*cos(v))^3,sin(v)^3],\nu=0..2*Pi,v=-Pi/2..Pi/2); \n\n" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "sigma racine x, y, z =1" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "implicitplo t3d(((x+y+z-1)^2-4*(x*y+y*z+z*x))^2=64*x*y*z,x=0..1,y=0..1,z=0..1);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "implicitplot3d(sqrt(abs(x) )+sqrt(abs(y))+sqrt(abs(z))=1,x=0..1,y=0..1,z=0..1,grid=[20,20,20]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "clebsch" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "implicitplot3d( x^3 + y^3 + z^3 + 1 = (x + y + z + 1)^3,x=-2..2,y=-2..2,\nz=-2..2,grid=[13,13,13]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "catalan" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "plot3d([u-sin(u)*cosh(v),1- cos(u)*cosh(v),4*sin(u/2)*sinh(v/2)],\nu=0..2*Pi,v=0..4); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "huit" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "plot3d([cos(u)*sin(2*v)/2,sin(u)*sin(2*v)/2,sin(v)], \nu=0..2*Pi,v=0..2*Pi); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "handkerchief" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "plot3d([u,v,u^3/3+u*v^2+u^2-v^2],\n u=-2..2,v=-2..2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{MPLTEXT 1 0 16 "selle pour singe" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "plot3d(x*(x^2-y^2),x=-1..1,y=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "n:=6:plot3d(Re((x+I*y)^n),x=-1..1,y=-1..1);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "twisted sphere" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "a:=1:plot3d([cos(v)*cos(u),sin(v)*cos(u),si n(u)+a*v],u=0..2*Pi,v=-0..10);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 208 "R:=1:r:=2:h:=1:plot3d([\nR*cos(v)+r*(cos(v)*cos(u)+h/sqrt(R^2 +h^2)*sin(v)*sin(u)),\nR*sin(v)+r*(sin(v)*cos(u)-h/sqrt(R^2+h^2)*cos(v )*sin(u)),r*R/sqrt(R^2+h^2)*sin(u)+h*v],u=0..2*Pi,v=0..10,scaling=cons trained);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 11 "soucoupoide" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "plot3d([cos(u)*cos(v),cos(u) *sin(v),sin(u)^3/2],u=0..2*Pi,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 74 "plot3d([-2*cos(u)^3*cos(v)^3/3,cos(u)*sin(v),sin(u) ],u=0..2*Pi,v=0..2*Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 " with(plots):implicitplot(y^2=(1-x^2)^3,x=-1..1,y=-1..1);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "Swiss chease :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "implicitplot3d(cos(x)*sin(y) + cos(y)*sin(z) + cos (z)*sin(x) = 0,x=0..2*Pi,y=0..2*Pi,z=0..2*Pi);" }{TEXT -1 0 "" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 21 "Parapluie de Whithney" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "plot3d([u,u*v,v^2],u=-1..1,v=-1..1) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "plot3d([u*cos(v),u*sin (v),tan(v)^2],u=-1..1,v=-Pi/4..Pi/4);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "surface r\351gl\351e au tr\350fle (jeener)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "implicitplot3d((x^2+y^2)^3=(x^2-y^2 +2*x*y*z)^2,x=-2..2,y=-2..2,z=-2..2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "sph\350re abat jour." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 321 "display(\nseq(\n spacecur ve(\n subs(\{theta=Pi/8\},\n [sin(theta)*cos(phi)-sin(phi )*cos(t)-sin(theta)*cos(phi)*sin(t),\n sin(theta)*sin(phi)+c os(phi)*cos(t)-sin(theta)*sin(phi)*sin(t),\n cos(theta)+cos( theta)*sin(t)]),\n t=0..2*Pi), \n phi=seq(2*Pi/40*i, i=0..39)\n \+ ), scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 452 "r:=0.4:sqr:=sqrt(1+r^2):\n for i from 3 to 10 do\n display(pl ot3d(0.4,t=0..Pi,u=0..2*Pi,coords=spherical,color=yellow,style=patchno grid),\n plot3d([r*(1-cos(z))*cos(t)-sin(z)*sqr*sin(t),\n \+ r*(1-cos(z))*sin(t)+sqr*sin(z)*cos(t),\n \+ 0.4+cos(z)],\n z=0..2*Pi,t=0..2*P i,scaling=constrained, \n orientation=[0,105],gr id=[i,40],style=line,shading=ZHUE)):\n od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 620 " r:=0.4:sqr:=sqrt(1+r^2):\n sph:=plot3d([r*( 1-cos(z))*cos(t)-sin(z)*sqr*sin(t),\n r*(1-cos(z))*sin(t)+s qr*sin(z)*cos(t),\n 0.4+cos(z)],\n z=0..2*Pi,t=0.. 2*Pi,scaling=constrained,\n orientation=[0,105],grid=[20,30] ,style=patchnogrid,colour=COLOR(RGB,1,1,0.6)):\n cercles:= seq( spa cecurve([r*(1-cos(z))*cos(Pi*i/20)-sin(z)*sqr*sin(Pi*i/20),\n \+ r*(1-cos(z))*sin(Pi*i/20)+sqr*sin(z) *cos(Pi*i/20),\n 0.4+cos(z) ], z=0..2*Pi, color=blue), \n i=0..39):\n \+ display([sph,cercles]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 7 "torsade" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 301 "a:=plot3d([cos(t)-u*sin(t),sin(t)+cos(t)*u,t],t=0..Pi,u=-1..1):\n\n\n b:=plot3d([cos(t+Pi/2)-u*sin(t+Pi/2),sin(t+Pi/2)+cos(t+Pi/2)*u,t],t=0. .Pi,u=-1..1):\n\nc:=plot3d([cos(t-Pi/2)-u*sin(t-Pi/2),sin(t-Pi/2)+cos( t-Pi/2)*u,t],t=0..Pi,u=-1..1):\n\nd:=plot3d([-cos(t)+u*sin(t),-sin(t)- cos(t)*u,t],t=0..Pi,u=-1..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "with(plots):display3d(\{a,b,c,d\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 13 "boite a oeufs" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "plot3d(cos(x)+cos(y),x=-6*Pi..4*Pi,y=-4*Pi..4*Pi,grid=[40,40]);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "with(plots):contourplot(c os(x)+cos(y),x=-4*Pi..4*Pi,y=-4*Pi..4*Pi,grid=[50,50],scaling=constrai ned,xtickmarks=0,ytickmarks=0,thickness=2);" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 9 "alysseide" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " plot3d([u*cos(v),u*sin(v),cosh(u)],u=0..3,v=-Pi..Pi);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 21 " trompette de gabriel" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "plot3d(\{[u^2*cos(v),u^2*sin(v),1/u^2],[u^ 2*cos(v),u^2*sin(v),-1/u^2]\},u=0.4..2,v=0..2*Pi,grid=[10,20],scaling= constrained);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 93 "plot3d([u^2*cos(v),u^2*sin(v),1/u^2],u=0.35..1 .4,v=0..2*Pi,grid=[10,20],scaling=constrained);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }