Genre\ comment\ y\ m' engueule\ Mathématica ...
:fear :
Fuyez ô profanes... Fuyeeeeeeeeeeeeez
Hello Darky^^
Allez, pr le fun ...
RowBox[{
RowBox[{"solution", "=",
RowBox[{"NDSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["y", "′",
MultilineFunction->None], "[", "t", "]"}], "\[Equal]", \
\(X[t]\)}], ",", \(X[
t] == \(-ω^2\) Sin[θ[t]]\), ",", \(θ[0] ==
0\), ",", \(X[0] == 2.1\)}], "}"}], ",", \({θ, X}\), ",", \({t, 0,
100}\)}], "]"}]}], ";", \(ParametricPlot[Evaluate[{θ[t], X[t]} /.
solution], {t, 0, 100}]\), ";"}]}]\)
From In[23]:=
\!\(\*
RowBox[{\(NDSolve::"ndnum"\), \(\(:\)\(\ \)\), "\<\"Encountered non-
numerical value for a derivative
at \\!\\(t\\) == \\!\\(0.`\\). \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"NDSolve::ndnum\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ReplaceAll::"reps
"\), \(\(:\)\(\ \)\), \
"\<\"\\!\\({\\(NDSolve[\\(\\(\\(\\({\\(\\(\\(\\(\\(\\(\\*
SuperscriptBox[\\\"y\\\", \\\"′\\\", Rule[MultilineFunction, \
None]]\\)\\)[t]\\)\\) \[Equal] \\(\\(X[t]\\)\\)\\)\\), \\(\\(\\(\\(X[t]\\)\\) \
\[Equal] \\(\\(-\\(\\(Sin[\\(\\(θ[t]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(θ[0]\\)\\) \[Equal] 0\\)\\), \\(\\(\\(\\(X[0]\\)\\) \[Equal] 2.1`\
\\)\\)}\\)\\), \\(\\({θ, X}\\)\\), \\(\\({t, 0, 100}\\)\\)\\)\\)]\\)}\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"ReplaceAll::reps\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(NDSolve::"dsvar"\), \(\(:\)\(\ \
\)\), "\<\"\\!\\(4.166666666666667`*^-6\\) cannot be used as
a variable. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"NDSolve::dsvar\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ReplaceAll::"reps
"\), \(\(:\)\(\ \)\), "\<\"\\!\\({\\(\[LeftSkeleton]
1 \[RightSkeleton]\\)}\\)
is neither a list of replacement rules nor a valid dispatch table, and so \
cannot be used for replacing. \\!\\(\\*ButtonBox[\\\"Plus…\\\", ButtonStyle->\
\\\"RefGuideLinkText\\\", ButtonFrame->None, ButtonData:>\\\"ReplaceAll::reps\
\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ParametricPlot::
"pptr"\), \(\(:\)\(\ \)\), "\<\"\\!\\(\\(\\({\\(\\(θ[
t]\\)\\), \\(\\(X[
t]\\)\\)}\\)\\)/.\[InvisibleSpace]\\(\\(NDSolve[\\(\\(\\(\\({\\(\\(\\(\\\
(\\(\\(\\*SuperscriptBox[\\\"y\\\", \\\"′\\\", Rule[MultilineFunction, None]]\
\\)\\)[t]\\)\\) \[Equal] \\(\\(X[t]\\)\\)\\)\\), \\(\\(\\(\\(X[t]\\)\\) \
\[Equal] \\(\\(-\\(\\(Sin[\\(\\(θ[t]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(θ[0]\\)\\) \[Equal] 0\\)\\), \\(\\(\\(\\(X[0]\\)\\) \[Equal] 2.1`\
\\)\\)}\\)\\), \\(\\({θ, X}\\)\\), \\(\\({t, 0, 100}\\)\\)\\)\\)]\\)\\)\\) \
does not evaluate to a pair of real numbers at \\!\\(t\\) = \
\\!\\(4.166666666666667`*^-6\\). \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"ParametricPlot::pptr\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(NDSolve::"dsvar"\), \(\(:\)\(\ \)\), "\<\"\\!\\(4.05669915729158`\
\\) cannot be used as a
variable. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"NDSolve::dsvar\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ReplaceAll::"reps
"\), \(\(:\)\(\ \)\), "\<\"\\!\\({\\(NDSolve[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"Plus…\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"ReplaceAll::reps\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output
of \\!\\(ReplaceAll :: \\\"reps\\\"\\) will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ParametricPlot::
"pptr"\), \(\(:\)\(\ \)\), "\<\"\\!\\(\\(\\({\\(\\(θ[
t]\\)\\), \\(\\(X[
t]\\)\\)}\\)\\)/.\[InvisibleSpace]\\(\\(NDSolve[\\(\\(\\(\\({\\(\\(\\(\\\
(\\(\\(\\*SuperscriptBox[\\\"y\\\", \\\"′\\\", Rule[MultilineFunction, None]]\
\\)\\)[t]\\)\\) \[Equal] \\(\\(X[t]\\)\\)\\)\\), \\(\\(\\(\\(X[t]\\)\\) \
\[Equal] \\(\\(-\\(\\(Sin[\\(\\(θ[t]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(θ[0]\\)\\) \[Equal] 0\\)\\), \\(\\(\\(\\(X[0]\\)\\) \[Equal] 2.1`\
\\)\\)}\\)\\), \\(\\({θ, X}\\)\\), \\(\\({t, 0, 100}\\)\\)\\)\\)]\\)\\)\\) \
does not evaluate to a pair of real numbers at \\!\\(t\\) = \
\\!\\(4.05669915729158`\\). \\!\\(\\*ButtonBox[\\\"Plus…\\\", ButtonStyle->\\\
\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"ParametricPlot::pptr\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(NDSolve::"dsvar"\), \(\(:\)\(\ \
\)\), "\<\"\\!\\(8.480879985937369`\\) cannot be used as a
variable. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"NDSolve::dsvar\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output
of \\!\\(NDSolve :: \\\"dsvar\\\"\\) will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(ParametricPlot::
"pptr"\), \(\(:\)\(\ \)\), "\<\"\\!\\(\\(\\({\\(\\(θ[
t]\\)\\), \\(\\(X[
t]\\)\\)}\\)\\)/.\[InvisibleSpace]\\(\\(NDSolve[\\(\\(\\(\\({\\(\\(\\(\\\
(\\(\\(\\*SuperscriptBox[\\\"y\\\", \\\"′\\\", Rule[MultilineFunction, None]]\
\\)\\)[t]\\)\\) \[Equal] \\(\\(X[t]\\)\\)\\)\\), \\(\\(\\(\\(X[t]\\)\\) \
\[Equal] \\(\\(-\\(\\(Sin[\\(\\(θ[t]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\(\\(\\(\\(θ[0]\\)\\) \[Equal] 0\\)\\), \\(\\(\\(\\(X[0]\\)\\) \[Equal] 2.1`\
\\)\\)}\\)\\), \\(\\({θ, X}\\)\\), \\(\\({t, 0, 100}\\)\\)\\)\\)]\\)\\)\\) \
does not evaluate to a pair of real numbers at \\!\\(t\\) = \
\\!\\(8.480879985937369`\\). \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"ParametricPlot::pptr\\\"]\\)\"\>"}]\)
From In[23]:=
\!\(\*
RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output
of \\!\\(ParametricPlot :: \\\"pptr\\\"\\) will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"Plus…\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]\)
From In[23]:=
GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0238095 0.952381 0.0147151 0.588604 [
[.21429 .00222 -9 -9 ]
[.21429 .00222 9 0 ]
[.40476 .00222 -9 -9 ]
[.40476 .00222 9 0 ]
[.59524 .00222 -9 -9 ]
[.59524 .00222 9 0 ]
[.78571 .00222 -9 -9 ]
[.78571 .00222 9 0 ]
[.97619 .00222 -3 -9 ]
[.97619 .00222 3 0 ]
[.01131 .13244 -18 -4.5 ]
[.01131 .13244 0 4.5 ]
[.01131 .25016 -18 -4.5 ]
[.01131 .25016 0 4.5 ]
[.01131 .36788 -18 -4.5 ]
[.01131 .36788 0 4.5 ]
[.01131 .4856 -18 -4.5 ]
[.01131 .4856 0 4.5 ]
[.01131 .60332 -6 -4.5 ]
[.01131 .60332 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .01472 m
.21429 .02097 L
s
[(0.2)] .21429 .00222 0 1 Mshowa
.40476 .01472 m
.40476 .02097 L
s
[(0.4)] .40476 .00222 0 1 Mshowa
.59524 .01472 m
.59524 .02097 L
s
[(0.6)] .59524 .00222 0 1 Mshowa
.78571 .01472 m
.78571 .02097 L
s
[(0.
] .78571 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(1)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.07143 .01472 m
.07143 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.16667 .01472 m
.16667 .01847 L
s
.2619 .01472 m
.2619 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.7381 .01472 m
.7381 .01847 L
s
.83333 .01472 m
.83333 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.92857 .01472 m
.92857 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .13244 m
.03006 .13244 L
s
[(0.2)] .01131 .13244 1 0 Mshowa
.02381 .25016 m
.03006 .25016 L
s
[(0.4)] .01131 .25016 1 0 Mshowa
.02381 .36788 m
.03006 .36788 L
s
[(0.6)] .01131 .36788 1 0 Mshowa
.02381 .4856 m
.03006 .4856 L
s
[(0.
] .01131 .4856 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(1)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .04415 m
.02756 .04415 L
s
.02381 .07358 m
.02756 .07358 L
s
.02381 .10301 m
.02756 .10301 L
s
.02381 .16187 m
.02756 .16187 L
s
.02381 .1913 m
.02756 .1913 L
s
.02381 .22073 m
.02756 .22073 L
s
.02381 .27959 m
.02756 .27959 L
s
.02381 .30902 m
.02756 .30902 L
s
.02381 .33845 m
.02756 .33845 L
s
.02381 .39731 m
.02756 .39731 L
s
.02381 .42674 m
.02756 .42674 L
s
.02381 .45617 m
.02756 .45617 L
s
.02381 .51503 m
.02756 .51503 L
s
.02381 .54446 m
.02756 .54446 L
s
.02381 .57389 m
.02756 .57389 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"]