Mathematica conversion routine to use numerical differential equations solver

MakeDiffEq[p_, dh_] := <br />    Module[{r, vars, d1, d2, eq}, <br />  ... p;      eqs = (#[[1]] == #[[2]]) & /@ ({d1, d2} // Transpose)] ;

Created by Mathematica  (October 21, 2003)