- /
-
Periodic Minimal Surface
on 13 Oct 2022
- 69
- 172
- 0
- 2
- 276
r=0:2e-2:2*pi;
[R,P,T]=meshgrid(r/1.75,r,r/2);
s=@(x)sin(x);
c=@(x)cos(x);
X=R.*s(P).*c(T);
Y=R.*s(P).*s(T);
Z=R.*c(P);
x=X(:);
y=Y(:);
z=Z(:);
d=(c(2*x).*s(y).*c(z)+c(2*y).*s(z).*c(x)+c(2*z).*s(x).*c(y))-.4;
I=(abs(d)-.1)<0;
scatter3(x(I),y(I),z(I),10,d(I),'.');
axis equal off;
colormap(turbo);
zoom(1.3)