Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Phase Plot of Simple Harmonic Motion using Mathematica ??

• To: mathgroup at smc.vnet.net
• Subject: [mg126502] Phase Plot of Simple Harmonic Motion using Mathematica ??
• From: Rahul Chakraborty <rahul.6sept at gmail.com>
• Date: Tue, 15 May 2012 04:54:39 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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 arguments 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,WorkingPrecision\[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

• Follow-Ups:
  • Re: Phase Plot of Simple Harmonic Motion using Mathematica ??
    • From: Bob Hanlon <hanlonr357@gmail.com>