soln02.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    191712,       8641]
NotebookOptionsPosition[    187447,       8509]
NotebookOutlinePosition[    187928,       8527]
CellTagsIndexPosition[    187885,       8524]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["105 A Solns #2", "Text",
 CellChangeTimes->{3.592411014168533*^9},
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell["\<\
#1)  This is mostly about using Mathematica to reproduce a familiar 
          result.  Note - for DSolve, and NDSolve, you would be WELL -
  \t         ADVISED to make regular use of Remove[]
 \t
 Note that DSolve returns a rule for x[t] that is nested within
 a superflouous list.  The [[1]] tacked - on to DSolve will extract
 the first (and only) element within that outer, redundant list.
   \t\t
   This is also, I believe, our first use of the replacement operation,
 ( /. ).   While it' s not totally necessary to use it here, might as well \
gain some intuition  - it' s going to be a part of everything we do from here \
on out  8*)   \
\>", "Text",
 CellChangeTimes->{3.5924110220436077`*^9},
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
   "assign", " ", "the", " ", "solution", " ", "rule", " ", "to", " ", "the", 
    " ", "symbol", " ", "\"\<soln\>\""}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"use", " ", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "to", " ", "eschew", " ", "the", 
    " ", "redundant", " ", "list"}], " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"soln", "=", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"x", "'"}], "'"}], "[", "t", "]"}], "==", "a"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "'"}], "[", "0", "]"}], "==", "v0"}], ",", 
         RowBox[{
          RowBox[{"x", "[", "0", "]"}], "==", "x0"}]}], "}"}], ",", 
       RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", ",", " ", 
    RowBox[{
     RowBox[{"let", "'"}], "s", " ", "use", " ", "the", " ", "replacement", 
     " ", "rule"}], ",", " ", 
    RowBox[{"to", " ", "define", " ", 
     RowBox[{"x", "[", "t", "]"}], "\n", "\t   ", "as", " ", "an", " ", 
     "actual", " ", 
     RowBox[{"function", ".", "  ", "For"}], " ", "our", " ", "purposes"}], 
    ",", " ", 
    RowBox[{
     RowBox[{"it", "'"}], "s", " ", "not", "\n", "\t   ", "necessary"}], ",", 
    " ", 
    RowBox[{"but", " ", "why", " ", "not", " ", "get", " ", "the", " ", 
     RowBox[{"practice", "?"}]}]}], " ", "*)"}], "\n", "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t_", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], "/.", "soln"}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", ",", " ", 
    RowBox[{"pretty", " ", "output"}]}], " ", "*)"}], "\n", "\n", 
  RowBox[{
  "Print", "[", "\"\<Does it look like 1-D kinematics?\>\"", "]"}]}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<x[t] = \>\"", ",", 
   RowBox[{"x", "[", "t", "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", "\"\<Yes!!\>\"", "]"}]}], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"Does it look like 1-D kinematics?\"\>"], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"x[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", " ", 
      SuperscriptBox["t", "2"]}], "2"], "+", 
    RowBox[{"t", " ", "v0"}], "+", "x0"}]}],
  SequenceForm["x[t] = ", Rational[1, 2] a t^2 + t v0 + x0],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData["\<\"Yes!!\"\>"], "Print",
 FontSize->12]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"#2", ")"}], " ", "This", " ", "problem", " ", "can", " ", "be", 
   " ", "done", " ", "by", " ", "hand"}], ",", " ", 
  RowBox[{"but", " ", 
   RowBox[{"let", "'"}], "s", " ", "let", " ", "Mathematica"}]}], "\n", 
 RowBox[{"        ", 
  RowBox[{
   RowBox[{"take", " ", "a", " ", "crack", " ", "at", " ", 
    RowBox[{"it", ".", "  ", "The"}], " ", "point", " ", "is"}], ",", " ", 
   RowBox[{"Mathematica", " ", "can", " ", "do", " ", "systems"}]}]}], "\n", 
 RowBox[{"        ", 
  RowBox[{
   RowBox[{
    RowBox[{"of", " ", "coupled", " ", "diff"}], "-", 
    RowBox[{
     RowBox[{"eq", "'"}], "s", " ", "with", " ", "no", " ", "problem"}]}], 
   "..."}]}]}], "Input",
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"let", "'"}], "s", " ", "separate", " ", "some", " ", "of", 
       " ", "the", " ", "pieces", " ", "out"}], ",", " ", 
      RowBox[{
      "to", "\n", "\t   ", "make", " ", "things", " ", "a", " ", "little", 
       " ", "more", " ", "clear"}]}], " ", "*)"}]}], "\n", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eqn1", "[", "t_", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"m", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"x1", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"2", " ", "k", " ", 
        RowBox[{"x1", "[", "t", "]"}]}], " ", "-", " ", 
       RowBox[{"k", " ", 
        RowBox[{"x2", "[", "t", "]"}]}]}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"eqn2", "[", "t_", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"m", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"x2", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"2", " ", "k", " ", 
        RowBox[{"x2", "[", "t", "]"}]}], " ", "-", " ", 
       RowBox[{"k", " ", 
        RowBox[{"x1", "[", "t", "]"}]}]}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"notice", " ", "these", " ", 
       RowBox[{"aren", "'"}], "t", " ", "full", " ", "diff"}], "-", 
      RowBox[{
       RowBox[{"eq", "'"}], "s"}], " ", "-", " ", 
      RowBox[{"we", " ", 
       RowBox[{"can", "'"}], "t", "\n", "\t   ", "set", " ", "them", " ", 
       "equal", " ", "to", " ", "zero", " ", "in", " ", "the", " ", 
       "assignment", " ", 
       RowBox[{"stage", ".", "\n", "\t\t\t   ", "This"}], " ", "is", " ", "a",
        " ", "rather", " ", "common", " ", "nuance", " ", "to", " ", "many", 
       " ", "of", " ", "the", "\n", "\t   ", "problems", " ", 
       RowBox[{"we", "'"}], "ll", " ", "do"}]}], " ", "*)"}], "\n", "\n", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{" ", 
           RowBox[{
           "Note", " ", "the", " ", "use", " ", "of", " ", "lists", " ", 
            "for", " ", "i"}], ")"}], " ", "the", " ", "diff"}], "-", 
         RowBox[{
          RowBox[{"eq", "'"}], "s", " ", "and"}]}], "\n", "\t   ", 
        RowBox[{
         RowBox[{"and", " ", "initial", " ", "conditions"}], ",", " ", 
         RowBox[{"and", " ", "ii"}]}]}], ")"}], " ", "the", " ", "equations", 
      " ", "to", "\n", "\t   ", "be", " ", "solved", " ", "for"}], " ", 
     "*)"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"I", "'"}], "ll", " ", "take", " ", "a", " ", "peek"}], ",", 
      " ", 
      RowBox[{
       RowBox[{
       "then", " ", "assign", " ", "the", " ", "result", " ", "to", " ", 
        "soln", " ", "and", "\n", "\t   ", "mask", " ", "the", " ", "output", 
        " ", "with", " ", "a", " ", "trailing", " ", 
        RowBox[{"null", ".", "  ", 
         RowBox[{"I", "'"}]}], "ll", " ", "do", " ", "a", " ", "\n", "\t   ", 
        "pretty"}], "-", 
       RowBox[{"print", " ", "in", " ", "a", " ", "minute"}]}]}], " ", "*)"}],
     "\n", "\n", 
    RowBox[{
     RowBox[{"soln", "=", 
      RowBox[{
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"eqn1", "[", "t", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"eqn2", "[", "t", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"x1", "'"}], "[", "0", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"x2", "'"}], "[", "0", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"x1", "[", "0", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"x2", "[", "0", "]"}], "==", "a"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], ",", 
           RowBox[{"x2", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}], "//", 
       "Simplify"}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"In", " ", "Mathematica", " ", "3"}], ",", " ", 
      RowBox[{
      "this", " ", "comes", " ", "out", " ", "with", " ", "a", " ", "bunch", 
       " ", "of", "\n", "\t   ", 
       RowBox[{"exponentials", ".", "  ", "I"}], " ", "can", " ", "use", " ", 
       "ExpToTrig", " ", "on", " ", "the", " ", "whole", "\n", "\t   ", 
       "result"}], ",", " ", 
      RowBox[{
      "but", " ", "then", " ", "I", " ", "get", " ", "a", " ", "bunch", " ", 
       "of", " ", 
       RowBox[{"hyperbolics", ".", "  ", "\n", "\t   ", "You"}], " ", "can", 
       " ", "actually", " ", "select", " ", "pairs", " ", "of", " ", 
       "exponentials", "\n", "\t   ", "and", " ", "then", " ", "use", " ", 
       "the", " ", "Pallete", " ", "to", " ", "perform", " ", "ExpToTrig", 
       "\n", "\t   ", "on", " ", "the", " ", "selection"}], ",", " ", 
      RowBox[{
      "and", " ", "that", " ", "works", " ", "a", " ", "lot", " ", 
       "nicer"}]}], " ", "*)"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Wanna", " ", 
      RowBox[{"see", "?"}]}], " ", "*)"}], "\n", "\n", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<x1[t] = \>\"", ",", 
      RowBox[{
       RowBox[{"x1", "[", "t", "]"}], "/.", 
       RowBox[{"soln", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<x2[t] = \>\"", ",", 
     RowBox[{
      RowBox[{"x2", "[", "t", "]"}], "/.", 
      RowBox[{"soln", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\n", "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     StyleBox["Important",
      Background->RGBColor[1, 1, 0]], ":", " ", 
     RowBox[{
     "Why", " ", "am", " ", "I", " ", "selecting", " ", "the", " ", "first", 
      " ", "element", " ", "of"}]}], "\n", "\t  ", 
    RowBox[{"soln", " ", "for", " ", "x1", " ", "AND", " ", "x2", "??"}]}], 
   "  ", "*)"}], "\n"}]], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"x1[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "4"], " ", "a", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["E", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"I", " ", 
          SqrtBox["k"], " ", "t"}], 
         SqrtBox["m"]]}]], "+", 
      SuperscriptBox["E", 
       FractionBox[
        RowBox[{"I", " ", 
         SqrtBox["k"], " ", "t"}], 
        SqrtBox["m"]]], "-", 
      SuperscriptBox["E", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"I", " ", 
          SqrtBox["3"], " ", 
          SqrtBox["k"], " ", "t"}], 
         SqrtBox["m"]]}]], "-", 
      SuperscriptBox["E", 
       FractionBox[
        RowBox[{"I", " ", 
         SqrtBox["3"], " ", 
         SqrtBox["k"], " ", "t"}], 
        SqrtBox["m"]]]}], ")"}]}]}],
  SequenceForm[
  "x1[t] = ", Rational[1, 4] 
   a (E^(Complex[0, -1] k^Rational[1, 2] m^Rational[-1, 2] t) + 
    E^(Complex[0, 1] k^Rational[1, 2] m^Rational[-1, 2] t) - 
    E^(Complex[0, -1] 3^Rational[1, 2] k^Rational[1, 2] m^Rational[-1, 2] t) - 
    E^(Complex[0, 1] 3^Rational[1, 2] k^Rational[1, 2] m^Rational[-1, 2] t))],
  
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"x2[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "4"], " ", "a", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["E", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"I", " ", 
          SqrtBox["k"], " ", "t"}], 
         SqrtBox["m"]]}]], "+", 
      SuperscriptBox["E", 
       FractionBox[
        RowBox[{"I", " ", 
         SqrtBox["k"], " ", "t"}], 
        SqrtBox["m"]]], "+", 
      SuperscriptBox["E", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"I", " ", 
          SqrtBox["3"], " ", 
          SqrtBox["k"], " ", "t"}], 
         SqrtBox["m"]]}]], "+", 
      SuperscriptBox["E", 
       FractionBox[
        RowBox[{"I", " ", 
         SqrtBox["3"], " ", 
         SqrtBox["k"], " ", "t"}], 
        SqrtBox["m"]]]}], ")"}]}]}],
  SequenceForm[
  "x2[t] = ", Rational[1, 4] 
   a (E^(Complex[0, -1] k^Rational[1, 2] m^Rational[-1, 2] t) + 
    E^(Complex[0, 1] k^Rational[1, 2] m^Rational[-1, 2] t) + 
    E^(Complex[0, -1] 3^Rational[1, 2] k^Rational[1, 2] m^Rational[-1, 2] t) + 
    E^(Complex[0, 1] 3^Rational[1, 2] k^Rational[1, 2] m^Rational[-1, 2] t))],
  
  Editable->False]], "Print",
 FontSize->12]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"#3", ")"}], "  ", 
  RowBox[{"Let", "'"}], "s", " ", "do", " ", "some", " ", 
  RowBox[{"Physics", "!"}], "  "}]], "Input",
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", 
    RowBox[{"(*", "****************************************************)"}], 
    "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Part", " ", "a"}], " ", "*)"}], "\n", "\n"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"equations", " ", "2.41", " ", "and", " ", "2.42"}], ",", " ", 
     "respectively"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eqn241", "[", "t_", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"m", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"k", " ", "m", " ", 
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}]}]}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"eqn242", "[", "t_", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"m", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"y", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"k", " ", "m", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"m", " ", "g"}]}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "We", " ", "can", " ", "solve", " ", "the", " ", "equations", " ", 
       "simultaneously"}], ",", " ", 
      RowBox[{"if", "\n", "\t   ", "we", " ", "wish"}]}], " ", "*)"}], "\n", 
    "\n", 
    RowBox[{
     RowBox[{"soln", " ", "=", " ", 
      RowBox[{
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"eqn241", "[", "t", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"eqn242", "[", "t", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"x", "[", "0", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{"y", "[", "0", "]"}], "==", "0"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "'"}], "[", "0", "]"}], "==", "U"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"y", "'"}], "[", "0", "]"}], "==", "V"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], ",", 
           RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
     "Assign", " ", "to", " ", "the", " ", "obvious", " ", "functions"}], " ",
      "*)"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], "/.", "soln"}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", "t", "]"}], "/.", "soln"}]}], ";"}], "\n", "\n", 
    RowBox[{"Print", "[", "\"\<Part a)\>\"", "]"}]}], "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<x[t] = \>\"", ",", 
     RowBox[{"x", "[", "t", "]"}]}], "]"}], "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<y[t] = \>\"", ",", 
     RowBox[{"y", "[", "t", "]"}]}], "]"}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", "\"\< \>\"", "]"}], "\n", 
    RowBox[{"(*", "****************************************************)"}], 
    "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"part", " ", "b"}], " ", "*)"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"Solve", " ", "for", " ", "the", " ", "time"}], "-", "of", "-", 
      "flight"}], " ", "*)"}], "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
     "You", " ", "can", " ", "safely", " ", "ignore", " ", "the", " ", 
      "inverse", " ", "function", " ", "\n", "\t\t   ", "warnings"}], " ", 
     "*)"}], "\n"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"tof", " ", "=", " ", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"y", "[", "t", "]"}], "==", "0"}], ",", "t"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Assign", " ", "for", " ", "later", " ", "use"}], " ", "*)"}], 
    "\n", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"T", "[", "k_", "]"}], "=", 
      RowBox[{"t", "/.", "tof"}]}], ";"}], "\n", "\n", 
    RowBox[{"Print", "[", "\"\<Part b)\>\"", "]"}]}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Time of flight, T = \>\"", ",", 
      RowBox[{"T", "[", "k", "]"}]}], "]"}], "\n", "\n", 
    RowBox[{"(*", "****************************************************)"}], 
    "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Part", " ", "c"}], " ", "*)"}], "\n", "\n"}], 
   RowBox[{"(*", " ", "linearization", " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eqn250", "[", "k_", "]"}], " ", "=", " ", 
      RowBox[{"2", " ", 
       RowBox[{"V", "/", "g"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", " ", "-", " ", 
         RowBox[{"k", " ", 
          RowBox[{"V", "/", 
           RowBox[{"(", 
            RowBox[{"3", " ", "g"}], ")"}]}]}]}], ")"}]}]}], ";"}], "\n", 
    "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Parameter", " ", 
      RowBox[{"block", "!"}]}], " ", "*)"}], "\n", 
    RowBox[{
     RowBox[{"v0", " ", "=", " ", "600"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"\[Theta]", " ", "=", " ", 
      RowBox[{"60", " ", "Degree"}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{"U", " ", "=", " ", 
      RowBox[{"v0", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";"}], "\n", "\t", 
    RowBox[{
     RowBox[{"V", " ", "=", " ", 
      RowBox[{"v0", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{"g", "=", "9.8"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"m", "=", "1"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"klo", "=", "0"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"khi", "=", "0.04"}], ";"}], "\n", "\n", 
    RowBox[{"Print", "[", "\"\<Part c)\>\"", "]"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"Be", " ", "proud", " ", "of", " ", "your", " ", "data"}], " ", 
      "-", " ", 
      RowBox[{"make", " ", "it", " ", "look", " ", 
       RowBox[{"nice", "!"}]}]}], " ", "*)"}], "\n"}], "\n", 
   RowBox[{
    RowBox[{
    "Print", "[", "\"\<green=linearization, red=full calculation\>\"", "]"}], 
    "\n"}], "\n", 
   RowBox[{
    RowBox[{"Plot", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"T", "[", "k", "]"}], ",", 
        RowBox[{"eqn250", "[", "k", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "klo", ",", "khi"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<k\>\"", ",", "\"\<time of flight\>\""}], "}"}]}], ",", 
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"klo", ",", "khi"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "120"}], "}"}]}], "}"}]}]}], "]"}], "\n"}], "\n", 
   "\t\t\t\t\t", 
   RowBox[{
    RowBox[{
    "Print", "[", 
     "\"\<The linearization is really only relevant for small k\>\"", "]"}], 
    "\n", "\n", "\t\t\t\t\t"}]}]}]], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"Part a)\"\>"], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"x[t] = \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "U"}], "+", 
       RowBox[{
        SuperscriptBox["E", 
         RowBox[{"k", " ", "t"}]], " ", "U"}]}], ")"}]}], "k"]}],
  SequenceForm["x[t] = ", E^(-k t) k^(-1) (-U + E^(k t) U)],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"y[t] = \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["E", 
          RowBox[{"k", " ", "t"}]]}], " ", "g", " ", "k", " ", "t"}], "-", 
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["g", "k"], "+", "V"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["E", 
         RowBox[{"k", " ", "t"}]], " ", "k", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["g", "k"], "+", "V"}], ")"}]}]}], ")"}]}], 
    SuperscriptBox["k", "2"]]}],
  SequenceForm[
  "y[t] = ", E^(-k t) 
   k^(-2) (-E^(k t) g k t - k (g/k + V) + E^(k t) k (g/k + V))],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData["\<\" \"\>"], "Print",
 FontSize->12]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: Inverse functions are being used. Values may be \
lost for multivalued inverses.\"\>"}]], "Message",
 FontSize->12],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \\!\\(Solve\\), so \
some solutions may not be found.\"\>"}]], "Message",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"Part b)\"\>"], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Time of flight, T = \"\>", "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "k"], "+", 
    FractionBox["V", "g"], "+", 
    FractionBox[
     RowBox[{"ProductLog", "[", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["E", 
          RowBox[{
           RowBox[{"-", "1"}], "-", 
           FractionBox[
            RowBox[{"k", " ", "V"}], "g"]}]], " ", 
         RowBox[{"(", 
          RowBox[{"g", "+", 
           RowBox[{"k", " ", "V"}]}], ")"}]}], "g"]}], "]"}], "k"]}]}],
  SequenceForm[
  "Time of flight, T = ", k^(-1) + g^(-1) V + 
   k^(-1) ProductLog[-E^(-1 - g^(-1) k V) g^(-1) (g + k V)]],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData["\<\"Part c)\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"green=linearization, red=full calculation\"\>"], "Print",
 FontSize->12],

Cell[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 25 0 0.00515028 [
[.125 -0.0125 -15 -9 ]
[.125 -0.0125 15 0 ]
[.25 -0.0125 -12 -9 ]
[.25 -0.0125 12 0 ]
[.375 -0.0125 -15 -9 ]
[.375 -0.0125 15 0 ]
[.5 -0.0125 -12 -9 ]
[.5 -0.0125 12 0 ]
[.625 -0.0125 -15 -9 ]
[.625 -0.0125 15 0 ]
[.75 -0.0125 -12 -9 ]
[.75 -0.0125 12 0 ]
[.875 -0.0125 -15 -9 ]
[.875 -0.0125 15 0 ]
[1 -0.0125 -12 -9 ]
[1 -0.0125 12 0 ]
[1.025 0 0 -4.90625 ]
[1.025 0 10 4.90625 ]
[-0.0125 .10301 -12 -4.5 ]
[-0.0125 .10301 0 4.5 ]
[-0.0125 .20601 -12 -4.5 ]
[-0.0125 .20601 0 4.5 ]
[-0.0125 .30902 -12 -4.5 ]
[-0.0125 .30902 0 4.5 ]
[-0.0125 .41202 -12 -4.5 ]
[-0.0125 .41202 0 4.5 ]
[-0.0125 .51503 -18 -4.5 ]
[-0.0125 .51503 0 4.5 ]
[-0.0125 .61803 -18 -4.5 ]
[-0.0125 .61803 0 4.5 ]
[0 .64303 -44 0 ]
[0 .64303 44 10.125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.125 0 m
.125 .00625 L
s
[(0.005)] .125 -0.0125 0 1 Mshowa
.25 0 m
.25 .00625 L
s
[(0.01)] .25 -0.0125 0 1 Mshowa
.375 0 m
.375 .00625 L
s
[(0.015)] .375 -0.0125 0 1 Mshowa
.5 0 m
.5 .00625 L
s
[(0.02)] .5 -0.0125 0 1 Mshowa
.625 0 m
.625 .00625 L
s
[(0.025)] .625 -0.0125 0 1 Mshowa
.75 0 m
.75 .00625 L
s
[(0.03)] .75 -0.0125 0 1 Mshowa
.875 0 m
.875 .00625 L
s
[(0.035)] .875 -0.0125 0 1 Mshowa
1 0 m
1 .00625 L
s
[(0.04)] 1 -0.0125 0 1 Mshowa
.125 Mabswid
.025 0 m
.025 .00375 L
s
.05 0 m
.05 .00375 L
s
.075 0 m
.075 .00375 L
s
.1 0 m
.1 .00375 L
s
.15 0 m
.15 .00375 L
s
.175 0 m
.175 .00375 L
s
.2 0 m
.2 .00375 L
s
.225 0 m
.225 .00375 L
s
.275 0 m
.275 .00375 L
s
.3 0 m
.3 .00375 L
s
.325 0 m
.325 .00375 L
s
.35 0 m
.35 .00375 L
s
.4 0 m
.4 .00375 L
s
.425 0 m
.425 .00375 L
s
.45 0 m
.45 .00375 L
s
.475 0 m
.475 .00375 L
s
.525 0 m
.525 .00375 L
s
.55 0 m
.55 .00375 L
s
.575 0 m
.575 .00375 L
s
.6 0 m
.6 .00375 L
s
.65 0 m
.65 .00375 L
s
.675 0 m
.675 .00375 L
s
.7 0 m
.7 .00375 L
s
.725 0 m
.725 .00375 L
s
.775 0 m
.775 .00375 L
s
.8 0 m
.8 .00375 L
s
.825 0 m
.825 .00375 L
s
.85 0 m
.85 .00375 L
s
.9 0 m
.9 .00375 L
s
.925 0 m
.925 .00375 L
s
.95 0 m
.95 .00375 L
s
.975 0 m
.975 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
1.025 0 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(k) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 .10301 m
.00625 .10301 L
s
[(20)] -0.0125 .10301 1 0 Mshowa
0 .20601 m
.00625 .20601 L
s
[(40)] -0.0125 .20601 1 0 Mshowa
0 .30902 m
.00625 .30902 L
s
[(60)] -0.0125 .30902 1 0 Mshowa
0 .41202 m
.00625 .41202 L
s
[(80)] -0.0125 .41202 1 0 Mshowa
0 .51503 m
.00625 .51503 L
s
[(100)] -0.0125 .51503 1 0 Mshowa
0 .61803 m
.00625 .61803 L
s
[(120)] -0.0125 .61803 1 0 Mshowa
.125 Mabswid
0 .02575 m
.00375 .02575 L
s
0 .0515 m
.00375 .0515 L
s
0 .07725 m
.00375 .07725 L
s
0 .12876 m
.00375 .12876 L
s
0 .15451 m
.00375 .15451 L
s
0 .18026 m
.00375 .18026 L
s
0 .23176 m
.00375 .23176 L
s
0 .25751 m
.00375 .25751 L
s
0 .28327 m
.00375 .28327 L
s
0 .33477 m
.00375 .33477 L
s
0 .36052 m
.00375 .36052 L
s
0 .38627 m
.00375 .38627 L
s
0 .43777 m
.00375 .43777 L
s
0 .46353 m
.00375 .46353 L
s
0 .48928 m
.00375 .48928 L
s
0 .54078 m
.00375 .54078 L
s
0 .56653 m
.00375 .56653 L
s
0 .59228 m
.00375 .59228 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
0 .64303 -105 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 14.125000 moveto
 558.000000 14.125000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 14.125000 lineto
closepath
clip newpath
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(time) show
93.000000 11.562500 moveto
(of) show
111.000000 11.562500 moveto
(flight) show
147.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
0 .55202 m
.00123 .54568 L
.00236 .54525 L
.00488 .54429 L
.00942 .54256 L
.01975 .53874 L
.04057 .53134 L
.08481 .51688 L
.12674 .50456 L
.16707 .49378 L
.20998 .48331 L
.2513 .47407 L
.29102 .46587 L
.33333 .45778 L
.37404 .45056 L
.41732 .44343 L
.45902 .43702 L
.49912 .43125 L
.5418 .42549 L
.58288 .42029 L
.62654 .41509 L
.66861 .41037 L
.70909 .40608 L
.75215 .40177 L
.79361 .39783 L
.83348 .39424 L
.87592 .39061 L
.91678 .38729 L
.96021 .38393 L
1 .38099 L
s
0 1 0 r
0 .54616 m
.04057 .53049 L
.08481 .51341 L
.12636 .49737 L
.16632 .48194 L
.20885 .46552 L
.2498 .44971 L
.29331 .43291 L
.33524 .41672 L
.37557 .40114 L
.41848 .38458 L
.4598 .36862 L
.49953 .35328 L
.54183 .33695 L
.58254 .32123 L
.62583 .30452 L
.66752 .28842 L
.70762 .27294 L
.7503 .25646 L
.79139 .24059 L
.83505 .22374 L
.87712 .20749 L
.9176 .19186 L
.96065 .17524 L
1 .16005 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztmm2IVUUYx8/uved6V7Fk22xtcfeuJCaGSRllSmGkLYgvhYkhSTcNXcyy
bUuwd3oXLEIIiiCEEERCkoKCDIooKSMKiixCCKGkL+WHqE+nnTnn/mfO3Od/
9pxzz9a19rKcMzvzm/88M/M8c+a8rK6Pbr9rZ310eEu9dtNIfdf24S3311be
OzKWVerwvI6a53lv1TyVDsaS0SEY+wsG1UHlFJ9eqk6dqqmyzih5YbNB9F+s
VKd0nsb8lHV1qpyvRmebt2bGJXsNM5KVlHV9oTTM867Vp3KsaOxXlbM75Ww/
UrSzo6KoSrztiixDO5HaPkmhXIxxEurnGDypsYKMa8rONniJkxs3g6AZZmXS
/bIZV6LSaY2TFAoauUJlpAnI4H2+m21yKwX6nFnys81CUU4Wzz73bXEudDnq
ORsMplAR/cNLWuAL9JiWIrio+ZIDlQQlUWr9qkBmKY8ZBa08TdlTcsy7ac8o
tIsDOfvUHPVavwyRzhUiUtAITdBGqvUdpFnsIr8yt2FTkXJuFMrxPMNJEcy5
pjWe6pq8SgvWSTdIySrJXDSFjV/oFeEt7SwhbqOF/zJ1Oo0ZMb2KisQFcPwN
DN/UTNad6LrtZMv/rW7FyVM/O9Ic/Iw+lmO4h9jlNcQ9nIT/oo72eipBv08W
nYtF/eqkfSf5OZiNp9tbm4vK2TBrgIZJqi18ZEEt8la7qOH1UtBJeZHUoNx4
RpX+JJUsPRvAgDlX9X/fS/6RolNRrwNvBod+BNTNoR8A9XDoJKCZHPpWHUsK
6uXQ11EMBV4fh76E0gCHTgCaw6HPYPhcOyQEh6UudBwS84qLqk8gOj+sO1ud
/PGCQRv5MTq+wKqb+g5DiqoPYc5CO1Djl9UMeh/AxEVuvGZQeR9WXZl38t6D
IVdxJ3kHPnkNh45CaRmHjgC6nkNvols3cOgwoBs5dAjQSg4dhE1DHHoDSqs4
dABKqzn0OpTWceg1KN3CoVcA3cqhlwFt5NB+QJs49BIM38yhFwHdwaF9gO50
vT/5arUXdm61wzDT9VKLPw8LtuUWcmx7GrYNW5KljCH9JAy72zYs/SbJQR+H
VfcUovcI9O6zps70kk7dHlQc5Y6xG9BuDj2AIdrDoREoPcyhXVB6jEM7ofQE
h3ZA6SkODQN6hkPbAD3Hoa2waS+H6oD2cWgzoIdUylffMiTsmDbFZ3Gqwi/k
+G3ojPa+Lg87dxHfAPXbVeoChV/K8fVQ3wBjlnL8ZqivhTErLCdOsf6sRYtD
aHGNHVfZV6I1kFwOqzbmlnTsXQXxJbC37nY5Q/QPYQgXq9QUpbejKGP1dbyM
3UxZiY8UJb4cll+uUlUl/mC2yb8OEvMxU49yd1uGsZ+LsXqW40ugPgeB+ALH
r4Z6P9T3c3wx1GcBf5XjV0D9IhhzgOOLgPcAP8jxhcC7MdGHOb4Atp8P9SMc
nwc3Og/qb3P8EqhPh/q7HB8EPg34MY4PoKtdwD/i+GzgFeCfcrwPeAn4CY73
wvYo5lW0BGEced5XvOJMtKNH8xtO9oDUmidDsjeakqZXzjTWuqGjqlgF34eK
F+tT0i1m+icx2ogZGJtTxbfg5E2Dh/404W1V0S89IacnvEE/3uDPlgck7YUz
LOUNHwpC1zhjd4lNr+ttzqs11X6zr/1q+7n1SDwMm9+sUl37bDwsbKU2eSj2
Hy8yy0wnUqkeRCeFA3lb3PRAmvqfmNek9ydXKY0brHH+Dy5FXswnqOQN3IT+
SFH5VyOyAvHT5xWw4rswY0jQjS5L5p20bij89si8iQ4taJRqhS7UMG+2q3Ff
8h2V8L+YSuOll/VDW8YLPw8hMhFhA1U32z1L89WVpCihkmdkdTziDel99bg9
HJJF6cbCTGNbj8AXxfQ227crbdV1E2AmJMx64ISpQczXJVKESuZLi0yTfEwv
FpnCpj/nOE5PySU0L+X1oVfO2NBrnfkyyP0kwGqeLcAs7XX8Dd0Osps=\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.00774277, -13.8732, \
0.000175967, 0.854164}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[BoxData["\<\"The linearization is really only relevant for small \
k\"\>"], "Print",
 FontSize->12]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\n", "\t\t", 
      RowBox[{"Prob", " ", "4"}], ")"}], " ", "Marion", " ", "2"}], "-", 
    "23"}], "\n", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Another", " ", "shot", " ", "at", " ", "solving", " ", "some", " ", 
      "simple", " ", "1"}], "-", 
     RowBox[{"D", " ", "kinematic", " ", 
      RowBox[{"problem", ".", "\n", "The"}], " ", "thing", " ", "to", " ", 
      "take", " ", 
      RowBox[{"away", "?", "   ", "Once"}], " ", 
      RowBox[{"you", "'"}], "re", " ", "comfortable", " ", "with", " ", 
      "it"}]}], ",", "\n", 
    RowBox[{
     RowBox[{
     "Mathematica", " ", "takes", " ", "the", " ", "tedium", " ", "out", " ", 
      "of", " ", "solving", " ", "these", " ", 
      RowBox[{"things", ".", "\t\t", "\n", "\n", "Be"}], " ", "careful"}], 
     " ", "-", " ", 
     RowBox[{
      RowBox[{"Euler", "'"}], "s", " ", "number", " ", "is", " ", "spelled", 
      " ", "E", " ", 
      RowBox[{"(", 
       RowBox[{"not", " ", "e"}], ")"}], "    ", "8"}]}]}]}], "*)"}]], "Input",\

 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "I", " ", "want", " ", "to", " ", "solve", " ", "this", " ", "thing", 
       " ", "symbolically"}], ",", " ", 
      RowBox[{
      "so", " ", "hold", "\n", "\t   ", "off", " ", "on", " ", "setting", " ",
        "the", " ", "parameters", " ", "until", " ", "just", " ", "before", 
       " ", "\n", "\t   ", "we", " ", "plot"}]}], " ", "*)"}], "\n", "\n"}], 
   RowBox[{"(*", " ", 
    RowBox[{"The", " ", "force"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "t_", "]"}], " ", "=", " ", 
      RowBox[{"k", " ", "t", " ", 
       SuperscriptBox["E", 
        RowBox[{
         RowBox[{"-", " ", "\[Alpha]"}], " ", "t"}]]}]}], ";"}], "\n", "\n", 
    RowBox[{
     RowBox[{"soln", "=", 
      RowBox[{
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"m", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"x", "'"}], "'"}], "[", "t", "]"}]}], " ", "==", " ", 
            RowBox[{"f", "[", "t", "]"}]}], ",", 
           RowBox[{
            RowBox[{"x", "[", "0", "]"}], "==", "x0"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "'"}], "[", "0", "]"}], "==", "v0"}]}], "}"}], ",", 
         
         RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}], "//", 
       "Simplify"}]}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", "Assignments", " ", "*)"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], "/.", 
       RowBox[{"soln", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "[", "t", "]"}], "//", "Simplify"}]}], ";"}], 
    "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "'"}], "[", "t", "]"}], "//", "Simplify"}]}], ";"}], 
    "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"parameter", " ", "block"}], " ", "*)"}], "\n", 
    RowBox[{
     RowBox[{"m", "=", "1"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"k", "=", "1"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"\[Alpha]", "=", 
      RowBox[{"1", "/", "2"}]}], ";"}], " ", "\n", 
    RowBox[{
     RowBox[{"x0", "=", "0"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"v0", "=", "0"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"tlo", " ", "=", " ", "0"}], ";"}], "\n", 
    RowBox[{
     RowBox[{"thi", "=", "20"}], ";"}], "\n", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"Look", " ", "ahead", " ", "to", " ", 
      RowBox[{"GraphicsArray", "[", "]"}], " ", "in", " ", "#5", " ", "for", 
      " ", "\n", "\t\t   ", "another", " ", "way", " ", "to", " ", "display", 
      " ", "these", " ", "plots"}], " ", "*)"}], " ", "\n", "\n", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<x[t] = \>\"", ",", 
      RowBox[{"x", "[", "t", "]"}]}], "]"}]}], "\n", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<x\>\""}], "}"}]}]}], "]"}], "\n"}], 
   "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<v[t] = \>\"", ",", " ", 
     RowBox[{"v", "[", "t", "]"}]}], "]"}], "\n", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"v", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<v\>\""}], "}"}]}]}], "]"}], "\n"}], 
   "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<a[t] = \>\"", ",", " ", 
     RowBox[{"a", "[", "t", "]"}]}], "]"}], "\n", "\t", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<a\>\""}], "}"}]}]}], "]"}], 
    "\n"}]}]}]], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"x[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{"8", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["E", 
        RowBox[{
         RowBox[{"-", "t"}], "/", "2"}]]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], "+", 
         FractionBox[
          SuperscriptBox["E", 
           RowBox[{
            RowBox[{"-", "t"}], "/", "2"}]], "2"]}], ")"}], " ", "t"}]}], 
     ")"}]}]}],
  SequenceForm[
  "x[t] = ", 
   8 (-2 + 2 
     E^(Rational[-1, 2] t) + (Rational[1, 2] + 
      Rational[1, 2] E^(Rational[-1, 2] t)) t)],
  Editable->False]], "Print",
 FontSize->12],

Cell[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.047619 0.0147151 0.00919631 [
[.2619 .00222 -3 -9 ]
[.2619 .00222 3 0 ]
[.5 .00222 -6 -9 ]
[.5 .00222 6 0 ]
[.7381 .00222 -6 -9 ]
[.7381 .00222 6 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[1.025 .01472 0 -4.90625 ]
[1.025 .01472 10 4.90625 ]
[.01131 .10668 -12 -4.5 ]
[.01131 .10668 0 4.5 ]
[.01131 .19864 -12 -4.5 ]
[.01131 .19864 0 4.5 ]
[.01131 .2906 -12 -4.5 ]
[.01131 .2906 0 4.5 ]
[.01131 .38257 -12 -4.5 ]
[.01131 .38257 0 4.5 ]
[.01131 .47453 -12 -4.5 ]
[.01131 .47453 0 4.5 ]
[.01131 .56649 -12 -4.5 ]
[.01131 .56649 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .01472 m
.2619 .02097 L
s
[(5)] .2619 .00222 0 1 Mshowa
.5 .01472 m
.5 .02097 L
s
[(10)] .5 .00222 0 1 Mshowa
.7381 .01472 m
.7381 .02097 L
s
[(15)] .7381 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(20)] .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
.21429 .01472 m
.21429 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.78571 .01472 m
.78571 .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
gsave
1.025 .01472 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .10668 m
.03006 .10668 L
s
[(10)] .01131 .10668 1 0 Mshowa
.02381 .19864 m
.03006 .19864 L
s
[(20)] .01131 .19864 1 0 Mshowa
.02381 .2906 m
.03006 .2906 L
s
[(30)] .01131 .2906 1 0 Mshowa
.02381 .38257 m
.03006 .38257 L
s
[(40)] .01131 .38257 1 0 Mshowa
.02381 .47453 m
.03006 .47453 L
s
[(50)] .01131 .47453 1 0 Mshowa
.02381 .56649 m
.03006 .56649 L
s
[(60)] .01131 .56649 1 0 Mshowa
.125 Mabswid
.02381 .03311 m
.02756 .03311 L
s
.02381 .0515 m
.02756 .0515 L
s
.02381 .06989 m
.02756 .06989 L
s
.02381 .08829 m
.02756 .08829 L
s
.02381 .12507 m
.02756 .12507 L
s
.02381 .14346 m
.02756 .14346 L
s
.02381 .16186 m
.02756 .16186 L
s
.02381 .18025 m
.02756 .18025 L
s
.02381 .21703 m
.02756 .21703 L
s
.02381 .23543 m
.02756 .23543 L
s
.02381 .25382 m
.02756 .25382 L
s
.02381 .27221 m
.02756 .27221 L
s
.02381 .309 m
.02756 .309 L
s
.02381 .32739 m
.02756 .32739 L
s
.02381 .34578 m
.02756 .34578 L
s
.02381 .36417 m
.02756 .36417 L
s
.02381 .40096 m
.02756 .40096 L
s
.02381 .41935 m
.02756 .41935 L
s
.02381 .43775 m
.02756 .43775 L
s
.02381 .45614 m
.02756 .45614 L
s
.02381 .49292 m
.02756 .49292 L
s
.02381 .51132 m
.02756 .51132 L
s
.02381 .52971 m
.02756 .52971 L
s
.02381 .5481 m
.02756 .5481 L
s
.02381 .58489 m
.02756 .58489 L
s
.02381 .60328 m
.02756 .60328 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(x) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01472 L
.02605 .01472 L
.02729 .01472 L
.02846 .01472 L
.02954 .01472 L
.03053 .01472 L
.03163 .01472 L
.03279 .01472 L
.03395 .01473 L
.0352 .01473 L
.03746 .01475 L
.04016 .01477 L
.04262 .0148 L
.04514 .01484 L
.04748 .01488 L
.05278 .01501 L
.05746 .01517 L
.06244 .01539 L
.06791 .01569 L
.07382 .01609 L
.08454 .01705 L
.09498 .01829 L
.10458 .0197 L
.1234 .02326 L
.14407 .02838 L
.18449 .0419 L
.2234 .05881 L
.26476 .08026 L
.30461 .10357 L
.34294 .1279 L
.38372 .15531 L
.42298 .18282 L
.46074 .21003 L
.50094 .23959 L
.53963 .26846 L
.58077 .29948 L
.62039 .32958 L
.6585 .35868 L
.69906 .38975 L
.7381 .41975 L
.7796 .45168 L
.81958 .48248 L
.85805 .51214 L
.89897 .54371 L
.93837 .57412 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztmvtvFUUcxbe9t1pFExMf8YHmklSiYqD2wSMB04iACKRJ04g2Il4r2tbU
Nm0NEA0qqCgBI6Y+QVFBaSQ2NirBIIpERQ0GRUmDKKhojP8B/lS7s+Xc6XDO
dPfeG36SlN0vZz/fs9+ZnZk728uibE/LsvZsT2tzNjOvK9vZ0trcnZnb0TUs
pUqCoCQTBMFAJgjjoeFw5DA0/DM0ITyECo/rw1MqxGvDKB1GqTAqDaMboJWC
qyLcFZFZgzkZykTh3xpzLBulGfiUqcNXEi1NtClES43Qtjb85/IzXx3jSr3V
5R7EtLxqSru8gZK271KrGOdSfmVxfhrvCk9Fl5BLU4lWi6aLwVDpAKPTq3yF
qUcnazMJrMpSzJxq/vCMUAUq7c40dst/AZ2noZO8JeOi4ILwdDIUziG5HluG
m0aeFeS6+tRFBheilf/vR7nzkz3Di8Kjma/HMAQ9+GWAjo5xHzMmrwI+mKws
80FlpBMaqsB9ftfQREDHNXQNoF/dJkxCdFTnXw/oiIYmAxrUUCWgw24l1Yh+
1Pk1gH7Q0FRABzU0nWgHND4Dngfcwmci+lbnzyLafo3fCM8RqBxDLbdDKSOJ
dbj6ZZR4rjnF/4jLbYpuIlf3FWDqaLNRaRFN58B0b/FM5xFtj/VYfB/NbCN1
C4rcYxepPk7LEC1AtFsPnYVE26XxRfD0QPWAdrqjn+1AP9BODUj0QI2ABjR0
G9H6Nb4Ynv1uE5oIvkM7NSHRA91JtD6NLyHadrfOpYi2a6e7ibZN41mibdX4
PShhqzUBYqxL9xLtDcsi3ltPGtNtGUnaEmFy3xZvdt6HdmyxZ2dhS0gL0TZH
LuN4aXGdW4m2ye7YuBt/1hdt6ItNVt862/fc+tROLF7Wg6kdiR6og2gvaLyT
aL3uROpC1Kuduom2UeM9RHtO4w+hBA+0nGgb3MasJNB67bkSiR7oYaI9o/FH
iPa0W+cqAq3VnquQ6IEeI9oTY4xUB3+caGuKNX9WSy3xtDfSGjRltdvKBPuP
J4n2aH5VOdpT6kEWozPXOkNpjMVonRzXdCitQ6IHWk+0FRrfQLTlGn8WJdiQ
ETYSvEc7Mbxb48/jPh6ol2idbp0vEqhDezL8QY2/hPt4oFeI9oDGXyVam9us
zYjatNNrRLtf46/DcwSK8RZAN1Bso1XAa9+b5GpzlHt2eCrLWcSatm+hCbbL
6bkJFrBtRIv2vadtJhM6v020pVFCXkvtO0S7K/bjNlEf4ZboYdWHRA/0LtGa
NL6DaHe4c+Q9At2uPRm+WOP9uI8Hep9ojRofgGej25gPETXo/I+IVq/xnfD0
QLuItlDjHxNtgduY3QS6VXsyfL7GP8F95ltTMIUZIVevT4k2N7LIa3P0Gbk6
Jz8/R9tLtJvdxiZYFT4n2mzLL8HLsIPuQ48Xx+8LotVZzuzN30RfIarTQ2c/
0WZp/GuizdT4NyjBhqzf4Y7GZ2gnhk/X+He4jwc6SLRajX9PtBq3WYcIVK09
DyHRA/1EtEqNHybaFLdO9m3JZO05iEQPdIRokyI87qvgz0S7zp5Ghby9sC+U
rs3b3Pj8gtbYRkkXo2NEm2gXlvficZxoVxfF+TeiVVgPO9cHzrL0B6IKPZRO
EG2Cxv8kWkbjf6EED/Q30a50p9E/BBqvPc2x/MxcN/EY/02nkPhCdEKQ+x7e
FBP+K/oNcPTlr/MuYK5HW+/gYtWImPmxilAtCEr+AxC6LNs=\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.91634, -5.32514, \
0.0851046, 0.440676}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"v[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{"4", " ", 
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", "t"}], "/", "2"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["E", 
       RowBox[{"t", "/", "2"}]], "-", 
      FractionBox["t", "2"]}], ")"}]}]}],
  SequenceForm[
  "v[t] = ", 4 
   E^(Rational[-1, 2] t) (-1 + E^(Rational[1, 2] t) + Rational[-1, 2] t)],
  Editable->False]], "Print",
 FontSize->12],

Cell[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.047619 0.0147151 0.147224 [
[.2619 .00222 -3 -9 ]
[.2619 .00222 3 0 ]
[.5 .00222 -6 -9 ]
[.5 .00222 6 0 ]
[.7381 .00222 -6 -9 ]
[.7381 .00222 6 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[1.025 .01472 0 -4.90625 ]
[1.025 .01472 10 4.90625 ]
[.01131 .16194 -6 -4.5 ]
[.01131 .16194 0 4.5 ]
[.01131 .30916 -6 -4.5 ]
[.01131 .30916 0 4.5 ]
[.01131 .45639 -6 -4.5 ]
[.01131 .45639 0 4.5 ]
[.01131 .60361 -6 -4.5 ]
[.01131 .60361 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .01472 m
.2619 .02097 L
s
[(5)] .2619 .00222 0 1 Mshowa
.5 .01472 m
.5 .02097 L
s
[(10)] .5 .00222 0 1 Mshowa
.7381 .01472 m
.7381 .02097 L
s
[(15)] .7381 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(20)] .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
.21429 .01472 m
.21429 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.78571 .01472 m
.78571 .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
gsave
1.025 .01472 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .16194 m
.03006 .16194 L
s
[(1)] .01131 .16194 1 0 Mshowa
.02381 .30916 m
.03006 .30916 L
s
[(2)] .01131 .30916 1 0 Mshowa
.02381 .45639 m
.03006 .45639 L
s
[(3)] .01131 .45639 1 0 Mshowa
.02381 .60361 m
.03006 .60361 L
s
[(4)] .01131 .60361 1 0 Mshowa
.125 Mabswid
.02381 .04416 m
.02756 .04416 L
s
.02381 .0736 m
.02756 .0736 L
s
.02381 .10305 m
.02756 .10305 L
s
.02381 .13249 m
.02756 .13249 L
s
.02381 .19138 m
.02756 .19138 L
s
.02381 .22083 m
.02756 .22083 L
s
.02381 .25027 m
.02756 .25027 L
s
.02381 .27972 m
.02756 .27972 L
s
.02381 .33861 m
.02756 .33861 L
s
.02381 .36805 m
.02756 .36805 L
s
.02381 .3975 m
.02756 .3975 L
s
.02381 .42694 m
.02756 .42694 L
s
.02381 .48583 m
.02756 .48583 L
s
.02381 .51528 m
.02756 .51528 L
s
.02381 .54472 m
.02756 .54472 L
s
.02381 .57417 m
.02756 .57417 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(v) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01476 L
.02605 .01488 L
.02729 .0151 L
.02846 .01539 L
.03053 .01612 L
.03279 .01717 L
.0379 .02056 L
.04262 .02479 L
.05224 .03628 L
.06244 .05186 L
.10458 .13755 L
.14241 .22301 L
.1827 .30732 L
.22147 .37632 L
.2627 .43543 L
.30241 .4796 L
.3406 .51208 L
.38125 .53799 L
.42038 .55634 L
.46196 .57048 L
.50202 .58022 L
.54057 .58696 L
.58158 .59206 L
.62107 .59552 L
.65904 .59788 L
.68018 .59889 L
.69946 .59966 L
.73837 .60085 L
.75746 .6013 L
.77822 .60171 L
.7976 .60202 L
.819 .60231 L
.85826 .60271 L
.87761 .60286 L
.89847 .603 L
.91811 .6031 L
.93961 .6032 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztmldoFEEYx69F0xN7iYkXjb0kuSTGXjHWGAuCgghHUJKHoMbgi+CLD74I
vojgiw8iiCBCEAUlGrD33nvvNbbEdt7MnpPN5P/N7a4T8cGQzA7/+X3/+XZm
dvZuN8XBqrJFFcGq8tKgf1JlcGlZeelyf9GSyrDkdbtcbr/L5ar2u1g9FK5G
ilD4N5TJCqbg+nR28DK8gNV8rOZlNQ+r5QrNI7gA4DIMsxJ+4BSvsb98XsY0
0Tj821Tic4DmA1o20LwR2qyFf9L/fnaI8yiza5yIQkc5+WSeQ3bPL82UjNTk
LC3MF+KhUGTUDjQNAVqBOHViMeRIQNPwgCoxaurI3HgAytIjrpw8PHlcCAjK
J19pqMsGAaXQUD0+k2SjksQO9UyIA7EKW95ta9CAfGItcla1/36YS7I7h821
OrEYFYHoQqqz17cGC7QNR64lMiaGivGaYsi1HTJaSfdWDmLIftx6Y9AaCmnD
0Wr8KQ9pfBRIakL4D214AtC+a8MTgfbNOc6HLxlAX2lPtBkocOTeoA1PAVq9
NjwVaF+c43y02wLoM+3ZpkVxlMwnbTjSPho4X/b8doB2W0UgWn18j+VSe9D6
IUqgpP0bFh2AVmcaOt6CbjqKQKt9dwTae3qWo+F81XcG0Dvas1OL4iiZt9rw
LkB7ow3vCrTX8minRYFsekpNyP2VNrwb0F5qw9OB9kIevowokNSE8Ofa8O5A
e6YN9wPtqXOcD18PAD2hPTPt4cj9sTa8J9AeOcLVd7gsoD00BUpNfKfnkiIQ
fdhDffcC2gPDwuotQmGBPsChL4S9gXbfPALNHi2gc1G4JIoFie6TfYB2j57o
vkC76xznafUH0B3as589HLnf1oYPANotGh8ItJvOcT58gwF0g/YcZA9H7tdp
HD1EvqYNRw+Br9J4LtCuyMOXB6DLtGfAHo7cL9F4PtAuasMLgHaBxtFz1vPy
8A0F0Dnas9AejtzP0vgwoJ2h8eFAO03jI4B2ysDVe+xIoJ00Am1s8aOAdsII
IO81XFIEqvMeDbTjUXqUtDFAO2b71McC7aiVMxgHtCP0DI8H2mEanwC0Q/IF
MhFAB2lPhB+g8SLRjwKaDLRaGp8CtP00PhVo+2h8GtBq5EErFrUa2mkG0PbQ
eInwVECzgLabxmcDbReNzxEpKKC5AtopD8s8Uaum4+ezkks7aGiBcNpOQwuF
0zYaCgqnrTRUKpy20NBi4bSZhspYyTeNTfLoVLAafz26kY5fJqD1NLRCQOto
aCUrY5myhoZWszKOKatoaC0r45lSZUBWv35sYGUWU2ZGCeTSXlbLZrXI/yrE
i/Mk3/UkmMjmmzX5uicSJn+HsxKj3tHNJDpbXhpPf8l/0fiTOpo/c07yo2F+
ZLVEa+1G6vglv7mfVDFKja++ze1U/i73L8wq3xo=\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.66103, -0.332634, \
0.0851046, 0.0275267}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"a[t] = \"\>", "\[InvisibleSpace]", 
   RowBox[{
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", "t"}], "/", "2"}]], " ", "t"}]}],
  SequenceForm["a[t] = ", E^(Rational[-1, 2] t) t],
  Editable->False]], "Print",
 FontSize->12],

Cell[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.047619 0.0147151 0.800003 [
[.2619 .00222 -3 -9 ]
[.2619 .00222 3 0 ]
[.5 .00222 -6 -9 ]
[.5 .00222 6 0 ]
[.7381 .00222 -6 -9 ]
[.7381 .00222 6 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[1.025 .01472 0 -4.90625 ]
[1.025 .01472 10 4.90625 ]
[.01131 .09472 -18 -4.5 ]
[.01131 .09472 0 4.5 ]
[.01131 .17472 -18 -4.5 ]
[.01131 .17472 0 4.5 ]
[.01131 .25472 -18 -4.5 ]
[.01131 .25472 0 4.5 ]
[.01131 .33472 -18 -4.5 ]
[.01131 .33472 0 4.5 ]
[.01131 .41472 -18 -4.5 ]
[.01131 .41472 0 4.5 ]
[.01131 .49472 -18 -4.5 ]
[.01131 .49472 0 4.5 ]
[.01131 .57472 -18 -4.5 ]
[.01131 .57472 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .01472 m
.2619 .02097 L
s
[(5)] .2619 .00222 0 1 Mshowa
.5 .01472 m
.5 .02097 L
s
[(10)] .5 .00222 0 1 Mshowa
.7381 .01472 m
.7381 .02097 L
s
[(15)] .7381 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(20)] .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
.21429 .01472 m
.21429 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.78571 .01472 m
.78571 .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
gsave
1.025 .01472 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .09472 m
.03006 .09472 L
s
[(0.1)] .01131 .09472 1 0 Mshowa
.02381 .17472 m
.03006 .17472 L
s
[(0.2)] .01131 .17472 1 0 Mshowa
.02381 .25472 m
.03006 .25472 L
s
[(0.3)] .01131 .25472 1 0 Mshowa
.02381 .33472 m
.03006 .33472 L
s
[(0.4)] .01131 .33472 1 0 Mshowa
.02381 .41472 m
.03006 .41472 L
s
[(0.5)] .01131 .41472 1 0 Mshowa
.02381 .49472 m
.03006 .49472 L
s
[(0.6)] .01131 .49472 1 0 Mshowa
.02381 .57472 m
.03006 .57472 L
s
[(0.7)] .01131 .57472 1 0 Mshowa
.125 Mabswid
.02381 .03072 m
.02756 .03072 L
s
.02381 .04672 m
.02756 .04672 L
s
.02381 .06272 m
.02756 .06272 L
s
.02381 .07872 m
.02756 .07872 L
s
.02381 .11072 m
.02756 .11072 L
s
.02381 .12672 m
.02756 .12672 L
s
.02381 .14272 m
.02756 .14272 L
s
.02381 .15872 m
.02756 .15872 L
s
.02381 .19072 m
.02756 .19072 L
s
.02381 .20672 m
.02756 .20672 L
s
.02381 .22272 m
.02756 .22272 L
s
.02381 .23872 m
.02756 .23872 L
s
.02381 .27072 m
.02756 .27072 L
s
.02381 .28672 m
.02756 .28672 L
s
.02381 .30272 m
.02756 .30272 L
s
.02381 .31872 m
.02756 .31872 L
s
.02381 .35072 m
.02756 .35072 L
s
.02381 .36672 m
.02756 .36672 L
s
.02381 .38272 m
.02756 .38272 L
s
.02381 .39872 m
.02756 .39872 L
s
.02381 .43072 m
.02756 .43072 L
s
.02381 .44672 m
.02756 .44672 L
s
.02381 .46272 m
.02756 .46272 L
s
.02381 .47872 m
.02756 .47872 L
s
.02381 .51072 m
.02756 .51072 L
s
.02381 .52672 m
.02756 .52672 L
s
.02381 .54272 m
.02756 .54272 L
s
.02381 .55872 m
.02756 .55872 L
s
.02381 .59072 m
.02756 .59072 L
s
.02381 .60672 m
.02756 .60672 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(a) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.03279 .15195 L
.04262 .27406 L
.05288 .37465 L
.06244 .44734 L
.0731 .50826 L
.0828 .54817 L
.08817 .56482 L
.094 .57901 L
.0995 .58909 L
.10215 .59289 L
.10458 .5958 L
.10681 .59803 L
.10924 .59998 L
.11057 .60085 L
.11181 .60153 L
.11306 .60211 L
.11425 .60255 L
.11535 .60287 L
.11655 .60312 L
.11763 .60326 L
.11863 .60332 L
.11972 .60331 L
.1209 .60321 L
.12215 .60302 L
.12331 .60275 L
.12459 .60237 L
.12598 .60184 L
.12851 .6006 L
.13326 .59739 L
.1388 .59228 L
.14393 .58641 L
.1626 .55769 L
.1832 .51699 L
.2234 .4271 L
.26209 .34268 L
.30323 .2644 L
.34285 .20278 L
.38096 .15581 L
.42152 .11735 L
.46057 .08951 L
.50206 .06769 L
.54205 .05244 L
.58051 .04177 L
.62143 .03362 L
.66083 .02804 L
.69872 .0242 L
.7198 .02255 L
.73906 .02129 L
.77789 .01933 L
Mistroke
.79691 .01859 L
.81765 .01791 L
.839 .01734 L
.85834 .01691 L
.89753 .01624 L
.91681 .01599 L
.93764 .01576 L
.97619 .01544 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzVWmmMFEUYnZ2e2VmWQ2ElC3ItGDFKVFhYVg75AQFEQI2iAgHjZCUchnCG
kBCiISEBEkJChJCQQMKRLAgoyuEtoIKCeODFqSiQIAn/4deyVb180/Pt+6q6
Zmo5Jrs9lfe9772q6qrq7uoZn104Y9rs7MKZddmq0fOzc2fMrFtQNWrO/EYo
KEkkSqoSicTeqoQqNzQWmw4NjX8NPdVBIbj8svoKFL1GlVKqFKhSUpX6EZYk
XjXgdQrFXtVfmqVL6n+APqbzME2+Lcr4fQGWAtjTAAua2FGs8VN552uHeElj
7XInoragOqU4X5Nc29cxUhkWKqxamF+Lu8JQo84gNBBgNdR0YTD0ZYT89GpT
xaRTJ9ZNJ6BaJmnm9McnTwPVxErxmYYsbxKplUy6gVtSFhYq1NeNnER+rkFW
pudjZUXk3o96GXWsUEip5xq0dTtBm9WxrULG0vgy0NepY7lCJll89IBbo0oZ
Vapzq9ZKddRrxCKZtJxqvEQmLVNHDb3Da/cuhZbx0FIKLeehJVRawUOLKWsV
Dy2i0moeWkBZa3hoHpXW8tAcKr3HQ7OptJ6H3qbShjBUSgC6XCWph3MrzSzA
axJL669mi0g5yAio0dNJeWNhKklSYdFi9KZRaVMRKm+BqFmvjPolTSpo7mzm
p6+1sSJZKm3hQ+JNkBglRULq8wagb43QdWQqIG2TNacA+naZPpnqXi+T0PpU
z+s5EZB2yJqvA/pOmf4aoL8v09F96C5e4wmAtFvWdKS/Auh7+EiLsVAwWXTb
+IF9GrCMNHm8BKIfGvXQlTKFqe7i4hrQnPoioO41iqN5Ldx2vgCoH8Xo5mZw
brFvasft+Djg8DEfH+VUElzHyyqdcQby3WfMGAsy9kcyUOvGgJwDRpfnbRn4
Mec5kHbQnjYapH3C24SelUZaEgW/USDtU3sacvus+DSxdcMB9rndbwRI+6Ko
NPMSmbsYpw3yqDFfhtEC5nAg9dkwgH1ltJHXITvm7taKdZbd41mAfd1iLXJ3
sy61aNthKMAO8cHG11t77Q2y6BEKSQwB2GG/EmKvDAbYETdvDxKDAPaNLIEa
8oxFQlxLagH2rZu3Bwm0g/WdXwmxB2oAdtTN2yBhXsnF1T0GNgBgx0JT57vL
lnDTG1NpankgzcH+APvertwcRmuWH0P+DOHiVg2wH4xu5isWGjL9ZI+4j/XI
Cr1iOC7PjLhvKRwl0GuYE34lxB54CmA/unl7kHgSYCfjVN+WyEJIog/Afrrj
Ek8A7GfeA2j/25YYw/txgP3iTSLGZkggnV7U4McA9mto5XrzGkid6tEjRot6
A+yU0Y3tfLacR4xTj9weBdhvhbnpkZNx88gNOX2lgXtt6h/JPgKw3+XJ0EIS
vQD2R0QiKfWZLTGGd0+A/XnPSURe0uaTegDsL9kbdaIHie4AO+1XQuyBbgA7
4+btQaIrwM6GEm6bP0VZFboRhPq1i1cbJoQMHwbYObuheGHw6BHjwoDc0OA5
X5hbbj8nvgfbCAqkk4FkKwF2QZ4Sd0lCN64NIHUE2N+yN7qf8SDxEMD+8Suh
ewD9sqMDwC7K3qgTPUi0B9i/sgRqyIMWCd0D7QDpAYD95+aNZC95k4hxYWAY
4iEDdCouh6aur0EDqXvdPeLuVyE3NDeueHFDwwTlmt3iPhGh0ZyhcXDV6GF9
UYBmG3pgucrHn/nBAcki3v/yzOhAVugUXJMTK6hm1yMkraQJpXKqPqb9xHXZ
8sPoYsqdqFWJ/DfPDWH7NVSJz3+0H7ROwFF01xMVzrlrNGOua6LkFqJASPc=
\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.17166, -0.0612143, \
0.0851046, 0.00506572}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"#5", ")"}], " ", "Marion", " ", "2"}], "-", 
  RowBox[{"33", "   ", 
   RowBox[{"(", 
    RowBox[{"\[Rho]", "=", "1.3"}], ")"}]}]}], "\n", 
 RowBox[{"\t        ", 
  RowBox[{
   RowBox[{"Drop", " ", "objects", " ", "from", " ", "rest"}], ",", " ", 
   RowBox[{"factor", " ", "in"}]}]}], "\n", 
 RowBox[{"        ", 
  RowBox[{
   RowBox[{"air", " ", 
    RowBox[{"resistance", ".", "\n", "\t        ", "The"}], " ", "drag", " ", 
    "force"}], ",", " ", 
   RowBox[{"W", " ", "=", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     SubscriptBox["c", "w"], " ", "\[Rho]", " ", "A", " ", 
     SuperscriptBox["v", "2"]}]}]}]}]}], "Input",
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"W", "[", "t_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", "c", " ", "\[Rho]", " ", "A", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "t", "]"}], "^", "2"}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "t_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"W", "[", "t", "]"}], " ", "-", " ", 
     RowBox[{"m", " ", "g"}]}]}], ";"}], "\n", "\n", 
  RowBox[{
   RowBox[{"soln", "=", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "t", "]"}], "==", " ", 
          RowBox[{"m", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"y", "'"}], "'"}], "[", "t", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], "==", "H"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "0", "]"}], "==", "0"}]}], "}"}], ",", 
       RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "//", "Simplify"}]}], 
   ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Take", " ", "a", " ", 
    RowBox[{"peek", ".", "  ", 
     RowBox[{"It", "'"}]}], "s", " ", "obvious", " ", "that", " ", "the", 
    "\n", "\t   ", "first", " ", "rule", " ", "given", " ", "is", " ", "the", 
    " ", "one", " ", "we", " ", "need"}], " ", "*)"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Create", " ", 
    RowBox[{"y", "[", "t", "]"}]}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "t_", "]"}], "=", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "/.", 
     RowBox[{"soln", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"v", "[", "t_", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "'"}], "[", "t", "]"}], "//", "Simplify"}]}], ";"}], "\n", 
  
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "t_", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "'"}], "[", "t", "]"}], "//", "Simplify"}]}], ";"}], "\n", 
  "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Common", " ", "Parameters"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"g", "=", "9.8"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"H", "=", "100"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"\[Rho]", "=", "1.3"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"c", "=", 
    RowBox[{"1", "/", "2"}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{"\[Pi]", " ", 
     RowBox[{"r", "^", "2"}]}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Simplify", " ", "repetitive", " ", "tasks"}], " ", "-", "\n", 
     " ", 
     RowBox[{
     "by", " ", "assigning", " ", "the", " ", "Plot", " ", "operation", "\n", 
      "\t ", "to", " ", "a", " ", "symbol"}]}], ",", " ", 
    RowBox[{
    "we", " ", "can", " ", "skip", " ", "tedious", " ", "\n", "\t\t ", 
     "invocations", " ", "and", " ", "tidy", " ", "the", " ", "code"}]}], " ",
    "*)"}], " ", "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"DisplayFunction", "->", 
    RowBox[{
    "Identity", " ", "supresses", "\n", "\t   ", "the", " ", "plot", " ", 
     "until", " ", "it", " ", "is", " ", "called", " ", "within", "\n", 
     "\t   ", "a", " ", 
     RowBox[{"Show", "[", "]"}], " ", "command"}]}], " ", "*)"}], "\n", "\t", 
  "\n", 
  RowBox[{"ploty", ":=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<t\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
     RowBox[{"DisplayFunction", "->", "Identity"}], ",", 
     RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}], "\n", 
 RowBox[{"plotv", ":=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"v", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"\"\<t\>\"", ",", "\"\<v\>\""}], "}"}]}], ",", 
    RowBox[{"DisplayFunction", "->", "Identity"}], ",", 
    RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"plota", " ", ":=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tlo", ",", "thi"}], "}"}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<a\>\""}], "}"}]}], ",", 
      RowBox[{"DisplayFunction", "->", "Identity"}], ",", 
      RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "\n", "\n"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"GraphicsArray", "[", "]"}], " ", "is", " ", "a", " ", "neat", 
    " ", "way", " ", "of", " ", "combining", " ", "multiple", " ", "plots", 
    " ", "on", " ", "the", " ", "same", " ", "line"}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"plotem", ":=", " ", 
    RowBox[{"Show", "[", 
     RowBox[{"GraphicsArray", "[", 
      RowBox[{"{", 
       RowBox[{"ploty", ",", "plotv", ",", "plota"}], "}"}], "]"}], "]"}]}], 
   ";"}], "\n", "\n", 
  RowBox[{
  "(*", "*********************************************************************************)"}\
], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"a", ":", " ", "Baseball"}]}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"m", "=", "0.145"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"r", "=", "0.0366"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"tlo", "=", "0"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"thi", "=", "6"}], ";"}], "\n", "\n", 
  RowBox[{"Print", "[", "\"\<a) Baseball\>\"", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"plotem", "\n", "\n", 
   RowBox[{
   "(*", "*********************************************************************************)"}\
], "\n"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"b", ":", " ", 
     RowBox[{"Ping", "-", 
      RowBox[{"pong", " ", "ball"}]}]}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", "0.0024"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"r", "=", "0.019"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"tlo", "=", "0"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"thi", "=", "15"}], ";"}], "\n", "\n", 
  RowBox[{"Print", "[", "\"\<b) Ping-pong Ball\>\"", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"plotem", "\n", "\n", 
   RowBox[{
   "(*", "*********************************************************************************)"}\
], "\n"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"c", ":", " ", "raindrop"}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["\[Rho]", "w"], " ", "=", " ", "1000"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"r", "=", "0.003"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"m", "=", " ", 
    RowBox[{
     RowBox[{"4", "/", "3"}], " ", "\[Pi]", " ", 
     RowBox[{"r", "^", "3"}], "  ", 
     SubscriptBox["\[Rho]", "w"]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"tlo", "=", "0"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"thi", "=", "10"}], ";"}], "\n", "\n", 
  RowBox[{"Print", "[", "\"\<c) Raindrop\>\"", "]"}]}], "\n", 
 RowBox[{"plotem", "\n"}], "\n", 
 RowBox[{"Print", "[", "\"\< \>\"", "]"}], "\n", 
 RowBox[{"Print", "[", "\"\<d) Terminal velocity is reached when a-> 0.\>\"", 
  "]"}], "\n", 
 RowBox[{"\t\t", 
  RowBox[{
   RowBox[{
   "Print", "[", 
    "\"\<Set x''=0 in the eqn of motion, and  \!\(\*SubscriptBox[\(v\), \
\(term\)]\)=\!\(\*SqrtBox[\(2  mg/\((c\\\ \[Rho]\\\ \[Pi]\\\ \
\*SuperscriptBox[\(r\), \(2\)])\)\)]\)  \>\"", "]"}], "\n", "\n", 
   "\t\t\t\t\t", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", "comparison"}], " ", "*)"}]}]}], "\n", 
 RowBox[{"\t\t\t\t\t", 
  RowBox[{
   RowBox[{
    RowBox[{"vterm", "[", 
     RowBox[{"m_", ",", "r_"}], "]"}], " ", ":=", " ", 
    RowBox[{"N", "[", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"g", "/", 
         RowBox[{"(", 
          RowBox[{"c", " ", "\[Rho]", " ", "\[Pi]", " ", 
           RowBox[{"r", "^", "2"}]}], ")"}]}]}], "]"}], ",", "3"}], "]"}]}], 
   ";"}]}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<For the baseball, \!\(\*SubscriptBox[\(v\), \(term\)]\) = \>\"", ",", 
   RowBox[{"vterm", "[", 
    RowBox[{"0.145", ",", "0.0366"}], "]"}]}], "]"}], "\n", 
 RowBox[{"\t\t\t\t\t", 
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<For the ping-pong ball, \!\(\*SubscriptBox[\(v\), \(term\)]\) = \>\"",
     ",", 
    RowBox[{"vterm", "[", 
     RowBox[{"0.0024", ",", "0.019"}], "]"}]}], "]"}]}], "\n", 
 RowBox[{"\t\t\t\t\t", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<For the raindrop, \!\(\*SubscriptBox[\(v\), \(term\)]\) = \>\"", ",", 
     RowBox[{"vterm", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"4", "/", "3"}], " ", "\[Pi]", " ", 
        RowBox[{
         RowBox[{"(", "0.003", ")"}], "^", "3"}], " ", 
        SubscriptBox["\[Rho]", "w"]}], ",", "0.003"}], "]"}]}], "]"}], 
   "\n"}]}], "\n", 
 RowBox[{"\t", 
  RowBox[{
   RowBox[{
   "Print", "[", 
    "\"\<From the plots, the  lighter objects (the ping-pong ball and rain \
drop) each reach terminal velocity.  The massive baseball does not\>\"", 
    "]"}], "\t\t\t\t\t", "\n"}]}], "\n", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<e) The baseball's mass (interia) requires a greater net external\n\t\t\
force to slow it significantly - drag can't supply it.  On the other \n\t\t\
hand\>\"", "]"}], "\n"}], "\n", 
 RowBox[{"Print", "[", "\"\<f)\>\"", "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<For the small drop, \!\(\*SubscriptBox[\(v\), \(term\)]\) = \>\"", ",", 
   RowBox[{"vterm", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "/", "3"}], " ", "\[Pi]", " ", 
      RowBox[{
       RowBox[{"(", "0.002", ")"}], "^", "3"}], " ", 
      SubscriptBox["\[Rho]", "w"]}], ",", "0.002"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<For the big drop, \!\(\*SubscriptBox[\(v\), \(term\)]\) = \>\"", ",", 
   RowBox[{"vterm", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "/", "3"}], " ", "\[Pi]", " ", 
      RowBox[{
       RowBox[{"(", "0.004", ")"}], "^", "3"}], " ", 
      SubscriptBox["\[Rho]", "w"]}], ",", "0.004"}], "]"}]}], "]"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<Obviously, size matters 8*) \>\"", "]"}], "\n", 
  RowBox[{
  "(*", "*********************************************************************************)"}\
], "\n"}]}], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"a) Baseball\"\>"], "Print",
 FontSize->12],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .19314 
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.31746 0.00459847 0.31746 [
[ 0 0 0 0 ]
[ 1 .19314 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .19314 L
0 .19314 L
closepath
clip
newpath
% Start of sub-graphic
p
0.0238095 0.00459847 0.321429 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.15873 0.123363 0.00479956 [
[.18254 .11086 -3 -9 ]
[.18254 .11086 3 0 ]
[.34127 .11086 -3 -9 ]
[.34127 .11086 3 0 ]
[.5 .11086 -3 -9 ]
[.5 .11086 3 0 ]
[.65873 .11086 -3 -9 ]
[.65873 .11086 3 0 ]
[.81746 .11086 -3 -9 ]
[.81746 .11086 3 0 ]
[.97619 .11086 -3 -9 ]
[.97619 .11086 3 0 ]
[1.025 .12336 0 -4.90625 ]
[1.025 .12336 10 4.90625 ]
[.01131 .02737 -18 -4.5 ]
[.01131 .02737 0 4.5 ]
[.01131 .21935 -12 -4.5 ]
[.01131 .21935 0 4.5 ]
[.01131 .31535 -12 -4.5 ]
[.01131 .31535 0 4.5 ]
[.01131 .41134 -12 -4.5 ]
[.01131 .41134 0 4.5 ]
[.01131 .50733 -12 -4.5 ]
[.01131 .50733 0 4.5 ]
[.01131 .60332 -18 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -5.03125 0 ]
[.02381 .64303 5.03125 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .12336 m
.18254 .12961 L
s
[(1)] .18254 .11086 0 1 Mshowa
.34127 .12336 m
.34127 .12961 L
s
[(2)] .34127 .11086 0 1 Mshowa
.5 .12336 m
.5 .12961 L
s
[(3)] .5 .11086 0 1 Mshowa
.65873 .12336 m
.65873 .12961 L
s
[(4)] .65873 .11086 0 1 Mshowa
.81746 .12336 m
.81746 .12961 L
s
[(5)] .81746 .11086 0 1 Mshowa
.97619 .12336 m
.97619 .12961 L
s
[(6)] .97619 .11086 0 1 Mshowa
.125 Mabswid
.05556 .12336 m
.05556 .12711 L
s
.0873 .12336 m
.0873 .12711 L
s
.11905 .12336 m
.11905 .12711 L
s
.15079 .12336 m
.15079 .12711 L
s
.21429 .12336 m
.21429 .12711 L
s
.24603 .12336 m
.24603 .12711 L
s
.27778 .12336 m
.27778 .12711 L
s
.30952 .12336 m
.30952 .12711 L
s
.37302 .12336 m
.37302 .12711 L
s
.40476 .12336 m
.40476 .12711 L
s
.43651 .12336 m
.43651 .12711 L
s
.46825 .12336 m
.46825 .12711 L
s
.53175 .12336 m
.53175 .12711 L
s
.56349 .12336 m
.56349 .12711 L
s
.59524 .12336 m
.59524 .12711 L
s
.62698 .12336 m
.62698 .12711 L
s
.69048 .12336 m
.69048 .12711 L
s
.72222 .12336 m
.72222 .12711 L
s
.75397 .12336 m
.75397 .12711 L
s
.78571 .12336 m
.78571 .12711 L
s
.84921 .12336 m
.84921 .12711 L
s
.88095 .12336 m
.88095 .12711 L
s
.9127 .12336 m
.9127 .12711 L
s
.94444 .12336 m
.94444 .12711 L
s
.25 Mabswid
0 .12336 m
1 .12336 L
s
gsave
1.025 .12336 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .02737 m
.03006 .02737 L
s
[(-20)] .01131 .02737 1 0 Mshowa
.02381 .21935 m
.03006 .21935 L
s
[(20)] .01131 .21935 1 0 Mshowa
.02381 .31535 m
.03006 .31535 L
s
[(40)] .01131 .31535 1 0 Mshowa
.02381 .41134 m
.03006 .41134 L
s
[(60)] .01131 .41134 1 0 Mshowa
.02381 .50733 m
.03006 .50733 L
s
[(80)] .01131 .50733 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(100)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .05137 m
.02756 .05137 L
s
.02381 .07537 m
.02756 .07537 L
s
.02381 .09936 m
.02756 .09936 L
s
.02381 .14736 m
.02756 .14736 L
s
.02381 .17136 m
.02756 .17136 L
s
.02381 .19536 m
.02756 .19536 L
s
.02381 .24335 m
.02756 .24335 L
s
.02381 .26735 m
.02756 .26735 L
s
.02381 .29135 m
.02756 .29135 L
s
.02381 .33934 m
.02756 .33934 L
s
.02381 .36334 m
.02756 .36334 L
s
.02381 .38734 m
.02756 .38734 L
s
.02381 .43533 m
.02756 .43533 L
s
.02381 .45933 m
.02756 .45933 L
s
.02381 .48333 m
.02756 .48333 L
s
.02381 .53133 m
.02756 .53133 L
s
.02381 .55532 m
.02756 .55532 L
s
.02381 .57932 m
.02756 .57932 L
s
.02381 .00337 m
.02756 .00337 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66.0312 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(y) show
69.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.02499 .60332 L
.02605 .60331 L
.02729 .60331 L
.02846 .6033 L
.03053 .60328 L
.03279 .60324 L
.03527 .6032 L
.0379 .60313 L
.04262 .60299 L
.04749 .6028 L
.05205 .60257 L
.06244 .60193 L
.07305 .60106 L
.08274 .60008 L
.10458 .59725 L
.12357 .59409 L
.14429 .58989 L
.18493 .57946 L
.22406 .56677 L
.26565 .55058 L
.30571 .53249 L
.34426 .51294 L
.38527 .49002 L
.42475 .46604 L
.46273 .44139 L
.50315 .41357 L
.54206 .38543 L
.58342 .3542 L
.62326 .32298 L
.66159 .29202 L
.70238 .25819 L
.74164 .22486 L
.77939 .1922 L
.8196 .15684 L
.85828 .12231 L
.89942 .08514 L
.93905 .04895 L
.97619 .01472 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.35119 0.00459847 0.64881 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.15873 0.603319 0.0192371 [
[.18254 .59082 -3 -9 ]
[.18254 .59082 3 0 ]
[.34127 .59082 -3 -9 ]
[.34127 .59082 3 0 ]
[.5 .59082 -3 -9 ]
[.5 .59082 3 0 ]
[.65873 .59082 -3 -9 ]
[.65873 .59082 3 0 ]
[.81746 .59082 -3 -9 ]
[.81746 .59082 3 0 ]
[.97619 .59082 -3 -9 ]
[.97619 .59082 3 0 ]
[1.025 .60332 0 -4.90625 ]
[1.025 .60332 10 4.90625 ]
[.01131 .02621 -18 -4.5 ]
[.01131 .02621 0 4.5 ]
[.01131 .12239 -18 -4.5 ]
[.01131 .12239 0 4.5 ]
[.01131 .21858 -18 -4.5 ]
[.01131 .21858 0 4.5 ]
[.01131 .31476 -18 -4.5 ]
[.01131 .31476 0 4.5 ]
[.01131 .41095 -18 -4.5 ]
[.01131 .41095 0 4.5 ]
[.01131 .50713 -12 -4.5 ]
[.01131 .50713 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .60332 m
.18254 .60957 L
s
[(1)] .18254 .59082 0 1 Mshowa
.34127 .60332 m
.34127 .60957 L
s
[(2)] .34127 .59082 0 1 Mshowa
.5 .60332 m
.5 .60957 L
s
[(3)] .5 .59082 0 1 Mshowa
.65873 .60332 m
.65873 .60957 L
s
[(4)] .65873 .59082 0 1 Mshowa
.81746 .60332 m
.81746 .60957 L
s
[(5)] .81746 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(6)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.05556 .60332 m
.05556 .60707 L
s
.0873 .60332 m
.0873 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.15079 .60332 m
.15079 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.24603 .60332 m
.24603 .60707 L
s
.27778 .60332 m
.27778 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.37302 .60332 m
.37302 .60707 L
s
.40476 .60332 m
.40476 .60707 L
s
.43651 .60332 m
.43651 .60707 L
s
.46825 .60332 m
.46825 .60707 L
s
.53175 .60332 m
.53175 .60707 L
s
.56349 .60332 m
.56349 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.62698 .60332 m
.62698 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.72222 .60332 m
.72222 .60707 L
s
.75397 .60332 m
.75397 .60707 L
s
.78571 .60332 m
.78571 .60707 L
s
.84921 .60332 m
.84921 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.9127 .60332 m
.9127 .60707 L
s
.94444 .60332 m
.94444 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
gsave
1.025 .60332 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .02621 m
.03006 .02621 L
s
[(-30)] .01131 .02621 1 0 Mshowa
.02381 .12239 m
.03006 .12239 L
s
[(-25)] .01131 .12239 1 0 Mshowa
.02381 .21858 m
.03006 .21858 L
s
[(-20)] .01131 .21858 1 0 Mshowa
.02381 .31476 m
.03006 .31476 L
s
[(-15)] .01131 .31476 1 0 Mshowa
.02381 .41095 m
.03006 .41095 L
s
[(-10)] .01131 .41095 1 0 Mshowa
.02381 .50713 m
.03006 .50713 L
s
[(-5)] .01131 .50713 1 0 Mshowa
.125 Mabswid
.02381 .04544 m
.02756 .04544 L
s
.02381 .06468 m
.02756 .06468 L
s
.02381 .08392 m
.02756 .08392 L
s
.02381 .10315 m
.02756 .10315 L
s
.02381 .14163 m
.02756 .14163 L
s
.02381 .16087 m
.02756 .16087 L
s
.02381 .1801 m
.02756 .1801 L
s
.02381 .19934 m
.02756 .19934 L
s
.02381 .23781 m
.02756 .23781 L
s
.02381 .25705 m
.02756 .25705 L
s
.02381 .27629 m
.02756 .27629 L
s
.02381 .29553 m
.02756 .29553 L
s
.02381 .334 m
.02756 .334 L
s
.02381 .35324 m
.02756 .35324 L
s
.02381 .37247 m
.02756 .37247 L
s
.02381 .39171 m
.02756 .39171 L
s
.02381 .43019 m
.02756 .43019 L
s
.02381 .44942 m
.02756 .44942 L
s
.02381 .46866 m
.02756 .46866 L
s
.02381 .4879 m
.02756 .4879 L
s
.02381 .52637 m
.02756 .52637 L
s
.02381 .54561 m
.02756 .54561 L
s
.02381 .56484 m
.02756 .56484 L
s
.02381 .58408 m
.02756 .58408 L
s
.02381 .00697 m
.02756 .00697 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(v) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.06244 .55752 L
.10458 .50815 L
.14415 .46287 L
.18221 .42076 L
.22272 .37788 L
.26171 .33882 L
.30316 .29995 L
.34309 .26525 L
.3815 .23447 L
.42237 .20457 L
.46172 .17847 L
.49955 .1558 L
.53984 .13412 L
.57861 .11552 L
.61984 .09798 L
.65954 .0831 L
.69774 .07046 L
.73838 .05865 L
.77751 .04871 L
.81909 .03951 L
.85916 .03182 L
.89771 .02538 L
.93871 .01943 L
.97619 .01472 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.678571 0.00459847 0.97619 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.15873 0.667928 0.0666544 [
[.18254 .12219 -3 -9 ]
[.18254 .12219 3 0 ]
[.34127 .12219 -3 -9 ]
[.34127 .12219 3 0 ]
[.5 .12219 -3 -9 ]
[.5 .12219 3 0 ]
[.65873 .12219 -3 -9 ]
[.65873 .12219 3 0 ]
[.81746 .12219 -3 -9 ]
[.81746 .12219 3 0 ]
[.97619 .12219 -3 -9 ]
[.97619 .12219 3 0 ]
[1.025 .13469 0 -4.90625 ]
[1.025 .13469 10 4.90625 ]
[.01131 .00138 -18 -4.5 ]
[.01131 .00138 0 4.5 ]
[.01131 .268 -12 -4.5 ]
[.01131 .268 0 4.5 ]
[.01131 .40131 -12 -4.5 ]
[.01131 .40131 0 4.5 ]
[.01131 .53462 -12 -4.5 ]
[.01131 .53462 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .13469 m
.18254 .14094 L
s
[(1)] .18254 .12219 0 1 Mshowa
.34127 .13469 m
.34127 .14094 L
s
[(2)] .34127 .12219 0 1 Mshowa
.5 .13469 m
.5 .14094 L
s
[(3)] .5 .12219 0 1 Mshowa
.65873 .13469 m
.65873 .14094 L
s
[(4)] .65873 .12219 0 1 Mshowa
.81746 .13469 m
.81746 .14094 L
s
[(5)] .81746 .12219 0 1 Mshowa
.97619 .13469 m
.97619 .14094 L
s
[(6)] .97619 .12219 0 1 Mshowa
.125 Mabswid
.05556 .13469 m
.05556 .13844 L
s
.0873 .13469 m
.0873 .13844 L
s
.11905 .13469 m
.11905 .13844 L
s
.15079 .13469 m
.15079 .13844 L
s
.21429 .13469 m
.21429 .13844 L
s
.24603 .13469 m
.24603 .13844 L
s
.27778 .13469 m
.27778 .13844 L
s
.30952 .13469 m
.30952 .13844 L
s
.37302 .13469 m
.37302 .13844 L
s
.40476 .13469 m
.40476 .13844 L
s
.43651 .13469 m
.43651 .13844 L
s
.46825 .13469 m
.46825 .13844 L
s
.53175 .13469 m
.53175 .13844 L
s
.56349 .13469 m
.56349 .13844 L
s
.59524 .13469 m
.59524 .13844 L
s
.62698 .13469 m
.62698 .13844 L
s
.69048 .13469 m
.69048 .13844 L
s
.72222 .13469 m
.72222 .13844 L
s
.75397 .13469 m
.75397 .13844 L
s
.78571 .13469 m
.78571 .13844 L
s
.84921 .13469 m
.84921 .13844 L
s
.88095 .13469 m
.88095 .13844 L
s
.9127 .13469 m
.9127 .13844 L
s
.94444 .13469 m
.94444 .13844 L
s
.25 Mabswid
0 .13469 m
1 .13469 L
s
gsave
1.025 .13469 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .00138 m
.03006 .00138 L
s
[(-10)] .01131 .00138 1 0 Mshowa
.02381 .268 m
.03006 .268 L
s
[(-6)] .01131 .268 1 0 Mshowa
.02381 .40131 m
.03006 .40131 L
s
[(-4)] .01131 .40131 1 0 Mshowa
.02381 .53462 m
.03006 .53462 L
s
[(-2)] .01131 .53462 1 0 Mshowa
.125 Mabswid
.02381 .03471 m
.02756 .03471 L
s
.02381 .06804 m
.02756 .06804 L
s
.02381 .10137 m
.02756 .10137 L
s
.02381 .16802 m
.02756 .16802 L
s
.02381 .20135 m
.02756 .20135 L
s
.02381 .23467 m
.02756 .23467 L
s
.02381 .30133 m
.02756 .30133 L
s
.02381 .33466 m
.02756 .33466 L
s
.02381 .36798 m
.02756 .36798 L
s
.02381 .43464 m
.02756 .43464 L
s
.02381 .46796 m
.02756 .46796 L
s
.02381 .50129 m
.02756 .50129 L
s
.02381 .56795 m
.02756 .56795 L
s
.02381 .60127 m
.02756 .60127 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(a) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .01472 m
.02499 .01472 L
.02605 .01473 L
.02729 .01474 L
.02846 .01477 L
.03053 .01482 L
.03279 .01491 L
.03527 .01503 L
.0379 .01519 L
.04262 .01556 L
.04749 .01606 L
.05205 .01662 L
.06244 .01828 L
.07305 .02049 L
.08274 .02297 L
.10458 .0301 L
.14429 .0483 L
.18248 .07152 L
.22313 .10138 L
.26226 .13405 L
.30384 .17171 L
.34391 .20968 L
.38246 .24677 L
.42346 .28588 L
.46295 .32248 L
.50092 .35615 L
.54134 .38994 L
.58025 .4202 L
.62161 .44978 L
.66146 .47569 L
.69979 .49825 L
.74057 .51982 L
.77984 .53833 L
.81759 .55418 L
.85779 .56914 L
.89648 .58181 L
.93762 .59363 L
.97619 .60332 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{515.062, 99.4375},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztm+lyVEUUx4fJDBi2EEAERBKQyCqIslasIAQTBIICsgkxCcMWFkGgLDAK
lqWIBjGCAoqfBH0I38Yq3wPndo+n+/b8utN3MvnmFEw6/+6znz693Juegatn
Tl4YuDpYGmjtvjxw6cxg6Upr18XLZahhQi6Xb8jlcqXWXNJ+Vm5Wvp6V/+mv
YvKVwOMALEp+5BOBfygg0SWXq4zJPUq+CwnSIOMeWoTO8Kcy6LH6vZjqVWTl
T161Cqm+8ue+bjwPIhtA1mXAlghFIUh7LvmelCDLRtUzTalY3rM0dfob2La8
qONV20MU4nVax7H8WSpOK2Q0SI38QQ+ZgwYHdEsPvSiKrchkUEnMWJc9awpi
+bCGmjK4oorbJTBrkTchA6HpFZs2Jq2G0YgcmROF6LYeNjeeVsn/CDpWZorK
EbGgw5cW3vnVKL237KmSKcMdlucBWz5mrvvEyB7onSJmfGVNkIj6YnLQtGYI
xSygmC4BN0KL0nrFJ1e13hUZ+4DzNBn3pTbCVPyZPkUcbAY7lMibAZsEWIFZ
vgZDd4u+B32udrCblqER+hELsm2aJAv1TgSsGLBSWbRLWoe9fk9jN7LZRiya
RKgnsDMkGZ/zGaqgtdC7Q5h/4MsuMx2ciUFubRJpzTKuJSaRY73hJrzxy+hZ
TNha0apLVD8WMakqnwzzjyz05m01+UJ/Jhmne0Q3BTSyMmv0GUIJNlm4zJMk
yYtGVG87haLP6z7eB5C7yYdTk2/Fgqp3dg9761A+7UfvWmHtcMB71uSt0mqu
NzRVQ7cJr4HI2USL7NSgraFUMimoWpV5r9w6lAA0/+YDVkRNy58tosaJSAMp
/chAop3mYGJnBK1d82qsdIT5aXm+0FpJUZjl5GjB5eady29KSE75cl9BE2Vc
I2eQJ7HMchPrN1OPZvmD0C+DTNFawBqYfV27tM5E6kI1dFLaovBSapbcUI2Y
aRmq+PVHzrR5zI/KAgV/kwhUZ9shCTSlFwfiQ8Be9GlvdtJmlVHYJqA4Gxkj
76ap7nM0ch6yo3oB2w7YenHKBehdIL3HxI22UHMadgjfBmwdYCR0IWC03QxY
fxSwLlGYFKEjdQtgR7IpQnp3A2b2lR9Db6tXYSsMJMrs182p5AqMI9V1aKJv
7A5J75ZIitWAkXKLATtvKYeVJ6pI0ZFzS0aWyrxXpfUJkL8M2DnNJOulnPek
vDUjI2foCmF+DXqXAKbrZe4F9SPTNRyp3y45U8O93kpgSGa0ATaomWS9gdsv
/urOSLkcOq4DZm6FBu1cH8t92F7Ato+Zq1H0M+hdBtgpK/cj7tveA6zLR2tu
1BwKUo5icVIrZ+oqiaerOJokn/ummoOdsIQ6XT2iyAHopdJyPehNmiwlv/jd
gB0QAYulNRRIGFMiHUbHXV+TNCoXtCCGNHCGki4Dfh/sBMwsd6SLWgUirjZo
CdSb8UphhYLujaxZ7PdEiqedFqUs0a4BrM9WPeNjtx3QQVOPbkUUAzLmRqQx
dDOtjxq52cmPolE9KsG6AKPq67koJ1O+kEiSQLqs7bUMqJaRYZtEm/mdkmJZ
rwDouHYLsNcB01etVdu+0exR+UFW7A9kqjnIk8bfAPYGYPokYq11GfzeCdi+
oG8JmwfYbcDoVKTPFDXUom2AHeBEcc7mpO63gK0HTB/OrPWE1OgHjAz8DrAN
gB22hNJZQilSkhaJGgZsI2CH/KLoMW4JMDox3QGMrkgOuu4loXTVOhuw7wHb
LJxtUXRUMLdIqkUC7vposQZE70aNjr2SveFzLt3y6+TiwkNe1RvOWs4ASq3N
wLIvoIJ3lSZbhkF6KEP21mxLxBTpH9WqKtZkk6o4RZ/gDrHPtsWqylHqm6u3
o5JJWV/w8V51fy0sK89HHIUwU98CbI8dLVptAmlHNbqUPUBkn1uzfCbRvUhP
bSZFrPbHa8kDekp5V3zoXV1Vb8WUOWm5XkJzzXgakylFq1qk3EgghOZgvktj
ZrUIX0HSY7afAaOt9Q5LlNPlvWRUipDQB4B1C0VA1CoZRJeAkwF7CNg7wqXL
deBKaV2T1pRItrsA67SSJ2LlWya9V500T49rBOwRYObVn057QtbnLuo6E1EU
fgFsjzDaWrNuirxNWkM443L8Gs6vgNFpuMMNYYa6Yy5vVDwj7gvoOddjwPYK
5456RZYm3KeAmcpFyv4G2H7A2scW9FZpxd6m0DsMD9JRcXrfFxntbg6Ep/FL
0nszLUBhpAjVE+J8ULjo/SYGbb5kGB2hvfWkxvctzTNzuvMzZh8Rig2W6uZA
qlp0Iox9JWYc3rz0vJfUJk4KbSZ7xap1/ljNFlZ3ZDgZ7L76kvyvz3uXHhtX
M9wnUVzrRrFZTBlh2tjn9RnerzStVTyUfNkv/Nf4AzNdBv2UTvWItBnLa5KE
mWefNHmPi9/1gwdrDptSHS5YjZIhD9K+N06u0zuM4feD6KnSKbFmqRbRHJhz
GZa7qckvatNkvSXDU92hPCv6to1Royr4zwCnhhr78uPA83956ZSgV4comc9L
Mi8an9RJi6MNMal1STK6pa5zTH2b1ZJE/6jpzRvTwe11Fawa9AQ8IItKttmn
mEqpeugB9l+aj/pFfVXufxamSf/RaKvPMX9b/XlfCNV3ZbPXwj546pAJlrdy
+b/OkcysnvDQe0FGTwIJ9ERifc/1m6Vs8vldOkx86M8sR6yAmL+iu+8JUz2A
3IR/AahEr2c=\
\>"],ImageRangeCache->{{{0, 514.062}, {98.4375, 0}} -> {-0.0885924, \
-0.0144882, 0.00618055, 0.00618055}, {{14.3125, 166}, {96.0625, 2.3125}} -> \
{-1.74716, -35.426, 0.0516327, 1.70758}, {{181.188, 332.875}, {96.0625, \
2.3125}} -> {-10.3634, -33.8183, 0.0516327, 0.426034}, {{348, 499.688}, \
{96.0625, 2.3125}} -> {-18.9763, -10.9158, 0.0516327, 0.122957}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"b) Ping-pong Ball\"\>"], "Print",
 FontSize->12],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .19314 
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.31746 0.00459847 0.31746 [
[ 0 0 0 0 ]
[ 1 .19314 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .19314 L
0 .19314 L
closepath
clip
newpath
% Start of sub-graphic
p
0.0238095 0.00459847 0.321429 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0.0928635 0.00510455 [
[.15079 .08036 -3 -9 ]
[.15079 .08036 3 0 ]
[.27778 .08036 -3 -9 ]
[.27778 .08036 3 0 ]
[.40476 .08036 -3 -9 ]
[.40476 .08036 3 0 ]
[.53175 .08036 -3 -9 ]
[.53175 .08036 3 0 ]
[.65873 .08036 -6 -9 ]
[.65873 .08036 6 0 ]
[.78571 .08036 -6 -9 ]
[.78571 .08036 6 0 ]
[.9127 .08036 -6 -9 ]
[.9127 .08036 6 0 ]
[1.025 .09286 0 -4.90625 ]
[1.025 .09286 10 4.90625 ]
[.01131 .19495 -12 -4.5 ]
[.01131 .19495 0 4.5 ]
[.01131 .29705 -12 -4.5 ]
[.01131 .29705 0 4.5 ]
[.01131 .39914 -12 -4.5 ]
[.01131 .39914 0 4.5 ]
[.01131 .50123 -12 -4.5 ]
[.01131 .50123 0 4.5 ]
[.01131 .60332 -18 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -5.03125 0 ]
[.02381 .64303 5.03125 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 .09286 m
.15079 .09911 L
s
[(2)] .15079 .08036 0 1 Mshowa
.27778 .09286 m
.27778 .09911 L
s
[(4)] .27778 .08036 0 1 Mshowa
.40476 .09286 m
.40476 .09911 L
s
[(6)] .40476 .08036 0 1 Mshowa
.53175 .09286 m
.53175 .09911 L
s
[(8)] .53175 .08036 0 1 Mshowa
.65873 .09286 m
.65873 .09911 L
s
[(10)] .65873 .08036 0 1 Mshowa
.78571 .09286 m
.78571 .09911 L
s
[(12)] .78571 .08036 0 1 Mshowa
.9127 .09286 m
.9127 .09911 L
s
[(14)] .9127 .08036 0 1 Mshowa
.125 Mabswid
.05556 .09286 m
.05556 .09661 L
s
.0873 .09286 m
.0873 .09661 L
s
.11905 .09286 m
.11905 .09661 L
s
.18254 .09286 m
.18254 .09661 L
s
.21429 .09286 m
.21429 .09661 L
s
.24603 .09286 m
.24603 .09661 L
s
.30952 .09286 m
.30952 .09661 L
s
.34127 .09286 m
.34127 .09661 L
s
.37302 .09286 m
.37302 .09661 L
s
.43651 .09286 m
.43651 .09661 L
s
.46825 .09286 m
.46825 .09661 L
s
.5 .09286 m
.5 .09661 L
s
.56349 .09286 m
.56349 .09661 L
s
.59524 .09286 m
.59524 .09661 L
s
.62698 .09286 m
.62698 .09661 L
s
.69048 .09286 m
.69048 .09661 L
s
.72222 .09286 m
.72222 .09661 L
s
.75397 .09286 m
.75397 .09661 L
s
.81746 .09286 m
.81746 .09661 L
s
.84921 .09286 m
.84921 .09661 L
s
.88095 .09286 m
.88095 .09661 L
s
.94444 .09286 m
.94444 .09661 L
s
.97619 .09286 m
.97619 .09661 L
s
.25 Mabswid
0 .09286 m
1 .09286 L
s
gsave
1.025 .09286 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .19495 m
.03006 .19495 L
s
[(20)] .01131 .19495 1 0 Mshowa
.02381 .29705 m
.03006 .29705 L
s
[(40)] .01131 .29705 1 0 Mshowa
.02381 .39914 m
.03006 .39914 L
s
[(60)] .01131 .39914 1 0 Mshowa
.02381 .50123 m
.03006 .50123 L
s
[(80)] .01131 .50123 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(100)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .11839 m
.02756 .11839 L
s
.02381 .14391 m
.02756 .14391 L
s
.02381 .16943 m
.02756 .16943 L
s
.02381 .22048 m
.02756 .22048 L
s
.02381 .246 m
.02756 .246 L
s
.02381 .27152 m
.02756 .27152 L
s
.02381 .32257 m
.02756 .32257 L
s
.02381 .34809 m
.02756 .34809 L
s
.02381 .37361 m
.02756 .37361 L
s
.02381 .42466 m
.02756 .42466 L
s
.02381 .45018 m
.02756 .45018 L
s
.02381 .47571 m
.02756 .47571 L
s
.02381 .52675 m
.02756 .52675 L
s
.02381 .55227 m
.02756 .55227 L
s
.02381 .5778 m
.02756 .5778 L
s
.02381 .06734 m
.02756 .06734 L
s
.02381 .04182 m
.02756 .04182 L
s
.02381 .0163 m
.02756 .0163 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66.0312 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(y) show
69.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.02499 .60331 L
.02605 .60329 L
.02729 .60324 L
.02846 .60319 L
.03053 .60304 L
.03279 .60282 L
.03527 .60251 L
.0379 .6021 L
.04262 .60117 L
.05205 .5986 L
.06244 .59481 L
.10458 .57305 L
.14487 .5483 L
.18364 .52364 L
.22486 .49722 L
.26457 .47173 L
.30277 .4472 L
.34341 .4211 L
.38254 .39597 L
.42412 .36927 L
.46419 .34353 L
.50274 .31878 L
.54374 .29244 L
.58323 .26708 L
.6212 .2427 L
.66163 .21674 L
.70054 .19175 L
.7419 .16518 L
.78174 .1396 L
.82007 .11498 L
.86085 .08879 L
.90012 .06357 L
.93787 .03933 L
.97619 .01472 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.35119 0.00459847 0.64881 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0.603319 0.0736843 [
[.15079 .59082 -3 -9 ]
[.15079 .59082 3 0 ]
[.27778 .59082 -3 -9 ]
[.27778 .59082 3 0 ]
[.40476 .59082 -3 -9 ]
[.40476 .59082 3 0 ]
[.53175 .59082 -3 -9 ]
[.53175 .59082 3 0 ]
[.65873 .59082 -6 -9 ]
[.65873 .59082 6 0 ]
[.78571 .59082 -6 -9 ]
[.78571 .59082 6 0 ]
[.9127 .59082 -6 -9 ]
[.9127 .59082 6 0 ]
[1.025 .60332 0 -4.90625 ]
[1.025 .60332 10 4.90625 ]
[.01131 .01384 -12 -4.5 ]
[.01131 .01384 0 4.5 ]
[.01131 .16121 -12 -4.5 ]
[.01131 .16121 0 4.5 ]
[.01131 .30858 -12 -4.5 ]
[.01131 .30858 0 4.5 ]
[.01131 .45595 -12 -4.5 ]
[.01131 .45595 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 .60332 m
.15079 .60957 L
s
[(2)] .15079 .59082 0 1 Mshowa
.27778 .60332 m
.27778 .60957 L
s
[(4)] .27778 .59082 0 1 Mshowa
.40476 .60332 m
.40476 .60957 L
s
[(6)] .40476 .59082 0 1 Mshowa
.53175 .60332 m
.53175 .60957 L
s
[(8)] .53175 .59082 0 1 Mshowa
.65873 .60332 m
.65873 .60957 L
s
[(10)] .65873 .59082 0 1 Mshowa
.78571 .60332 m
.78571 .60957 L
s
[(12)] .78571 .59082 0 1 Mshowa
.9127 .60332 m
.9127 .60957 L
s
[(14)] .9127 .59082 0 1 Mshowa
.125 Mabswid
.05556 .60332 m
.05556 .60707 L
s
.0873 .60332 m
.0873 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.18254 .60332 m
.18254 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.24603 .60332 m
.24603 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.34127 .60332 m
.34127 .60707 L
s
.37302 .60332 m
.37302 .60707 L
s
.43651 .60332 m
.43651 .60707 L
s
.46825 .60332 m
.46825 .60707 L
s
.5 .60332 m
.5 .60707 L
s
.56349 .60332 m
.56349 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.62698 .60332 m
.62698 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.72222 .60332 m
.72222 .60707 L
s
.75397 .60332 m
.75397 .60707 L
s
.81746 .60332 m
.81746 .60707 L
s
.84921 .60332 m
.84921 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.94444 .60332 m
.94444 .60707 L
s
.97619 .60332 m
.97619 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
gsave
1.025 .60332 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .01384 m
.03006 .01384 L
s
[(-8)] .01131 .01384 1 0 Mshowa
.02381 .16121 m
.03006 .16121 L
s
[(-6)] .01131 .16121 1 0 Mshowa
.02381 .30858 m
.03006 .30858 L
s
[(-4)] .01131 .30858 1 0 Mshowa
.02381 .45595 m
.03006 .45595 L
s
[(-2)] .01131 .45595 1 0 Mshowa
.125 Mabswid
.02381 .05069 m
.02756 .05069 L
s
.02381 .08753 m
.02756 .08753 L
s
.02381 .12437 m
.02756 .12437 L
s
.02381 .19806 m
.02756 .19806 L
s
.02381 .2349 m
.02756 .2349 L
s
.02381 .27174 m
.02756 .27174 L
s
.02381 .34542 m
.02756 .34542 L
s
.02381 .38227 m
.02756 .38227 L
s
.02381 .41911 m
.02756 .41911 L
s
.02381 .49279 m
.02756 .49279 L
s
.02381 .52964 m
.02756 .52964 L
s
.02381 .56648 m
.02756 .56648 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(v) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.04262 .39836 L
.06244 .23069 L
.07286 .1685 L
.08255 .12493 L
.0932 .09015 L
.09916 .07543 L
.10458 .06444 L
.11454 .04902 L
.12373 .03898 L
.12853 .03494 L
.13381 .03125 L
.1393 .02813 L
.14451 .02571 L
.14936 .02384 L
.15465 .02217 L
.16392 .01993 L
.16916 .01898 L
.17475 .01815 L
.1848 .01705 L
.19015 .01661 L
.19508 .01628 L
.20039 .01599 L
.20621 .01574 L
.21602 .01541 L
.22138 .01528 L
.22638 .01518 L
.23139 .0151 L
.23683 .01503 L
.24163 .01498 L
.24673 .01493 L
.25131 .01489 L
.25637 .01486 L
.26529 .01482 L
.2702 .0148 L
.27538 .01479 L
.28463 .01476 L
.28979 .01476 L
.2946 .01475 L
.29982 .01474 L
.30549 .01474 L
.31097 .01473 L
.31601 .01473 L
.32074 .01473 L
.32595 .01473 L
.33498 .01472 L
.33992 .01472 L
.34454 .01472 L
.34952 .01472 L
.35494 .01472 L
Mistroke
.35973 .01472 L
.36482 .01472 L
.36987 .01472 L
.37444 .01472 L
.38336 .01472 L
.38825 .01472 L
.39341 .01472 L
.40265 .01472 L
.40779 .01472 L
.41258 .01472 L
.41781 .01472 L
.42348 .01472 L
.42893 .01472 L
.43396 .01472 L
.43867 .01472 L
.44387 .01472 L
.45288 .01472 L
.45781 .01472 L
.46244 .01472 L
.4723 .01472 L
.47725 .01472 L
.48266 .01472 L
.48731 .01472 L
.49226 .01472 L
.50118 .01472 L
.50653 .01472 L
.51145 .01472 L
.51675 .01472 L
.52257 .01472 L
.53237 .01472 L
.53772 .01472 L
.54273 .01472 L
.54773 .01472 L
.55316 .01472 L
.55796 .01472 L
.56306 .01472 L
.56763 .01472 L
.57269 .01472 L
.58161 .01472 L
.58651 .01472 L
.59168 .01472 L
.60093 .01472 L
.60608 .01472 L
.61088 .01472 L
.61611 .01472 L
.62178 .01472 L
.62724 .01472 L
.63228 .01472 L
.63701 .01472 L
.64221 .01472 L
Mistroke
.65123 .01472 L
.65617 .01472 L
.66079 .01472 L
.66576 .01472 L
.67118 .01472 L
.67596 .01472 L
.68105 .01472 L
.68609 .01472 L
.69066 .01472 L
.69958 .01472 L
.70446 .01472 L
.70962 .01472 L
.71884 .01472 L
.72398 .01472 L
.72877 .01472 L
.73399 .01472 L
.73967 .01472 L
.7451 .01472 L
.75013 .01472 L
.75484 .01472 L
.76003 .01472 L
.76904 .01472 L
.77397 .01472 L
.7786 .01472 L
.78844 .01472 L
.79338 .01472 L
.79879 .01472 L
.80343 .01472 L
.80838 .01472 L
.8173 .01472 L
.82264 .01472 L
.82756 .01472 L
.83285 .01472 L
.83866 .01472 L
.84846 .01472 L
.85381 .01472 L
.85882 .01472 L
.86381 .01472 L
.86924 .01472 L
.87403 .01472 L
.87912 .01472 L
.88875 .01472 L
.89099 .01472 L
.89209 .01472 L
.89309 .01472 L
.89414 .01472 L
.89527 .01472 L
.89652 .01472 L
.89767 .01472 L
.89831 .01472 L
Mistroke
.89899 .01472 L
.90043 .01472 L
.90305 .01472 L
.90418 .01472 L
.9054 .01472 L
.9061 .01472 L
.90673 .01472 L
.90799 .01472 L
.91913 .01472 L
.92408 .01472 L
.92948 .01472 L
.93932 .01472 L
.94163 .01472 L
.94294 .01472 L
.94414 .01472 L
.94519 .01472 L
.94634 .01472 L
.94755 .01472 L
.94868 .01472 L
.94978 .01472 L
.95082 .01472 L
.95277 .01472 L
.95716 .01472 L
.95835 .01472 L
.95946 .01472 L
.96062 .01472 L
.9619 .01472 L
.96403 .01472 L
.96628 .01472 L
.96746 .01472 L
.96876 .01472 L
.96995 .01472 L
.97105 .01472 L
.97619 .01472 L
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.678571 0.00459847 0.97619 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0.603319 0.0600616 [
[.15079 .59082 -3 -9 ]
[.15079 .59082 3 0 ]
[.27778 .59082 -3 -9 ]
[.27778 .59082 3 0 ]
[.40476 .59082 -3 -9 ]
[.40476 .59082 3 0 ]
[.53175 .59082 -3 -9 ]
[.53175 .59082 3 0 ]
[.65873 .59082 -6 -9 ]
[.65873 .59082 6 0 ]
[.78571 .59082 -6 -9 ]
[.78571 .59082 6 0 ]
[.9127 .59082 -6 -9 ]
[.9127 .59082 6 0 ]
[1.025 .60332 0 -4.90625 ]
[1.025 .60332 10 4.90625 ]
[.01131 .0027 -18 -4.5 ]
[.01131 .0027 0 4.5 ]
[.01131 .12283 -12 -4.5 ]
[.01131 .12283 0 4.5 ]
[.01131 .24295 -12 -4.5 ]
[.01131 .24295 0 4.5 ]
[.01131 .36307 -12 -4.5 ]
[.01131 .36307 0 4.5 ]
[.01131 .4832 -12 -4.5 ]
[.01131 .4832 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 .60332 m
.15079 .60957 L
s
[(2)] .15079 .59082 0 1 Mshowa
.27778 .60332 m
.27778 .60957 L
s
[(4)] .27778 .59082 0 1 Mshowa
.40476 .60332 m
.40476 .60957 L
s
[(6)] .40476 .59082 0 1 Mshowa
.53175 .60332 m
.53175 .60957 L
s
[(8)] .53175 .59082 0 1 Mshowa
.65873 .60332 m
.65873 .60957 L
s
[(10)] .65873 .59082 0 1 Mshowa
.78571 .60332 m
.78571 .60957 L
s
[(12)] .78571 .59082 0 1 Mshowa
.9127 .60332 m
.9127 .60957 L
s
[(14)] .9127 .59082 0 1 Mshowa
.125 Mabswid
.05556 .60332 m
.05556 .60707 L
s
.0873 .60332 m
.0873 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.18254 .60332 m
.18254 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.24603 .60332 m
.24603 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.34127 .60332 m
.34127 .60707 L
s
.37302 .60332 m
.37302 .60707 L
s
.43651 .60332 m
.43651 .60707 L
s
.46825 .60332 m
.46825 .60707 L
s
.5 .60332 m
.5 .60707 L
s
.56349 .60332 m
.56349 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.62698 .60332 m
.62698 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.72222 .60332 m
.72222 .60707 L
s
.75397 .60332 m
.75397 .60707 L
s
.81746 .60332 m
.81746 .60707 L
s
.84921 .60332 m
.84921 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.94444 .60332 m
.94444 .60707 L
s
.97619 .60332 m
.97619 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
gsave
1.025 .60332 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .0027 m
.03006 .0027 L
s
[(-10)] .01131 .0027 1 0 Mshowa
.02381 .12283 m
.03006 .12283 L
s
[(-8)] .01131 .12283 1 0 Mshowa
.02381 .24295 m
.03006 .24295 L
s
[(-6)] .01131 .24295 1 0 Mshowa
.02381 .36307 m
.03006 .36307 L
s
[(-4)] .01131 .36307 1 0 Mshowa
.02381 .4832 m
.03006 .4832 L
s
[(-2)] .01131 .4832 1 0 Mshowa
.125 Mabswid
.02381 .03273 m
.02756 .03273 L
s
.02381 .06276 m
.02756 .06276 L
s
.02381 .0928 m
.02756 .0928 L
s
.02381 .15286 m
.02756 .15286 L
s
.02381 .18289 m
.02756 .18289 L
s
.02381 .21292 m
.02756 .21292 L
s
.02381 .27298 m
.02756 .27298 L
s
.02381 .30301 m
.02756 .30301 L
s
.02381 .33304 m
.02756 .33304 L
s
.02381 .3931 m
.02756 .3931 L
s
.02381 .42313 m
.02756 .42313 L
s
.02381 .45316 m
.02756 .45316 L
s
.02381 .51323 m
.02756 .51323 L
s
.02381 .54326 m
.02756 .54326 L
s
.02381 .57329 m
.02756 .57329 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(a) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .01472 m
.06244 .25061 L
.08255 .40352 L
.09396 .4657 L
.10458 .50808 L
.11459 .53684 L
.1237 .55575 L
.12874 .56388 L
.13421 .57119 L
.13934 .57684 L
.14415 .58124 L
.15359 .5879 L
.1586 .59059 L
.16399 .59296 L
.16962 .59497 L
.17497 .59652 L
.18024 .59777 L
.18502 .5987 L
.1946 .60013 L
.19987 .60071 L
.20482 .60117 L
.21366 .60179 L
.21863 .60206 L
.22321 .60226 L
.22791 .60244 L
.23295 .60259 L
.24204 .60281 L
.24759 .60291 L
.25284 .60298 L
.25753 .60304 L
.2627 .60309 L
.27235 .60316 L
.27764 .60319 L
.28261 .60321 L
.29147 .60324 L
.29646 .60326 L
.30103 .60327 L
.30577 .60328 L
.31083 .60328 L
.31995 .60329 L
.32553 .6033 L
.3308 .6033 L
.33549 .60331 L
.34065 .60331 L
.35037 .60331 L
.35569 .60331 L
.36067 .60331 L
.36956 .60332 L
.37456 .60332 L
.37912 .60332 L
Mistroke
.3839 .60332 L
.38899 .60332 L
.39814 .60332 L
.40375 .60332 L
.40903 .60332 L
.41373 .60332 L
.41888 .60332 L
.42867 .60332 L
.43401 .60332 L
.439 .60332 L
.44792 .60332 L
.45293 .60332 L
.45748 .60332 L
.46231 .60332 L
.46742 .60332 L
.47661 .60332 L
.48171 .60332 L
.48649 .60332 L
.49169 .60332 L
.49738 .60332 L
.50724 .60332 L
.51261 .60332 L
.5176 .60332 L
.52656 .60332 L
.53157 .60332 L
.53612 .60332 L
.54098 .60332 L
.54613 .60332 L
.55534 .60332 L
.56047 .60332 L
.56526 .60332 L
.57048 .60332 L
.57615 .60332 L
.58157 .60332 L
.58659 .60332 L
.59129 .60332 L
.59648 .60332 L
.60547 .60332 L
.6104 .60332 L
.61503 .60332 L
.62485 .60332 L
.62978 .60332 L
.63519 .60332 L
.63982 .60332 L
.64477 .60332 L
.65369 .60332 L
.659 .60332 L
.66391 .60332 L
.66919 .60332 L
.67501 .60332 L
Mistroke
.68479 .60332 L
.69014 .60332 L
.69515 .60332 L
.70012 .60332 L
.70554 .60332 L
.71032 .60332 L
.71541 .60332 L
.72046 .60332 L
.72502 .60332 L
.73394 .60332 L
.73882 .60332 L
.74398 .60332 L
.7532 .60332 L
.75834 .60332 L
.76313 .60332 L
.76835 .60332 L
.77403 .60332 L
.77946 .60332 L
.78449 .60332 L
.7892 .60332 L
.7944 .60332 L
.8034 .60332 L
.80833 .60332 L
.81296 .60332 L
.8228 .60332 L
.82775 .60332 L
.83316 .60332 L
.83779 .60332 L
.84275 .60332 L
.85166 .60332 L
.857 .60332 L
.86192 .60332 L
.86721 .60332 L
.87303 .60332 L
.88282 .60332 L
.88817 .60332 L
.89318 .60332 L
.89817 .60332 L
.9036 .60332 L
.90839 .60332 L
.91348 .60332 L
.91854 .60332 L
.92311 .60332 L
.93203 .60332 L
.93692 .60332 L
.94209 .60332 L
.95133 .60332 L
.95647 .60332 L
.96127 .60332 L
.97217 .60332 L
Mistroke
.97619 .60332 L
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{515.062, 99.4375},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW3tvFFUUH3a7W0pbQSzUZ1mlQqpR4yOiMalalUaDJhptAkahNiqYiAhN
JFQjiUYUjBYQn6UFWgLql1C/iX4R3DkznLtz53fOPTM7TfzDDczePffec37n
OXfm3r44Pbv/7fenZw/MTLcmD08f2n9g5khr5weH26T6miiq1aMommlFcfta
u5lerrX/JZdGfInJ3RPupK9YYBSlPdESoNF1XJ7zc3ytxZQ66D0fX3u4l8b9
0MGMCEfAxFG69mRo7U+NJ90Yt96JW2PU2ciiToYn4/Nszsr6HGIJ2xUI3qQB
VvPbIJjsTJJ0RoZzkOFsBaZEJu/n3pM8o6c7ExE3p+OgZIEa91JrHUDcZFqN
W00PZ5bzmN0N6wDtTKXR0Q9oN4jjcpxVsj1oGsp4JKL9nxjcazdlH6CdZkZ1
O6PTsjEHJBc2ON5W2YR+LuZpaz1a/GmwLV0SUgsZ7TtJkDe3swYQAYVVH1Z+
kB3jkm+gAoOg8tLLEtIpHpboQWkSutmEyp9shKxLxJK0OpGC6lQj61QPYKVW
EXLAq8E2c/Rx7AhJ3TANcOWbAKznVqtKxZ2GKDAGGKkbh2qMSz8/u7O9WplF
USFYeIsqLqf3SPw1FxOQmZA5m4B2wWLOvTzotm5FeeGuVP03Ae1WDqGqhJJW
b3BrxKgfcuvFYvq9DmiieLcm8noXuBdVE0X8HkCbMGr6Cw7gGudVzsK7ufUc
4IfK5IIiw67lFMudEA0lIfieg81fSOdQzcsIXgO0p226Jb/ytPPadBUb6YAQ
TSgsaRIyUHkcHqNXWMyTbHMXTMgEiLZo9NIm0a9Zfi8DGopeK77lMCrIRfEK
grhz1SBuBjMEZ6NQfolhv8C+1QMsgYNvrMkDdDSsDBGwORzIfAj5ShjHzXY7
kOhdxoArCWdTodREQp5nK71aHazNWXeLqTfJvVPVCXcVcBIwmFIBWdl7055l
pruNeiypMNCMr2XxzwCaFciiEioivk4sNAgh2KPY8mKRNCpki6cYk1vtIRY/
xVfDHUgRPywNF+02zr17g8YJV/EgtIKvHcdBxyrjHIq/Gg6VKSKeYCu+paC7
xG4tGFVDGEmBd1yPM8B9CkBkqstGk55KuPiLiYI4HwO0fWC6lkcFEbs7Q3DR
syNrRS1KrhYDUTxxH+FeqioJAPy+S9CrIERU2h4GtBl7BJRBQCo/xK13Q96r
QMsHWMZ7SiimXK93Xele7v2AdhBrqa0S0HN0zqL3cevD6iV4XfewLH9fLf5c
yqZWTRJwMplhXdiNARqJJ5LbBVRzKPzonqIqsQom5AjlLDDSsphkqwnRY7SN
YX8E4Kyo7ggB61j9mLDcDWgI1WUljNFbroyxCj4jI0xHAaZfyzjOjsUbehfj
m2NDIwQo577qyDnnIdHJLe79xKi2ItTVqhYYVJUAr+sOFnosbrnVefWibge0
Y5KrCdJvoBfF8Je+AZGojwGt1pUor+sWZnaUTdkDwrakSOt9YJh7P4MaR2nl
gq4OYChb9dHq73ho0ooaG2hnpjxKj9EQi/k8a2tqofU34oIgnvCdWaCwbeRJ
p7i16IUaLvxoV/xEdy7dCFg6WFfw9GpxeIzchuc3XgyZppu8paee2/qfzwaL
OANtR36RCLUe13CiUEEJCaCJ7rzS2a6YoeHE7JzKFp0moF/WU059nAReffBO
OXnb5GjdgDVBsXEO0PpZgLg57rbOxQNaCLp+QOtRo1U3SJjNh3yS8132t1xN
ZTw6K4aSpNMxbreWWj+KCoHaYFO8ojMrmuIIIVIcudU3GkMucWKrnDPL3fhI
ytaE/XoQ9HpldePcYVdUHfpDlqjUu2FLoIpJUnaIrrU6D504q0INZP4mhiA+
faVng4ttHgpk5/oFIA4FgWBHZzBXfose0bMarNduMJTk7oYcZV+6oewvcNKs
ioQXD961lUZ8r3+PdhkYPoooXfx6HejGa7XaoJaA1VutabAa2i/wC0L6KXX2
cC0nhfAg0gwNcIcTXQnv1tc5Mtr30uqiaAbBxcEjmEEzuAHODBu4tU3ySC9L
R731rF/RusE9kSEu+jlL/RnmpqqdSOn6adwSyiPdO+bYmvkByUNnsn7QnCEA
0F7x1//v+w/1hVdRKKPkulduXDdz0RNHJqOkRHXlA71nOm40xZwsnn7QUTZK
kGVupf0jDIBGbgec0Ku5dHYLdNF1tAQfh+KfhLqFvnKJTY2/w0N2MVNvXTWv
zr0AYApvuDpPkPuC4s+Sxyr+0Lv1esfsv8Cg3wGGFPWfSjpdZSDpn1T9wQQX
cjR8vCM66FL+DxujNf8C7zYFEg==\
\>"],ImageRangeCache->{{{0, 514.062}, {98.4375, 0}} -> {-0.0885924, \
-0.0144882, 0.00618055, 0.00618055}, {{14.3125, 166}, {96.0625, 2.3125}} -> \
{-4.36789, -26.4028, 0.129082, 1.60556}, {{181.188, 332.875}, {96.0625, \
2.3125}} -> {-24.4035, -8.73913, 0.12475, 0.107494}, {{348, 499.688}, \
{96.0625, 2.3125}} -> {-47.4408, -11.0274, 0.129082, 0.136454}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"c) Raindrop\"\>"], "Print",
 FontSize->12],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .19314 
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.31746 0.00459847 0.31746 [
[ 0 0 0 0 ]
[ 1 .19314 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .19314 L
0 .19314 L
closepath
clip
newpath
% Start of sub-graphic
p
0.0238095 0.00459847 0.321429 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 0.0222343 0.00581085 [
[.21429 .00973 -3 -9 ]
[.21429 .00973 3 0 ]
[.40476 .00973 -3 -9 ]
[.40476 .00973 3 0 ]
[.59524 .00973 -3 -9 ]
[.59524 .00973 3 0 ]
[.78571 .00973 -3 -9 ]
[.78571 .00973 3 0 ]
[.97619 .00973 -6 -9 ]
[.97619 .00973 6 0 ]
[1.025 .02223 0 -4.90625 ]
[1.025 .02223 10 4.90625 ]
[.01131 .13845 -12 -4.5 ]
[.01131 .13845 0 4.5 ]
[.01131 .25467 -12 -4.5 ]
[.01131 .25467 0 4.5 ]
[.01131 .37089 -12 -4.5 ]
[.01131 .37089 0 4.5 ]
[.01131 .4871 -12 -4.5 ]
[.01131 .4871 0 4.5 ]
[.01131 .60332 -18 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -5.03125 0 ]
[.02381 .64303 5.03125 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .02223 m
.21429 .02848 L
s
[(2)] .21429 .00973 0 1 Mshowa
.40476 .02223 m
.40476 .02848 L
s
[(4)] .40476 .00973 0 1 Mshowa
.59524 .02223 m
.59524 .02848 L
s
[(6)] .59524 .00973 0 1 Mshowa
.78571 .02223 m
.78571 .02848 L
s
[(8)] .78571 .00973 0 1 Mshowa
.97619 .02223 m
.97619 .02848 L
s
[(10)] .97619 .00973 0 1 Mshowa
.125 Mabswid
.07143 .02223 m
.07143 .02598 L
s
.11905 .02223 m
.11905 .02598 L
s
.16667 .02223 m
.16667 .02598 L
s
.2619 .02223 m
.2619 .02598 L
s
.30952 .02223 m
.30952 .02598 L
s
.35714 .02223 m
.35714 .02598 L
s
.45238 .02223 m
.45238 .02598 L
s
.5 .02223 m
.5 .02598 L
s
.54762 .02223 m
.54762 .02598 L
s
.64286 .02223 m
.64286 .02598 L
s
.69048 .02223 m
.69048 .02598 L
s
.7381 .02223 m
.7381 .02598 L
s
.83333 .02223 m
.83333 .02598 L
s
.88095 .02223 m
.88095 .02598 L
s
.92857 .02223 m
.92857 .02598 L
s
.25 Mabswid
0 .02223 m
1 .02223 L
s
gsave
1.025 .02223 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .13845 m
.03006 .13845 L
s
[(20)] .01131 .13845 1 0 Mshowa
.02381 .25467 m
.03006 .25467 L
s
[(40)] .01131 .25467 1 0 Mshowa
.02381 .37089 m
.03006 .37089 L
s
[(60)] .01131 .37089 1 0 Mshowa
.02381 .4871 m
.03006 .4871 L
s
[(80)] .01131 .4871 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(100)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .05129 m
.02756 .05129 L
s
.02381 .08034 m
.02756 .08034 L
s
.02381 .1094 m
.02756 .1094 L
s
.02381 .16751 m
.02756 .16751 L
s
.02381 .19656 m
.02756 .19656 L
s
.02381 .22561 m
.02756 .22561 L
s
.02381 .28372 m
.02756 .28372 L
s
.02381 .31278 m
.02756 .31278 L
s
.02381 .34183 m
.02756 .34183 L
s
.02381 .39994 m
.02756 .39994 L
s
.02381 .42899 m
.02756 .42899 L
s
.02381 .45805 m
.02756 .45805 L
s
.02381 .51616 m
.02756 .51616 L
s
.02381 .54521 m
.02756 .54521 L
s
.02381 .57426 m
.02756 .57426 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66.0312 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(y) show
69.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.02499 .60331 L
.02605 .6033 L
.02729 .60328 L
.02846 .60325 L
.03053 .60318 L
.03279 .60307 L
.03527 .60291 L
.0379 .6027 L
.04262 .60221 L
.05205 .60084 L
.06244 .59873 L
.07293 .596 L
.0842 .59243 L
.10458 .58454 L
.1458 .56422 L
.18551 .54116 L
.22371 .51727 L
.26435 .49092 L
.30348 .46511 L
.34506 .43745 L
.38513 .41069 L
.42368 .3849 L
.46468 .35745 L
.50417 .331 L
.54214 .30556 L
.58257 .27847 L
.62148 .2524 L
.66284 .22469 L
.70268 .19799 L
.74101 .1723 L
.78179 .14498 L
.82106 .11867 L
.85881 .09337 L
.89901 .06643 L
.9377 .04051 L
.97619 .01472 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.35119 0.00459847 0.64881 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 0.603319 0.0535947 [
[.21429 .59082 -3 -9 ]
[.21429 .59082 3 0 ]
[.40476 .59082 -3 -9 ]
[.40476 .59082 3 0 ]
[.59524 .59082 -3 -9 ]
[.59524 .59082 3 0 ]
[.78571 .59082 -3 -9 ]
[.78571 .59082 3 0 ]
[.97619 .59082 -6 -9 ]
[.97619 .59082 6 0 ]
[1.025 .60332 0 -4.90625 ]
[1.025 .60332 10 4.90625 ]
[.01131 .06737 -18 -4.5 ]
[.01131 .06737 0 4.5 ]
[.01131 .17456 -12 -4.5 ]
[.01131 .17456 0 4.5 ]
[.01131 .28175 -12 -4.5 ]
[.01131 .28175 0 4.5 ]
[.01131 .38894 -12 -4.5 ]
[.01131 .38894 0 4.5 ]
[.01131 .49613 -12 -4.5 ]
[.01131 .49613 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .60332 m
.21429 .60957 L
s
[(2)] .21429 .59082 0 1 Mshowa
.40476 .60332 m
.40476 .60957 L
s
[(4)] .40476 .59082 0 1 Mshowa
.59524 .60332 m
.59524 .60957 L
s
[(6)] .59524 .59082 0 1 Mshowa
.78571 .60332 m
.78571 .60957 L
s
[(8)] .78571 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(10)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.07143 .60332 m
.07143 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.16667 .60332 m
.16667 .60707 L
s
.2619 .60332 m
.2619 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.35714 .60332 m
.35714 .60707 L
s
.45238 .60332 m
.45238 .60707 L
s
.5 .60332 m
.5 .60707 L
s
.54762 .60332 m
.54762 .60707 L
s
.64286 .60332 m
.64286 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.7381 .60332 m
.7381 .60707 L
s
.83333 .60332 m
.83333 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.92857 .60332 m
.92857 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
gsave
1.025 .60332 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .06737 m
.03006 .06737 L
s
[(-10)] .01131 .06737 1 0 Mshowa
.02381 .17456 m
.03006 .17456 L
s
[(-8)] .01131 .17456 1 0 Mshowa
.02381 .28175 m
.03006 .28175 L
s
[(-6)] .01131 .28175 1 0 Mshowa
.02381 .38894 m
.03006 .38894 L
s
[(-4)] .01131 .38894 1 0 Mshowa
.02381 .49613 m
.03006 .49613 L
s
[(-2)] .01131 .49613 1 0 Mshowa
.125 Mabswid
.02381 .09417 m
.02756 .09417 L
s
.02381 .12097 m
.02756 .12097 L
s
.02381 .14776 m
.02756 .14776 L
s
.02381 .20136 m
.02756 .20136 L
s
.02381 .22816 m
.02756 .22816 L
s
.02381 .25495 m
.02756 .25495 L
s
.02381 .30855 m
.02756 .30855 L
s
.02381 .33535 m
.02756 .33535 L
s
.02381 .36214 m
.02756 .36214 L
s
.02381 .41574 m
.02756 .41574 L
s
.02381 .44253 m
.02756 .44253 L
s
.02381 .46933 m
.02756 .46933 L
s
.02381 .52293 m
.02756 .52293 L
s
.02381 .54972 m
.02756 .54972 L
s
.02381 .57652 m
.02756 .57652 L
s
.02381 .04057 m
.02756 .04057 L
s
.02381 .01378 m
.02756 .01378 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(v) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .60332 m
.06244 .39909 L
.08255 .30853 L
.10458 .2271 L
.12507 .16822 L
.14415 .12645 L
.16457 .0933 L
.18314 .07131 L
.20229 .05483 L
.21218 .04823 L
.22307 .04219 L
.24291 .0338 L
.25377 .03033 L
.26394 .02765 L
.27432 .02539 L
.28419 .0236 L
.30271 .02101 L
.3123 .01998 L
.32252 .01906 L
.34091 .0178 L
.35119 .01726 L
.36232 .01678 L
.37193 .01644 L
.38249 .01613 L
.40243 .01569 L
.41332 .01551 L
.42349 .01537 L
.43394 .01526 L
.44384 .01516 L
.4624 .01503 L
.47205 .01498 L
.48231 .01493 L
.50073 .01487 L
.5101 .01484 L
.5202 .01482 L
.53848 .01479 L
.54805 .01478 L
.55852 .01477 L
.56958 .01476 L
.57962 .01475 L
.59923 .01474 L
.61001 .01474 L
.62018 .01473 L
.6299 .01473 L
.64019 .01473 L
.65865 .01472 L
.66808 .01472 L
.67822 .01472 L
.69653 .01472 L
.70667 .01472 L
Mistroke
.71771 .01472 L
.72826 .01472 L
.73781 .01472 L
.75752 .01472 L
.76834 .01472 L
.77851 .01472 L
.7883 .01472 L
.79863 .01472 L
.81711 .01472 L
.82661 .01472 L
.83679 .01472 L
.85514 .01472 L
.86534 .01472 L
.87642 .01472 L
.88599 .01472 L
.89655 .01472 L
.91636 .01472 L
.92721 .01472 L
.93738 .01472 L
.94724 .01472 L
.95761 .01472 L
.97612 .01472 L
.97619 .01472 L
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.678571 0.00459847 0.97619 0.188537 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 0.603319 0.0600616 [
[.21429 .59082 -3 -9 ]
[.21429 .59082 3 0 ]
[.40476 .59082 -3 -9 ]
[.40476 .59082 3 0 ]
[.59524 .59082 -3 -9 ]
[.59524 .59082 3 0 ]
[.78571 .59082 -3 -9 ]
[.78571 .59082 3 0 ]
[.97619 .59082 -6 -9 ]
[.97619 .59082 6 0 ]
[1.025 .60332 0 -4.90625 ]
[1.025 .60332 10 4.90625 ]
[.01131 .0027 -18 -4.5 ]
[.01131 .0027 0 4.5 ]
[.01131 .12283 -12 -4.5 ]
[.01131 .12283 0 4.5 ]
[.01131 .24295 -12 -4.5 ]
[.01131 .24295 0 4.5 ]
[.01131 .36307 -12 -4.5 ]
[.01131 .36307 0 4.5 ]
[.01131 .4832 -12 -4.5 ]
[.01131 .4832 0 4.5 ]
[.02381 .64303 -5 0 ]
[.02381 .64303 5 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .60332 m
.21429 .60957 L
s
[(2)] .21429 .59082 0 1 Mshowa
.40476 .60332 m
.40476 .60957 L
s
[(4)] .40476 .59082 0 1 Mshowa
.59524 .60332 m
.59524 .60957 L
s
[(6)] .59524 .59082 0 1 Mshowa
.78571 .60332 m
.78571 .60957 L
s
[(8)] .78571 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(10)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.07143 .60332 m
.07143 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.16667 .60332 m
.16667 .60707 L
s
.2619 .60332 m
.2619 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.35714 .60332 m
.35714 .60707 L
s
.45238 .60332 m
.45238 .60707 L
s
.5 .60332 m
.5 .60707 L
s
.54762 .60332 m
.54762 .60707 L
s
.64286 .60332 m
.64286 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.7381 .60332 m
.7381 .60707 L
s
.83333 .60332 m
.83333 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.92857 .60332 m
.92857 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
gsave
1.025 .60332 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(t) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .0027 m
.03006 .0027 L
s
[(-10)] .01131 .0027 1 0 Mshowa
.02381 .12283 m
.03006 .12283 L
s
[(-8)] .01131 .12283 1 0 Mshowa
.02381 .24295 m
.03006 .24295 L
s
[(-6)] .01131 .24295 1 0 Mshowa
.02381 .36307 m
.03006 .36307 L
s
[(-4)] .01131 .36307 1 0 Mshowa
.02381 .4832 m
.03006 .4832 L
s
[(-2)] .01131 .4832 1 0 Mshowa
.125 Mabswid
.02381 .03273 m
.02756 .03273 L
s
.02381 .06276 m
.02756 .06276 L
s
.02381 .0928 m
.02756 .0928 L
s
.02381 .15286 m
.02756 .15286 L
s
.02381 .18289 m
.02756 .18289 L
s
.02381 .21292 m
.02756 .21292 L
s
.02381 .27298 m
.02756 .27298 L
s
.02381 .30301 m
.02756 .30301 L
s
.02381 .33304 m
.02756 .33304 L
s
.02381 .3931 m
.02756 .3931 L
s
.02381 .42313 m
.02756 .42313 L
s
.02381 .45316 m
.02756 .45316 L
s
.02381 .51323 m
.02756 .51323 L
s
.02381 .54326 m
.02756 .54326 L
s
.02381 .57329 m
.02756 .57329 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(a) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 Mabswid
.02381 .01472 m
.02499 .01479 L
.02605 .01498 L
.02729 .01534 L
.02846 .01583 L
.03053 .01704 L
.03279 .01886 L
.03527 .02145 L
.0379 .02485 L
.04262 .03262 L
.05205 .05408 L
.06244 .08557 L
.10458 .25518 L
.12562 .33838 L
.14487 .40325 L
.16497 .45761 L
.18364 .49648 L
.20262 .52628 L
.22335 .54991 L
.24387 .56642 L
.26248 .57703 L
.28172 .58487 L
.29257 .58822 L
.30254 .59076 L
.32137 .59447 L
.33205 .59606 L
.34203 .59729 L
.35248 .59836 L
.36238 .5992 L
.38094 .60041 L
.39059 .60089 L
.40085 .60131 L
.41927 .6019 L
.42864 .60213 L
.43874 .60233 L
.45702 .60262 L
.46659 .60273 L
.47706 .60284 L
.48812 .60293 L
.49816 .60299 L
.51777 .60309 L
.52855 .60314 L
.53872 .60317 L
.54844 .60319 L
.55873 .60321 L
.57719 .60325 L
.58662 .60326 L
.59676 .60327 L
.61507 .60328 L
.62521 .60329 L
Mistroke
.63625 .60329 L
.6468 .6033 L
.65635 .6033 L
.67606 .60331 L
.68688 .60331 L
.69705 .60331 L
.70684 .60331 L
.71717 .60331 L
.73565 .60332 L
.74516 .60332 L
.75533 .60332 L
.77368 .60332 L
.78388 .60332 L
.79496 .60332 L
.80453 .60332 L
.81509 .60332 L
.8349 .60332 L
.84575 .60332 L
.85592 .60332 L
.86578 .60332 L
.87615 .60332 L
.89466 .60332 L
.90423 .60332 L
.91444 .60332 L
.93282 .60332 L
.94309 .60332 L
.95421 .60332 L
.97437 .60332 L
.97619 .60332 L
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{515.062, 99.4375},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFW41vFEUUX3rXOwWpPQ5oa6u5SiCEaETjVzVYxfARVIINEEJMY22qPRPU
VILYVhEEP6qm11aggnxY9H8xJvov+Kfg7ez1zd7r782+2durF9ibvpl57/fe
+83szO7cW2NnJyfOjJ2tjo9VDk2NfTJZHf+0cvDjqbootyEIOnJBEIxXgrB8
v15sXO7X/0WXzvASilsX/Gm+QoNB0KiJGg1F9S+GX/mwditoWQ6vHVRrSiXq
kSPZXtB3GbS7HjPKmm8Dsi3mmm+S1T9OcWezq1FV0AG0P0mwHg9Lb4el3Yk6
1phdigpDwEIpSkT9U26/J0w2QLY/99RmQrIYNXkJ1Hdj0IYhuWaulDNwpIcc
OUeMyrfg0g4l+bqZjDxDYyRLNm6n0teeOsxfC7KbAt3YKNf5103pzuEGTwFd
SP/FJEXc0wQnrTcoq2WyZtshlq6WTYMiNe0nCtpJLScGrVl2GRJT0hLzshJ+
nQ8FBRyhgTTDAUGcx/prcrRlxqRr100BQcCLQPZoovOY8ExNzdv1KpA9BGTb
iDPJ05YwjTQrXHComY/hNWGcpFIX4UgRshLAsajEwbq9D2QPA1k/DVXXxGBc
Q92XpOHGZD/KSCckgkIKakd2+L+rPYDHyeg+ULsZyH5OYdQYeI9Kw80MUxhA
EflB9updIBtWDr6aMw2eQEZJ2X6leWFCteTIJyAwjUZBo/1UK7qdfCtNEYN3
gOx1INsEZHPhVXH3REGZiyD1KFWcptrXnO02AtmCPnhJSGGsVZpPMa45OIRC
nY0PvaBKuEFYOKckturgoIwspqVLn/nyutMh+PuUrHsQyJaBrBPIvo8APOKK
1BrxSYJzUB/hDFD2eKG03DgOVLqQm04I7y9+eHtJWd6ZwBEgO+zs8UDr4NA0
e4yMHgO1aB18A8gKQPadbPQoGR2hEvIvjSmj7Kgy5G3y7w0CckKp7GbrRo8A
2QkCgjy95iQc6vEtDzQyelLpy1VzdYxHRIk4AlZ1iDoedzrmi0Uflz5Q5V6f
H2BMUSFAQ9wsxPLUIycZTETvubs/ILHOlViUgWtA5umAeaDVaeGqgmnXtyPK
EKLwa9EjSn8TQ78Ws8dS7lVy5bQSDlrRLJPzyIbDAb4Q9UQ/DGSiH8ZLlIhb
fpjt/Tpx7/8KlUadEUIx9UTlP4+8TLXoWUIGkNCEix7aTxAQZPR2CqNG2RCV
JpXURqbQAu+K7N8LQLaO5p8Hsqp3eD2NPgdkHyp9jlZO+AaC9o5xGManZ6lU
dahCw95lGj23uCxH4Bkp7IJ6cQ61dyJx99yAod01PA1kHwBTqK956pePBTBe
KXVCmKOXRal3ZnupNJEGEZpx+TZofbxhiux7tTNKOEjLDWcOEZMvxRyILVlU
mJ8Aso+aEYhYbjqGBHo+G8cJ5xIV4j2EacphH+G9myKeHjgNpj2g0zkHzhXQ
Hj08vxj16G3OsZia3UD2GfVAYUXBcQBB0+YuMjCdncf21rCTSrMZq2dVSDZL
xhvxXq1E9hD5v5LtDZLuC5he91LYMPoqVJoJS3Zno7OB3nVdkP14DMhm9IPo
FoPYEpYBFlNpJc2y+asE155HYrVfxgam4v7dD2TnyfFoIVGExF79viP5w2To
7WEDbNobNwIfTZYF3mn1e5n5hgctekv+RWqsTJFNzSVHJ9PnN9wAnSiY5Xn3
uIXZYzdXRLKEn9t6lejl/Wxr2d4OVM4BlHechEepnckqtfZgzU9UKhPjkAPs
yI54zFB7pGia08A9/EtUO98MmLVDaw/XkarWD4WhhaDDYTTnohnHuikey3Gd
Wmyjc1sy4clALBz2fIg9BCieDhOyaY82Wru+RxtFb5k5V2baS7Y+mURorWYj
iVLFpz7Jpa3t4xIawqhv1zrx3RHfTRTLq/q0Wy56BDbx2GaBtO4StSbHdHP7
BlI8jEbBRipdl1hgatH0bY+D8kPL0tpUOIK5E3RCM4xVxPcKnonMkH0FCoJ5
XTJj3QRbSR03CzSmbHayZGm06IWTv/teb2vRrgJBRFmUXUmWoRdlKLKWuOZx
SJF8a5nCRdZOMQS91oNGip55T1PtDkY0gd7pkfHdYvhHWBxURv//YkLmGTEF
8cGQ4sFAq4iatZnrX8SDhvIScdi5YcPO/Z0EWhoHdi4wNf/IepJ+RVUhTX+w
lqQ9eikX/dSIaeJPq8LP76SRPQypxfSY+hVHYlZw2Bq/hBnEtXdJtQ3VPUqQ
u68pvAl8rCV3O0LWlnhUYzGg5v9GIlM2l/Q/kgs2/AeDDahg\
\>"],ImageRangeCache->{{{0, 514.062}, {98.4375, 0}} -> {-0.0885924, \
-0.0144882, 0.00618055, 0.00618055}, {{14.3125, 166}, {96.0625, 2.3125}} -> \
{-3.1645, -18.6959, 0.0887368, 1.45437}, {{181.188, 332.875}, {96.0625, \
2.3125}} -> {-17.2723, -12.0391, 0.0860544, 0.152919}, {{348, 499.688}, \
{96.0625, 2.3125}} -> {-31.6272, -11.0274, 0.0860544, 0.136454}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\" \"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"d) Terminal velocity is reached when a-> 0.\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"Set x''=0 in the eqn of motion, and  \
\\!\\(v\\_term\\)=\\!\\(\\@\\(2  mg/\\((c \[Rho] \[Pi] r\\^2)\\)\\)\\)  \
\"\>"], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"For the baseball, \\!\\(v\\_term\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["32.2328967274953503`",
    StyleBoxAutoDelete->True,
    PrintPrecision->3]}],
  SequenceForm["For the baseball, \!\(v\_term\) = ", 32.23289672749535],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"For the ping-pong ball, \\!\\(v\\_term\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["7.98819100884558608`",
    StyleBoxAutoDelete->True,
    PrintPrecision->3]}],
  SequenceForm["For the ping-pong ball, \!\(v\_term\) = ", 7.988191008845586],
  
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"For the raindrop, \\!\\(v\\_term\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["10.9825035677383064`",
    StyleBoxAutoDelete->True,
    PrintPrecision->3]}],
  SequenceForm["For the raindrop, \!\(v\_term\) = ", 10.982503567738306`],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData["\<\"From the plots, the  lighter objects (the ping-pong ball \
and rain drop) each reach terminal velocity.  The massive baseball does not\"\
\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"e) The baseball's mass (interia) requires a greater net \
external  force to slow it significantly - drag can't supply it.  On the \
other   hand\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"f)\"\>"], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"For the small drop, \\!\\(v\\_term\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["8.96717661308488089`",
    StyleBoxAutoDelete->True,
    PrintPrecision->3]}],
  SequenceForm["For the small drop, \!\(v\_term\) = ", 8.967176613084881],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"For the big drop, \\!\\(v\\_term\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["12.6815027824194737`",
    StyleBoxAutoDelete->True,
    PrintPrecision->3]}],
  SequenceForm["For the big drop, \!\(v\_term\) = ", 12.681502782419473`],
  Editable->False]], "Print",
 FontSize->12],

Cell[BoxData["\<\"Obviously, size matters 8*) \"\>"], "Print",
 FontSize->12]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"#6", ")"}], "  ", "We", " ", "can", " ", "borrow", " ", "much", 
  " ", "of", " ", "the", " ", "work", " ", "we", " ", "did", " ", "in", " ", 
  "problem", " ", "3", " ", "to", " ", "use", " ", 
  RowBox[{"here", "."}]}]], "Input",
 FontSize->12,
 Background->RGBColor[0, 1, 1]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", 
   RowBox[{"(*", "****************************************************)"}], 
   "\n", "\n"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Solve", " ", "the", " ", "equations", " ", "of", " ", "motion"}], 
   " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eqn241", "[", "t_", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"m", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
     RowBox[{"k", " ", "m", " ", 
      RowBox[{
       RowBox[{"x", "'"}], "[", "t", "]"}]}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"eqn242", "[", "t_", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"m", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "'"}], "'"}], "[", "t", "]"}]}], " ", "+", " ", 
     RowBox[{"k", " ", "m", " ", 
      RowBox[{
       RowBox[{"y", "'"}], "[", "t", "]"}]}], " ", "+", " ", 
     RowBox[{"m", " ", "g"}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"xysoln", " ", "=", " ", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"eqn241", "[", "t", "]"}], "==", "0"}], ",", 
         RowBox[{
          RowBox[{"eqn242", "[", "t", "]"}], "==", "0"}], ",", 
         RowBox[{
          RowBox[{"x", "[", "0", "]"}], "==", "0"}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], "==", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "'"}], "[", "0", "]"}], "==", "U"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "0", "]"}], "==", "V"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "of", " ", "flight"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"tsoln", " ", "=", " ", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"y", "[", "t", "]"}], "==", "0"}], "}"}], "/.", "xysoln"}], 
       ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", "****************************************************)"}], 
  "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"At", " ", "this", " ", "point"}], ",", " ", 
    RowBox[{
    "provided", " ", "I", " ", "specify", " ", "some", " ", "parameters"}], 
    ",", " ", 
    RowBox[{
    "I", " ", "\n", "\t\t   ", "ought", " ", "to", " ", "be", " ", "able", 
     " ", "to", " ", "plot", " ", "y", " ", "vs", " ", "x", " ", 
     RowBox[{"parametrically", "!"}]}]}], " ", "*)"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Parameter", " ", "Block"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"g", "=", "9.8"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"v0", "=", "600"}], ";"}], "\n", 
  RowBox[{
   RowBox[{"\[Theta]", "=", 
    RowBox[{"60", " ", "Degree"}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"U", "=", 
    RowBox[{"v0", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"V", "=", 
    RowBox[{"v0", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"tlo", "=", "0"}], ";"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"thi", "[", "k_", "]"}], "=", 
    RowBox[{"t", "/.", "tsoln"}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"For", " ", "fun"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"let", "'"}], "s", " ", "use", " ", "co"}], "-", 
     RowBox[{"indexed", " ", "arrays"}]}]}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"each", " ", "k"}], "-", 
    RowBox[{"value", " ", "gets", " ", "its", " ", "own", " ", "color"}]}], 
   " ", "*)"}], "\n", "\n", 
  RowBox[{
   RowBox[{"klist", "=", 
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]], ",", "0.005", ",", "0.01", ",", "0.02", ",", 
      "0.04", ",", "0.08"}], "}"}]}], ";"}], "\n", 
  RowBox[{
   RowBox[{"color", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "1"}], "]"}]}], "}"}]}], ";"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"We", " ", "can", " ", "now", " ", "create", " ", 
    RowBox[{"plot", "[", "i_", "]"}], " ", "and", " ", "apply", " ", "it", 
    " ", "\n", "\t\t   ", "uniformly", " ", "over", " ", "the", " ", "array", 
    " ", "of", " ", 
    RowBox[{"k", "'"}], "s"}], "  ", "*)"}], "\n", "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{" ", 
             RowBox[{"note", " ", "the", " ", "use", " ", "i"}], ")"}], " ", 
            RowBox[{"Evaluate", "[", "]"}]}], ",", " ", "ii"}], ")"}], " ", 
         "the", " ", "double", " ", "replacement"}], ",", " ", "and"}], " ", 
       "\n", "\t\t   ", "iii"}], ")"}], " ", "the", " ", "co"}], "-", 
    RowBox[{"indexed", " ", "arrays"}]}], " ", "*)"}], "\n", "\n", 
  RowBox[{
   RowBox[{"plot", "[", "i_", "]"}], ":=", " ", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "xysoln"}], "/.", 
       RowBox[{"k", "->", 
        RowBox[{"klist", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "tlo", ",", 
       RowBox[{"thi", "[", 
        RowBox[{"klist", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"color", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}]}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"HA", "!!"}], "!"}], "  ", "Found", " ", "the", " ", "problem", 
     " ", "with", " ", "DisplayFunction"}], " ", "-", " ", 
    RowBox[{
    "it", " ", "has", " ", "to", " ", "be", " ", "turned", "\n", "\t\t   ", 
     "back"}], " ", "+", "on", "+", " ", 
    RowBox[{"to", " ", "actually", " ", "display", " ", "the", " ", 
     RowBox[{"plots", ".", "  ", "Note"}], " ", "the", " ", "option", " ", 
     "in", " ", 
     RowBox[{"Show", "[", "]"}]}]}], " ", "*)"}], "\n"}], "\n", 
 RowBox[{"Print", "[", "\"\<Gravity's Rainbow with Damping\>\"", 
  "]"}], "\n", 
 RowBox[{"Print", "[", "\"\< red k=0,   green k=0.005,   blue k=0.01\>\"", 
  "]"}], "\n", 
 RowBox[{
  RowBox[{
  "Print", "[", "\"\<black k=0.02,   violet k=0.04,   cyan k=0.08\>\"", "]"}],
   "\n"}], "\n", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"plot", "[", "1", "]"}], ",", 
      RowBox[{"plot", "[", "2", "]"}], ",", 
      RowBox[{"plot", "[", "3", "]"}], ",", 
      RowBox[{"plot", "[", "4", "]"}], ",", 
      RowBox[{"plot", "[", "5", "]"}], ",", 
      RowBox[{"plot", "[", "6", "]"}]}], "}"}], ",", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
    RowBox[{"DisplayFunction", "->", "$DisplayFunction"}]}], "]"}], "\n", 
  "\n", 
  RowBox[{"(*", "****************************************************)"}], 
  "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"One", " ", "more", " ", "plot"}], " ", "-", " ", 
    RowBox[{"Range", " ", "vs", " ", "k"}]}], " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"range", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "xysoln"}], "/.", "tsoln"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"approx", "[", "k_", "]"}], " ", ":=", " ", 
   RowBox[{"2", " ", "U", " ", 
    RowBox[{"V", "/", "g"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", "k", " ", 
       RowBox[{"V", "/", 
        RowBox[{"(", 
         RowBox[{"3", " ", "g"}], ")"}]}]}]}], ")"}]}]}], " ", "\n"}], "\n", 
 RowBox[{"plot1", ":=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"range", "[", "k", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", ".1"}], "}"}], ",", 
    RowBox[{"PlotStyle", "->", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], ",", 
    RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"plot2", ":=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"approx", "[", "k", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", ".1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], ",", 
     RowBox[{"DisplayFunction", "->", "Identity"}]}], "]"}]}], "\n"}], "\n", 
 RowBox[{"Print", "[", "\"\<Range vs damping\>\"", "]"}], "\n", 
 RowBox[{"Print", "[", "\"\<red=full solution, green=linearization\>\"", 
  "]"}], "\n", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plot1", ",", "plot2"}], "}"}], ",", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"\"\<k\>\"", ",", "\"\<Range\>\""}], "}"}]}], ",", 
    RowBox[{"DisplayFunction", "->", "$DisplayFunction"}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0.1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "35000"}], "}"}]}], "}"}]}]}], "]"}], 
  "\n"}]}], "Input",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"Gravity's Rainbow with Damping\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\" red k=0,   green k=0.005,   blue k=0.01\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"black k=0.02,   violet k=0.04,   cyan k=0.08\"\>"], "Print",
 FontSize->12],

Cell[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 2.99369e-05 0.014716 4.2728e-05 [
[.17349 .00222 -12 -9 ]
[.17349 .00222 12 0 ]
[.32318 .00222 -15 -9 ]
[.32318 .00222 15 0 ]
[.47286 .00222 -15 -9 ]
[.47286 .00222 15 0 ]
[.62255 .00222 -15 -9 ]
[.62255 .00222 15 0 ]
[.77223 .00222 -15 -9 ]
[.77223 .00222 15 0 ]
[.92192 .00222 -15 -9 ]
[.92192 .00222 15 0 ]
[1.025 .01472 0 -4.90625 ]
[1.025 .01472 10 4.90625 ]
[.01131 .10017 -24 -4.5 ]
[.01131 .10017 0 4.5 ]
[.01131 .18563 -24 -4.5 ]
[.01131 .18563 0 4.5 ]
[.01131 .27108 -24 -4.5 ]
[.01131 .27108 0 4.5 ]
[.01131 .35654 -24 -4.5 ]
[.01131 .35654 0 4.5 ]
[.01131 .442 -30 -4.5 ]
[.01131 .442 0 4.5 ]
[.01131 .52745 -30 -4.5 ]
[.01131 .52745 0 4.5 ]
[.01131 .61291 -30 -4.5 ]
[.01131 .61291 0 4.5 ]
[.02381 .64303 -5.03125 0 ]
[.02381 .64303 5.03125 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.17349 .01472 m
.17349 .02097 L
s
[(5000)] .17349 .00222 0 1 Mshowa
.32318 .01472 m
.32318 .02097 L
s
[(10000)] .32318 .00222 0 1 Mshowa
.47286 .01472 m
.47286 .02097 L
s
[(15000)] .47286 .00222 0 1 Mshowa
.62255 .01472 m
.62255 .02097 L
s
[(20000)] .62255 .00222 0 1 Mshowa
.77223 .01472 m
.77223 .02097 L
s
[(25000)] .77223 .00222 0 1 Mshowa
.92192 .01472 m
.92192 .02097 L
s
[(30000)] .92192 .00222 0 1 Mshowa
.125 Mabswid
.05375 .01472 m
.05375 .01847 L
s
.08368 .01472 m
.08368 .01847 L
s
.11362 .01472 m
.11362 .01847 L
s
.14356 .01472 m
.14356 .01847 L
s
.20343 .01472 m
.20343 .01847 L
s
.23337 .01472 m
.23337 .01847 L
s
.2633 .01472 m
.2633 .01847 L
s
.29324 .01472 m
.29324 .01847 L
s
.35312 .01472 m
.35312 .01847 L
s
.38305 .01472 m
.38305 .01847 L
s
.41299 .01472 m
.41299 .01847 L
s
.44293 .01472 m
.44293 .01847 L
s
.5028 .01472 m
.5028 .01847 L
s
.53274 .01472 m
.53274 .01847 L
s
.56267 .01472 m
.56267 .01847 L
s
.59261 .01472 m
.59261 .01847 L
s
.65248 .01472 m
.65248 .01847 L
s
.68242 .01472 m
.68242 .01847 L
s
.71236 .01472 m
.71236 .01847 L
s
.74229 .01472 m
.74229 .01847 L
s
.80217 .01472 m
.80217 .01847 L
s
.83211 .01472 m
.83211 .01847 L
s
.86204 .01472 m
.86204 .01847 L
s
.89198 .01472 m
.89198 .01847 L
s
.95185 .01472 m
.95185 .01847 L
s
.98179 .01472 m
.98179 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
gsave
1.025 .01472 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(x) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.02381 .10017 m
.03006 .10017 L
s
[(2000)] .01131 .10017 1 0 Mshowa
.02381 .18563 m
.03006 .18563 L
s
[(4000)] .01131 .18563 1 0 Mshowa
.02381 .27108 m
.03006 .27108 L
s
[(6000)] .01131 .27108 1 0 Mshowa
.02381 .35654 m
.03006 .35654 L
s
[(8000)] .01131 .35654 1 0 Mshowa
.02381 .442 m
.03006 .442 L
s
[(10000)] .01131 .442 1 0 Mshowa
.02381 .52745 m
.03006 .52745 L
s
[(12000)] .01131 .52745 1 0 Mshowa
.02381 .61291 m
.03006 .61291 L
s
[(14000)] .01131 .61291 1 0 Mshowa
.125 Mabswid
.02381 .03608 m
.02756 .03608 L
s
.02381 .05744 m
.02756 .05744 L
s
.02381 .07881 m
.02756 .07881 L
s
.02381 .12154 m
.02756 .12154 L
s
.02381 .1429 m
.02756 .1429 L
s
.02381 .16426 m
.02756 .16426 L
s
.02381 .20699 m
.02756 .20699 L
s
.02381 .22836 m
.02756 .22836 L
s
.02381 .24972 m
.02756 .24972 L
s
.02381 .29245 m
.02756 .29245 L
s
.02381 .31381 m
.02756 .31381 L
s
.02381 .33518 m
.02756 .33518 L
s
.02381 .3779 m
.02756 .3779 L
s
.02381 .39927 m
.02756 .39927 L
s
.02381 .42063 m
.02756 .42063 L
s
.02381 .46336 m
.02756 .46336 L
s
.02381 .48472 m
.02756 .48472 L
s
.02381 .50609 m
.02756 .50609 L
s
.02381 .54882 m
.02756 .54882 L
s
.02381 .57018 m
.02756 .57018 L
s
.02381 .59154 m
.02756 .59154 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -66.0312 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(y) show
69.062500 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .01472 m
.06244 .10636 L
.10458 .19745 L
.14415 .27462 L
.18221 .34117 L
.22272 .40374 L
.26171 .45592 L
.30316 .50274 L
.34309 .53941 L
.3815 .56686 L
.40095 .57785 L
.42237 .58767 L
.44268 .59479 L
.45178 .59728 L
.46172 .5995 L
.4671 .6005 L
.4721 .60129 L
.47727 .60198 L
.48196 .60247 L
.48418 .60267 L
.48658 .60285 L
.49093 .60309 L
.49218 .60315 L
.49335 .6032 L
.49457 .60324 L
.49591 .60327 L
.49707 .6033 L
.49812 .6033 L
.49934 .60332 L
.50049 .60332 L
.50163 .60331 L
.50286 .60329 L
.50508 .60324 L
.50637 .6032 L
.50772 .60316 L
.51014 .60305 L
.51137 .60298 L
.51268 .6029 L
.51504 .60272 L
.5204 .60223 L
.52536 .60165 L
.53005 .60097 L
.53882 .5994 L
.55883 .59433 L
.57729 .58781 L
.59605 .57937 L
.61669 .56796 L
.65703 .53932 L
.69585 .50375 L
.73713 .45736 L
Mistroke
.77689 .4043 L
.81513 .34553 L
.85583 .27466 L
.89501 .19829 L
.93665 .10841 L
.97619 .01472 L
Mfstroke
0 1 0 r
.02381 .01472 m
.05918 .09887 L
.09697 .18129 L
.13172 .24998 L
.16447 .30824 L
.19864 .36202 L
.23087 .40593 L
.26442 .44432 L
.29607 .4734 L
.32591 .49421 L
.34109 .50224 L
.35702 .50878 L
.36409 .51104 L
.37166 .51303 L
.37877 .51448 L
.38524 .51545 L
.38875 .51583 L
.39068 .516 L
.39249 .51613 L
.39418 .51622 L
.39507 .51627 L
.39601 .5163 L
.3968 .51633 L
.39767 .51635 L
.39846 .51636 L
.39919 .51637 L
.40013 .51638 L
.40067 .51637 L
.40116 .51637 L
.40206 .51636 L
.40302 .51634 L
.40387 .51632 L
.40467 .51629 L
.40649 .51621 L
.40845 .51609 L
.41024 .51596 L
.41427 .51555 L
.4177 .51509 L
.42135 .5145 L
.4279 .51315 L
.43565 .51107 L
.44266 .50874 L
.4562 .503 L
.47072 .49501 L
.49885 .47398 L
.52538 .4472 L
.55039 .41551 L
.57648 .37551 L
.60109 .33103 L
.62672 .27745 L
Mistroke
.6509 .21983 L
.67369 .15894 L
.69746 .0884 L
.71988 .01499 L
.71996 .01472 L
Mfstroke
0 0 1 r
.02381 .01472 m
.05675 .09325 L
.09129 .16909 L
.12248 .23135 L
.15136 .28333 L
.18097 .3305 L
.20839 .36822 L
.23642 .4004 L
.26239 .42396 L
.28644 .43999 L
.29851 .44581 L
.30459 .44815 L
.31106 .45019 L
.31706 .45167 L
.32249 .45265 L
.32509 .45299 L
.32646 .45315 L
.32791 .45328 L
.3293 .45339 L
.33056 .45347 L
.33117 .4535 L
.33182 .45352 L
.33243 .45355 L
.33301 .45356 L
.33372 .45358 L
.33436 .45358 L
.33505 .45359 L
.33544 .45358 L
.3358 .45358 L
.3364 .45357 L
.33706 .45356 L
.33775 .45354 L
.3384 .45351 L
.33987 .45344 L
.34122 .45335 L
.34426 .45306 L
.34699 .4527 L
.34996 .4522 L
.3559 .45086 L
.3615 .44918 L
.36654 .44732 L
.37768 .44195 L
.38768 .43564 L
.39832 .42731 L
.41863 .40655 L
.43745 .38124 L
.45488 .35217 L
.47275 .3163 L
.4893 .27717 L
.50623 .2308 L
Mistroke
.52191 .18166 L
.53643 .13042 L
.55131 .07175 L
.56437 .01472 L
Mfstroke
0 0 0 r
.02381 .01472 m
.0533 .08525 L
.08325 .15159 L
.10943 .20452 L
.13295 .24746 L
.15631 .28513 L
.17728 .31411 L
.19805 .3376 L
.2079 .3467 L
.21668 .3536 L
.22546 .35926 L
.23341 .36326 L
.23749 .36486 L
.24116 .36604 L
.24518 .36703 L
.24736 .36743 L
.24842 .36759 L
.24941 .36772 L
.25036 .36782 L
.25138 .36791 L
.2523 .36797 L
.25271 .36799 L
.25315 .36801 L
.25362 .36803 L
.25406 .36804 L
.25433 .36804 L
.25458 .36804 L
.25506 .36804 L
.25556 .36804 L
.25602 .36803 L
.25626 .36802 L
.25652 .36802 L
.25706 .36799 L
.25796 .36794 L
.25878 .36788 L
.26063 .36768 L
.26224 .36744 L
.26392 .36713 L
.2674 .36626 L
.27105 .36503 L
.27746 .36203 L
.28466 .35731 L
.29121 .35169 L
.30309 .33796 L
.31487 .31926 L
.32544 .29753 L
.33494 .27343 L
.34438 .24455 L
.35286 .21382 L
.36126 .1782 L
Mistroke
.36879 .14122 L
.37556 .10335 L
.38228 .06072 L
.38831 .01758 L
.38868 .01472 L
Mfstroke
1 0 1 r
.02381 .01472 m
.04921 .07569 L
.07364 .13031 L
.09385 .17165 L
.11108 .20338 L
.12731 .22949 L
.14112 .24802 L
.14754 .25521 L
.15407 .26144 L
.15948 .26565 L
.16241 .26753 L
.16507 .26898 L
.16771 .27015 L
.17005 .27095 L
.1713 .27129 L
.17247 .27154 L
.17369 .27173 L
.17437 .27181 L
.17468 .27184 L
.175 .27187 L
.17529 .27188 L
.17544 .27189 L
.1756 .2719 L
.17588 .27191 L
.17615 .27191 L
.17631 .27191 L
.17648 .27191 L
.17664 .27191 L
.17679 .27191 L
.17707 .2719 L
.17721 .2719 L
.17737 .27189 L
.17791 .27186 L
.17821 .27183 L
.17849 .2718 L
.17953 .27166 L
.18045 .27148 L
.18144 .27124 L
.1834 .27059 L
.18544 .26966 L
.18723 .26861 L
.19108 .26558 L
.1944 .26203 L
.19777 .2574 L
.20381 .24608 L
.20894 .23271 L
.21331 .21782 L
.21744 .20002 L
.22095 .18123 L
.22425 .15965 L
Mistroke
.22705 .13751 L
.22943 .11509 L
.23168 .09016 L
.23359 .06525 L
.23538 .03791 L
.23669 .01472 L
Mfstroke
0 1 1 r
.02381 .01472 m
.04521 .06625 L
.06392 .10834 L
.07798 .13709 L
.0889 .15684 L
.09828 .17099 L
.10196 .17552 L
.10555 .17921 L
.10734 .18073 L
.10891 .18185 L
.11041 .18271 L
.11111 .18305 L
.11174 .1833 L
.11231 .18349 L
.11291 .18365 L
.11324 .18372 L
.11354 .18377 L
.11382 .1838 L
.11396 .18382 L
.11411 .18383 L
.11419 .18384 L
.11428 .18384 L
.11443 .18385 L
.11452 .18385 L
.11461 .18385 L
.11469 .18385 L
.11477 .18385 L
.11492 .18385 L
.11501 .18384 L
.11508 .18384 L
.11523 .18383 L
.11538 .18381 L
.11565 .18378 L
.1159 .18374 L
.11646 .18361 L
.11695 .18345 L
.11748 .18323 L
.11851 .18265 L
.11941 .18196 L
.1202 .18119 L
.12188 .179 L
.12325 .17654 L
.12453 .17357 L
.12577 .16991 L
.12682 .16612 L
.12784 .16157 L
.12944 .15234 L
.13075 .14191 L
.13177 .13111 L
.13264 .11899 L
Mistroke
.13331 .1068 L
.13383 .09469 L
.13428 .08149 L
.13463 .06851 L
.13492 .0545 L
.13515 .04082 L
.13532 .02754 L
.13546 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnPlz00YUxxXLdg4n4UiCHQKJc5KDEK4ECJT7hlCgUOg1JTDMQKcdWqDT
mU5n+kv/of5t7Y9NVbTaXa3k766esyvbYeo29rJevff5vreXZNkbm+9fvfxh
8/3rF5v1G283f3z1+sW7+vU3bz9U+V2e11X3PO/PuheWgw9F/hR8+D+YDJ/C
muzyevjih4cWw1JBV+oPS8Ww5BvbxaU+eUSB6KO3BT76iJbjUi0K1Cfshfli
JVbJ/TZZ7SeqK+y5lKjjzbdlneS0F9QV83JWBnW+O2cN1UhcOV9x+QjRVFf/
75GWzrpBXZ4Z6wP+SvlGMs8emfQ3Er0ZryROxvZA+zphMe3Unaq+j1IVc1Bw
Zs487a0DhTu9x2GnTmaISo4ZQYL6cNMdqYXPbJPgrX159cKK26FpGrGKlxyE
9OSeLM3Gj5TanSqxmtElCadPg+DYgvGI1Glg41JC8Nr8iVdFlvzcfNT04fxL
NuKdRTyK+mP+TtWFj2jm88bClzI35ynmaqBuRLj14roN0U6pm5bHyirvnDw2
fvgyOnCHHWuJU8rfQs2z6/yUvfCBzgLRsSVhwXPDUtK1K8TZIR5h441nzq09
fV2Y/vx0uLEneonoqeG/+vUjSB1womPVQMcdAR1oCrifB2mR7YK43TkFU9T1
yw6UPTm4YD0EWKeJrJpdjNcipLMAaV+HI8ULHC9UiVRoUaD2M0RVxVQ8WDZU
NrFqP9U6oEqs5eCMKlB27R8/GuphCG1URSsDNFYxYkE3ZxG4BB26XpdEGupw
TC8fTGqu9+sx0zu28G8vEbPuuEs2ibkH1O0jYlKTfgZgjlEw4+UfYbrum01i
FgHS7hb0TYR5gIjpdQQm+wCBcEZqPL1Q0HcR5dj04dNAzkFFDuzDlpcr4kjI
0z8lia5VU5PIVfcAs04u0hhPgJQpoRX6UdbHI1DTtWf7i6fGT4IVb4OgroVB
0Fyvzlt/3Als9M9aDAKuv9udftI4kFONInegBSFAXWAiAmXzAOFiIZrMuxVX
XmfIQUteD0DqJ2JOAHto4E0SMesETC+Opg2mTTQNmL0AqQLqhi2STo3mJAFT
iWYHYvYBJFTnGvMUwJwiYCrRtMGcsYgmBTNoLSaK5rQes6LUCSw0SbUi6W3G
rANMlHQDZj/ARAttK5I+Q8MMIjudiDmg1AksdNJmswqhpCPMWRqmiGYHYg4C
THThgYqJkk7FjLYt8F5D8yfgaOsXCSsmhHlh+0Zt6HJUrtpyPaljEdmtvstx
meia51brGtAaXV2MTqdK21VGOl3ZBWSOAYXjjrOpKmwkdXdtJoWMsjragoRG
n5E1XIfaUVongFaUWq41PuvMTeEeoJA6PKeBQmo2FyIoN9MsVYTNCDSIQEva
XoBUtUBCPQchLTaHRF11bFJtQBoCSNRFHiFRo7REQ+JQ7UYaVuu8ZF1WX6Im
bhUgHSYgBXGchgCS6ygZkEaUOpG4vY6RUJSWs5CKcZQCBrIbUNXB4VNEKhQo
A5V6X7IIFEJyHagjWUgNgRoEVChQiGocUKFAGaiqmGqASEVNH4rVShZVSUDJ
+vC/ChHNJo0GtBpHSwSMo/VZoKFcIrSjWWhFThaI9wqhlx4LNGrUOJrN5wij
iitRXwDovhQ2TRRBje+xSETunwexEOxXAIRmJq2sk4b2TZ0mLYW8X8ETIpcc
Z+24Is2XUcxDzZhCKeoXLdScBGpOqIlKms1dl9oVFyw6YKfoOgB63zxoZ5Ov
qC6a+OLe19TEd0AxmzMmWjoOgijNOXa/muU+Xrl4PmctCE4AgjU9gWpCBGDG
wj0KgMH9BHBvs7Ih9aey3au9D91ZbqPe4L6umBDuUTsb9aez3Df0vgnQFM1+
BwEBCoCBQN5CHiQIqCe71BicySIoJWLAKeIpdBuBQBjreowpA8YYaG8TjUwM
X+mP+EamKqizicxZPdI0EWmEiESNkgFpRkXiphHSMBGJGqVzRCT+FC/GQ0QQ
FJvjACT66RGrE55ZAIy2MYPSCrqlnBo5Dtyak5tDKSidtPgLrugrQtRcnG+R
tBT8nIIinkpSEPquKRJJzd/5dIfLbdt8COhin8L58ghWWgRqqCm70J6Uzafw
wgKLKPsIdclC0MV2CirKXHFRa0DJRHNKbGa2BUy1Cqio8b0UGUET/6LSXDyd
JLpCIy3TVYOw48AbNdyX9d6WsLdjFmG8ovd2GHtbsYgk0RtrFLk9YhHJq3pv
y1jbsoU2g7cjSnNhJhwrAXXGRP6u6f1FKSol/HGFcMmhBvR6lks/kb4CcEX9
rBe5v6F3f1TnnoWZeiEbhdng9Bhw6ptcKXV1ouabevdqc2FG7m+DcQunt2hO
heYScDUqQdDN5cjpbd5Fff4aPeKdzTaXnnROJTCDqwF0dLskAr4T2fP5YFOd
CgW5/QwTqktfZwgLZaBvGNShJKW7d/h3t92aWZ7Tn2vqlO6ReZ4B+lBO264v
VbfKD1cZxe47NBpUZGmWKHGjwySuYYnsTqkQL7p7lElM79Z1Eu9xhqJUxB9O
TpGa2I2je90KIb78SbNgiajpUzVtuoHR/PR4mncD1ZUYUqeIaPejI9ByccZg
fpVo/oHe/LrB/AlgHi3wmebT6Ws0u0J09VDvCv2miMhrvIHMcvCZ3gH6GRwf
mF2QTtFnq4/0Dj4hOkhfCgr/0CXyx3pX53WuGPcc0cHnegcXQPOidDAlS2h8
N2m2LI2hHSm6g+eJ3sFF0LxbOhiTJfRdmqd6s5dA8x5prCpL6Du1X+jNXgbN
4+8RxnVsGWdVaEB+qXdwReegHBoT13nw2PhKb/YqaM6uyfaGxlCSv46Mob2t
XN0ydrlo8r4WvfvB4iNZ+jZyYVrenfzwKFrubgDp90FdgjF7h+D4WvQtQHQP
1D3TU7rePGXHAEHfBXWbeuiiizBSeW8DNlT3nBtu+1btjhxBN2XpZUY/3eae
awPEAc0p3D2agu5Jxsuy9ErfHA1CtIgaTDwAzdG8+Vpv4qFEXZel7/XNHwHr
aD00mHgs/ZyUpTf65k+A9RV54E/6A5/KRsuy9E7fnC1ZzM28bP6zvvk3svmU
LP2ib/5M2hyXpV/1zZ9LmzVZ+k3fnHVKtuMelKXf9c2/C58Hw0Z/8NEH1kA0
Hpv/Vsw/+tHagvmaYW3pEfL9Tl5Cu8ZQK5erBE83dCxenUz0rCDWkIa1JO43
zp3pe1sz3TngQym0yMqT5vJ48siuqLYO/G4pb7ED/o0qJrC0Lft3Y7bUUN+i
6/O6/gM7kXRH\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-4530.4, -1252.2, 137.09, \
96.0506}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData["\<\"Range vs damping\"\>"], "Print",
 FontSize->12],

Cell[BoxData["\<\"red=full solution, green=linearization\"\>"], "Print",
 FontSize->12],

Cell[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 10 0 1.76581e-05 [
[.2 -0.0125 -12 -9 ]
[.2 -0.0125 12 0 ]
[.4 -0.0125 -12 -9 ]
[.4 -0.0125 12 0 ]
[.6 -0.0125 -12 -9 ]
[.6 -0.0125 12 0 ]
[.8 -0.0125 -12 -9 ]
[.8 -0.0125 12 0 ]
[1 -0.0125 -9 -9 ]
[1 -0.0125 9 0 ]
[1.025 0 0 -4.90625 ]
[1.025 0 10 4.90625 ]
[-0.0125 .08829 -24 -4.5 ]
[-0.0125 .08829 0 4.5 ]
[-0.0125 .17658 -30 -4.5 ]
[-0.0125 .17658 0 4.5 ]
[-0.0125 .26487 -30 -4.5 ]
[-0.0125 .26487 0 4.5 ]
[-0.0125 .35316 -30 -4.5 ]
[-0.0125 .35316 0 4.5 ]
[-0.0125 .44145 -30 -4.5 ]
[-0.0125 .44145 0 4.5 ]
[-0.0125 .52974 -30 -4.5 ]
[-0.0125 .52974 0 4.5 ]
[-0.0125 .61803 -30 -4.5 ]
[-0.0125 .61803 0 4.5 ]
[0 .64303 -17 0 ]
[0 .64303 17 9.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2 0 m
.2 .00625 L
s
[(0.02)] .2 -0.0125 0 1 Mshowa
.4 0 m
.4 .00625 L
s
[(0.04)] .4 -0.0125 0 1 Mshowa
.6 0 m
.6 .00625 L
s
[(0.06)] .6 -0.0125 0 1 Mshowa
.8 0 m
.8 .00625 L
s
[(0.08)] .8 -0.0125 0 1 Mshowa
1 0 m
1 .00625 L
s
[(0.1)] 1 -0.0125 0 1 Mshowa
.125 Mabswid
.05 0 m
.05 .00375 L
s
.1 0 m
.1 .00375 L
s
.15 0 m
.15 .00375 L
s
.25 0 m
.25 .00375 L
s
.3 0 m
.3 .00375 L
s
.35 0 m
.35 .00375 L
s
.45 0 m
.45 .00375 L
s
.5 0 m
.5 .00375 L
s
.55 0 m
.55 .00375 L
s
.65 0 m
.65 .00375 L
s
.7 0 m
.7 .00375 L
s
.75 0 m
.75 .00375 L
s
.85 0 m
.85 .00375 L
s
.9 0 m
.9 .00375 L
s
.95 0 m
.95 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
1.025 0 -61 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(k) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 .08829 m
.00625 .08829 L
s
[(5000)] -0.0125 .08829 1 0 Mshowa
0 .17658 m
.00625 .17658 L
s
[(10000)] -0.0125 .17658 1 0 Mshowa
0 .26487 m
.00625 .26487 L
s
[(15000)] -0.0125 .26487 1 0 Mshowa
0 .35316 m
.00625 .35316 L
s
[(20000)] -0.0125 .35316 1 0 Mshowa
0 .44145 m
.00625 .44145 L
s
[(25000)] -0.0125 .44145 1 0 Mshowa
0 .52974 m
.00625 .52974 L
s
[(30000)] -0.0125 .52974 1 0 Mshowa
0 .61803 m
.00625 .61803 L
s
[(35000)] -0.0125 .61803 1 0 Mshowa
.125 Mabswid
0 .01766 m
.00375 .01766 L
s
0 .03532 m
.00375 .03532 L
s
0 .05297 m
.00375 .05297 L
s
0 .07063 m
.00375 .07063 L
s
0 .10595 m
.00375 .10595 L
s
0 .12361 m
.00375 .12361 L
s
0 .14126 m
.00375 .14126 L
s
0 .15892 m
.00375 .15892 L
s
0 .19424 m
.00375 .19424 L
s
0 .2119 m
.00375 .2119 L
s
0 .22956 m
.00375 .22956 L
s
0 .24721 m
.00375 .24721 L
s
0 .28253 m
.00375 .28253 L
s
0 .30019 m
.00375 .30019 L
s
0 .31785 m
.00375 .31785 L
s
0 .3355 m
.00375 .3355 L
s
0 .37082 m
.00375 .37082 L
s
0 .38848 m
.00375 .38848 L
s
0 .40614 m
.00375 .40614 L
s
0 .42379 m
.00375 .42379 L
s
0 .45911 m
.00375 .45911 L
s
0 .47677 m
.00375 .47677 L
s
0 .49443 m
.00375 .49443 L
s
0 .51209 m
.00375 .51209 L
s
0 .5474 m
.00375 .5474 L
s
0 .56506 m
.00375 .56506 L
s
0 .58272 m
.00375 .58272 L
s
0 .60038 m
.00375 .60038 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
0 .64303 -78 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.812500 moveto
 558.000000 13.812500 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(Range) show
93.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
0 .562 m
.01975 .49192 L
.04057 .43328 L
.06347 .38167 L
.08481 .34258 L
.12477 .28587 L
.16571 .24305 L
.20923 .20869 L
.25115 .18304 L
.29149 .16328 L
.3344 .14615 L
.37572 .13253 L
.41544 .12148 L
.45775 .11146 L
.49846 .10318 L
.54174 .09556 L
.58344 .08917 L
.62354 .08374 L
.66622 .07861 L
.7073 .07422 L
.75096 .07004 L
.79303 .06642 L
.83351 .06327 L
.87657 .06022 L
.91803 .05754 L
.9579 .05517 L
1 .05288 L
s
0 1 0 r
0 .56176 m
.04057 .40065 L
.08481 .22495 L
.12636 .05993 L
s
.12636 .05993 m
.14145 0 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{62, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 FontSize->12,ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlW1toXEUYPtk9e8mmlzRJYzZp023xThURBUEQBG190Ad98EGEEoKSPoih
FgTxRQRfRPBFH3wQBEFQEIoigogIIkoFFevdWi/1rqhR6yWN65nL+WfO7DeT
md1zzgZc0pOTOfNd5p9/brvb6xYOL91y28Lhg4sLnf2HFpaXDi7e0dl3+6Gk
qDoSRSOdKIqOdCJ2301u5aWb/HR3swsrWf9+H/tVYdCYF1QjQdOVf6VP+V3M
7uY8ETXwtO2JjeluRzBilxNRoXaMigBczX/FmUrJq4mLK4ByLogBmZrpw0NP
8WweJDtxcQuYbvYTvyogchqvmcWqtP2/iRrKGWfr6zBqEc7fPrKPE4TlvRqq
8wVHC008/YwwxdBvogwyTwwp1XIZJqqvN3bUmpTLIn7aatiiO7QWqafuVc5g
UcPGqqFWrzF7l/I/ZqimnFXTV6xVaoNMFpajDvu1R+IjBY+OUmg4e12rbtjZ
lZZ1VRmyfQEo2+tZD5XV12mVh813jIzIxg6xzAOWY6CebkR1KZLnTxthip+U
Vl2bq7OVjts5dw61OneMKr3GrnVWMm5n3wGAz7LrFCuZDgM+ya4tVnJ+GPBh
UrzEbBmq/gDpXGPXmQPAewl4QxjwbnZtsJKbBZAncDU7i1nvPATuZNcaK1kU
AmJu9p3qncXZ3aR8BAO7zK5NVrKUu4vYdMGDMgtc3Eq9tGwGu5qHH/t2POvj
AHX6XZoPdBgry9FNlCX3DMFRGzi6kRzdpzmKicI9MLTdUpb2eqK93z5QkZ9r
CfhgGHA/AR+yA2cA8CrR4KTkEQ3IW4Z0rhS5nJQ8GqZzBQEfCwNeTsDH7cAz
APAyatkTZsuQzqWk81SYzsUEfDoMeJHwk5QcsQOnAfBCUnzGbBnS2Us6z4Xp
nEc6z4cBzyHFF+SIzO521btTHgMMrUHbgejZJPqiEBOaePkYfAmI3OsT6ogz
yeFLpTrEaxeK4R5y+PIGjeFuWdbV6m8Er2gYdCiar8h6cWYYRDntCAIWwSlg
c55svqoHErwH6ztaK7b8Sjf6eu9JUTS3ILdz5PZ1O3ASAGcJeDQM2AamdQre
WmR1BgDfCNOeJtNv2oETNqChHUixHVC8ZbYbmZ4CwLft2tsAxSS1+1gYcAJo
B1JsAxTvmu1GARsHwPfs2uOeFO+HUWwFFB8ICrQMq/eGw5dhJL8FyH8oZNG8
EstrDhMgnphRR20GHj8qxSNeircCjyiOGY+YqrDjE/KI4vix7hF3Sa1Mj5uA
R/mWmW05LulAityOAbfHnb0edFj1lfxUSKIpZwugaAGKE2EUo4Dis3wpeAR8
gZ/btTcDiiag+KJ0igag+NKMgC/wpF17E6CoA4qvCqUY86T42owA0q4B4Ddh
2jlQxIDiW0GB1u5BjtAtT/nveuRVzfLOLYFu0YeShR2oU8tcDhmtAqPfC+hQ
z6xoHDi8FtnnLptooCCbP0hELZOpBUTTK2NHw1yHn6/VHcq5CpD6UUihyQi5
DaRoelL8lC8Fj8Bomj4akP9Lnv2ynl4wrOGA/To4jLeIviuhV46iFTt93UG/
LqxH6LeBENqn5FpvJmW/22lrmHZdRFbgDzkmcz7p+kmpXi5wOkRhlVbQspfL
Yct1eI2Bn1MCOJSDqsOPZQUr7DzqsOJcpUo6gGbsyfJTWiYZXyIO3m1qrf7T
PoqrA1SX5QNUr2SCo1X6y85Zybl69puf/IH4+cc0iqj+DqZCE0vys2qvkuqt
mobSyQ88N3OwG532edrnRkjjk2ZOewy0IreDNkPFb6N7Jty0q/SldRUO9JI2
yMzIWlnhaJjhiESBSNm1IadJVblJ/lobbBBAso7HIy0xPB9x1X97FWw04Y+K
Vxhc3Bg+fe4u3TmY4w4O7yi7+kgsYO/h2j064piLNr+J9QYWs/3Tdcre2+na
4Rs3jpaO+T34H2dnUafIjcu5oC3yEDJBdfG7cKpr0xcuy6QBv5OH5MmictJi
eUWTVQO82ic5x604W5LjgM+25GenrEoTk1K+VM5E6pMzSVDRmjVBmccfjblz
Kxr5D7Vmi+w=\
\>"],ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0138519, -3094.15, \
0.000420045, 237.876}}]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",
 FontSize->12]
}, Open  ]]
},
ScreenStyleEnvironment->"Presentation",
WindowToolbars->{},
WindowSize->{1264, 673},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 119, 3, 51, "Text"],
Cell[679, 25, 760, 16, 231, "Text"],
Cell[CellGroupData[{
Cell[1464, 45, 2236, 60, 380, "Input"],
Cell[CellGroupData[{
Cell[3725, 109, 82, 1, 27, "Print"],
Cell[3810, 112, 334, 10, 50, "Print"],
Cell[4147, 124, 54, 1, 27, "Print"]
}, Open  ]]
}, Open  ]],
Cell[4228, 129, 769, 20, 96, "Input"],
Cell[CellGroupData[{
Cell[5022, 153, 6131, 155, 780, "Input"],
Cell[CellGroupData[{
Cell[11178, 312, 1232, 39, 71, "Print"],
Cell[12413, 353, 1232, 39, 71, "Print"]
}, Open  ]]
}, Open  ]],
Cell[13672, 396, 205, 6, 54, "Input"],
Cell[CellGroupData[{
Cell[13902, 406, 7477, 212, 1485, "Input"],
Cell[CellGroupData[{
Cell[21404, 622, 56, 1, 27, "Print"],
Cell[21463, 625, 484, 16, 49, "Print"],
Cell[21950, 643, 888, 29, 56, "Print"],
Cell[22841, 674, 50, 1, 26, "Print"]
}, Open  ]],
Cell[22906, 678, 232, 6, 46, "Message"],
Cell[23141, 686, 222, 6, 46, "Message"],
Cell[CellGroupData[{
Cell[23388, 696, 56, 1, 27, "Print"],
Cell[23447, 699, 738, 23, 82, "Print"],
Cell[24188, 724, 56, 1, 27, "Print"],
Cell[24247, 727, 90, 1, 26, "Print"],
Cell[24340, 730, 9127, 484, 186, 6857, 445, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[33482, 1217, 149, 5, 36, "Output"],
Cell[33634, 1224, 104, 2, 26, "Print"]
}, Open  ]],
Cell[33753, 1229, 1137, 32, 202, "Input"],
Cell[CellGroupData[{
Cell[34915, 1265, 4384, 128, 822, "Input"],
Cell[CellGroupData[{
Cell[39324, 1397, 731, 26, 50, "Print"],
Cell[40058, 1425, 8504, 417, 186, 6491, 382, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[48577, 1845, 149, 5, 36, "Output"],
Cell[CellGroupData[{
Cell[48751, 1854, 514, 17, 43, "Print"],
Cell[49268, 1873, 7490, 362, 186, 5788, 332, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[56773, 2238, 149, 5, 36, "Output"],
Cell[CellGroupData[{
Cell[56947, 2247, 285, 9, 30, "Print"],
Cell[57235, 2258, 9035, 449, 186, 6944, 412, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[66285, 2710, 149, 5, 36, "Output"]
}, Open  ]],
Cell[66449, 2718, 741, 22, 120, "Input"],
Cell[CellGroupData[{
Cell[67215, 2744, 10513, 303, 2034, "Input"],
Cell[CellGroupData[{
Cell[77753, 3051, 60, 1, 27, "Print"],
Cell[77816, 3054, 22858, 1204, 108, 19575, 1149, "GraphicsData", \
"PostScript", "Graphics"]
}, Open  ]],
Cell[100689, 4261, 154, 5, 36, "Output"],
Cell[CellGroupData[{
Cell[100868, 4270, 66, 1, 27, "Print"],
Cell[100937, 4273, 26348, 1429, 108, 23479, 1381, "GraphicsData", \
"PostScript", "Graphics"]
}, Open  ]],
Cell[127300, 5705, 154, 5, 36, "Output"],
Cell[CellGroupData[{
Cell[127479, 5714, 60, 1, 27, "Print"],
Cell[127542, 5717, 22117, 1147, 108, 19286, 1100, "GraphicsData", \
"PostScript", "Graphics"]
}, Open  ]],
Cell[149674, 6867, 154, 5, 36, "Output"],
Cell[CellGroupData[{
Cell[149853, 6876, 50, 1, 26, "Print"],
Cell[149906, 6879, 92, 1, 27, "Print"],
Cell[150001, 6882, 162, 3, 37, "Print"],
Cell[150166, 6887, 329, 9, 26, "Print"],
Cell[150498, 6898, 344, 10, 26, "Print"],
Cell[150845, 6910, 331, 9, 26, "Print"],
Cell[151179, 6921, 185, 3, 47, "Print"],
Cell[151367, 6926, 194, 3, 47, "Print"],
Cell[151564, 6931, 51, 1, 27, "Print"],
Cell[151618, 6934, 333, 9, 26, "Print"],
Cell[151954, 6945, 331, 9, 26, "Print"],
Cell[152288, 6956, 77, 1, 27, "Print"]
}, Open  ]]
}, Open  ]],
Cell[152392, 6961, 313, 7, 55, "Input"],
Cell[CellGroupData[{
Cell[152730, 6972, 10121, 287, 1248, "Input"],
Cell[CellGroupData[{
Cell[162876, 7263, 79, 1, 27, "Print"],
Cell[162958, 7266, 89, 1, 27, "Print"],
Cell[163050, 7269, 93, 1, 27, "Print"],
Cell[163146, 7272, 15331, 780, 186, 11774, 719, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[178492, 8055, 149, 5, 38, "Output"],
Cell[CellGroupData[{
Cell[178666, 8064, 65, 1, 27, "Print"],
Cell[178734, 8067, 87, 1, 27, "Print"],
Cell[178824, 8070, 8443, 428, 186, 6097, 387, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[187282, 8501, 149, 5, 38, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)