Vektoren * Vecteurs

<< Graphics`PlotField3D`

PlotVectorField3D[{y, -x, 0}/z, {x, -1, 1}, {y, -1, 
          1}, {z, 1, 3}];

PlotGradientField3D[
        x y z, {x, -1, 1}, {y, -1, 1}, {z, -1, 
          1}];

PlotVectorField3D[{x, y, z}, {x, 0, 2}, {y, 0, 2}, {z, 0, 2}, 
        PlotPoints -> 5, VectorHeads -> True];

myArray1 = 
      Table[{x /2 {Sin[x], Cos[x], Sin[x] + Cos[x]}, 
          x  {Sin[x], Cos[x], Sin[x] + Cos[x]}}, {x, 1, 10, 
          0.5}]

ListPlotVectorField3D[myArray1];

ListPlotVectorField3D[myArray1, 
        VectorHeads -> True];

ListPlotVectorField3D[myArray1, VectorHeads -> True, 
        ScaleFactor -> Max];

myArray2 = 
      Flatten[Table[{{i, j, k}, {Random[Real, {-1, 1}], 
              Random[Real, {-1, 1}], Random[Real, {-1, 1}]}}, {i, 
            7}, {j, 7}, {k, 7}], 2]

ListPlotVectorField3D[array];

ListPlotVectorField3D[array, VectorHeads -> True];

<< Graphics`Arrow`

Show[
        Graphics[
          Table[Arrow[{0, 0}, x {Sin[x], Cos[x]}, 
              HeadScaling -> Relative], {x, 0, 2 Pi,  .3}]], 
        PlotRange -> All];

Show[
        Graphics3D[
          Table[Line[{{0, 0, 0}, x {Sin[x], Cos[x], Sin[x] + Cos[x]}}], {x, 
              0, 2 Pi,  .3}]], PlotRange -> All];

Show[
        Graphics3D[{Table[
              Line[{{0, 0, 0}, x {Sin[x], Cos[x], Sin[x] + Cos[x]}}], {x, 0, 
                2 Pi,  .3}], PointSize[0.03], 
            Table[Point[x {Sin[x], Cos[x], Sin[x] + Cos[x]}], {x, 0, 
                2 Pi,  .3}]}], PlotRange -> All];

Show[
        Graphics3D[{Table[
              Line[{x /2 {Sin[x], Cos[x], Sin[x] + Cos[x]}, 
                  x {Sin[x], Cos[x], Sin[x] + Cos[x]}}], {x, 0, 
                2 Pi,  .3}], PointSize[0.03], 
            Table[Point[x {Sin[x], Cos[x], Sin[x] + Cos[x]}], {x, 0, 
                2 Pi,  .3}]}], PlotRange -> All];