Here, you can load down the Source code for
the vector field of the Lorentz ODE .
It illustrates also, how one can produce colored pictures
without having a terminal with fancy graphics.
We let draw the vector field without displaying it on screen and write
a PS file, which can be processed further (for example transferred into a
GIF file and put onto the Web). Here is the core of the code.
PlotField3D[n_]:=Table[Arrow3D[{i/n,j/n,k/n},
{u[2i/n,2j/n,2k/n],v[2i/n,2j/n,2k/n],w[2i/n,2j/n,2k/n]}/50,0.091],
{i,-n/2,n/2},{j,-n/2,n/2},{k,-n/2,n/2}];
Pict=Show[Graphics3D[ PlotField3D[3]],AspectRatio->1,DisplayFunction->Identity];
Display["!psfix -land -stretch > pict.ps",Pict];
Load down the source code as Text file:
Source code
If you run under UNIX the command
math<3dfield.m
then a PS file "pict.ps" will be produced.