References: Cornel University, https://e.math.cornell.edu>people, Jim Belk - Differential Geometry;
AI Assistant; Personal.
AI Assistant; Personal.
In[]:=
Manipulate[Show[ParametricPlot3D[{Cos[v]Cos[s],s+Sin[v],Cos[v]Sin[s]},{s,0,u},{v,0,2π},Mesh->{18,12},PlotStyle->Directive[Opacity[0.65],Lighter[Blue]],Boxed->False,Axes->False],ParametricPlot3D[{Cos[v]Cos[u],u+Sin[v],Cos[v]Sin[u]},{v,0,2π},PlotStyle->{Thick,Red},Mesh->None],Graphics3D[{Black,PointSize[Large],Point[{0,u+1,0}]}],Graphics3D[{Black,PointSize[Large],Point[{0,u-1,0}]}],PlotRange->{{-1.5,1.5},{-2.5,2π},{-2.5,2.5}},AxesTrue,ImageSize->Large,AxesOrigin{0,0,0},BoxRatiosAutomatic,AxesLabel{x,y,z}],{u,0.00001,π}]
Out[]=
