Re: Phase Plot of Simple Harmonic Motion using Mathematica ??

*To*: mathgroup at smc.vnet.net*Subject*: [mg126508] Re: Phase Plot of Simple Harmonic Motion using Mathematica ??*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Wed, 16 May 2012 04:21:12 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201205150854.EAA10987@smc.vnet.net>

When I copied and pasted your input I had the same error. However, after I manually re-entered the line defining solution all worked well. You must have some invisible character in your input. Bob Hanlon On Tue, May 15, 2012 at 4:54 AM, Rahul Chakraborty <rahul.6sept at gmail.com> wrote: > Hi all, > > Plz check my code below for Phase plot of Simple Harmonic motion. The = output should be a circle with x along X-axis and dxdt along y-axis. > > I'm not getting the output. kindly let me know where i'm wrong. > > Clear[k, m]; > k = 1; > m = 3; > solution = > NDSolve[{x''[t] + k/m x[t] == 0, x[0] == 5, x'[0] == 0}, > x, {t, 0, 250}, MaxSteps \[RightArrow] 50000, > WorkingPrecision \[RightArrow] 25] > ParametricPlot[Evaluate[{x[t], x'[t]} /. solution], {t, 0, 100}, > PlotRange \[RightArrow] All, > AxesLabel -> {"x", "\!\(\*OverscriptBox[\(x\), \(.\)]\)"}] > > > Following are the errors: > > 1)NDSolve::dvlen: The function x[t] does not have the same number of argu= ments as independent variables (3). >> > > 2)ReplaceAll::reps: {NDSolve[{x[t]/3+(x^\[Prime]\[Prime])[t]==0,x[0]= ==5,(x^\[Prime])[0]==0},x,{t,0,250},MaxSteps\[RightArrow]50000,Work= ingPrecision\[RightArrow]25]} is neither a list of replacement rules nor a = valid dispatch table, and so cannot be used for replacing. >> > > 3)ParametricPlot::pllim: Range specification PlotRange\[RightArrow]All is= not of the form {x, xmin, xmax}. >> > > > Regards, > > rc > -- Bob Hanlon

**References**:**Phase Plot of Simple Harmonic Motion using Mathematica ??***From:*Rahul Chakraborty <rahul.6sept@gmail.com>