ParametricPlot3D[{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], 
          t/Sqrt[101]}, {t, 0, 6  Pi}, 
        PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {- .5, 
              2.5}}, BoxRatios -> {1, 1, 1}, Boxed -> False, 
        Axes -> None, ImageSize -> 500];

D[{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], t/Sqrt[101]}, 
      t]

101/100 
       D[{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], t/Sqrt[101]}, {t, 
          2}]

Cross[%%, %] // Simplify

Das begleitende Dreibein einer Schraubkurve

Table[
        Show[%1, 
          Graphics3D[{Thickness[0.01], Hue[0], 
              Line[{{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], 
                    t/Sqrt[101]}, {Cos[10  t/Sqrt[101]], 
                      Sin[10  t/Sqrt[101]], 
                      t/Sqrt[101]} + {-((10 Sin[((10 t)/(Sqrt[101]))])/(Sqrt[101])), ((10 Cos[((10 t)/(Sqrt[101]))])/(Sqrt[101])), 
                      (1/(Sqrt[101]))}}]}], 
          Graphics3D[{Thickness[0.01], Hue[0.33], 
              Line[{{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], 
                    t/Sqrt[101]}, {Cos[10  t/Sqrt[101]], 
                      Sin[10  t/Sqrt[101]], 
                      t/Sqrt[101]} + {-Cos[((10 t)/(Sqrt[101]))], -Sin[((10 t)/(Sqrt[101]))], 0}}]}], 
          Graphics3D[{Thickness[0.01], Hue[0.66], 
              Line[{{Cos[10  t/Sqrt[101]], Sin[10  t/Sqrt[101]], 
                    t/Sqrt[101]}, {Cos[10  t/Sqrt[101]], 
                      Sin[10  t/Sqrt[101]], 
                      t/Sqrt[101]} + {Sin[((10 t)/(Sqrt[101]))]/(Sqrt[101]), -Cos[((10 t)/(Sqrt[101]))]/(Sqrt[101]), (10/(Sqrt[101]))}}]}]], {t, 0, 6  Pi, 
          Pi/20}];