Umbilic Torus Folding Upon Itself

Remix
Share
New Entry

JKMSMKJ
/
Umbilic Torus Folding Upon Itself

on 6 Nov 2023

drawframe(1);

Write your drawframe function below

function drawframe(f)
n=239;
u=(-n:2:n)'/n*pi;
v=(-n:2:n)/n*pi;
sinu=sin(u); sinu(1)=0; sinu(n+1)=0; cosu=cos(u);
sinu3=sin(u/3); cosu3=cos(u/3);
sinv=sinu'; cosv=cosu';
sin2v=sin(2*v); cos2v=cos(2*v);
X=7*cosu*ones(1,n+1)+(cosu3.*cosu)*(cos2v+2*cosv)+(sinu3.*cosu)*(sin2v-2*sinv);
Y=7*sinu*ones(1,n+1)+(cosu3.*sinu)*(cos2v+2*cosv)+(sinu3.*sinu)*(sin2v-2*sinv);
Z=sinu3*(cos2v+2*cosv)+cosu3*(2*sinv-sin2v);
surf(X,Y,Z,'FaceAlpha',0.7,'EdgeColor','none','FaceColor','interp');
axis('equal','off');
camorbit(360*f/48,10);
end