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>
- Phase Plot of Simple Harmonic Motion using Mathematica ??