<< Graphics`Graphics3D`
ParametricPlot3D[{0, t, 1/t}, {t, 1, 7}, 
      ViewPoint -> {3.278,  0.796,  0.262}]

MGiroOY = {{Cos[a], 0,  -Sin[a]}, {0, 1, 0}, {Sin[a], 0, 
          Cos[a]}}
MatrixForm[MGiroOY]

MGiroOY . {0, t, 1/t}

ParametricPlot3D[{-Sin[a]/t, t, Cos[a]/t}, {t, 1, 7}, {a, 0, 
        2*Pi}, ViewPoint -> {3.104,  -1.265,  0.464}, 
      PlotRange -> {{-3, 3}, {0, 7}, {-2, 2}}]

Clear[k]

No = 20

??  ParametricPlot3D

For[k = 1, k ≤ No, k++, 
      graf = ParametricPlot3D[{-Sin[a]/t, t, Cos[a]/t}, {t, 1, 
            7}, {a, 0, 2*k*Pi/No}, 
          PlotRange -> {{-3, 3}, {0, 7}, {-2, 2}}, 
          ViewPoint -> {2.656,  -1.965,  0.730}]]