- /
-
submarine
on 15 Oct 2021
- 4
- 52
- 2
- 0
- 280
f=@(x,y,z)x^2+1e2*(y^2+z^2)/(7-x)^2-1;
figure(Color='#113');
p=fimplicit(@(x,y)f(x,y,0));
X=p.XData;
Y=p.YData;
X(274)=-.1;
Y(274)=1;
a=fill(X,Y,0);
hold on;
b=fill3(X,X-X,Y,0);
c=fimplicit3(f,EdgeC='n');
set([a,b,c],FaceC='#CDE')
axis equal off;
view(-145,15);
light(Pos=[1 1 1]);
material metal;
xlim([-.9 1]);