Author: Not specified Language: text
Description: Not specified Timestamp: 2017-09-19 11:32:44 +0000
View raw paste Reply
  1. \!\(\*
  2.   RowBox[{
  3.     RowBox[{\(w = 3\), ";", \(xo = 1\), ";
  4.     ", \(po = 0\), ";", \(T = 10\), ";",
  5.       RowBox[{
  6.         StyleBox["sol",
  7.           FormatType->StandardForm,
  8.           FontFamily->"Arial-BoldMT",
  9.           FontSize->9],
  10.         StyleBox["=",
  11.           FormatType->StandardForm,
  12.           FontFamily->"Arial-BoldMT",
  13.           FontSize->9],
  14.         RowBox[{
  15.           StyleBox["NDSolve",
  16.             FormatType->StandardForm,
  17.             FontFamily->"Arial-BoldMT",
  18.             FontSize->9],
  19.           StyleBox["[",
  20.             FormatType->StandardForm,
  21.             FontFamily->"Arial-BoldMT",
  22.             FontSize->9],
  23.           RowBox[{
  24.             RowBox[{
  25.               StyleBox["{",
  26.                 FormatType->StandardForm,
  27.                 FontFamily->"Arial-BoldMT",
  28.                 FontSize->9],
  29.               StyleBox["\[IndentingNewLine]",
  30.                 FormatType->StandardForm,
  31.                 FontFamily->"Arial-BoldMT",
  32.                 FontSize->9],
  33.               RowBox[{
  34.                 StyleBox[\(\(x'\)[t] == p[t]\),
  35.                   FormatType->StandardForm,
  36.                   FontFamily->"
  37.                   Arial-BoldMT",
  38.                   FontSize->9],
  39.                 StyleBox[",",
  40.                   FormatType->StandardForm,
  41.                   FontFamily->"Arial-BoldMT",
  42.                   FontSize->9],
  43.                 StyleBox[\(x[0] == xo\),
  44.                   FormatType->StandardForm,
  45.                   FontFamily->"Arial-BoldMT",
  46.                   FontSize->9],
  47.                 StyleBox[",",
  48.                   FormatType->StandardForm,
  49.                   FontFamily->"Arial-BoldMT",
  50.                   FontSize->9],
  51.                 StyleBox["\n",
  52.                   FormatType->StandardForm,
  53.                   FontFamily->"Arial-BoldMT",
  54.                   FontSize->9],
  55.                 RowBox[{
  56.                   StyleBox[\(\(p'\)[t]\),
  57.                     FormatType->StandardForm,
  58.                     FontFamily->"Arial-BoldMT",
  59.                     FontSize->9],
  60.                   StyleBox["==",
  61.                     FormatType->StandardForm,
  62.                     FontFamily->"Arial-BoldMT",
  63.                     FontSize->9],
  64.                   RowBox[{
  65.                     RowBox[{
  66.                       RowBox[{
  67.                         StyleBox["-",
  68.                           FormatType->StandardForm,
  69.                           FontFamily->"Arial-BoldMT",
  70.                           FontSize->9],
  71.                         SuperscriptBox[
  72.                           StyleBox["w",
  73.                             FormatType->StandardForm,
  74.                             FontFamily->"Arial-BoldMT",
  75.                             FontSize->9], "2"]}],
  76.                       StyleBox[\(x[t]\),
  77.                         FormatType->StandardForm,
  78.                         FontFamily->"Arial-BoldMT",
  79.                         FontSize->9]}],
  80.                     StyleBox["-",
  81.                       FormatType->StandardForm,
  82.                       FontFamily->"Arial-BoldMT",
  83.                       FontSize->9],
  84.                     StyleBox[\(0.1\ p[t]\),
  85.                       FormatType->StandardForm,
  86.                       FontFamily->"Arial-BoldMT",
  87.                       FontSize->9]}]}],
  88.                 StyleBox[",",
  89.                   FormatType->StandardForm,
  90.                   FontFamily->"Arial-BoldMT",
  91.                   FontSize->9],
  92.                 StyleBox[\(p[0] == po\),
  93.                   FormatType->StandardForm,
  94.                   FontFamily->"Arial-BoldMT",
  95.                   FontSize->9]}],
  96.               StyleBox["}",
  97.                 FormatType->StandardForm,
  98.                 FontFamily->"Arial-BoldMT",
  99.                 FontSize->9]}],
  100.             StyleBox[",",
  101.               FormatType->StandardForm,
  102.               FontFamily->"Arial-BoldMT",
  103.               FontSize->9],
  104.             StyleBox[\({x, p}\),
  105.               FormatType->StandardForm,
  106.               FontFamily->"Arial-BoldMT",
  107.               FontSize->9],
  108.             StyleBox[",",
  109.               FormatType->StandardForm,
  110.               FontFamily->"Arial-BoldMT",
  111.               FontSize->9],
  112.             StyleBox[\({t, 0, T}\),
  113.               FormatType->StandardForm,
  114.               FontFamily->"Arial-BoldMT",
  115.               FontSize->9]}],
  116.           StyleBox["]",
  117.             FormatType->StandardForm,
  118.             FontFamily->"Arial-BoldMT",
  119.             FontSize->9]}]}],
  120.       StyleBox[";",
  121.         FormatType->StandardForm,
  122.         FontFamily->"Arial-BoldMT",
  123.         FontSize->9]}],
  124.     StyleBox["\[IndentingNewLine]",
  125.       FormatType->StandardForm,
  126.       FontFamily->"Arial-BoldMT",
  127.       FontSize->9],
  128.     StyleBox[\(graph1 = Plot[Evaluate[{x[t], p[t]} /. sol], {t, 0, T}];\),
  129.       FormatType->StandardForm,
  130.       FontFamily->"Arial-BoldMT",
  131.       FontSize->9],
  132.     StyleBox["\n",
  133.       FormatType->StandardForm,
  134.       FontFamily->"Arial-BoldMT",
  135.       FontSize->9],
  136.     StyleBox[\(graph2 = ParametricPlot[Evaluate[{x[t], p[t]} /. sol], {t, 0,
  137.         T}];\),

This paste is large and only partially shown.
View full paste

View raw paste Reply