- /
-
Worm hole
on 17 Oct 2021
- 5
- 39
- 2
- 0
- 258
A=linspace(0,360,30);
Z=linspace(-1,1,30);
R=@(z)z.^4;
X=@(z,a)R(z)*cosd(a);
Y=@(z,a)R(z)*sind(a);
for z=Z
plot3(X(z,A),Y(z,A),z*ones(1,30),'c');
hold on;
end
for a=A
plot3(X(Z,a),Y(Z,a),Z,'c');
end
plot3([0 0],[0 0],[-2 2],'g');
axis equal off
view(5,10);
set([gcf gca],'color','k');