Seiffert'sSphericalSpiral::usage="The spherical curve obtained when moving along the surface of a sphere with constant speed, while maintaininga constant angular velocity with respect to fixed diameter. References: Wolfram MathWorld; Personal.";
Animation:
In[]:=
Manipulate[k=0.5;ζ[s_]:={JacobiSN[s,]Cos[ks],JacobiSN[s,]Sin[ks],JacobiCN[s,]};Show[{ParametricPlot3D[ζ[s],{s,0,t1},PlotStyle->Yellow,PerformanceGoal->"Quality"]/.Line[pts_,rest___]:>Tube[pts,0.005,rest]},AxesLabel->(Style[#,15,Blue]&/@{"X","Y","Z"}),AxesOrigin{0,0,0},AxesTrue,BoxedFalse,BoxRatiosAutomatic,PlotRangeAll,ImageSize900,ViewPoint{1.3,-5,5},PlotPoints500],Style["Seiffert's Spherical spiral",Bold,Large],{{t1,0.00002,"Value (t1)"},0.00001,100,0.00001},ControlPlacementTop]
2
k
2
k
2
k
Out[]=
