\!\(\*
RowBox[{
RowBox[{\(w = 3\), ";", \(xo = 1\), ";
", \(po = 0\), ";", \(T = 10\), ";",
RowBox[{
StyleBox["sol",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["=",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
RowBox[{
StyleBox["NDSolve",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["[",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
RowBox[{
RowBox[{
StyleBox["{",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["\[IndentingNewLine]",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
RowBox[{
StyleBox[\(\(x'\)[t] == p[t]\),
FormatType->StandardForm,
FontFamily->"
Arial-BoldMT",
FontSize->9],
StyleBox[",",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\(x[0] == xo\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[",",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["\n",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
RowBox[{
StyleBox[\(\(p'\)[t]\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["==",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
RowBox[{
RowBox[{
RowBox[{
StyleBox["-",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
SuperscriptBox[
StyleBox["w",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9], "2"]}],
StyleBox[\(x[t]\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}],
StyleBox["-",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\(0.1\ p[t]\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}]}],
StyleBox[",",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\(p[0] == po\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}],
StyleBox["}",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}],
StyleBox[",",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\({x, p}\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[",",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\({t, 0, T}\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}],
StyleBox["]",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}]}],
StyleBox[";",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9]}],
StyleBox["\[IndentingNewLine]",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\(graph1 = Plot[Evaluate[{x[t], p[t]} /. sol], {t, 0, T}];\),
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox["\n",
FormatType->StandardForm,
FontFamily->"Arial-BoldMT",
FontSize->9],
StyleBox[\(graph2 = ParametricPlot[Evaluate[{x[t], p[t]} /. sol], {t, 0,
T}];\),