>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
with(plots):
plot3d(cos(x*y), x=-3..3, y=-3..3, axes=framed):
plot3d(cos(x*y), x=-3..3, y=-3..3, axes=framed, style=hidden,
color=blue):
plot3d(1/(x^2+y^2), x=-1..1, y=-1..1, view=0..10, grid=[25,
25], style=hidden,color=blue, axes=framed);
spacecurve([t*cos(2*Pi*t), t*sin(2*Pi*t), 2+t,t=0..10],
numpoints=400, color=red, thickness=2, axes=framed);
plot3d([r*cos(phi), r*sin(phi), phi], r=0..1, phi=0..6*Pi,
grid=[15,45], style=hidden, orientation=[55,70], axes=framed);
implicitplot3d( x^3 + y^3 + z^3 + 1 = (x + y +z+1)^3,x=-2..2,
y=-2..2,z=-2..2,grid=[13,13,13], style=patchnogrid, axes=
framed);
s:=sphereplot(1, theta=0..2*Pi, phi=0..Pi, style=patch,
scaling=constrained):
c:=cylinderplot(1/2, theta=0..2*Pi, z=-2..2, style=patch,
scaling=constrained):
display3d({s,c}, axes=none, scaling=constrained):
U:=log(sqrt((x+1)^2+y^2)) + log(sqrt((x-1)^2+y^2)) + log(sqrt(
(y+1)^2+x^2)) + log(sqrt((y-1)^2+x^2)):
contourplot(U, x=-3/2..3/2, y=-3/2..3/2, contours=30, grid=
[50,50], color=black):
plot3d(20*exp(-x^2-y^2)-10,x=0..2,y=-3..3, style=patchcontour,
contours=15, axes=framed):
var ( 'y') ; o1=plot3d ( cos (x*y) ,( x , -3 ,3) ,( y , -3 ,3) )
y
o2=plot3d ( cos (x*y ) , (x , -3 ,3) , (y , -3 ,3) , frame=False , color='blue ' , mesh=True )
var ( 'z') ; implicit_plot3d ( z==1/(x^2+y^2) , (x , -1 ,1) ,( y , -1 ,1) , ( z ,0 , 6) , mesh=True , \
viewer='tachyon ' , f i g s i z e =2 )
z
t=var ( 't ') ; parametric_plot3d (( t * cos (2* pi * t ) , t * sin (2* pi * t ) , 2+t ) , ( t ,0 ,10) , \
plot_points =400, thickness =3, viewer='tachyon ' , f i g s i z e =2)
var ( 'r , phi ') ; parametric_plot3d (( r * cos ( phi ) , r * sin ( phi ) , phi ) , ( r , 0 , 1) , ( phi ,0 ,6*\
pi ) , plot_points =[15 ,45] , mesh=True , aspect_ratio =[5 ,5 ,1] , viewer='tachyon ' , \
f i g s i z e =2)
(r, phi)
1
implicit_plot3d ( (x^3 + y^3 + z^3 + 1 == (x + y +z+1)^3) ,( x , -2 ,2) ,( y , -2 ,2) ,( z\
, -2 ,2) , mesh=True , viewer='tachyon ' , f i g s i z e =2)
s=spherical_plot3d (1 ,( x ,0 ,2* pi ) ,( y ,0 , pi ) , aspect_ratio =[1 ,1 ,1] , opacity =0.75)
c=cylindrical_plot3d ( . 5 , (x ,0 ,2* pi ) , (y , -2 ,2) , aspect_ratio =[1 ,1 ,1] , mesh=True )
( s+c ) . show ( frame=False , aspect_ratio =[1 ,1 ,1] , viewer='tachyon ' , f i g s i z e =2)
U=log ( sqrt (( x+1)^2+y^2) ) + log ( sqrt (( x -1)^2+y^2) ) + log ( sqrt (( y+1)^2+x^2) ) + log (\
sqrt (( y -1)^2+x^2) )
o3=contour_plot (U, (x , - 1 . 5 , 1.5) , (y , - 1 . 5 , 1.5) , contours =20, f i l l =f a l s e , \
linewidths =3)
frames =[ plot ( sin ( t *x) , (x , -10 ,10) ) fo r t in range (1 ,11) ] ; a=animate ( frames )
a . g i f ( s a v e f i l e='animace . g i f ')
2