實驗一 環面、Villarceaux圓、環面上之圖案
實驗二 圓柱面上之曲線、環面上之曲線、鞍面、Monkey's Saddle
實驗三 球面上之曲線、球面上之圖案
實驗四 旋轉曲面、結
實驗五 微積分所探討的立體模型  曲率
實驗六 動態生成
實驗七 微積分所探討的立體模型
實驗八 球面上相切的圓
實驗九 球面與正多面體之設計
實驗十 動態圖形animate gif之製作

首頁版主介紹課程內容課程作品相關連結

實驗三 球面上之曲線、球面上之圖案

plot3d([sin(phi)*sin(2*phi),theta,phi],theta=0..2*Pi,phi=0..Pi,scaling=constrained,coords=spherical,grid=[51,51]);

with(plots);
n:=sqrt(x^2+y^2+z^2);
z:=1;
p1:=plot3d([x/n,y/n,z/n],x=-1..1,y=-1..1,scaling=constrained,color=red):
z:=-1;
p2:=plot3d([x/n,y/n,z/n],x=-1..1,y=-1..1,scaling=constrained,color=red):
unassign('z');
x:=1;
p3:=plot3d([x/n,y/n,z/n],z=-1..1,y=-1..1,scaling=constrained,color=blue):
x:=-1;
p4:=plot3d([x/n,y/n,z/n],z=-1..1,y=-1..1,scaling=constrained,color=blue):
unassign('x');
y:=1;
p5:=plot3d([x/n,y/n,z/n],z=-1..1,x=-1..1,scaling=constrained,color=yellow):
y:=-1;
p6:=plot3d([x/n,y/n,z/n],z=-1..1,x=-1..1,scaling=constrained,color=yellow):
display(p1,p2,p3,p4,p5,p6);
 

plot3d([1,theta,rho],theta=0..2*Pi,rho=0..Pi,coords=spherical,scaling=constrained);

with(plots):
p1:=plot3d([1,theta+rho,rho],theta=0..Pi/3,rho=0..Pi,coords=spherical,scaling=constrained,color=green):
p2:=plot3d([1,theta+rho,rho],theta=Pi/3..2*Pi/3,rho=0..Pi,coords=spherical,scaling=constrained,color=red):
p3:=plot3d([1,theta+rho,rho],theta=2*Pi/3..Pi,rho=0..Pi,coords=spherical,scaling=constrained,color=COLOR(RGB,0.2,0.2,0.6)):
p4:=plot3d([1,theta+rho,rho],theta=Pi..4*Pi/3,rho=0..Pi,coords=spherical,scaling=constrained,color=COLOR(RGB,0.7,0.2,0.1)):
p5:=plot3d([1,theta+rho,rho],theta=4*Pi/3..5*Pi/3,rho=0..Pi,coords=spherical,scaling=constrained,color=COLOR(RGB,0.3,0.2,0.5)):
p6:=plot3d([1,theta+rho,rho],theta=5*Pi/3..2*Pi,rho=0..Pi,coords=spherical,scaling=constrained,color=COLOR(RGB,0.5,0.49,0.01)):
display(p1,p2,p3,p4,p5,p6);

首頁 版主介紹 | 課程內容 課程作品 | 相關聯結