(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 140256, 3664]*) (*NotebookOutlinePosition[ 140895, 3687]*) (* CellTagsIndexPosition[ 140851, 3683]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[StyleBox["Plumb bob attached to falling sled", "Section"]], \ "Text"], Cell[TextData[{ "So here is the context. Suppose a sled is falling down a frictionless \ incline, and attached to its frame is a mass on a string. For some given \ initial conditions, what is the trajectory of the mass?\nThis problem is \ easily solved in the accelerating coordinate system, where effective gravity \ now points at an angle, and we have a good old plumb bob swinging back and \ forth. But what if we wanted to stubbornly solve the problem in inertial \ coordinates? The algebra gets messier, but armed with ", StyleBox["Mathematica", FontSlant->"Italic"], " it should all work out the same." }], "Text"], Cell[BoxData[ \(Clear["\"]\)], "Input"], Cell["\<\ First write out F=ma in (x,y) components. In the x-direction all \ there is a piece of the tension.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e1\ = \ m*\(\(x'\)'\)[ t] \[Equal] \(-T\)*\((x[t] - xA[t])\)/\((\((x[t] - xA[t])\)^2 + \((y[t] - yA[t])\)^2)\)^\((1/2)\)\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "==", \(-\(\(T\ \((x[t] - xA[t])\)\)\/\@\(\((x[t] - xA[t])\)\^2 + \((y[t] - \ yA[t])\)\^2\)\)\)}]], "Output"] }, Open ]], Cell["\<\ In the y-direction there is the other piece of the tension, plus \ gravity:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e2 = m*\(\(y'\)'\)[ t] \[Equal] \(-T\)*\((y[t] - yA[t])\)/\((\((x[t] - xA[t])\)^\((2)\) + \((y[t] - yA[t])\)^2)\)^\((1/2)\) - m*g\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "==", \(\(-g\)\ m - \(T\ \((y[t] - yA[t])\)\)\/\@\(\((x[t] - \ xA[t])\)\^2 + \((y[t] - yA[t])\)\^2\)\)}]], "Output"] }, Open ]], Cell["\<\ Then there is the constraint that the rope has fixed legth. Take \ two derivatives to get another equation involving x'' and y''.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e3 = D[\((\((x[t] - xA[t])\)^2 + \((y[t] - yA[t])\)^2)\) == c, {t, 2}]\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", \((x[t] - xA[t])\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", \((y[t] - yA[t])\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "==", "0"}]], "Output"] }, Open ]], Cell["\<\ Solve these three equations to get the instantaneous accelerations \ (and tension) in terms of the positions and velocities:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(soln\ = \ \((\(Solve[{e1, e2, e3}, {\(\(x'\)'\)[t], \(\(y'\)'\)[t], T}]\)[\([1]\)] // Simplify)\)\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{\((x[t] - xA[t])\), " ", RowBox[{"(", RowBox[{\(g\ y[t]\), "-", \(g\ yA[t]\), "-", SuperscriptBox[ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{\(x[t]\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{\(xA[t]\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{\(y[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{\(yA[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ")"}], "/", \((x[t]\^2 - 2\ x[t]\ xA[t] + xA[t]\^2 + \((y[t] - yA[t])\)\^2)\)}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{\(\(-g\)\ x[t]\^2\), "-", \(g\ xA[t]\^2\), "+", RowBox[{\(xA[t]\), " ", \((\(-y[t]\) + yA[t])\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{\(x[t]\), " ", RowBox[{"(", RowBox[{\(2\ g\ xA[t]\), "+", RowBox[{\((y[t] - yA[t])\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{\((y[t] - yA[t])\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{\(y[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{\(yA[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], ")"}], "/", \((x[t]\^2 - 2\ x[t]\ xA[t] + xA[t]\^2 + \((y[t] - yA[t])\)\^2)\)}]}], ",", RowBox[{"T", "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"m", " ", RowBox[{"(", RowBox[{\(g\ y[t]\), "-", \(g\ yA[t]\), "-", SuperscriptBox[ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["xA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", SuperscriptBox[ RowBox[{ SuperscriptBox["yA", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"], "+", RowBox[{\(x[t]\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{\(xA[t]\), " ", RowBox[{ SuperscriptBox["xA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{\(y[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{\(yA[t]\), " ", RowBox[{ SuperscriptBox["yA", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ")"}], "/", \((\@\(x[t]\^2 - 2\ x[t]\ xA[t] + xA[t]\^2 + \((y[t] - \ yA[t])\)\^2\))\)}]}]}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ The frame just slides down the hill, starting at (x,y)=(0,0) at \ t=0:\ \>", "Text"], Cell[BoxData[ \(\(xA[t_] = .5*g*Sin[alpha]*Cos[alpha]*t^2;\)\)], "Input"], Cell[BoxData[ \(\(yA[t_] = \(- .5\)*g*t^2*\((Sin[alpha])\)^2;\)\)], "Input"], Cell["\<\ And the initial conditions will are that everything starts at rest, \ with the plumb bob making an angle beta with respect to vertical. We take \ the string length to be 4\ \>", "Text"], Cell[BoxData[ \(b1 = \(x'\)[0] == 0; \ b2 = \(y'\)[0] == 0; \ b3 = x[0] \[Equal] \ \(-4\) Sin[beta]; \ b4 = y[0] \[Equal] \ \(-4\) Cos[beta];\)], "Input"], Cell[BoxData[ \(\(de1\ = \ \(x''\)[ t] \[Equal] \((\(x''\)[t] /. \ soln)\);\)\)], "Input"], Cell[BoxData[ \(\(de2\ = \ \(y''\)[ t]\ \[Equal] \ \((\(y''\)[t] /. soln)\);\)\)], "Input"], Cell[BoxData[ \(g = 9.8; \ alpha = \ 20 Degree; beta = \ 30\ Degree;\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(answer\ = \ NDSolve[{de1, de2, b1, b2, b3, b4}, {x[t], y[t]}, {t, 0, 5}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{\(x[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 5.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(y[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 5.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(xx[t_]\ = \ x[t] /. answer[\([1]\)]\)], "Input"], Cell[BoxData[ RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 5.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(yy[t_]\ = \ y[t] /. answer[\([1]\)]\)], "Input"], Cell[BoxData[ RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 5.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[xx[t] - xA[t], {t, 0, 5}]\)], "Input"], 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.190476 0.91651 0.450897 [ [.21429 .00222 -3 -9 ] [.21429 .00222 3 0 ] [.40476 .00222 -3 -9 ] [.40476 .00222 3 0 ] [.59524 .00222 -3 -9 ] [.59524 .00222 3 0 ] [.78571 .00222 -3 -9 ] [.78571 .00222 3 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .10489 -24 -4.5 ] [.01131 .10489 0 4.5 ] [.01131 .19507 -24 -4.5 ] [.01131 .19507 0 4.5 ] [.01131 .28525 -24 -4.5 ] [.01131 .28525 0 4.5 ] [.01131 .37543 -24 -4.5 ] [.01131 .37543 0 4.5 ] [.01131 .46561 -12 -4.5 ] [.01131 .46561 0 4.5 ] [.01131 .55579 -24 -4.5 ] [.01131 .55579 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .01472 m .21429 .02097 L s [(1)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(2)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(3)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(4)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(5)] .97619 .00222 0 1 Mshowa .125 Mabswid .0619 .01472 m .0619 .01847 L s .1 .01472 m .1 .01847 L s .1381 .01472 m .1381 .01847 L s .17619 .01472 m .17619 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .36667 .01472 m .36667 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .55714 .01472 m .55714 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .74762 .01472 m .74762 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .9381 .01472 m .9381 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .10489 m .03006 .10489 L s [(-1.8)] .01131 .10489 1 0 Mshowa .02381 .19507 m .03006 .19507 L s [(-1.6)] .01131 .19507 1 0 Mshowa .02381 .28525 m .03006 .28525 L s [(-1.4)] .01131 .28525 1 0 Mshowa .02381 .37543 m .03006 .37543 L s [(-1.2)] .01131 .37543 1 0 Mshowa .02381 .46561 m .03006 .46561 L s [(-1)] .01131 .46561 1 0 Mshowa .02381 .55579 m .03006 .55579 L s [(-0.8)] .01131 .55579 1 0 Mshowa .125 Mabswid .02381 .03726 m .02756 .03726 L s .02381 .0598 m .02756 .0598 L s .02381 .08235 m .02756 .08235 L s .02381 .12744 m .02756 .12744 L s .02381 .14998 m .02756 .14998 L s .02381 .17253 m .02756 .17253 L s .02381 .21762 m .02756 .21762 L s .02381 .24016 m .02756 .24016 L s .02381 .26271 m .02756 .26271 L s .02381 .3078 m .02756 .3078 L s .02381 .33034 m .02756 .33034 L s .02381 .35289 m .02756 .35289 L s .02381 .39798 m .02756 .39798 L s .02381 .42052 m .02756 .42052 L s .02381 .44307 m .02756 .44307 L s .02381 .48816 m .02756 .48816 L s .02381 .5107 m .02756 .5107 L s .02381 .53325 m .02756 .53325 L s .02381 .57834 m .02756 .57834 L s .02381 .60088 m .02756 .60088 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .02499 .01473 L .02605 .01476 L .02729 .01482 L .02846 .0149 L .03053 .01511 L .03279 .01541 L .03527 .01585 L .0379 .01642 L .04262 .01776 L .04749 .01953 L .05205 .02156 L .06244 .02749 L .07305 .03539 L .08274 .04423 L .10458 .06951 L .14429 .13281 L .18248 .21049 L .22313 .30377 L .26226 .39507 L .30384 .48321 L .32471 .52074 L .34391 .54997 L .36265 .57287 L .37221 .58221 L .38246 .59039 L .38773 .59384 L .39273 .59662 L .39759 .59887 L .40209 .60055 L .40635 .60177 L .4085 .60225 L .41088 .60268 L .41325 .603 L .41458 .60313 L .4158 .60322 L .41688 .60328 L .41806 .60331 L .41928 .60332 L .42043 .6033 L .4217 .60325 L .42235 .60321 L .42305 .60315 L .42548 .6029 L .42684 .60271 L .4283 .60246 L .43095 .60191 L .43614 .60043 L .44088 .59862 L .45042 .59368 L Mistroke .45947 .58739 L .47932 .56838 L .49772 .54471 L .5369 .47767 L .57853 .38844 L .61865 .2946 L .65726 .20643 L .69831 .12424 L .71877 .09024 L .73785 .06365 L .75621 .04317 L .76643 .03409 L .77587 .02721 L .78607 .02145 L .79145 .01911 L .79716 .01718 L .79954 .01654 L .8021 .01595 L .80431 .01554 L .80673 .01518 L .80812 .01502 L .80942 .01491 L .81078 .01481 L .81155 .01477 L .81224 .01475 L .81349 .01472 L .81419 .01472 L .81484 .01472 L .81603 .01475 L .81729 .01481 L .8185 .01489 L .81983 .015 L .82224 .01529 L .82458 .01567 L .82675 .0161 L .83167 .01738 L .8369 .0192 L .84561 .02325 L .85523 .0292 L .87455 .04577 L .8954 .07025 L .93651 .13644 L .9761 .21789 L .97619 .21809 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool00`00ooooo`2^ool00`00 ooooo`0Nool00`00ooooo`0Oool001_oo`03003ooooo00koo`03003ooooo0:goo`03003ooooo023o o`03003ooooo01koo`006ooo00<00?ooool03ooo00<00?ooool0Zooo00<00?ooool08_oo00<00?oo ool07Ooo000Kool2000Aool00`00ooooo`2Yool00`00ooooo`0Sool00`00ooooo`0Mool001_oo`03 003ooooo017oo`03003ooooo0:Ooo`03003ooooo02Goo`03003ooooo01coo`006ooo00<00?ooool0 4Ooo00<00?ooool0Y_oo00<00?ooool09ooo00<00?ooool06ooo000Kool00`00ooooo`0Bool00`00 ooooo`2Uool00`00ooooo`0Xool00`00ooooo`0Jool001_oo`03003ooooo01?oo`03003ooooo0:?o o`03003ooooo02[oo`03003ooooo01Woo`006ooo00<00?ooool04ooo00<00?ooool0X_oo00<00?oo ool0:ooo00<00?ooool06Ooo000Kool2000Eool00`00ooooo`2Pool00`00ooooo`0]ool00`00oooo o`0Hool001_oo`03003ooooo01Goo`03003ooooo09ooo`03003ooooo02koo`03003ooooo01Ooo`00 6ooo00<00?ooool05Ooo00<00?ooool0W_oo00<00?ooool0;ooo00<00?ooool05ooo000Kool00`00 ooooo`0Fool00`00ooooo`2Lool00`00ooooo`0aool00`00ooooo`0Fool000Ooo`@000?oo`03003o oooo00?oo`8000Goo`03003ooooo01Ooo`03003ooooo09_oo`03003ooooo03;oo`03003ooooo01Go o`002Ooo00<00?ooool01ooo00@00?ooool000Coo`03003ooooo01Ooo`03003ooooo09[oo`03003o oooo03?oo`03003ooooo01Goo`002Ooo00<00?ooool01ooo00@00?ooool000Coo`8001Woo`03003o oooo09Soo`03003ooooo03Goo`03003ooooo01Coo`0000?oo`0000000P001?oo00<00?ooool02?oo 0P001Ooo00<00?ooool06Ooo00<00?ooool0Uooo00<00?ooool0=Ooo00<00?ooool05?oo0009ool0 0`00ooooo`07ool01000ooooo`001?oo00<00?ooool06_oo00<00?ooool0UOoo00<00?ooool0=ooo 00<00?ooool04ooo0007ool30009ool01000ooooo`001?oo00<00?ooool06_oo00<00?ooool0U?oo 00<00?ooool0>Ooo00<00?ooool04_oo0009ool00`00ooooo`08ool20005ool00`00ooooo`0Kool0 0`00ooooo`2Cool00`00ooooo`0iool00`00ooooo`0Bool001_oo`03003ooooo01coo`03003ooooo 097oo`03003ooooo03_oo`03003ooooo017oo`006ooo0P007Ooo00<00?ooool0TOoo00<00?ooool0 ??oo00<00?ooool04?oo000Kool00`00ooooo`0Mool00`00ooooo`2?ool00`00ooooo`0mool00`00 ooooo`0@ool001_oo`03003ooooo01goo`03003ooooo08ooo`03003ooooo03koo`03003ooooo00oo o`006ooo00<00?ooool07_oo00<00?ooool0SOoo00<00?ooool0?ooo00<00?ooool03ooo000Kool0 0`00ooooo`0Nool00`00ooooo`2=ool00`00ooooo`10ool00`00ooooo`0>ool001_oo`03003ooooo 01ooo`03003ooooo08_oo`03003ooooo047oo`03003ooooo00koo`006ooo0P008?oo00<00?ooool0 Rooo00<00?ooool0@_oo00<00?ooool03Ooo000Kool00`00ooooo`0Pool00`00ooooo`29ool00`00 ooooo`13ool00`00ooooo`0=ool001_oo`03003ooooo023oo`03003ooooo08Woo`03003ooooo04Co o`03003ooooo00coo`006ooo00<00?ooool08Ooo00<00?ooool0Qooo00<00?ooool0AOoo00<00?oo ool03?oo000Kool00`00ooooo`0Qool00`00ooooo`27ool00`00ooooo`16ool00`00ooooo`0;ool0 01_oo`03003ooooo02;oo`03003ooooo08Goo`03003ooooo04Ooo`03003ooooo00_oo`006ooo0P00 8ooo00<00?ooool0QOoo00<00?ooool0B?oo00<00?ooool02_oo000Kool00`00ooooo`0Sool00`00 ooooo`23ool00`00ooooo`19ool00`00ooooo`0:ool001_oo`03003ooooo02?oo`03003ooooo08?o o`03003ooooo04Woo`03003ooooo00[oo`006ooo00<00?ooool09?oo00<00?ooool0POoo00<00?oo ool0Booo00<00?ooool02Ooo0007ool40003ool00`00ooooo`03ool20005ool00`00ooooo`0Tool0 0`00ooooo`21ool00`00ooooo`1;ool00`00ooooo`09ool000Woo`03003ooooo00Ooo`04003ooooo 0004ool00`00ooooo`0Uool00`00ooooo`1oool00`00ooooo`1=ool00`00ooooo`08ool000Woo`03 003ooooo00Ooo`04003ooooo0004ool2000Vool00`00ooooo`1oool00`00ooooo`1=ool00`00oooo o`08ool00003ool00000008000Coo`03003ooooo00Ooo`<000Goo`03003ooooo02Koo`03003ooooo 07goo`03003ooooo04ooo`03003ooooo00Ooo`002Ooo00<00?ooool01ooo00<00?ooool01Ooo00<0 0?ooool09_oo00<00?ooool0OOoo00<00?ooool0Cooo00<00?ooool01ooo0007ool30009ool00`00 ooooo`05ool00`00ooooo`0Wool00`00ooooo`1kool00`00ooooo`1Aool00`00ooooo`06ool000Wo o`03003ooooo00Soo`<000Coo`03003ooooo02Ooo`03003ooooo07_oo`03003ooooo057oo`03003o oooo00Koo`006ooo00<00?ooool09ooo00<00?ooool0N_oo00<00?ooool0Dooo00<00?ooool01Ooo 000Kool2000Yool00`00ooooo`1iool00`00ooooo`1Cool00`00ooooo`05ool001_oo`03003ooooo 02Soo`03003ooooo07Soo`03003ooooo05coo`006ooo00<00?ooool0:Ooo00<00?ooool0Mooo00<0 0?ooool0G?oo000Kool00`00ooooo`0Yool00`00ooooo`1fool00`00ooooo`1Mool001_oo`03003o oooo02[oo`03003ooooo07Goo`03003ooooo05goo`006ooo00<00?ooool0:_oo00<00?ooool0MOoo 00<00?ooool0GOoo000Kool2000/ool00`00ooooo`1cool00`00ooooo`1Nool001_oo`03003ooooo 02_oo`03003ooooo07?oo`03003ooooo05koo`006ooo00<00?ooool0:ooo00<00?ooool0L_oo00<0 0?ooool0Gooo000Kool00`00ooooo`0/ool00`00ooooo`1aool00`00ooooo`1Oool001_oo`03003o oooo02coo`03003ooooo073oo`03003ooooo063oo`006ooo00<00?ooool0;Ooo00<00?ooool0Kooo 00<00?ooool0H?oo000Kool2000^ool00`00ooooo`1^ool00`00ooooo`1Qool001_oo`03003ooooo 02koo`03003ooooo06goo`03003ooooo067oo`006ooo00<00?ooool0;_oo00<00?ooool0KOoo00<0 0?ooool0HOoo000Kool00`00ooooo`0^ool00`00ooooo`1/ool00`00ooooo`1Rool000Ooo`@000?o o`03003ooooo00Coo`03003ooooo00?oo`03003ooooo02ooo`03003ooooo06_oo`03003ooooo06;o o`002Ooo00<00?ooool02Ooo00<00?ooool00ooo00<00?ooool0;ooo00<00?ooool0J_oo00<00?oo ool0Hooo0009ool00`00ooooo`06ool50004ool2000aool00`00ooooo`1Yool00`00ooooo`1Sool0 0003ool00000008000Coo`03003ooooo00Koo`04003ooooo0005ool00`00ooooo`0`ool00`00oooo o`1Xool00`00ooooo`1Tool000Woo`03003ooooo00Ooo`03003oo`0000Goo`03003ooooo037oo`03 003ooooo06Ooo`03003ooooo06Coo`001ooo0`002_oo0P001Ooo00<00?ooool0?oo00<00?ooool0F_oo00<00?ooool0Jooo000Kool00`00ooooo`0hool00`00oooo o`1Iool00`00ooooo`1[ool001_oo`03003ooooo03Soo`03003ooooo05Soo`03003ooooo06coo`00 6ooo00<00?ooool0>Ooo00<00?ooool0Eooo00<00?ooool0K?oo0007ool40003ool00`00ooooo`02 ool40004ool00`00ooooo`0iool00`00ooooo`1Fool00`00ooooo`1]ool000Woo`03003ooooo00Oo o`03003ooooo00Goo`03003ooooo03Woo`03003ooooo05Koo`03003ooooo06goo`002Ooo00<00?oo ool02?oo00<00?ooool01?oo0P00>ooo00<00?ooool0E?oo00<00?ooool0K_oo00000ooo00000002 0004ool00`00ooooo`09ool00`00ooooo`03ool00`00ooooo`0jool00`00ooooo`1Dool00`00oooo o`1^ool000Woo`03003ooooo00[oo`03003ooooo00;oo`03003ooooo03_oo`03003ooooo05;oo`03 003ooooo06ooo`001ooo0`002Ooo00@00?ooool000Coo`03003ooooo03_oo`03003ooooo05;oo`03 003ooooo06ooo`002Ooo00<00?ooool02?oo0P001Ooo00<00?ooool0??oo00<00?ooool0DOoo00<0 0?ooool0Kooo000Kool00`00ooooo`0lool00`00ooooo`1@ool00`00ooooo`1`ool001_oo`8003go o`03003ooooo053oo`03003ooooo073oo`006ooo00<00?ooool0?Ooo00<00?ooool0C_oo00<00?oo ool0LOoo000Kool00`00ooooo`0mool00`00ooooo`1>ool00`00ooooo`1aool001_oo`03003ooooo 03koo`03003ooooo04coo`03003ooooo07;oo`006ooo00<00?ooool0?_oo00<00?ooool0C?oo00<0 0?ooool0L_oo000Kool00`00ooooo`0oool00`00ooooo`1:ool00`00ooooo`1cool001_oo`80043o o`03003ooooo04[oo`03003ooooo07?oo`006ooo00<00?ooool0@?oo00<00?ooool0B?oo00<00?oo ool0M?oo000Kool00`00ooooo`10ool00`00ooooo`18ool00`00ooooo`1dool001_oo`03003ooooo 047oo`03003ooooo04Ooo`03003ooooo07Coo`006ooo00<00?ooool0@Ooo00<00?ooool0A_oo00<0 0?ooool0MOoo000Kool00`00ooooo`11ool00`00ooooo`16ool00`00ooooo`1eool001_oo`8004?o o`03003ooooo04Coo`03003ooooo07Koo`006ooo00<00?ooool0@_oo00<00?ooool0A?oo00<00?oo ool0M_oo000Kool00`00ooooo`13ool00`00ooooo`12ool00`00ooooo`1gool001_oo`03003ooooo 04?oo`03003ooooo04;oo`03003ooooo07Ooo`004ooo10001?oo00<00?ooool0A?oo00<00?ooool0 @?oo00<00?ooool0N?oo000Eool00`00ooooo`03ool00`00ooooo`14ool00`00ooooo`10ool00`00 ooooo`1hool001Goo`03003ooooo00?oo`8004Koo`03003ooooo03koo`03003ooooo07Woo`003Ooo 10001?oo00<00?ooool00ooo00<00?ooool0AOoo00<00?ooool0?_oo00<00?ooool0NOoo000Eool0 0`00ooooo`03ool00`00ooooo`16ool00`00ooooo`0lool00`00ooooo`1jool001?oo`<000Goo`03 003ooooo04Koo`03003ooooo03coo`03003ooooo07[oo`005Ooo00<00?ooool00ooo00<00?ooool0 Aooo00<00?ooool0>_oo00<00?ooool0Nooo000Kool00`00ooooo`17ool00`00ooooo`0jool00`00 ooooo`1kool001_oo`8004Woo`03003ooooo03Soo`03003ooooo07coo`006ooo00<00?ooool0B?oo 00<00?ooool0>?oo00<00?ooool0O?oo000Kool00`00ooooo`19ool00`00ooooo`0fool00`00oooo o`1mool001_oo`03003ooooo04Woo`03003ooooo03Koo`03003ooooo07goo`006ooo00<00?ooool0 B_oo00<00?ooool0=?oo00<00?ooool0O_oo000Kool00`00ooooo`1;ool00`00ooooo`0cool00`00 ooooo`1nool001_oo`8004coo`03003ooooo03;oo`03003ooooo07ooo`006ooo00<00?ooool0C?oo 00<00?ooool0ool00`00ooooo`0/ool00`00 ooooo`22ool001_oo`80053oo`03003ooooo02_oo`03003ooooo08;oo`006ooo00<00?ooool0D?oo 00<00?ooool0:Ooo00<00?ooool0Pooo000Kool00`00ooooo`1Aool00`00ooooo`0Xool00`00oooo o`23ool001_oo`03003ooooo057oo`03003ooooo02Ooo`03003ooooo08Coo`002?oo0P001?oo00<0 0?ooool00ooo0P001Ooo00<00?ooool0D_oo00<00?ooool09Ooo00<00?ooool0QOoo0007ool01000 ooooo`002?oo00@00?ooool000Coo`03003ooooo05?oo`03003ooooo02?oo`03003ooooo08Koo`00 1ooo00@00?ooool000Soo`04003ooooo0004ool2001Eool00`00ooooo`0Rool00`00ooooo`26ool0 0003ool00000008000;oo`04003ooooo0009ool20005ool00`00ooooo`1Dool00`00ooooo`0Qool0 0`00ooooo`27ool000Ooo`04003ooooo0008ool01000ooooo`001?oo00<00?ooool0EOoo00<00?oo ool07ooo00<00?ooool0R?oo0007ool01000ooooo`002?oo00@00?ooool000Coo`03003ooooo05Ko o`03003ooooo01goo`03003ooooo08Woo`002?oo0P002_oo0P001Ooo00<00?ooool0Eooo00<00?oo ool06ooo00<00?ooool0R_oo000Kool00`00ooooo`1Hool00`00ooooo`0Iool00`00ooooo`2;ool0 01_oo`8005[oo`03003ooooo01Ooo`03003ooooo08coo`006ooo00<00?ooool0F_oo00<00?ooool0 5Ooo00<00?ooool0SOoo000Kool00`00ooooo`1Kool00`00ooooo`0Cool00`00ooooo`2>ool001_o o`03003ooooo05coo`03003ooooo013oo`80097oo`006ooo00<00?ooool0GOoo0P003_oo0P00Tooo 000Kool00`00ooooo`1Oool2000;ool00`00ooooo`2Cool001_oo`8006;oo`D00003ool0000000<0 09Koo`006ooo00<00?ooool0IOoo0`00V_oo000Kool00`00ooooo`3oool3ool001_oo`03003ooooo 0?ooo`?oo`006ooo00<00?ooool0oooo0ooo003ooolQool00?ooob7oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.539323, -2.11996, \ 0.0197364, 0.00833741}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ParametricPlot[{xx[t] - xA[t], yy[t] - yA[t]}, {t, 0, 5}, AspectRatio \[Rule] 1]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 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 1.48294 0.729566 7.91977 2.00444 [ [.16972 .08994 -12 -9 ] [.16972 .08994 12 0 ] [.31564 .08994 -12 -9 ] [.31564 .08994 12 0 ] [.46155 .08994 -12 -9 ] [.46155 .08994 12 0 ] [.60746 .08994 -12 -9 ] [.60746 .08994 12 0 ] [.75338 .08994 -6 -9 ] [.75338 .08994 6 0 ] [.89929 .08994 -12 -9 ] [.89929 .08994 12 0 ] [.01131 .30288 -24 -4.5 ] [.01131 .30288 0 4.5 ] [.01131 .50332 -24 -4.5 ] [.01131 .50332 0 4.5 ] [.01131 .70377 -24 -4.5 ] [.01131 .70377 0 4.5 ] [.01131 .90421 -24 -4.5 ] [.01131 .90421 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .16972 .10244 m .16972 .10869 L s [(-1.8)] .16972 .08994 0 1 Mshowa .31564 .10244 m .31564 .10869 L s [(-1.6)] .31564 .08994 0 1 Mshowa .46155 .10244 m .46155 .10869 L s [(-1.4)] .46155 .08994 0 1 Mshowa .60746 .10244 m .60746 .10869 L s [(-1.2)] .60746 .08994 0 1 Mshowa .75338 .10244 m .75338 .10869 L s [(-1)] .75338 .08994 0 1 Mshowa .89929 .10244 m .89929 .10869 L s [(-0.8)] .89929 .08994 0 1 Mshowa .125 Mabswid .06029 .10244 m .06029 .10619 L s .09677 .10244 m .09677 .10619 L s .13324 .10244 m .13324 .10619 L s .2062 .10244 m .2062 .10619 L s .24268 .10244 m .24268 .10619 L s .27916 .10244 m .27916 .10619 L s .35211 .10244 m .35211 .10619 L s .38859 .10244 m .38859 .10619 L s .42507 .10244 m .42507 .10619 L s .49803 .10244 m .49803 .10619 L s .53451 .10244 m .53451 .10619 L s .57098 .10244 m .57098 .10619 L s .64394 .10244 m .64394 .10619 L s .68042 .10244 m .68042 .10619 L s .7169 .10244 m .7169 .10619 L s .78985 .10244 m .78985 .10619 L s .82633 .10244 m .82633 .10619 L s .86281 .10244 m .86281 .10619 L s .93577 .10244 m .93577 .10619 L s .97225 .10244 m .97225 .10619 L s .25 Mabswid 0 .10244 m 1 .10244 L s .02381 .30288 m .03006 .30288 L s [(-3.8)] .01131 .30288 1 0 Mshowa .02381 .50332 m .03006 .50332 L s [(-3.7)] .01131 .50332 1 0 Mshowa .02381 .70377 m .03006 .70377 L s [(-3.6)] .01131 .70377 1 0 Mshowa .02381 .90421 m .03006 .90421 L s [(-3.5)] .01131 .90421 1 0 Mshowa .125 Mabswid .02381 .14252 m .02756 .14252 L s .02381 .18261 m .02756 .18261 L s .02381 .2227 m .02756 .2227 L s .02381 .26279 m .02756 .26279 L s .02381 .34297 m .02756 .34297 L s .02381 .38306 m .02756 .38306 L s .02381 .42315 m .02756 .42315 L s .02381 .46323 m .02756 .46323 L s .02381 .54341 m .02756 .54341 L s .02381 .5835 m .02756 .5835 L s .02381 .62359 m .02756 .62359 L s .02381 .66368 m .02756 .66368 L s .02381 .74386 m .02756 .74386 L s .02381 .78395 m .02756 .78395 L s .02381 .82403 m .02756 .82403 L s .02381 .86412 m .02756 .86412 L s .02381 .06235 m .02756 .06235 L s .02381 .02226 m .02756 .02226 L s .02381 .9443 m .02756 .9443 L s .02381 .98439 m .02756 .98439 L s .25 Mabswid .02381 0 m .02381 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid .02381 .97617 m .04448 .94369 L .11246 .84113 L .21449 .69901 L .3396 .54296 L .48995 .38042 L .63723 .24605 L .77972 .13826 L .88804 .07036 L .95417 .03472 L .97107 .0263 L .97526 .02426 L .9758 .024 L .97613 .02384 L .97618 .02381 L .97619 .02381 L .97618 .02381 L .97601 .0239 L .97308 .02532 L .96729 .02816 L .94752 .03811 L .87172 .07984 L .7619 .1506 L .61812 .26218 L .46842 .40213 L .32858 .55597 L .19841 .72053 L .10242 .85592 L .0404 .95009 L .0265 .97194 L .02413 .97569 L .02389 .97608 L .02383 .97617 L .02382 .97619 L .02382 .97619 L .02385 .97613 L .02394 .976 L .0242 .97558 L .03172 .9637 L .05009 .93501 L .11651 .83527 L .22593 .68395 L .35288 .52758 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooo`80017oo`006ooo 00<00?ooool0kOoo0P004ooo000Kool00`00ooooo`3[ool2000Eool001_oo`03003ooooo0>Woo`80 01Ooo`006ooo00<00?ooool0iooo0P006Ooo000Kool2000Pool40003ool00`00ooooo`03ool2000G ool40003ool00`00ooooo`03ool2000Hool40003ool00`00ooooo`04ool00`00ooooo`0Fool40003 ool00`00ooooo`02ool4000Mool4000Nool200000ooo000000020005ool2000Bool001_oo`03003o oooo027oo`03003ooooo00Ooo`04003ooooo000Hool00`00ooooo`07ool01000ooooo`006Ooo00<0 0?ooool02Ooo00<00?ooool06?oo00<00?ooool01ooo00<00?ooool08?oo00<00?ooool07?oo00<0 0?oo00000P001ooo00@00?ooool0017oo`006ooo00<00?ooool08Ooo00<00?ooool01ooo00@00?oo ool001Soo`03003ooooo00Ooo`04003ooooo000Iool00`00ooooo`06ool5000Iool00`00ooooo`08 ool00`00ooooo`0Oool00`00ooooo`0Lool40008ool01000ooooo`004Ooo000Kool00`00ooooo`0I ool40004ool00`00ooooo`08ool2000Aool40004ool00`00ooooo`07ool3000Bool40004ool00`00 ooooo`06ool01000ooooo`004_oo10001?oo00<00?ooool02Ooo00<00?ooool05_oo10001?oo00<0 0?ooool05_oo200000?oo`00ool02?oo0P004_oo000Kool00`00ooooo`0Qool00`00ooooo`07ool0 1000ooooo`006?oo00<00?ooool01ooo00<00?ooool06_oo00<00?ooool01ooo00<00?oo00006_oo 00<00?ooool02_oo00<00?ooool07Ooo00<00?ooool06Ooo10000_oo00<00?ooool01_oo00@00?oo ool0017oo`006ooo00<00?ooool07ooo0`002Ooo00@00?ooool001Koo`<000Woo`03003ooooo01So o`<000[oo`8001Soo`<000Woo`04003ooooo000Mool3000Iool30002ool01000ooooo`002?oo00@0 0?ooool0017oo`006ooo00<00?ooool08Ooo00<00?ooool02?oo0P006Ooo00<00?ooool02?oo0`00 6Ooo00<00?ooool02Ooo00<00?ooool06?oo00<00?ooool02?oo0P008?oo00<00?ooool05_oo0`00 1?oo0P002_oo0P004_oo000Kool00`00ooooo`3Iool3000Vool001_oo`03003ooooo0=Soo`<002Oo o`006ooo00<00?ooool0e_oo0`00:Ooo000Doooo000=000001_oo`03003ooooo00Ooo`03003ooooo 00Koo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo00Koo`03003ooooo00Ooo`03003ooooo 00Ooo`03003ooooo00Koo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo 00Koo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo00Koo`03003ooooo00Ooo`03003ooooo 00Ooo`03003ooooo00Koo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo00Ooo`03003ooooo 00Koo`@000Koo`03003ooooo00Ooo`03003ooooo00Koo`03003ooooo00Ooo`03003ooooo00Koo`00 6ooo00<00?ooool09?oo00<00?ooool08ooo00<00?ooool09?oo00<00?ooool09?oo00<00?ooool0 9?oo00<00?ooool04?oo0P004_oo00<00?ooool06Ooo000Kool00`00ooooo`3@ool3000_ool001_o o`03003ooooo0_oo00<00?oo ool0aOoo000Kool00`00ooooo`0iool00`00ooooo`36ool001_oo`03003ooooo03Woo`03003ooooo 0?oo00<00?ooool0aooo000Kool2000hool00`00ooooo`38ool001_o o`03003ooooo03Koo`03003ooooo03oo`006ooo00<0 0?ooool07_oo0P00h_oo000Kool00`00ooooo`0Mool2003Sool001_oo`03003ooooo01goo`03003o oooo0>;oo`006ooo00<00?ooool07?oo00<00?ooool0hooo000Kool00`00ooooo`0Kool2003Uool0 01_oo`03003ooooo01[oo`800>Koo`006ooo00<00?ooool06_oo00<00?ooool0iOoo000Kool00`00 ooooo`0Iool2003Wool001_oo`03003ooooo01Soo`800>Soo`006ooo0P006?oo0P00jOoo000Kool0 0`00ooooo`0Gool2003Yool001_oo`03003ooooo01Koo`800>[oo`006ooo00<00?ooool05Ooo0P00 jooo000Kool00`00ooooo`0Dool2003/ool001_oo`03003ooooo01Coo`800>coo`006ooo00<00?oo ool04ooo0P00kOoo000Kool00`00ooooo`0Bool2003^ool001_oo`03003ooooo01;oo`800>koo`00 6ooo00<00?ooool04Ooo0P00kooo000Kool00`00ooooo`0Aool00`00ooooo`3^ool001_oo`80017o o`800?3oo`006ooo00<00?ooool03ooo0P00lOoo000Kool00`00ooooo`0?ool00`00ooooo`3`ool0 01_oo`03003ooooo00koo`800?;oo`006ooo00<00?ooool03Ooo0P00looo000Kool00`00ooooo`0= ool00`00ooooo`3bool001_oo`03003ooooo00coo`800?Coo`006ooo00<00?ooool02ooo0P00mOoo 000Kool00`00ooooo`0;ool00`00ooooo`3dool000Soo`8000Coo`03003ooooo00;oo`<000Goo`03 003ooooo00[oo`800?Koo`001ooo00@00?ooool000_oo`03003ooooo00;oo`03003ooooo00Woo`80 0?Ooo`002_oo00<00?ooool02Ooo00<00?ooool00_oo0P002_oo00<00?ooool0m_oo00000ooo0000 00020003ool20009ool30005ool00`00ooooo`08ool00`00ooooo`3gool000[oo`03003ooooo00Ko o`03003ooooo00Goo`03003ooooo00Ooo`800?Woo`001ooo00@00?ooool000Soo`03003ooooo00Go o`03003ooooo00Ooo`03003ooooo0?Soo`002?oo0P002Ooo10001?oo00<00?ooool01_oo0P00n_oo 000Kool00`00ooooo`05ool2003kool001_oo`03003ooooo00Goo`03003ooooo0?[oo`006ooo00<0 0?ooool01?oo0P00o?oo000Kool00`00ooooo`03ool2003mool001_oo`03003ooooo00?oo`03003o oooo0?coo`006ooo0P000ooo0P00o_oo000Kool01000oooooooo0P00oooo000Kool01@00oooooooo 0000oooo0Ooo000Kool00`00ooooo`02003oool1ool001_oo`04003ooooo003oool2ool001_oo`04 003oo`00003oool2ool001_oo`03003oo`000?ooo`?oo`006ooo0`00oooo0ooo000Kool2003oool4 ool001_oo`03003ooooo0?ooo`?oo`006ooo00<00?ooool0oooo0ooo000Kool2003oool4ool001_o o`03003ooooo0?ooo`?oo`006ooo00<00?ooool0oooo0ooo000Kool00`00ooooo`3oool3ool001_o o`03003ooooo0?ooo`?oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?oo ob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo0000\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-2.14081, -3.9708, 0.00515281, \ 0.00187549}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[ \(state[a_, b_, c_, d_]\ := \ Show[{Graphics[Line[{{a, b}, {c, d}}]], Graphics[Circle[{a, b}, .2]]}, DisplayFunction \[Rule] $DisplayFunction, PlotRange \[Rule] {{\(-1\), 40}, {\(-20\), 0}}]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Table[state[xx[t], yy[t], xA[t], yA[t]], {t, 0, 5, .2}]\)], "Input"], Cell[CellGroupData[{ 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash 0 .56451 m .02439 .61803 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale -4.99995 82.6799 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash 0 .55937 m .02593 .61733 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale -4.5469 82.4857 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash 0 .54311 m .03054 .6152 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale -3.198 81.9194 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash 0 .51304 m .03822 .61166 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale -0.9799 81.015 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .01004 .49336 m .04897 .6067 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 2.0582 79.8273 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool00`00ooooo`3oool@ool000koo`03003ooooo0?oooa3oo`00oooo8Ooo003ooolQool00?oo ob7oo`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .02853 .48459 m .0628 .60032 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 5.84865 78.4083 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool00`00ooooo`3oool@ool000koo`03003ooooo0?oooa3oo`00 3_oo00<00?ooool0oooo4?oo000?ool00`00ooooo`3oool?ool000ooo`03003ooooo0?ooo`ooo`00 3ooo00<00?ooool0oooo3ooo000@ool00`00ooooo`3oool>ool0013oo`03003ooooo0?ooo`koo`00 4?oo00<00?ooool0oooo3_oo000@ool00`00ooooo`3oool>ool0017oo`03003ooooo0?ooo`goo`00 4Ooo00<00?ooool0oooo3Ooo000Aool00`00ooooo`3oool=ool001;oo`03003ooooo0?ooo`coo`00 4_oo00<00?ooool0oooo3?oo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00 \ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .05027 .47468 m .0797 .59253 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 10.3054 76.8048 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool0013oo`03003ooooo0?ooo`koo`004?oo00<00?ooool0oooo 3_oo000Aool00`00ooooo`3oool=ool0017oo`03003ooooo0?ooo`goo`004Ooo00<00?ooool0oooo 3Ooo000Aool00`00ooooo`3oool=ool001;oo`03003ooooo0?ooo`coo`004_oo00<00?ooool0oooo 3?oo000Bool00`00ooooo`3oool"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .07479 .4638 m .09967 .58332 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 15.332 75.0444 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .10165 .452 m .12272 .57269 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 20.8382 73.1351 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .13047 .43925 m .14884 .56065 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 26.7463 71.0721 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .16098 .42548 m .17803 .54718 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 33.0009 68.8441 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgkoo`00;ooo00<00?ooool0k_oo000_ool00`00ooooo`3^ool002ooo`03003ooooo0>koo`00;ooo 00<00?ooool0k_oo000_ool00`00ooooo`3^ool002ooo`03003ooooo0>koo`00goo`00goo`00coo`00coo`00_o o`00<_oo00<00?ooool0jooo000bool00`00ooooo`3[ool003;oo`03003ooooo0>_oo`00<_oo00<0 0?ooool0jooo000bool00`00ooooo`3[ool003;oo`03003ooooo0>_oo`00[oo`00"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .19305 .41064 m .2103 .53231 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 39.5752 66.4429 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOoo`00=_oo0P0000?oo`00ool0iOoo 000fool3003Wool003Ooo`03003ooooo0>Koo`00=ooo00<00?ooool0i_oo000hool00`00ooooo`3U ool003Soo`03003ooooo0>Goo`00>?oo00<00?ooool0iOoo000hool00`00ooooo`3Uool003Soo`03 003ooooo0>Goo`00>?oo00<00?ooool0iOoo000hool00`00ooooo`3Uool003Woo`03003ooooo0>Co o`00>Ooo00<00?ooool0i?oo000iool00`00ooooo`3Tool003Woo`03003ooooo0>Coo`00>Ooo00<0 0?ooool0i?oo000iool00`00ooooo`3Tool003Woo`03003ooooo0>Coo`00>_oo00<00?ooool0hooo 000jool00`00ooooo`3Sool003[oo`03003ooooo0>?oo`00>_oo00<00?ooool0hooo000jool00`00 ooooo`3Sool003[oo`03003ooooo0>?oo`00>_oo00<00?ooool0hooo000kool00`00ooooo`3Rool0 03_oo`03003ooooo0>;oo`00>ooo00<00?ooool0h_oo000kool00`00ooooo`3Rool003_oo`03003o oooo0>;oo`00>ooo00<00?ooool0h_oo000kool00`00ooooo`3Rool003coo`03003ooooo0>7oo`00 ??oo00<00?ooool0hOoo000lool00`00ooooo`3Qool003coo`03003ooooo0>7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .2267 .39475 m .24563 .51601 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 46.4735 63.8719 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .2621 .37786 m .28405 .4983 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 53.7305 61.139 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool00`00ooooo`3?ool004koo`03003ooooo0ool004ooo`03003ooooo0ool004ooo`03003ooooo0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .29954 .36003 m .32553 .47917 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 61.4057 58.2541 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .33943 .34128 m .37008 .45862 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 69.5832 55.2203 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .38222 .32152 m .41771 .43666 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 78.3551 52.023 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .42837 .30056 m .46842 .41328 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 87.8158 48.6316 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .47829 .27809 m .52219 .38848 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 98.0494 44.9959 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool00`00ooooo`2?ool008koo`03003ooooo08ooo`00Sooo00<00?ooool0S_oo002? ool00`00ooooo`2>ool008ooo`03003ooooo08koo`00T?oo00<00?ooool0SOoo002@ool00`00oooo o`2=ool0093oo`03003ooooo08goo`00TOoo00<00?ooool0S?oo002Aool00`00ooooo`2"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .53228 .25378 m .57904 .36226 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 109.117 41.0625 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .59055 .22731 m .63896 .33463 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 121.063 36.7795 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .65321 .19851 m .70195 .30558 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 133.908 32.1196 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .72029 .16731 m .76802 .27512 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 147.659 27.0713 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .79172 .13385 m .83716 .24324 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 162.303 21.6574 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg_oo003Rool00`00 ool0000kool00>7oo`04003oo`00000kool00>7oo`03003oo`0003coo`00h_oo00<00?oo0000>ooo 003Tool00`00ooooo`0iool00>Goo`03003ooooo03Soo`00iOoo00<00?ooool0>?oo003Vool00`00 ooooo`0gool00>Koo`03003ooooo03Ooo`00i_oo00<00?ooool0=ooo003Wool00`00ooooo`0fool0 0>Ooo`03003ooooo03Koo`00j?oo00<00?ooool0=Ooo003Xool00`00ooooo`0eool00>Soo`03003o oooo03Goo`00jOoo00<00?ooool0=?oo003Yool00`00ooooo`0dool00>[oo`03003ooooo03?oo`00 j_oo00<00?ooool0_oo`03003ooooo03;oo`00jooo00<00?oo ool0<_oo003/ool00`00ooooo`0aool00>coo`03003ooooo037oo`00kOoo00<00?ooool0goo`03003ooooo033oo`00k_oo00<00?ooool0;ooo003^ool00`00oooo o`0_ool00>ooo`03003ooooo02koo`00kooo00<00?ooool0;_oo003`ool00`00ooooo`0]ool00?3o o`03003ooooo02goo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7o o`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003ooolQool00?ooob7oo`00oooo8Ooo003o oolQool00?ooob7oo`00oooo8Ooo003ooolQool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .86733 .09839 m .90937 .20994 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 177.803 15.9198 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{64, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}], 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.0243902 0.0243902 0.618034 0.0309017 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .94687 .06126 m .98465 .17522 L s newpath matrix currentmatrix 0.00487805 0.00618034 scale 194.108 9.91208 1 0 365.73 arc setmatrix s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05085, -20.0001, \ 0.143212, 0.113035}}] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{728, 648}, WindowMargins->{{59, Automatic}, {Automatic, 31}} ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 83, 1, 47, "Text"], Cell[1803, 52, 634, 11, 146, "Text"], Cell[2440, 65, 54, 1, 34, "Input"], Cell[2497, 68, 124, 3, 41, "Text"], Cell[CellGroupData[{ Cell[2646, 75, 215, 5, 86, "Input"], Cell[2864, 82, 311, 8, 67, "Output"] }, Open ]], Cell[3190, 93, 99, 3, 41, "Text"], Cell[CellGroupData[{ Cell[3314, 100, 227, 5, 86, "Input"], Cell[3544, 107, 299, 7, 67, "Output"] }, Open ]], Cell[3858, 117, 154, 3, 62, "Text"], Cell[CellGroupData[{ Cell[4037, 124, 121, 3, 34, "Input"], Cell[4161, 129, 1712, 43, 75, "Output"] }, Open ]], Cell[5888, 175, 148, 3, 62, "Text"], Cell[CellGroupData[{ Cell[6061, 182, 148, 2, 50, "Input"], Cell[6212, 186, 9574, 200, 360, "Output"] }, Open ]], Cell[15801, 389, 94, 3, 41, "Text"], Cell[15898, 394, 78, 1, 34, "Input"], Cell[15979, 397, 80, 1, 34, "Input"], Cell[16062, 400, 196, 4, 62, "Text"], Cell[16261, 406, 168, 3, 52, "Input"], Cell[16432, 411, 107, 2, 34, "Input"], Cell[16542, 415, 109, 2, 34, "Input"], Cell[16654, 419, 86, 1, 34, "Input"], Cell[CellGroupData[{ Cell[16765, 424, 113, 2, 52, "Input"], Cell[16881, 428, 511, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17429, 446, 69, 1, 34, "Input"], Cell[17501, 449, 155, 4, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17693, 458, 69, 1, 34, "Input"], Cell[17765, 461, 155, 4, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17957, 470, 63, 1, 34, "Input"], Cell[18023, 473, 16783, 484, 186, 4815, 332, "GraphicsData", "PostScript", \ "Graphics"], Cell[34809, 959, 130, 3, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34976, 967, 120, 2, 52, "Input"], Cell[35099, 971, 15837, 426, 296, 3886, 274, "GraphicsData", "PostScript", \ "Graphics"], Cell[50939, 1399, 130, 3, 34, "Output"] }, Open ]], Cell[51084, 1405, 248, 4, 107, "Input"], Cell[CellGroupData[{ Cell[51357, 1413, 89, 1, 34, "Input"], Cell[CellGroupData[{ Cell[51471, 1418, 3217, 82, 186, 758, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[54691, 1502, 3232, 82, 186, 757, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[57926, 1586, 3311, 83, 186, 755, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[61240, 1671, 3478, 85, 186, 756, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[64721, 1758, 3519, 86, 186, 760, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[68243, 1846, 3512, 86, 186, 761, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[71758, 1934, 3540, 86, 186, 761, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[75301, 2022, 3555, 86, 186, 760, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[78859, 2110, 3442, 85, 186, 760, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[82304, 2197, 3419, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[85726, 2283, 3395, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[89124, 2369, 3435, 85, 186, 761, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[92562, 2456, 3414, 84, 186, 761, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[95979, 2542, 3412, 84, 186, 759, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[99394, 2628, 3415, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[102812, 2714, 3383, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[106198, 2800, 3402, 84, 186, 761, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[109603, 2886, 3391, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[112997, 2972, 3391, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[116391, 3058, 3379, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[119773, 3144, 3355, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[123131, 3230, 3367, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[126501, 3316, 3346, 83, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[129850, 3401, 3395, 84, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[133248, 3487, 3440, 85, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"], Cell[136691, 3574, 3537, 86, 186, 762, 47, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)