Group Abstract Group Abstract

Message Boards Message Boards

Entering code in NDSolve for solution of Foucault Pendulum with RungeKu?

Posted 10 years ago

How specifying data is code in the WolframAlpha Pro window. How avoid the limit in the caracters length ?The use of the paste and copy seems truncated. The interpreter is not understanding what is typed. Here is what is to be interpreted as instructions. I would like to plot the perihely of the ellipse solution for about 1000 seconds. ( and not one as specified {t, 0,1} g=9.8; l=16; AI=30 [Degree]; a=10^-6;

sol = NDSolve[{
   x''[t] == -g/l x[t] + a/l Cos[2 AI], 
   y''[t] == -g/l y[t] + a/l Sin[2 AI],
   x[0]==1., x'[0]==0, y[0]==y'[0]==0.}, {x, y}, {t, 0, 1}, 
   Method -> "ExplicitRungeKutta"];
ParametricPlot[Evaluate[{x[t], y[t]} /. sol], {t, 0, 1}]

Thank you to Bill Simpson for the previous reply.

POSTED BY: Jean HUIGNARD
2 Replies
Posted 10 years ago
POSTED BY: Updating Name
Posted 10 years ago

Your two equations as given seem to be independent of each other.

Use WolframAlpha in two steps.

First substitute the values for your parameters and solve the differential equations

solve the de

Second use those two solutions for parametric plot

plot the system

Perhaps you can adapt this method for your purpose.

POSTED BY: Bill Simpson
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard