New answers tagged

1

Try bending VectorPoints to your will. I'm not certain whether you have a list of vectors or a function. Using VectorPlot: Show[ { VectorPlot[{0, Sin[x]}, {x, 0, \[Pi]}, {y, -1, 1}, VectorPoints -> Table[{x, 1}, {x, 0., \[Pi], \[Pi]/9}], VectorStyle -> Red], VectorPlot[{0, x - \[Pi]/2}, {x, 0, \[Pi]}, {y, -1, 1}, VectorPoints -> ...


2

The system of equations can be solved following the procedure in the accepted answer to question 78641. First, observe that the ODEs in eqns all have the form, a[i]'[t] == - fx[i][t] + fy[i][t] - a[i][t] and so can be written in vector form, a'[t] == - fx[t] + fy[t] - a[t] Consequently, the solution is given by NDSolve[{a'[t] == -a[t] - fCalc[a[t]], ...


3

data = Table[RandomReal[], {100}, {6}]; myPts = Graphics3D[ {Red, PointSize[0.02], Point[ data[[All, {1, 2, 3}]] ]} ]; myArrows = Graphics3D[ Arrow[Transpose@{data[[All, {1, 2, 3}]], data[[All, {4, 5, 6}]]}]]; Show[myPts, myArrows]



Top 50 recent answers are included