输入以下命令:
with(plots):a:=1.2:b:=1:
qumian1:=plot3d([a*cos(t), b*sin(t),z], z=0..2, t=0..2*Pi, color=yellow):
qumian2:=plot3d([u*cos(t), u*sin(t), 2-u^2], u=-2..2, t=0..2*Pi, color=green):
display(qumian1, qumian2, scaling=constrained,orientation=[40,60], axes=frame);
输出图形:
输入以下命令:
a:=1.2:b:=1:
qumian1:=plot3d([a*cos(t), b*sin(t),z], z=0..2, t=0..2*Pi, color=yellow):
qumian2:=plot3d([u*cos(t), u*sin(t), 2-u^2], u=-2..2, t=0..2*Pi, color=green):
x:=t->a*cos(t): y:=t->b*sin(t): z:=(x,y)->2-x^2-y^2:
quxian:=spacecurve([x(t), y(t), z(x(t), y(t))], t=0..2*Pi,thickness=4, color=red):
display(qumian1, qumian2, quxian, scaling=constrained,orientation=[40,60], axes=frame);
输出图形:
with(plots):R:=1:
qumian1:=plot3d([u*cos(t)/sqrt(2),u*sin(t)/sqrt(3),u^2],u=0..2,t=0..2*Pi,color=yellow):
qumian2:=plot3d([u*cos(t)/sqrt(2),u*sin(t),4-u^2],u=0..2,t=0..2*Pi,color=green):
quxian:=spacecurve([cos(t),sin(t),2+sin(t)*sin(t)],t=0..2*Pi,color=red,thickness=8):
x_axis:=plot3d([u,0,0],u=-1..1,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-.2..4.4,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[40,60]);
with(plots):a:=1: u:=(x,y)->2*x^2+3*y^2: v:=(x,y)->4-2*x^2-y^2:
qumian1:=plot3d(u(x,y),x=-a..a,y=-sqrt(a^2-x^2)..sqrt(a^2-x^2),color=yellow):
qumian2:=plot3d(v(x,y),x=-a..a,y=-sqrt(a^2-x^2)..sqrt(a^2-x^2),color=green):
quxian:=spacecurve([cos(t),sin(t),u(cos(t),sin(t))],t=0..2*Pi,color=red,thickness=8):
x_axis:=plot3d([u,0,0],u=-1..1,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-.2..4.4,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(qumian1,qumian2,quxian,xyz,scaling=constrained,orientation=[40,60]);
with(plots): R:=1:
zhumian1:=plot3d([R*sin(u)*cos(v), R*sin(u)*sin(v), R*cos(u)], u=0..Pi, v=0..2*Pi, color=yellow):
zhumian2:=plot3d([(R/2)*(1+cos(t)), (R/2)*sin(t), z], z=-1.1..1.1, t=0..2*Pi, color=green):
z:=(x,y)->sqrt(R^2-x^2-y^2): x:=t->(R/2)*(1+cos(t)): y:=t->(R/2)*sin(t):
quxian1:=spacecurve([(R/2)*(1+cos(t)), (R/2)*sin(t), z(x(t),y(t))], t=0..2*Pi, thickness=5,color=red):
quxian2:=spacecurve([(R/2)*(1+cos(t)), (R/2)*sin(t), -z(x(t),y(t))], t=0..2*Pi,thickness=5,color=red):
display(zhumian1,zhumian2,quxian1,quxian2, scaling=constrained,orientation=[40,65],axes=frame);
with(plots):R:=1:
qiumian:=plot3d([R*sin(s)*cos(t),R*sin(s)*sin(t),R*cos(s)],s=0..Pi/2,t=0..2*Pi,color=yellow):
zhumian:=plot3d([R*(cos(t/2))^2,(R/2)*sin(t),z],t=0..2*Pi,z=0..1.1*R,color=green):
quxian:=spacecurve([R*(cos(t/2))^2,(R/2)*sin(t),R*sin(t/2)],t=0..2*Pi,color=red,thickness=4):
x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-.3..1.3,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(qiumian,zhumian,quxian,xyz,scaling=constrained,orientation=[46,57]);
with(plots):with(plottools):R:=1:
qiumian:=sphere([0,0,0],R,color=yellow):
zhumian:=cylinder([R/2,0,-R],R/2,2*R,color=green,capped=false):
quxian:=spacecurve([R*(cos(t/2))^2,(R/2)*sin(t),R*sin(t/2)],t=-2*Pi..2*Pi,color=red,thickness=4):
x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(quxian,xyz,scaling=constrained,orientation=[40,75]);
输入以下命令:
with(plots): R:=1:
zhumian1:=plot3d([R*cos(t), R*sin(t), z], z=-R..R, t=0..2*Pi,color=yellow):
zhumian2:=plot3d([R*cos(t), y, R*sin(t)], y=-R..R, t=0..2*Pi,color=green):
display(zhumian1, zhumian2, scaling=constrained,orientation=[40,65]);
输出图形:
with(plots):R:=1:
zhumian1:=plot3d([R*cos(t), R*sin(t), z], z=-R*sin(t)..R*sin(t), t=0..2*Pi, color=yellow):
zhumian2:=plot3d([R*cos(t), y, R*sin(t)], y=-R*sin(t)..R*sin(t), t=0..2*Pi, color=green):
display(zhumian1, zhumian2, scaling=constrained, orientation=[40,65]);
with(plots):R:=1:
zhumian1:=plot3d([R*cos(t),R*sin(t),z],z=-R..R,t=0..2*Pi,color=yellow):
zhumian2:=plot3d([R*cos(t),y,R*sin(t)],y=-R..R,t=0..2*Pi,color=green):
quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=4):
quxian2:=spacecurve([R*cos(t),R*sin(t),-R*sin(t)],t=0..2*Pi,color=blue,thickness=4):
display(zhumian1,zhumian2,quxian1,quxian2,scaling=constrained,orientation=[40,65]);
with(plots):R:=1:
zhumian1:=plot3d([R*cos(t),R*sin(t),z],z=-R*sin(t)..R*sin(t),t=0..2*Pi,color=yellow):
quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=4):
zhumian2:=plot3d([R*cos(t),y,R*sin(t)],y=-R*sin(t)..R*sin(t),t=0..2*Pi,color=green):
quxian2:=spacecurve([R*cos(t),-R*sin(t),R*sin(t)],t=0..2*Pi,color=blue,thickness=4):
x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(zhumian1,zhumian2,quxian1,quxian2,xyz,scaling=constrained,orientation=[40,75]);
with(plots):R:=1:
quxian1:=spacecurve([R*cos(t),R*sin(t),R*sin(t)],t=0..2*Pi,color=red,thickness=8):
quxian2:=spacecurve([R*cos(t),-R*sin(t),R*sin(t)],t=0..2*Pi,color=blue,thickness=8):
x_axis:=plot3d([u,0,0],u=-1..1.3,v=0..0.01,thickness=3):
y_axis:=plot3d([0,u,0],u=-1..1.3,v=0..0.01,thickness=3):
z_axis:=plot3d([0,0,u],u=-1.3..1.3,v=0..0.01,thickness=3):
xyz:=display(x_axis,y_axis,z_axis,thickness=3):
display(quxian1,quxian2,xyz,scaling=constrained,orientation=[40,75]);
评论