Матиматика 7

[Dirt]

Привет всем.
Если не сложно можете описать код. очень надо.
Взаранее благодарен.

Manipulate[
 spring = ParametricPlot3D[ {
     (ext + Cos[2 turn x/(1 - ang)]) Cos[ x],
       Sin[
      2 turn x/(1 - ang)], (ext + Cos[2 turn x/(1 - ang)]) Sin[ x] },
    {x, 0, (1 - ang) Pi}, PlotStyle -> Tube[dia]][[1]];
 shaft1 = 
  Rotate[Cylinder[{{-ext, 0, 0}, {-ext, 0, -3}}, 1], 
   ang Pi, {0, 1, 0}];
 shaft2 = Cylinder[{{ext, 0, 0}, {ext, 0, -3}}, 1];
 Graphics3D[{{RGBColor[0.4, 0.8, 0.5], shaft1}, 
   shaft2, {RGBColor[0.8, 1, 0.7], spring}}, Axes -> False, 
  Boxed -> False, ViewPoint -> {0, -10, 3}, ImageSize -> {380, 380}, 
  PlotRange -> {{-5, 5}, {-2, 2}, {-5, 6}}],
 {{ang, -0.1, "Анимация"}, -0.5, Pi/4},
 {{turn, 12 , "Количество витков"}, 1, 20, 1, Appearance -> "Labeled"},
 {{ext, 2.4, "Растояния"}, 1, 4},
 {{dia, 0.14, "Диаметр"}, 0.04, 0.5, ImageSize -> Tiny, 
  ControlPlacement -> Left}, TrackedSymbols -> Manipulate]