var('u v')
P = parametric_plot3d([u * cos(v), u * sin(v), f(u * cos(v), u * sin(v))],
(u, 0, 1), (v, 0, 2 * pi))
P += parametric_plot3d([cos(t), sin(t), 0], (t, 0, 2 * pi), thickness = 2, color = 'red')
P += parametric_plot3d([cos(t), sin(t), f(cos(t), sin(t))], (t, 0, 2 * pi), thickness = 2, color = 'green')
for s in S:
p = [x(s), y(s), f(x(s), y(s))]
P += point3d(p, size = 10, color = 'black')
show(P)
|
18
500
/home/pub/8/cells/18/.jmol_images/sage0-size500.jmol.png?1652928256.1
/home/pub/8/cells/18/sage0-size500.jmol?1652928256.1
/home/pub/8/jsmol
notActivated
|