Custom designed physics/math programs

 

VectorPlot
A streamline plotter for Mathematica, capable of plotting flow lines for 2 and 3D visualization

VectorPlot3D[{y,-x,z},{x,-5,5},{y,-5,5},{z,-5,5}]

 

 


VectorPlot[{y,-x},{x,-1,1},{y,-1,1}]
ProbabilityPlot
A 3D quantum wavefunction plotter for Mathematica. Plots the probability density  in rectangular or spherical coordinates

 



Probability density
plot of the electron
cloud in the
310 state
of the hydrogen atom

TensorPackage
A symbolic and numerical tensor analysis program for Mathematica in development.
In[2]:= G[ui[u],ui[v]]*g[li[u],li[f]]
 
          u  v
Out[2]= G[ ,  ] g[ ,  ]
                  u  f
 
In[3]:= TensorSimplify[%]
 
             v
Out[3]= G[ ,  ]
          f
 
In[4]:= Tc[a,b,c]
 
          a
Out[4]= [ ,  ,  ]
             b  c
 
In[5]:= TensorExpand[%]
 
          a  e2
        g[ ,   ] (-g[ ,  , {d}] + g[  ,  , {c}] + g[  ,  , {b}])
                     b  c           e2  b           e2  c
Out[5]= --------------------------------------------------------
                                   2