RE: Help me

*To*: mathgroup at yoda.physics.unc.edu*Subject*: RE: Help me*From*: bramsey at its.bldrdoc.gov*Date*: Tue, 16 Feb 93 12:17:31 mst

Hello Mr. Bosch, I tried your code on Mathematica running on a 486 under Microsoft windows, and on a DEC VAX RISC machine. Both were running v. 2.1, and both came up with the same answer. The output graph is available as /dist/bramsey/bosch.ps (mma graph from the DEC) and /dist/bramsey/bosch.ma (mma notebook from the Windows ver) these are available by anonymous ftp from ntia.its.bldrdoc.gov I did have to modify your code however. The line: >Plot[Evaluate[v[t]/.%],{t,0,10},PlotPoints->100]; produced an error on the DEC VAX since the output from the previous entry was in rule format. I made the folowing changes: rule = NDSolve ........ and then, Plot[Evaluate[v[t]/.rule],{t,0,10},PlotPoints->100]; ^ Using the definition for "rule" above The full notebook is in /dist/bramsey/bosch.ma. Best Regards, Brad Ramsey