二人で一つ

実は一本のリングなのだ。

c=1.0
x(u_,v_) = cos(u_)* (c + sin(v_)* cos(u_) - sin(2* v_)* sin(u_) / 2)
y(u_,v_) = sin(u_) *(c + sin(v_)* cos(u_) - sin(2* v_) *sin(u_) / 2)
z(u_,v_) = sin(u_) *sin(v_) + cos(u_)* sin(2* v_) / 2

-π≦u_≦π、-π≦v_≦π、

script

c = 1.0;
Susr=({
"u_=domain(-pai,pai,u);v_=domain(-pai,pai,v);cos(u_)* (c + sin(v_)* cos(u_) - sin(2* v_)* sin(u_) / 2)",
"sin(u_) *(c + sin(v_)* cos(u_) - sin(2* v_) *sin(u_) / 2)",
"sin(u_) *sin(v_) + cos(u_)* sin(2* v_) / 2"});

stlsave("Torus.stl");
uvmesh(80,80);
etrgmesh(Susr);
stlsave();
end;