(*********************************************************************** 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[ 138839, 3303]*) (*NotebookOutlinePosition[ 139477, 3326]*) (* CellTagsIndexPosition[ 139433, 3322]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(Remove["\"]\)], "Input"], Cell[BoxData[ \(Clear["\"]\)], "Input"], Cell[BoxData[ \(\(R[i_, j_] := Sqrt[\((x\_j[t] - x\_i[t])\)^2 + \((y\_j[t] - y\_i[t])\)^2 + \((z\_j[t] - z\_i[t])\)^2];\)\)], "Input"], Cell[BoxData[ \(r[v_, i_, j_] := v\_j[t] - v\_i[t]\)], "Input"], Cell["number of particles in your system:", "Text"], Cell[BoxData[ \(\(n = 4;\)\)], "Input"], Cell["x,y, and z differential equations:", "Text"], Cell[BoxData[ \(Do[de\_\(x, i\) = m\_i*\(\(x\_i'\)'\)[t] \[Equal] Sum[G*m\_i*m\_j*r[x, i, j]/R[i, j]^3, {j, 1, i - 1}] + Sum[G*m\_i*m\_j*r[x, i, j]/R[i, j]^3, {j, i + 1, n}], {i, 1, n}]\)], "Input"], Cell[BoxData[ \(Do[de\_\(y, i\) = m\_i*\(\(y\_i'\)'\)[t] \[Equal] Sum[G*m\_i*m\_j*r[y, i, j]/R[i, j]^3, {j, 1, i - 1}] + Sum[G*m\_i*m\_j*r[y, i, j]/R[i, j]^3, {j, i + 1, n}], {i, 1, n}]\)], "Input"], Cell[BoxData[ \(Do[de\_\(z, i\) = m\_i*\(\(z\_i'\)'\)[t] \[Equal] Sum[G*m\_i*m\_j*r[z, i, j]/R[i, j]^3, {j, 1, i - 1}] + Sum[G*m\_i*m\_j*r[z, i, j]/R[i, j]^3, {j, i + 1, n}], {i, 1, n}]\)], "Input"], Cell["initial conditions:", "Text"], Cell[BoxData[ \(bc\_1 = x\_1[0] \[Equal] 0; \ bc\_2 = y\_1[0] \[Equal] 0; \ bc\_3 = z\_1[0] \[Equal] 0; \ bc\_4 = \(x\_1'\)[0] \[Equal] 0; \ bc\_5 = \(y\_1'\)[0] \[Equal] 0; \ bc\_6 = \(z\_1'\)[0] \[Equal] 0;\)], "Input"], Cell[BoxData[ \(bc\_7 = x\_2[0] \[Equal] 1; \ bc\_8 = y\_2[0] \[Equal] 0; \ bc\_9 = z\_2[0] \[Equal] 0; \ bc\_10 = \(x\_2'\)[0] \[Equal] 0; \ bc\_11 = \(y\_2'\)[0] \[Equal] .8696; \ bc\_12 = \(z\_2'\)[0] \[Equal] 0;\)], "Input"], Cell[BoxData[ \(bc\_13 = x\_3[0] \[Equal] 0; \ bc\_14 = y\_3[0] \[Equal] 1.8684; \ bc\_15 = z\_3[0] \[Equal] 0; \ bc\_16 = \(x\_3'\)[0] \[Equal] \(- .6361\); \ bc\_17 = \(y\_3'\)[0] \[Equal] 0; \ bc\_18 = \(z\_3'\)[0] \[Equal] 0;\)], "Input"], Cell[BoxData[ \(bc\_19 = x\_4[0] \[Equal] \(-2.5833\); \ bc\_20 = y\_4[0] \[Equal] 0; \ bc\_21 = z\_4[0] \[Equal] 0; \ bc\_22 = \(x\_4'\)[0] \[Equal] 0; \ bc\_23 = \(y\_4'\)[0] \[Equal] \(- .541045\); \ bc\_24 = \(z\_4'\)[0] \[Equal] 0;\)], "Input"], Cell["Constants:", "Text"], Cell[BoxData[ \(G = .756208856; \ m\_1 = 1; \ m\_2 = .00000016607; \ m\_3 = .000002448; \ m\_4 = .0000030045;\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(soln = NDSolve[{Table[de\_\(x, i\), {i, 1, n}], Table[de\_\(y, i\), {i, 1, n}], Table[de\_\(z, i\), {i, 1, n}], Table[bc\_i, {i, 1, 6*n}]}, {x\_1[t], x\_2[t], x\_3[t], x\_4[t], y\_1[t], y\_2[t], y\_3[t], y\_4[t], z\_1[t], z\_2[t], z\_3[t], z\_4[t]}, {t, 0, 400}, MaxSteps \[Rule] Infinity, WorkingPrecision \[Rule] 21]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{\(x\_1[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x\_2[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x\_3[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(x\_4[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(y\_1[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(y\_2[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(y\_3[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(y\_4[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(z\_1[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(z\_2[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(z\_3[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], ",", RowBox[{\(z\_4[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0, 400.`21}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell["Defining position and velocity functions:", "Text", FontSize->11], Cell[BoxData[ \(Do[x\_i[t_] = x\_i[t] /. soln[\([1]\)]; \ y\_i[t_] = y\_i[t] /. soln[\([1]\)]; \ z\_i[t_] = z\_i[t] /. soln[\([1]\)];, {i, 1, n}]\)], "Input"], Cell[BoxData[ \(Do[Dx\_i[t_] = D[x\_i[t], t]; \ Dy\_i[t_] = D[y\_i[t], t]; \ Dz\_i[t_] = D[z\_i[t], t];, {i, 1, n}]\)], "Input"], Cell[BoxData[ \(Do[r\_i[t_] = {x\_i[t], y\_i[t], z\_i[t]}, {i, 1, n}]\)], "Input"], Cell[BoxData[ \(Do[Dr\_i[t_] = D[r\_i[t], t], {i, 1, n}]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ParametricPlot[{{x\_1[t], y\_1[t]}, {x\_2[t], y\_2[t]}, {x\_3[t], y\_3[t]}, {x\_4[t], y\_4[t]}}, {t, 394.97, 394.98}]\)], "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.97619 0.730989 0.603319 0.263427 [ [.099 .59082 -12 -9 ] [.099 .59082 12 0 ] [.2452 .59082 -6 -9 ] [.2452 .59082 6 0 ] [.3914 .59082 -12 -9 ] [.3914 .59082 12 0 ] [.5376 .59082 -12 -9 ] [.5376 .59082 12 0 ] [.68379 .59082 -12 -9 ] [.68379 .59082 12 0 ] [.82999 .59082 -12 -9 ] [.82999 .59082 12 0 ] [.96369 .07647 -12 -4.5 ] [.96369 .07647 0 4.5 ] [.96369 .20818 -24 -4.5 ] [.96369 .20818 0 4.5 ] [.96369 .33989 -12 -4.5 ] [.96369 .33989 0 4.5 ] [.96369 .47161 -24 -4.5 ] [.96369 .47161 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 .099 .60332 m .099 .60957 L s [(-1.2)] .099 .59082 0 1 Mshowa .2452 .60332 m .2452 .60957 L s [(-1)] .2452 .59082 0 1 Mshowa .3914 .60332 m .3914 .60957 L s [(-0.8)] .3914 .59082 0 1 Mshowa .5376 .60332 m .5376 .60957 L s [(-0.6)] .5376 .59082 0 1 Mshowa .68379 .60332 m .68379 .60957 L s [(-0.4)] .68379 .59082 0 1 Mshowa .82999 .60332 m .82999 .60957 L s [(-0.2)] .82999 .59082 0 1 Mshowa .125 Mabswid .13555 .60332 m .13555 .60707 L s .1721 .60332 m .1721 .60707 L s .20865 .60332 m .20865 .60707 L s .28175 .60332 m .28175 .60707 L s .3183 .60332 m .3183 .60707 L s .35485 .60332 m .35485 .60707 L s .42795 .60332 m .42795 .60707 L s .4645 .60332 m .4645 .60707 L s .50105 .60332 m .50105 .60707 L s .57415 .60332 m .57415 .60707 L s .6107 .60332 m .6107 .60707 L s .64725 .60332 m .64725 .60707 L s .72034 .60332 m .72034 .60707 L s .75689 .60332 m .75689 .60707 L s .79344 .60332 m .79344 .60707 L s .86654 .60332 m .86654 .60707 L s .90309 .60332 m .90309 .60707 L s .93964 .60332 m .93964 .60707 L s .06245 .60332 m .06245 .60707 L s .0259 .60332 m .0259 .60707 L s .25 Mabswid 0 .60332 m 1 .60332 L s .97619 .07647 m .98244 .07647 L s [(-2)] .96369 .07647 1 0 Mshowa .97619 .20818 m .98244 .20818 L s [(-1.5)] .96369 .20818 1 0 Mshowa .97619 .33989 m .98244 .33989 L s [(-1)] .96369 .33989 1 0 Mshowa .97619 .47161 m .98244 .47161 L s [(-0.5)] .96369 .47161 1 0 Mshowa .125 Mabswid .97619 .10281 m .97994 .10281 L s .97619 .12915 m .97994 .12915 L s .97619 .15549 m .97994 .15549 L s .97619 .18184 m .97994 .18184 L s .97619 .23452 m .97994 .23452 L s .97619 .26086 m .97994 .26086 L s .97619 .28721 m .97994 .28721 L s .97619 .31355 m .97994 .31355 L s .97619 .36623 m .97994 .36623 L s .97619 .39258 m .97994 .39258 L s .97619 .41892 m .97994 .41892 L s .97619 .44526 m .97994 .44526 L s .97619 .49795 m .97994 .49795 L s .97619 .52429 m .97994 .52429 L s .97619 .55063 m .97994 .55063 L s .97619 .57698 m .97994 .57698 L s .97619 .05012 m .97994 .05012 L s .97619 .02378 m .97994 .02378 L s .25 Mabswid .97619 0 m .97619 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .97574 .60317 m .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L .97574 .60317 L s .60324 .37651 m .60346 .37647 L .6037 .37642 L .60393 .37637 L .60415 .37632 L .60438 .37627 L .6046 .37622 L .60484 .37617 L .60507 .37612 L .60529 .37608 L .60553 .37603 L .60576 .37598 L .60597 .37593 L .60621 .37588 L .60643 .37584 L .60667 .37579 L .60689 .37574 L .60711 .37569 L .60735 .37564 L .60757 .3756 L .60781 .37555 L .60805 .3755 L .60827 .37545 L .6085 .3754 L .60872 .37536 L s .26686 .18278 m .26703 .18275 L .2672 .18271 L .26737 .18267 L .26753 .18264 L .2677 .1826 L .26786 .18256 L .26803 .18253 L .2682 .18249 L .26836 .18245 L .26853 .18242 L .26869 .18238 L .26885 .18235 L .26902 .18231 L .26918 .18227 L .26935 .18224 L .26952 .1822 L .26968 .18217 L .26985 .18213 L .27001 .18209 L .27019 .18206 L .27036 .18202 L .27052 .18198 L .27069 .18195 L .27085 .18191 L s .02381 .01543 m .02395 .0154 L .0241 .01537 L .02424 .01534 L .02438 .01531 L .02452 .01528 L .02466 .01525 L .02481 .01522 L .02495 .01519 L .02509 .01516 L .02524 .01513 L .02538 .0151 L .02552 .01507 L .02566 .01504 L .0258 .01501 L .02595 .01498 L .02609 .01495 L .02623 .01492 L .02637 .01489 L .02651 .01486 L .02666 .01483 L .02681 .0148 L .02695 .01477 L .02709 .01474 L .02723 .01472 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.33713, -2.29028, \ 0.00477841, 0.0132597}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[ Sqrt[\((x\_3[t] - x\_4[t])\)^2 + \((y\_3[t] - y\_4[t])\)^2] + Sqrt[\((x\_3[t] - x\_2[t])\)^2 + \((y\_3[t] - y\_2[t])\)^2] + Sqrt[\((x\_1[t] - x\_2[t])\)^2 + \((y\_1[t] - y\_2[t])\)^2], {t, 0, 400}]\)], "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.00238095 -0.254796 0.104267 [ [.2619 .0455 -9 -9 ] [.2619 .0455 9 0 ] [.5 .0455 -9 -9 ] [.5 .0455 9 0 ] [.7381 .0455 -9 -9 ] [.7381 .0455 9 0 ] [.97619 .0455 -9 -9 ] [.97619 .0455 9 0 ] [.01131 .16227 -6 -4.5 ] [.01131 .16227 0 4.5 ] [.01131 .26654 -6 -4.5 ] [.01131 .26654 0 4.5 ] [.01131 .37081 -6 -4.5 ] [.01131 .37081 0 4.5 ] [.01131 .47507 -6 -4.5 ] [.01131 .47507 0 4.5 ] [.01131 .57934 -6 -4.5 ] [.01131 .57934 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 .2619 .058 m .2619 .06425 L s [(100)] .2619 .0455 0 1 Mshowa .5 .058 m .5 .06425 L s [(200)] .5 .0455 0 1 Mshowa .7381 .058 m .7381 .06425 L s [(300)] .7381 .0455 0 1 Mshowa .97619 .058 m .97619 .06425 L s [(400)] .97619 .0455 0 1 Mshowa .125 Mabswid .07143 .058 m .07143 .06175 L s .11905 .058 m .11905 .06175 L s .16667 .058 m .16667 .06175 L s .21429 .058 m .21429 .06175 L s .30952 .058 m .30952 .06175 L s .35714 .058 m .35714 .06175 L s .40476 .058 m .40476 .06175 L s .45238 .058 m .45238 .06175 L s .54762 .058 m .54762 .06175 L s .59524 .058 m .59524 .06175 L s .64286 .058 m .64286 .06175 L s .69048 .058 m .69048 .06175 L s .78571 .058 m .78571 .06175 L s .83333 .058 m .83333 .06175 L s .88095 .058 m .88095 .06175 L s .92857 .058 m .92857 .06175 L s .25 Mabswid 0 .058 m 1 .058 L s .02381 .16227 m .03006 .16227 L s [(4)] .01131 .16227 1 0 Mshowa .02381 .26654 m .03006 .26654 L s [(5)] .01131 .26654 1 0 Mshowa .02381 .37081 m .03006 .37081 L s [(6)] .01131 .37081 1 0 Mshowa .02381 .47507 m .03006 .47507 L s [(7)] .01131 .47507 1 0 Mshowa .02381 .57934 m .03006 .57934 L s [(8)] .01131 .57934 1 0 Mshowa .125 Mabswid .02381 .07886 m .02756 .07886 L s .02381 .09971 m .02756 .09971 L s .02381 .12056 m .02756 .12056 L s .02381 .14142 m .02756 .14142 L s .02381 .18312 m .02756 .18312 L s .02381 .20398 m .02756 .20398 L s .02381 .22483 m .02756 .22483 L s .02381 .24568 m .02756 .24568 L s .02381 .28739 m .02756 .28739 L s .02381 .30825 m .02756 .30825 L s .02381 .3291 m .02756 .3291 L s .02381 .34995 m .02756 .34995 L s .02381 .39166 m .02756 .39166 L s .02381 .41251 m .02756 .41251 L s .02381 .43337 m .02756 .43337 L s .02381 .45422 m .02756 .45422 L s .02381 .49593 m .02756 .49593 L s .02381 .51678 m .02756 .51678 L s .02381 .53763 m .02756 .53763 L s .02381 .55849 m .02756 .55849 L s .02381 .03715 m .02756 .03715 L s .02381 .0163 m .02756 .0163 L s .02381 .60019 m .02756 .60019 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 .40285 m .04262 .281 L .0522 .14286 L .05352 .11574 L .05496 .08832 L .05622 .0676 L .05686 .05929 L .05756 .05274 L .05887 .05161 L .0601 .06756 L .06123 .09496 L .06244 .13221 L .06523 .22532 L .06788 .30577 L .07026 .36296 L .07161 .3875 L .07286 .40478 L .07412 .41676 L .07532 .42292 L .07639 .4243 L .07755 .42156 L .07882 .41388 L .07946 .40833 L .08016 .40108 L .08255 .3692 L .08403 .34729 L .08476 .33734 L .08543 .32957 L .08669 .32211 L .08735 .32379 L .08805 .33067 L .08875 .34226 L .0895 .35887 L .09085 .39517 L .09395 .48256 L .09665 .54575 L .09801 .5697 L .09879 .58068 L .09949 .58885 L .10077 .59902 L .10147 .60208 L .10213 .60332 L .1033 .60155 L .10458 .59399 L .10581 .58137 L .10694 .56556 L .10947 .51738 L .11184 .46218 L .113 .43551 L .11404 .41468 L Mistroke .11528 .39919 L .1166 .39931 L .11729 .40595 L .11804 .41666 L .11939 .44106 L .12201 .49075 L .12329 .51146 L .12446 .52689 L .12569 .53896 L .127 .54655 L .12769 .54817 L .12844 .54805 L .12914 .54611 L .12979 .54271 L .13109 .53134 L .13183 .52216 L .13252 .51181 L .13542 .45144 L .14024 .30723 L .14156 .26644 L .14228 .24649 L .14296 .23065 L .1436 .21949 L .14429 .2122 L .1455 .21111 L .14669 .22019 L .14799 .23543 L .14927 .25143 L .15063 .26719 L .15191 .27912 L .15307 .28682 L .15425 .29096 L .15536 .29125 L .15661 .28713 L .15724 .28322 L .15793 .27747 L .15916 .26378 L .16032 .24698 L .16292 .19772 L .16572 .13482 L .16816 .08272 L .16934 .06172 L .17042 .04775 L .17157 .0421 L .17279 .05133 L .17343 .0628 L .17412 .07939 L .17538 .11659 L .17965 .25654 L .182 .32208 L Mistroke .18424 .36984 L .18546 .389 L .1861 .39707 L .18679 .40408 L .188 .41243 L .18912 .41569 L .19035 .41445 L .19152 .40892 L .19256 .40069 L .19369 .38874 L .19632 .35248 L .19776 .33206 L .19847 .3238 L .19911 .31832 L .20025 .31641 L .20148 .3292 L .20212 .34157 L .20282 .35814 L .20409 .39296 L .20682 .47129 L .20939 .53395 L .21068 .55865 L .21207 .57927 L .21282 .58765 L .21361 .59428 L .21428 .59815 L .21502 .60047 L .2157 .60083 L .21635 .59961 L .21755 .59332 L .21885 .58093 L .21958 .57152 L .22026 .56141 L .2228 .51262 L .22512 .45901 L .22627 .43316 L .22753 .41023 L .22871 .39923 L .2298 .40179 L .23108 .41769 L .23224 .43849 L .23483 .48878 L .23708 .52487 L .23834 .53953 L .2395 .54868 L .24053 .55301 L .24165 .55358 L .24281 .54936 L .2439 .54096 L .24519 .52551 L Mistroke .24659 .5022 L .24912 .44402 L .25388 .2994 L .25527 .25885 L .25657 .23083 L .25722 .22279 L .25793 .21925 L .25871 .22078 L .25942 .22585 L .26068 .23949 L .26205 .25676 L .26326 .27141 L .26455 .28458 L .26518 .28987 L .26588 .29459 L .2671 .29984 L .26779 .30095 L .26852 .30057 L .26922 .29867 L .26986 .29563 L .27109 .28614 L .27178 .27869 L .27243 .27049 L .27486 .22902 L .27968 .11665 L .28083 .09003 L .28204 .06501 L .28308 .04785 L .28421 .03653 L .28542 .03793 L .28654 .05422 L .28775 .08463 L .28904 .12495 L .29438 .29302 L .29577 .32777 L .29729 .35881 L .29798 .37056 L .29872 .38122 L .30004 .39568 L .3013 .40388 L .30249 .40662 L .30378 .40436 L .30451 .40081 L .30518 .39624 L .30996 .33729 L .31062 .32811 L .31133 .31927 L .31263 .30931 L .31389 .31307 L .31505 .33086 L Mistroke .31614 .35709 L .31717 .38575 L .3195 .45358 L .32175 .5124 L .32294 .53841 L .3242 .56139 L .32486 .57143 L .32559 .58073 L .32689 .59246 L .3282 .59813 L .32943 .59766 L .33063 .59194 L .33173 .5823 L .33294 .56717 L .33421 .5466 L .33669 .4956 L .33933 .43539 L .34011 .42006 L .34085 .40872 L .34151 .40232 L .34223 .40044 L .34291 .40362 L .34364 .41145 L .34493 .43284 L .34725 .47878 L .34848 .50166 L .34978 .52285 L .35092 .53783 L .35217 .55 L .35331 .55666 L .35439 .55885 L .35503 .55818 L .35572 .55585 L .35694 .54744 L .35825 .53237 L .35969 .50894 L .3622 .45237 L .36453 .3853 L .36692 .31014 L .36809 .27538 L .36917 .24894 L .37015 .2334 L .37119 .22798 L .37224 .23229 L .37339 .24372 L .37574 .27335 L .37704 .2882 L .37828 .29949 L .37942 .30677 L .38067 .31066 L Mistroke .3818 .31018 L .38286 .30615 L .38414 .29641 L .38479 .2895 L .3855 .28042 L .38794 .23813 L .39059 .17631 L .39343 .103 L .39481 .07028 L .39612 .04507 L .3973 .03114 L .39858 .03129 L .39979 .04902 L .40107 .08198 L .40338 .15619 L .40764 .28719 L .40881 .31619 L .41004 .34236 L .4111 .36109 L .41223 .37692 L .41348 .38921 L .41464 .39583 L .41535 .39763 L .41601 .39779 L .41727 .39429 L .41845 .38675 L .41954 .37657 L .42199 .34519 L .42325 .3273 L .42444 .31206 L .42551 .30313 L .42667 .30346 L .42793 .31956 L .42864 .33471 L .42928 .35096 L .43169 .42104 L .43394 .48412 L .43512 .51324 L .43637 .53987 L .43746 .55932 L .43866 .57606 L .43975 .5869 L .44076 .59312 L .44205 .59557 L .44277 .59429 L .44344 .59142 L .44468 .58208 L .44598 .56669 L .44715 .54861 L .44824 .52844 L Mistroke .45073 .47437 L .45211 .44335 L .45342 .41786 L .45459 .40384 L .45587 .40396 L .4566 .41111 L .45726 .42081 L .45874 .44855 L .4614 .50142 L .46252 .52069 L .46372 .53805 L .46504 .55239 L .46627 .5608 L .46693 .5632 L .46765 .56406 L .46896 .56083 L .47024 .55168 L .47142 .53798 L .47251 .52089 L .47354 .50119 L .47588 .44443 L .48063 .3001 L .48195 .26475 L .48318 .24298 L .48445 .23671 L .48513 .23943 L .48585 .24542 L .48715 .26038 L .48836 .27609 L .49065 .30216 L .49195 .3127 L .49261 .3164 L .49334 .31909 L .49462 .32006 L .49583 .31631 L .49655 .3118 L .49724 .30593 L .49853 .29079 L .49993 .26866 L .50145 .23819 L .504 .17514 L .50677 .09993 L .50804 .06795 L .50873 .0526 L .50938 .04036 L .51052 .02597 L .51178 .02574 L .51299 .04338 L .51414 .0722 L .5163 .14005 L Mistroke .52114 .28701 L .52367 .342 L .52495 .36199 L .52569 .37099 L .52636 .3776 L .52756 .3855 L .52885 .38858 L .52999 .3868 L .53119 .38071 L .53414 .35051 L .53559 .33062 L .53692 .31232 L .53813 .29918 L .53942 .29486 L .5407 .30666 L .54144 .32062 L .54212 .33709 L .54468 .41129 L .54712 .48034 L .5493 .53158 L .55055 .55461 L .55168 .57099 L .55292 .58378 L .55423 .59128 L .55545 .59254 L .5566 .5888 L .55724 .58466 L .55792 .57875 L .55914 .56444 L .56045 .54413 L .56188 .51696 L .56424 .46513 L .5654 .4396 L .56648 .4192 L .56771 .40455 L .56836 .40263 L .56905 .40544 L .57017 .41877 L .57139 .44098 L .57344 .48296 L .57563 .52338 L .57689 .54189 L .57803 .55481 L .57917 .56367 L .58026 .56795 L .58155 .56762 L .58275 .5619 L .58406 .54963 L .58472 .54111 L .58545 .53 L Mistroke .588 .47727 L .59039 .41203 L .59269 .34088 L .59382 .30644 L .59486 .27809 L .59607 .25457 L .59737 .24542 L .59848 .25003 L .59966 .26211 L .60212 .29366 L .60342 .30843 L .60412 .3152 L .60478 .32051 L .60598 .32737 L .60729 .33023 L .6084 .32852 L .60958 .3223 L .61032 .31611 L .611 .30883 L .61254 .2869 L .61389 .26159 L .61532 .22932 L .618 .15788 L .62054 .08596 L .62168 .05699 L .6229 .0326 L .6236 .0235 L .62423 .01962 L .62547 .02625 L .62658 .04711 L .62779 .07978 L .62997 .14937 L .63254 .23014 L .63525 .3013 L .63637 .32466 L .63757 .34525 L .63888 .36234 L .64011 .37296 L .64134 .37847 L .64247 .37914 L .64371 .37522 L .64503 .36623 L .64618 .35495 L .64725 .34202 L .64969 .30865 L .65076 .29575 L .65189 .28755 L .65285 .28847 L .6539 .30043 L .65503 .32463 L Mistroke .65624 .35796 L .65842 .42324 L .66102 .4945 L .66244 .52673 L .66377 .55136 L .6649 .56774 L .66611 .58031 L .6668 .58509 L .66746 .588 L .66869 .58921 L .66932 .58768 L .67003 .58432 L .67076 .57898 L .67145 .57231 L .67268 .55669 L .67401 .53501 L .67677 .47812 L .67824 .44583 L .67904 .4295 L .6798 .41649 L .68047 .40823 L .68119 .40384 L .68245 .40915 L .68374 .42792 L .68492 .45117 L .68749 .50387 L .68885 .52822 L .69032 .5494 L .69158 .56265 L .69274 .57022 L .6939 .57316 L .695 .57147 L .69623 .56434 L .69738 .55279 L .69863 .53479 L .69997 .50979 L .70497 .37433 L .70629 .33337 L .70771 .29287 L .70839 .27662 L .70904 .26466 L .71026 .25384 L .71095 .25436 L .71158 .25812 L .71228 .26474 L .71302 .27349 L .71459 .29399 L .71606 .31212 L .71738 .32545 L .71859 .33418 L Mistroke .71925 .33728 L .71994 .3392 L .72063 .33967 L .72139 .33847 L .72204 .33593 L .72275 .3316 L .72404 .31947 L .72529 .30242 L .72644 .2823 L .72907 .22248 L .73184 .14387 L .73407 .0786 L .7353 .04725 L .73647 .0253 L .73713 .01831 L .73785 .01653 L .7391 .02903 L .74038 .05767 L .74156 .09202 L .74666 .24874 L .74806 .28414 L .74953 .31551 L .75079 .33693 L .7515 .34669 L .75217 .35437 L .75347 .36495 L .75466 .36958 L .75594 .36942 L .75666 .36709 L .75733 .36358 L .75844 .35509 L .75966 .34241 L .76214 .31 L .76338 .29381 L .76456 .28243 L .76561 .27974 L .76677 .28938 L .76802 .31435 L .76935 .35093 L .77175 .42328 L .77418 .49008 L .77538 .51772 L .77648 .53943 L .77746 .55551 L .77853 .56936 L .77962 .5791 L .78076 .58474 L .78206 .58533 L .78327 .58046 L .78459 .56936 L Mistroke .78526 .56161 L .786 .55149 L .78855 .50565 L .79096 .45375 L .79209 .4304 L .79329 .41141 L .79431 .40401 L .79543 .40823 L .79664 .42487 L .79793 .45001 L .80026 .49886 L .80157 .52373 L .80296 .54591 L .80369 .55541 L .80448 .56403 L .80521 .57009 L .80589 .57416 L .80658 .57664 L .80723 .57744 L .80845 .57477 L .80977 .56576 L .81052 .55787 L .81121 .54878 L .81374 .50184 L .81603 .44325 L .81848 .36972 L .81978 .33012 L .82049 .30975 L .82117 .29249 L .82249 .26852 L .8237 .2621 L .82483 .26785 L .82605 .28129 L .82855 .31401 L .82992 .32948 L .83121 .3405 L .83231 .34659 L .83349 .34927 L .8348 .34713 L .83601 .34021 L .83704 .33043 L .83817 .31567 L .84044 .27363 L .84566 .12984 L .84704 .08822 L .84776 .06762 L .84853 .04786 L .8492 .03324 L .84994 .02136 L .85124 .01534 L Mistroke .85255 .03058 L .85328 .04645 L .85395 .0639 L .85649 .1413 L .85896 .21633 L .86127 .27663 L .86355 .32148 L .86476 .33859 L .86606 .35155 L .86735 .35872 L .86801 .36023 L .86872 .36031 L .86998 .35662 L .87116 .3491 L .87342 .32565 L .87461 .3101 L .87587 .29313 L .87697 .28012 L .87818 .2718 L .87928 .2746 L .88032 .28875 L .88164 .31982 L .88285 .35491 L .88557 .43705 L .88804 .50192 L .88925 .52761 L .89034 .54694 L .89162 .56432 L .89231 .57142 L .89297 .5765 L .89369 .58023 L .89435 .58199 L .89507 .58209 L .89584 .58014 L .89713 .57223 L .89833 .55986 L .89965 .54127 L .90107 .51635 L .90363 .46279 L .90503 .43355 L .90635 .41216 L .90747 .40426 L .90867 .41008 L .90933 .41865 L .91001 .43043 L .91124 .45536 L .9138 .50926 L .9152 .53496 L .91653 .55481 L .91728 .56385 L Mistroke .9181 .57162 L .91884 .57677 L .91952 .57985 L .92017 .58122 L .92087 .58101 L .92161 .57884 L .92231 .57498 L .92355 .56367 L .92426 .55482 L .92491 .54508 L .92738 .49568 L .93201 .36423 L .93337 .32378 L .93466 .29187 L .93581 .27414 L .93706 .27043 L .93771 .27392 L .93842 .28056 L .93986 .29855 L .94243 .33184 L .94345 .34246 L .94453 .35117 L .94572 .35714 L .94682 .35896 L .94783 .35724 L .94879 .35252 L .94984 .3438 L .95096 .33028 L .95191 .3157 L .95294 .29649 L .95502 .24828 L .95873 .13903 L .96099 .07016 L .96209 .04155 L .96311 .02258 L .96429 .01472 L .96556 .02585 L .96664 .04779 L .96778 .0782 L .97619 .30386 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgKoool00`000?ooooooo`0Moooo00<0003oooooool02oooo`002Oooo`80002Woooo00<0003ooooo ool07Oooo`030000oooooooo01goool00`000?ooooooo`0Moooo00<0003oooooool02oooo`002Ooo o`030000oooooooo03Soool400000oooo`800004oooo0P0003Coool400000oooo`800004oooo0P00 01coool00`000?ooooooo`0Foooo0P0000Coool200001?ooo`80000Ioooo00<0003oooooool06ooo o`050000oooo00000000oooo00800004oooo0P0000?oool000Woool00`000?ooooooo`0joooo00D0 003oooooooooool000000_ooo`040000oooooooo00000_ooo`030000oooooooo037oool00`000?oo ooooo`03oooo00D0003oooooool0003oool00P0000;oool00`000?ooooooo`0Ioooo0P0001Koool0 10000?ooooooo`0000;oool010000?ooo`00000000;oool010000?ooooooo`0001Soool200007?oo o`030000oooo000000800002oooo00@0003oooooool00002oooo0@00007oool1oooo0009oooo00<0 003oooooool0>_ooo`050000oooooooooooo000000;oool010000?ooooooo`0000;oool00`000?oo ooooo`0boooo00<0003oooooool00_ooo`050000oooooooo0000oooo00800002oooo00<0003ooooo ool06Oooo`80000Ioooo00D0003oooooool0003oool00P0000;oool010000?ooooooo`0001Soool2 00006Oooo`P00002oooo00@0003oooooool00002oooo0@00007oool1oooo0009oooo00<0003ooooo ool0>_ooo`050000oooooooooooo000000;oool010000?ooooooo`0000;oool00`000?ooooooo`0L oooo0P0001Goool01@000?ooooooooooo`000002oooo00@0003oool000000002oooo00<0003ooooo ool06Oooo`80000Goooo0P0000?oool010000?ooo`00000000;oool010000?ooooooo`0001Soool2 00006Oooo`050000oooooooo0000oooo00<00002oooo00@0003oooooool00002oooo0@00007oool1 oooo0009oooo0P0003_oool01@000?ooooooooooo`000002oooo00D0003oooooool0003oool00P00 01koool200005_ooo`040000oooooooo00000_ooo`040000oooo000000000_ooo`030000oooooooo 01Woool200006Oooo`050000oooooooo0000oooo00800002oooo00@0003oooooool0000Hoooo0P00 01[oool010000?ooo`000?ooo`<00002oooo00@0003oooooool00002oooo0@00007oool1oooo0009 oooo00<0003oooooool0>?ooo`<00003oooo00@0003oooooool00002oooo00@0003oool00000000N oooo0P0001?oool010000?ooooooo`0000;oool01@000?ooooooo`000?ooo`0200000_ooo`030000 oooooooo01Woool200005_ooo`040000oooooooo00000_ooo`040000oooo000000000_ooo`040000 oooooooo00006?ooo`80000Koooo0P000004oooo0000000000000_ooo`040000oooooooo00000_oo o`400001oooo0Oooo`002Oooo`030000oooooooo02Ooool00`000?ooooooo`0@oooo00<0003ooooo ool00_ooo`800004oooo0`0001koool200005?ooo`800004oooo0P0000;oool400007?ooo`80000G oooo0P0000Coool300000oooo`80000Ioooo0P0001coool01@000?ooo`0000000?ooo`0200001?oo o`800003oooo0009oooo00<0003oooooool09_ooo`80000Noooo0P0001koool200007_ooo`80000N oooo0P0001koool200007_ooo`80000Noooo0P0000coool000Woool00`000?ooooooo`07oooo00<0 003oooooool07?ooo`80000Noooo0P0001koool200007_ooo`80000Noooo0P0001koool200007_oo o`80000Noooo0P0000coool000Woool00`000?ooooooo`07oooo00<0003oooooool07?ooo`80000N oooo0P0001koool200007_ooo`80000Noooo0P0001koool200007_ooo`80000Noooo0P0000coool0 00;ooooo0000700000?oool000Woool00`000?ooooooo`06oooo0P0000;oool00`000?ooooooo`0; oooo00<0003oooooool02_ooo`<0000;oooo00<0003oooooool02_ooo`030000oooooooo00?oool2 00001_ooo`030000oooooooo00[oool00`000?ooooooo`08oooo0`0000goool00`000?ooooooo`0: oooo00<0003oooooool00P0000Woool00`000?ooooooo`0:oooo00<0003oooooool01Oooo`800004 oooo00<0003oooooool02_ooo`030000oooooooo00[oool200003?ooo`030000oooooooo00[oool0 1`000?ooooooooooo`000?ooo`000007oooo00<0003oooooool02_ooo`030000oooooooo00Koool0 0`000?ooo`000002oooo00<0003oooooool01oooo`002Oooo`030000oooooooo00Koool200007_oo o`80000Hoooo00<0003oooooool00oooo`80000Noooo0P0001_oool00`000?ooooooo`0200007_oo o`80000Moooo0`0001goool00`000?ooo`00000Moooo00<0003oool000000_ooo`030000oooooooo 00Ooool000Woool00`000?ooooooo`06oooo0P0001koool200007_ooo`80000Noooo0P0001koool2 00007_ooo`80000Moooo00<0003oool000007Oooo`030000oooo000001goool00`000?ooo`00000< oooo0009oooo00<0003oooooool01_ooo`80000Noooo0P0001koool200007_ooo`80000Noooo0P00 01koool200007Oooo`030000oooo000001goool00`000?ooo`00000Moooo00<0003oool000003?oo o`002Oooo`030000oooooooo00Koool200007_ooo`80000Noooo0P0001koool200007_ooo`80000M oooo00<0003oool000007Oooo`030000oooo000001goool00`000?ooo`00000Moooo00<0003oool0 00003?ooo`002Oooo`800007oooo0P0001koool200007Oooo`030000oooo000001koool200007_oo o`80000Moooo00<0003oool000007Oooo`030000oooo000001goool00`000?ooo`00000Moooo00<0 003oool000003?ooo`002Oooo`030000oooooooo00Koool200007_ooo`80000Moooo00<0003oool0 00007_ooo`80000Noooo0P0001goool00`000?ooo`00000Moooo00<0003oool000007Oooo`030000 oooo000001goool00`000?ooo`00000oooo00<0003oooooool00P0000Koool00`000?ooooooo`02oooo0P0000koool00`000?oo o`000002oooo00<0003oooooool00oooo`030000oooooooo00;oool200003_ooo`030000oooo0000 00;oool00`000?ooooooo`04oooo00D0003oooooooooool000003oooo`030000oooo000000;oool0 0`000?ooooooo`04oooo00<0003oooooool00P0000ooool200000oooo`030000oooooooo00Coool0 0`000?ooooooo`07oooo0009oooo00D0003oooooooooool000001oooo`030000oooooooo01;oool0 0`000?ooooooo`09oooo00<0003oooooool04Oooo`030000oooooooo00Soool00`000?ooooooo`0B oooo00<0003oooooool00P0000Ooool010000?ooooooooooo`80000>oooo00<0003oooooool00P00 00Koool00`000?ooooooo`02oooo0P0000koool00`000?ooo`000002oooo00<0003oooooool00ooo o`070000oooooooooooo0000oooo000000koool00`000?ooo`000002oooo00<0003oooooool01?oo o`060000oooooooo0000oooo00003_ooo`030000oooo000000;oool00`000?ooooooo`04oooo00H0 003oooooool0003oool0000>oooo0P0000?oool00`000?ooooooo`04oooo00<0003oooooool01ooo o`002Oooo`800002oooo00<0003oooooool01Oooo`030000oooooooo01;oool00`000?ooooooo`09 oooo00<0003oooooool04Oooo`030000oooooooo00Soool00`000?ooooooo`02oooo00<0003ooooo ool03Oooo`050000oooooooooooo000000Ooool010000?ooooooooooo`80000>oooo00<0003ooooo ool00P0000Koool00`000?ooooooo`02oooo0P0000koool00`000?ooo`000002oooo00<0003ooooo ool00oooo`070000oooooooooooo0000oooo000000koool00`000?ooo`000002oooo00<0003ooooo ool01?ooo`060000oooooooo0000oooo00003_ooo`030000oooo000000;oool00`000?ooooooo`04 oooo00H0003oooooool0003oool0000=oooo00<0003oool000000oooo`030000oooooooo00koool0 00Woool01@000?ooooooooooo`000007oooo00<0003oooooool04_ooo`030000oooooooo00Woool0 0`000?ooooooo`0Aoooo00<0003oooooool02Oooo`040000oooooooooooo0P0000koool00`000?oo ooooo`09oooo00@0003oooooooooool200003_ooo`030000oooooooo00800006oooo00<0003ooooo ool00_ooo`80000>oooo00<0003oool000000_ooo`030000oooooooo00?oool01`000?oooooooooo o`000?ooo`00000>oooo00D0003oool0003oool000001oooo`060000oooooooo0000oooo00003_oo o`030000oooo000000;oool00`000?ooooooo`04oooo00H0003oooooool0003oool0000=oooo00<0 003oool000000oooo`030000oooooooo00koool000Woool01@000?ooooooooooo`000007oooo00<0 003oooooool04_ooo`030000oooooooo00Woool00`000?ooooooo`02oooo00<0003oooooool03?oo o`030000oooooooo00Woool010000?ooooooooooo`80000>oooo00<0003oooooool02Oooo`040000 oooooooooooo0P0000koool00`000?ooooooo`0200001oooo`040000oooooooooooo0P0000koool0 0`000?ooooooo`0200001oooo`060000oooooooo0000oooo00003Oooo`060000oooooooo0000oooo 00001oooo`060000oooooooo0000oooo00003_ooo`030000oooo000000;oool00`000?ooooooo`04 oooo00H0003oooooool0003oool0000=oooo00@0003oooooool00002oooo00<0003oooooool03_oo o`002Oooo`040000oooooooo00002?ooo`030000oooooooo01;oool00`000?ooooooo`09oooo00@0 003oooooooooool200003_ooo`030000oooooooo00Woool010000?ooooooooooo`80000>oooo00<0 003oooooool02Oooo`040000oooooooooooo0P0000koool00`000?ooooooo`0200001oooo`040000 oooooooooooo0P0000koool00`000?ooooooo`0200001oooo`060000oooooooo0000oooo00003Ooo o`060000oooooooo0000oooo00001oooo`060000oooooooo0000oooo00003_ooo`030000oooo0000 00;oool00`000?ooooooo`04oooo00H0003oooooool0003oool0000=oooo00@0003oooooool00002 oooo00<0003oooooool03_ooo`002Oooo`040000oooooooo00002?ooo`030000oooooooo00?oool0 0`000?ooooooo`0oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003_ooo`030000oooooooo 00800007oooo00H0003oooooool0003oool0000=oooo00@0003oooooooooool200001oooo`060000 oooooooo0000oooo00003Oooo`040000oooooooo00000_ooo`030000oooooooo00Coool01P000?oo ooooo`000?ooo`0000goool010000?ooooooo`0000;oool00`000?ooooooo`0>oooo0009oooo00@0 003oooooool00008oooo00<0003oooooool00oooo`030000oooooooo00coool00`000?ooooooo`09 oooo00@0003oooooooooool200003_ooo`030000oooooooo00Woool010000?ooooooooooo`80000> oooo00<0003oooooool02Oooo`040000oooooooooooo0P0000koool00`000?ooooooo`09oooo00H0 003oooooool0003oool0000=oooo00@0003oooooooooool200001oooo`060000oooooooo0000oooo 00003Oooo`040000oooooooooooo0P0000Ooool00`000?ooo`000002oooo00<0003oooooool02ooo o`060000oooooooo0000oooo00001oooo`060000oooooooo0000oooo00003Oooo`060000oooooooo 0000oooo00004Oooo`002Oooo`8000000oooo`000?ooo`07oooo00<0003oooooool00_ooo`80000> oooo00<0003oooooool02Oooo`040000oooooooooooo0P0000koool00`000?ooooooo`09oooo00@0 003oooooooooool200003_ooo`030000oooooooo00Woool010000?ooooooooooo`80000>oooo00<0 003oooooool02Oooo`060000oooooooo0000oooo00003Oooo`030000oooooooo00;oool00`000?oo ooooo`05oooo00H0003oooooool0003oool0000=oooo00@0003oooooooooool200001oooo`030000 oooo000000;oool00`000?ooooooo`0;oooo00H0003oooooool0003oool00007oooo00H0003ooooo ool0003oool0000=oooo00H0003oooooool0003oool0000Aoooo0009oooo00@0003oooooool00008 oooo00<0003oooooool00_ooo`80000>oooo00<0003oooooool02Oooo`040000oooooooooooo0P00 00koool00`000?ooooooo`09oooo00@0003oooooooooool200003_ooo`030000oooooooo00Woool0 10000?ooooooooooo`80000>oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003Ooo o`030000oooooooo00[oool01P000?ooooooo`000?ooo`0000goool010000?ooooooooooo`800007 oooo00<0003oool000000_ooo`030000oooooooo00_oool01P000?ooooooo`000?ooo`0000Ooool0 1P000?ooooooo`000?ooo`0000goool01P000?ooooooo`000?ooo`00017oool000Woool010000?oo ooooo`0000Woool010000?ooooooooooo`80000>oooo00<0003oooooool02Oooo`040000oooooooo oooo0P0000koool00`000?ooooooo`09oooo00@0003oooooooooool200003_ooo`030000oooooooo 00Woool01P000?ooooooo`000?ooo`0000koool00`000?ooooooo`09oooo00H0003oooooool0003o ool0000=oooo00<0003oooooool02_ooo`060000oooooooo0000oooo00003Oooo`040000oooooooo oooo0P0000Ooool00`000?ooo`000002oooo00<0003oooooool02oooo`040000oooooooooooo0P00 00Ooool01P000?ooooooo`000?ooo`0000goool01P000?ooooooo`000?ooo`00017oool000Woool0 10000?ooooooo`0000Woool010000?ooooooooooo`80000>oooo00<0003oooooool02Oooo`040000 oooooooooooo0P0000koool00`000?ooooooo`09oooo00@0003oooooooooool200003_ooo`030000 oooooooo00Woool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00H0003ooooo ool0003oool0000=oooo00<0003oooooool02_ooo`060000oooooooo0000oooo00003Oooo`050000 oooooooooooo000000Soool00`000?ooo`000002oooo00<0003oooooool02oooo`040000oooooooo oooo0P0000Ooool00`000?ooo`000002oooo00<0003oooooool02oooo`060000oooooooo0000oooo 00004Oooo`002Oooo`030000oooo000000[oool010000?ooooooooooo`80000>oooo00<0003ooooo ool02Oooo`040000oooooooooooo0P0000koool00`000?ooooooo`09oooo00@0003oooooooooool2 00003_ooo`030000oooooooo00Woool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0: oooo00H0003oooooool0003oool0000=oooo00<0003oooooool02_ooo`060000oooooooo0000oooo 00003Oooo`030000oooooooo00[oool00`000?ooo`000002oooo00<0003oooooool02oooo`040000 oooooooooooo0P0000Ooool00`000?ooo`000002oooo00<0003oooooool02oooo`060000oooooooo 0000oooo00004Oooo`002Oooo`030000oooo000000[oool010000?ooooooooooo`80000=oooo00<0 003oooooool02_ooo`040000oooooooooooo0P0000koool00`000?ooooooo`09oooo00@0003ooooo ooooool200003_ooo`030000oooooooo00Woool01P000?ooooooo`000?ooo`0000goool00`000?oo ooooo`0:oooo00H0003oooooool0003oool0000=oooo00<0003oooooool02_ooo`060000oooooooo 0000oooo00003Oooo`030000oooooooo00[oool00`000?ooo`000002oooo00<0003oooooool02ooo o`040000oooooooooooo0P0000Ooool00`000?ooo`000002oooo00<0003oooooool02oooo`040000 oooooooooooo0P00017oool000Woool300002_ooo`070000oooooooooooo0000oooo000000coool0 0`000?ooooooo`0:oooo00@0003oooooooooool200003_ooo`030000oooooooo00Woool010000?oo ooooooooo`80000=oooo00<0003oooooool02_ooo`060000oooooooo0000oooo00003Oooo`030000 oooooooo00[oool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00<0003oool0 00000_ooo`030000oooooooo00_oool00`000?ooooooo`0:oooo00<0003oool000000_ooo`030000 oooooooo00_oool00`000?ooooooo`0:oooo00<0003oool000000_ooo`030000oooooooo00_oool0 10000?ooooooooooo`80000Aoooo0009oooo00<0003oool000002_ooo`070000oooooooooooo0000 oooo000000coool00`000?ooooooo`0:oooo00@0003oooooooooool200003_ooo`030000oooooooo 00Woool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00H0003oooooool0003o ool0000=oooo00<0003oooooool02_ooo`060000oooooooo0000oooo00003Oooo`030000oooooooo 00[oool00`000?ooo`000002oooo00<0003oooooool02oooo`030000oooooooo00[oool00`000?oo o`000002oooo00<0003oooooool02oooo`030000oooooooo00[oool00`000?ooo`000002oooo00<0 003oooooool02oooo`040000oooooooooooo0P00017oool000Woool00`000?ooo`00000:oooo00L0 003oooooooooool0003oool000003?ooo`030000oooooooo00[oool010000?ooooooooooo`80000> oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003Oooo`030000oooooooo00[oool0 1P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00H0003oooooool0003oool0000= oooo00<0003oooooool02_ooo`030000oooo000000;oool00`000?ooooooo`0;oooo00<0003ooooo ool02_ooo`030000oooo000000;oool00`000?ooooooo`0;oooo00<0003oooooool02oooo`050000 oooooooooooo000000goool010000?ooooooooooo`80000Aoooo0002oooo0P0000Goool00`000?oo o`00000:oooo00L0003oooooooooool0003oool000003?ooo`030000oooooooo00[oool010000?oo ooooooooo`80000>oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003Oooo`030000 oooooooo00[oool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00H0003ooooo ool0003oool0000=oooo00<0003oooooool02_ooo`030000oooo000000;oool00`000?ooooooo`0; oooo00<0003oooooool02oooo`800002oooo00<0003oooooool02oooo`030000oooooooo00ooool0 0`000?ooooooo`0;oooo00<0003oooooool05?ooo`0000Goool0003oooooool000001?ooo`80000; oooo00L0003oooooooooool0003oool000003?ooo`030000oooooooo00[oool010000?oooooooooo o`80000>oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003Oooo`030000oooooooo 00[oool01P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0:oooo00H0003oooooool0003o ool0000=oooo00<0003oooooool02_ooo`030000oooo000000;oool00`000?ooooooo`0;oooo00<0 003oooooool02oooo`800002oooo00<0003oooooool02oooo`030000oooooooo00ooool00`000?oo ooooo`0;oooo00<0003oooooool05?ooo`0000Goool0003oooooool000001?ooo`<0000:oooo00L0 003oooooooooool0003oool000003?ooo`030000oooooooo00[oool010000?ooooooooooo`80000> oooo00<0003oooooool02Oooo`060000oooooooo0000oooo00003Oooo`030000oooooooo00[oool0 1P000?ooooooo`000?ooo`0000goool00`000?ooooooo`0;oooo0P0000;oool00`000?ooooooo`0; oooo00<0003oooooool02oooo`800002oooo00<0003oooooool02oooo`030000oooooooo00_oool0 1@000?ooooooooooo`00000=oooo00<0003oooooool03oooo`030000oooooooo00_oool00`000?oo ooooo`0Doooo00001?ooo`000000000000Goool200002oooo`070000oooooooooooo0000oooo0000 00coool00`000?ooooooo`0:oooo00H0003oooooool0003oool0000=oooo00<0003oooooool02_oo o`060000oooooooo0000oooo00003Oooo`030000oooooooo00_oool01@000?ooo`000?ooo`00000= oooo00<0003oooooool02oooo`800002oooo00<0003oooooool02oooo`030000oooooooo00_oool2 00000_ooo`030000oooooooo00_oool00`000?ooooooo`0?oooo00<0003oooooool02oooo`030000 oooooooo00ooool00`000?ooooooo`0;oooo00<0003oooooool05?ooo`0000?oool0003oool01_oo o`80000"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-14.1912, 2.39748, 1.4899, \ 0.0340222}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[ Sqrt[\((x\_3[t] - x\_4[t])\)^2 + \((y\_3[t] - y\_4[t])\)^2 + \((z\_3[t] - z\_4[t])\)^2] + Sqrt[\((x\_3[t] - x\_2[t])\)^2 + \((y\_3[t] - y\_2[t])\)^2 + \((z\_3[t] - z\_2[t])\)^2] + Sqrt[\((x\_1[t] - x\_2[t])\)^2 + \((y\_1[t] - y\_2[t])\)^2 + \((z\_1[t] - z\_2[t])\)^2] - Sqrt[\((x\_1[t] - x\_4[t])\)^2 + \((y\_1[t] - y\_4[t])\)^2 + \((z\_1[t] - z\_4[t])\)^2], {t, 394.97, 394.98}]\)], "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 -37616.2 95.2381 -74.008 62268.2 [ [.21429 .07861 -21 -9 ] [.21429 .07861 21 0 ] [.40476 .07861 -21 -9 ] [.40476 .07861 21 0 ] [.59524 .07861 -21 -9 ] [.59524 .07861 21 0 ] [.78571 .07861 -21 -9 ] [.78571 .07861 21 0 ] [.97619 .07861 -18 -9 ] [.97619 .07861 18 0 ] [.01131 .21564 -48 -4.5 ] [.01131 .21564 0 4.5 ] [.01131 .34018 -48 -4.5 ] [.01131 .34018 0 4.5 ] [.01131 .46472 -48 -4.5 ] [.01131 .46472 0 4.5 ] [.01131 .58925 -48 -4.5 ] [.01131 .58925 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 .09111 m .21429 .09736 L s [(394.972)] .21429 .07861 0 1 Mshowa .40476 .09111 m .40476 .09736 L s [(394.974)] .40476 .07861 0 1 Mshowa .59524 .09111 m .59524 .09736 L s [(394.976)] .59524 .07861 0 1 Mshowa .78571 .09111 m .78571 .09736 L s [(394.978)] .78571 .07861 0 1 Mshowa .97619 .09111 m .97619 .09736 L s [(394.98)] .97619 .07861 0 1 Mshowa .125 Mabswid .07143 .09111 m .07143 .09486 L s .11905 .09111 m .11905 .09486 L s .16667 .09111 m .16667 .09486 L s .2619 .09111 m .2619 .09486 L s .30952 .09111 m .30952 .09486 L s .35714 .09111 m .35714 .09486 L s .45238 .09111 m .45238 .09486 L s .5 .09111 m .5 .09486 L s .54762 .09111 m .54762 .09486 L s .64286 .09111 m .64286 .09486 L s .69048 .09111 m .69048 .09486 L s .7381 .09111 m .7381 .09486 L s .83333 .09111 m .83333 .09486 L s .88095 .09111 m .88095 .09486 L s .92857 .09111 m .92857 .09486 L s .25 Mabswid 0 .09111 m 1 .09111 L s .02381 .21564 m .03006 .21564 L s [(0.001192)] .01131 .21564 1 0 Mshowa .02381 .34018 m .03006 .34018 L s [(0.001194)] .01131 .34018 1 0 Mshowa .02381 .46472 m .03006 .46472 L s [(0.001196)] .01131 .46472 1 0 Mshowa .02381 .58925 m .03006 .58925 L s [(0.001198)] .01131 .58925 1 0 Mshowa .125 Mabswid .02381 .12224 m .02756 .12224 L s .02381 .15338 m .02756 .15338 L s .02381 .18451 m .02756 .18451 L s .02381 .24678 m .02756 .24678 L s .02381 .27791 m .02756 .27791 L s .02381 .30905 m .02756 .30905 L s .02381 .37132 m .02756 .37132 L s .02381 .40245 m .02756 .40245 L s .02381 .43358 m .02756 .43358 L s .02381 .49585 m .02756 .49585 L s .02381 .52699 m .02756 .52699 L s .02381 .55812 m .02756 .55812 L s .02381 .05997 m .02756 .05997 L s .02381 .02884 m .02756 .02884 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 .34535 m .06244 .27931 L .10458 .21566 L .14415 .16384 L .18221 .12128 L .22272 .08382 L .26171 .05539 L .28158 .04379 L .30316 .03339 L .32392 .02555 L .33381 .02256 L .34309 .02019 L .35286 .01815 L .36181 .01671 L .36656 .0161 L .37175 .01556 L .37459 .01532 L .37723 .01513 L .37994 .01498 L .38244 .01487 L .3849 .01479 L .38615 .01476 L .38685 .01474 L .38751 .01473 L .38823 .01473 L .38888 .01472 L .38959 .01472 L .39035 .01472 L .39102 .01472 L .39173 .01472 L .393 .01473 L .39418 .01475 L .39544 .01478 L .39774 .01485 L .40046 .01497 L .40296 .01511 L .40729 .01543 L .41202 .01588 L .42157 .01713 L .43184 .01898 L .44118 .0211 L .46213 .02744 L .48131 .03514 L .50211 .04553 L .54303 .07219 L .58243 .10566 L .62032 .14506 L .66066 .19477 L .69948 .25018 L .74076 .31723 L Mistroke .78052 .38975 L .81876 .46685 L .85946 .55681 L Mfstroke .85946 .55681 m .8849 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg_oool003;oool00`000?ooooooo`3[oooo000boooo00<0003ooooo ool0joooo`00<_ooo`030000oooooooo04SooolB0000TOooo`00<_ooo`030000oooooooo04?oool5 00004_ooo`D0002?oo o`80000_oooo0P00083oool003;oool00`000?ooooooo`0Foooo0P0000?oool300001Oooo`030000 oooooooo00;oool00`000?ooooooo`02oooo0`0000Coool01@000?ooo`0000000?ooo`0400001Ooo o`800003oooo0`0000Goool00`000?ooooooo`02oooo00<0003oooooool00_ooo`<00004oooo00<0 003oooooool01?ooo`060000oooooooooooo0000oooo0P0000?oool300001Oooo`030000oooooooo 00;oool00`000?ooooooo`02oooo0`0000Coool00`000?ooooooo`03oooo0P0000Koool200000ooo o`<00005oooo00<0003oooooool00_ooo`030000oooooooo00;oool300001?ooo`030000oooooooo 00?oool200002Oooo`800003oooo0`0000Goool00`000?ooooooo`02oooo00<0003oooooool00_oo o`<00004oooo0P0000?oool003;oool00`000?ooooooo`0Eoooo00@0003oooooool00005oooo00<0 003oooooool00_ooo`030000oooooooo00[oool010000?ooooooooooo`800003oooo00<0003ooooo ool01Oooo`040000oooooooo00001Oooo`030000oooooooo00;oool00`000?ooooooo`0:oooo00D0 003oooooooooool000001_ooo`030000oooooooo00;oool2000000?oool0003oool01?ooo`030000 oooooooo00;oool00`000?ooooooo`0:oooo00D0003oooooooooool000001?ooo`040000oooooooo 00001?ooo`040000oooooooo00001Oooo`030000oooooooo00;oool00`000?ooooooo`0:oooo00D0 003oooooooooool000001?ooo`040000oooooooo00001oooo`040000oooooooo00001Oooo`030000 oooooooo00;oool00`000?ooooooo`0:oooo00@0003oooooool00002oooo0@00007oool1oooo000b oooo00<0003oooooool06?ooo`030000oooooooo00?oool00`000?ooo`00000400002oooo`040000 oooooooooooo0P0000Coool00`000?ooooooo`07oooo00<0003oooooool00oooo`030000oooo0000 00@0000;oooo00<0003oooooool00_ooo`030000oooooooo00D00005oooo0P0000Goool00`000?oo o`00000400002oooo`030000oooooooo00;oool01@000?ooooooooooo`000002oooo00<0003ooooo ool01Oooo`030000oooooooo00?oool00`000?ooo`00000400002oooo`030000oooooooo00;oool0 1@000?ooooooooooo`000002oooo00<0003oooooool02?ooo`030000oooooooo00?oool00`000?oo o`00000400002oooo`040000oooooooo00000_ooo`400001oooo0Oooo`00<_ooo`80000Goooo0P00 00Coool3000000Goool0003oooooool000002_ooo`<000001Oooo`0000000?ooo`000005oooo00<0 003oooooool01?ooo`800004oooo0`000005oooo0000oooooooo000000[oool300001?ooo`040000 oooooooo00000_ooo`030000oooooooo00?oool400000_ooo`<000001Oooo`000?ooooooo`00000: oooo0`0000Coool010000?ooooooooooo`<00006oooo0P0000Coool3000000Goool0003oooooool0 00002_ooo`<00004oooo00<0003oooooool00_ooo`800009oooo0P0000Coool3000000Goool0003o ooooool000002_ooo`<00003oooo0P0000?oool003;oool00`000?ooooooo`0Hoooo00@0003ooooo ool00002oooo00H0003oooooool0003oool00009oooo00<0003oooooool00P0000Coool00`000?oo ooooo`03oooo00<0003oooooool01Oooo`040000oooooooo00000_ooo`060000oooooooo0000oooo 00002Oooo`040000oooooooo00001Oooo`060000oooooooo0000oooo00001oooo`040000oooo0000 00000_ooo`060000oooooooo0000oooo00002Oooo`040000oooooooo00001Oooo`040000oooooooo 00002_ooo`040000oooooooo00000_ooo`060000oooooooo0000oooo00002Oooo`040000oooooooo 00001Oooo`040000oooooooo00000_ooo`030000oooooooo00Soool010000?ooooooo`0000;oool0 1P000?ooooooo`000?ooo`0000Woool010000?ooooooo`0000;oool010000?ooooooo`0000;oool0 03;oool00`000?ooooooo`0Eoooo00@0003oooooool00002oooo00@0003oooooool00003oooo0P00 00Woool010000?ooo`00000000;oool010000?ooooooo`0000;oool010000?ooooooo`0000Coool0 10000?ooooooo`0000;oool010000?ooooooo`0000?oool200002Oooo`040000oooooooo00000_oo o`040000oooooooo00000oooo`800004oooo00@0003oooooool00002oooo0P000003oooo0000oooo 00;oool200002Oooo`040000oooooooo00000_ooo`040000oooooooo00000_ooo`030000oooooooo 00Goool010000?ooooooo`0000;oool010000?ooooooo`0000?oool200002Oooo`040000oooooooo 00000_ooo`040000oooooooo00000_ooo`040000oooooooo00001oooo`040000oooooooo00000_oo o`040000oooooooo00000oooo`800009oooo00@0003oooooool00002oooo00@0003oooooool00002 oooo000boooo00<0003oooooool05_ooo`800004oooo0P0000Goool00`000?ooooooo`08oooo0P00 00?oool400000oooo`800006oooo0P0000Coool200001Oooo`030000oooooooo00Soool200000ooo o`@00004oooo00<0003oooooool00oooo`800004oooo0P0000Goool00`000?ooooooo`08oooo0P00 00?oool400000oooo`<00005oooo0P0000Coool200001Oooo`030000oooooooo00Soool200000ooo o`@00003oooo0P0000Woool200001?ooo`800005oooo00<0003oooooool02?ooo`800004oooo0P00 00?oool003;oool00`000?ooooooo`0/oooo0P0004Ooool00`000?ooooooo`1coooo000boooo00<0 003oooooool0:oooo`030000oooooooo04Soool20000Loooo`00<_ooo`030000oooooooo02[oool0 0`000?ooooooo`1;oooo00<0003oooooool0L?ooo`00;OooonH0000=oooo000boooo00<0003ooooo ool02?ooo`030000oooooooo00Soool00`000?ooooooo`08oooo00<0003oooooool01oooo`80000: oooo00<0003oooooool02?ooo`030000oooooooo00Soool00`000?ooooooo`08oooo00<0003ooooo ool02?ooo`030000oooooooo00Ooool00`000?ooooooo`08oooo00<0003oooooool00_ooo`800004 oooo00<0003oooooool02?ooo`030000oooooooo00Soool00`000?ooooooo`08oooo00<0003ooooo ool02?ooo`030000oooooooo00Soool00`000?ooooooo`08oooo00<0003oooooool02?ooo`030000 oooooooo00Soool00`000?ooooooo`0@oooo000boooo00<0003oooooool09oooo`030000oooo0000 02_oool00`000?ooooooo`0Toooo00D0003oooooooooool00000:oooo`030000oooooooo02Woool0 0`000?ooooooo`0@oooo000boooo00<0003oooooool09_ooo`030000oooooooo05Coool00`000?oo ooooo`1[oooo000boooo00<0003oooooool09Oooo`030000oooooooo05Koool00`000?ooooooo`1Z oooo000boooo00<0003oooooool09?ooo`030000oooooooo05Soool00`000?ooooooo`1Yoooo000b oooo00<0003oooooool08oooo`030000oooooooo05[oool00`000?ooooooo`1Xoooo000boooo0P00 02?oool00`000?ooooooo`1Loooo00<0003oooooool0Ioooo`00<_ooo`030000oooooooo027oool0 0`000?ooooooo`1Noooo00<0003oooooool0I_ooo`00<_ooo`030000oooooooo023oool00`000?oo ooooo`1Poooo00<0003oooooool0IOooo`00<_ooo`030000oooooooo01ooool00`000?ooooooo`1R oooo00<0003oooooool0I?ooo`00<_ooo`030000oooooooo01koool00`000?ooooooo`1Toooo00<0 003oooooool0Hoooo`00<_ooo`030000oooooooo01koool00`000?ooooooo`1Uoooo00<0003ooooo ool0H_ooo`00<_ooo`030000oooooooo01goool00`000?ooooooo`1Woooo00<0003oooooool0HOoo o`00<_ooo`80000Moooo00<0003oooooool0J?ooo`030000oooooooo067oool003;oool00`000?oo ooooo`0Koooo00<0003oooooool0J_ooo`030000oooooooo063oool003;oool00`000?ooooooo`0J oooo00<0003oooooool0K?ooo`030000oooooooo05ooool003;oool00`000?ooooooo`0Ioooo00<0 003oooooool0K_ooo`030000oooooooo05koool003;oool00`000?ooooooo`0Hoooo00<0003ooooo ool0Koooo`030000oooooooo05koool003;oool00`000?ooooooo`0Hoooo00<0003oooooool0L?oo o`030000oooooooo05goool003;oool00`000?ooooooo`0Goooo00<0003oooooool0L_ooo`030000 oooooooo05coool003;oool00`000?ooooooo`0Foooo00<0003oooooool0M?ooo`030000oooooooo 05_oool003;oool200005_ooo`030000oooooooo07Goool00`000?ooooooo`1Koooo000boooo00<0 003oooooool05Oooo`030000oooooooo07Koool00`000?ooooooo`1Joooo000boooo00<0003ooooo ool05?ooo`030000oooooooo07Soool00`000?ooooooo`1Ioooo000boooo00<0003oooooool04ooo o`030000oooooooo07[oool00`000?ooooooo`1Hoooo000boooo00<0003oooooool04_ooo`030000 oooooooo07_oool00`000?ooooooo`1Hoooo0002oooo0P0000Coool00`000?ooooooo`03oooo0P00 00Coool200000oooo`@00002oooo100000;oool300000oooo`@00003oooo00<0003oooooool04_oo o`030000oooooooo07coool00`000?ooooooo`1Goooo00001Oooo`000?ooooooo`000008oooo00@0 003oooooool00002oooo00@0003oooooool00004oooo00<0003oooooool00oooo`030000oooooooo 00Coool010000?ooooooo`0000Koool00`000?ooooooo`0Aoooo00<0003oooooool0O_ooo`030000 oooooooo05Koool00005oooo0000oooooooo000000Soool010000?ooooooo`0000;oool010000?oo ooooo`0000Coool00`000?ooooooo`03oooo00<0003oooooool01?ooo`050000oooooooooooo0000 00Goool300004?ooo`030000oooooooo07ooool00`000?ooooooo`1Foooo00001Oooo`000?oooooo o`000008oooo00@0003oooooool00002oooo00@0003oooooool00004oooo00<0003oooooool00ooo o`030000oooooooo00;oool300001?ooo`030000oooooooo00;oool00`000?ooooooo`0?oooo00<0 003oooooool0POooo`030000oooooooo05Goool00005oooo0000oooooooo000000Soool010000?oo ooooo`0000;oool010000?ooooooo`0000Coool00`000?ooooooo`03oooo00D0003oooooooooool0 00000_ooo`030000oooooooo00?oool01@000?ooooooooooo`00000Aoooo00<0003oooooool0P_oo o`030000oooooooo05Coool00005oooo0000oooooooo000000Soool010000?ooooooo`0000;oool0 10000?ooooooo`0000;oool300000oooo`<00003oooo00@0003oooooool00002oooo00@0003ooooo ool00003oooo00<0003oooooool03_ooo`030000oooooooo08Coool00`000?ooooooo`1Coooo0002 oooo0P0000[oool200001?ooo`800005oooo00<0003oooooool00oooo`030000oooooooo00;oool2 00001?ooo`800004oooo00<0003oooooool03Oooo`030000oooooooo08Goool00`000?ooooooo`1C oooo000boooo00<0003oooooool03?ooo`030000oooooooo08Ooool00`000?ooooooo`1Boooo000b oooo00<0003oooooool03?ooo`030000oooooooo08Soool00`000?ooooooo`1Aoooo000boooo0P00 00coool00`000?ooooooo`29oooo00<0003oooooool0DOooo`00<_ooo`030000oooooooo00[oool0 0`000?ooooooo`2;oooo00<0003oooooool0D?ooo`00<_ooo`030000oooooooo00[oool00`000?oo ooooo`2ooo o`00<_ooo`030000oooooooo0:goool00`000?ooooooo`0koooo000boooo00<0003oooooool0[_oo o`030000oooooooo03[oool003;oool00`000?ooooooo`2^oooo00<0003oooooool0>_ooo`00<_oo o`030000oooooooo0:ooool00`000?ooooooo`0ioooo000boooo00<0003oooooool0[oooo`030000 oooooooo03Woool003;oool20000/Oooo`030000oooooooo03Soool003;oool00`000?ooooooo`2` oooo00<0003oooooool0>?ooo`00<_ooo`030000oooooooo0;7oool00`000?ooooooo`0goooo000b oooo00<0003oooooool0/Oooo`030000oooooooo03Ooool003;oool00`000?ooooooo`2boooo00<0 003oooooool0=_ooo`000_ooo`800004oooo00<0003oooooool00oooo`800004oooo0P0000?oool4 00000_ooo`@00002oooo0`0000Coool200001?ooo`030000oooooooo0;;oool00`000?ooooooo`0f oooo00001Oooo`000?ooooooo`000008oooo00@0003oooooool00002oooo00@0003oooooool00004 oooo00<0003oooooool00oooo`030000oooooooo00Coool010000?ooooooo`0000;oool01@000?oo ooooooooo`00002eoooo00<0003oooooool0=Oooo`0000Goool0003oooooool000002?ooo`040000 oooooooo00000_ooo`040000oooooooo00001?ooo`030000oooooooo00?oool00`000?ooooooo`04 oooo00@0003oooooool00002oooo00@0003oooooooooool30000/oooo`030000oooooooo03Goool0 0005oooo0000oooooooo000000Soool010000?ooooooo`0000;oool010000?ooooooo`0000Coool0 0`000?ooooooo`03oooo00<0003oooooool00_ooo`<00002oooo0`0000Coool00`000?ooooooo`2c oooo00<0003oooooool0=Oooo`0000Goool0003oooooool000002?ooo`040000oooooooo00000_oo o`040000oooooooo00001?ooo`030000oooooooo00?oool01@000?ooooooooooo`000002oooo00@0 003oooooool00006oooo00<0003oooooool0]?ooo`030000oooooooo03Coool00005oooo0000oooo oooo000000Soool010000?ooooooo`0000;oool010000?ooooooo`0000;oool300000oooo`<00003 oooo00@0003oooooool00002oooo00<0003oooooool01?ooo`030000oooooooo0;Coool00`000?oo ooooo`0doooo0002oooo0P0000[oool200001?ooo`800005oooo00<0003oooooool00oooo`030000 oooooooo00;oool200001?ooo`<00003oooo00<0003oooooool0]Oooo`030000oooooooo03?oool0 03;oool00`000?ooooooo`2eoooo00<0003oooooool0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {394.968, 0.0011873, \ 4.58432*^-5, 7.01163*^-8}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[""], "Input"], Cell[BoxData[ \(state[a_, b_, c_, d_, e_, f_, g_, h_]\ := \ Show[{Graphics[Text["\<*S\>", {a, b}]], Graphics[Text["\<*M\>", {c, d}]], Graphics[Text["\<*V\>", {e, f}]], Graphics[Text["\<*E\>", {g, h}]]}, DisplayFunction \[Rule] $DisplayFunction, PlotRange \[Rule] {{\(-3\), 3}, {\(-3\), 3}}, AspectRatio \[Rule] 1]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Table[ state[x\_1[t], y\_1[t], x\_2[t], y\_2[t], x\_3[t], y\_3[t], x\_4[t], y\_4[t]], {t, 0, 60, .5}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False], ",", TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]}], "}"}]], "Output"] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{1016, 695}, WindowMargins->{{0, Automatic}, {Automatic, 0}} ] (*********************************************************************** 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, 55, 1, 27, "Input"], Cell[1775, 52, 54, 1, 27, "Input"], Cell[1832, 55, 166, 3, 27, "Input"], Cell[2001, 60, 67, 1, 27, "Input"], Cell[2071, 63, 51, 0, 32, "Text"], Cell[2125, 65, 43, 1, 27, "Input"], Cell[2171, 68, 50, 0, 32, "Text"], Cell[2224, 70, 244, 5, 43, "Input"], Cell[2471, 77, 244, 5, 43, "Input"], Cell[2718, 84, 244, 5, 43, "Input"], Cell[2965, 91, 35, 0, 32, "Text"], Cell[3003, 93, 240, 4, 27, "Input"], Cell[3246, 99, 248, 4, 27, "Input"], Cell[3497, 105, 266, 5, 27, "Input"], Cell[3766, 112, 268, 4, 43, "Input"], Cell[4037, 118, 26, 0, 32, "Text"], Cell[4066, 120, 135, 2, 27, "Input"], Cell[CellGroupData[{ Cell[4226, 126, 411, 7, 59, "Input"], Cell[4640, 135, 2681, 63, 203, "Output"] }, Open ]], Cell[7336, 201, 73, 1, 30, "Text"], Cell[7412, 204, 176, 3, 27, "Input"], Cell[7591, 209, 139, 2, 29, "Input"], Cell[7733, 213, 86, 1, 27, "Input"], Cell[7822, 216, 73, 1, 27, "Input"], Cell[CellGroupData[{ Cell[7920, 221, 161, 2, 27, "Input"], Cell[8084, 225, 14176, 449, 186, 4732, 328, "GraphicsData", "PostScript", \ "Graphics"], Cell[22263, 676, 130, 3, 27, "Output"] }, Open ]], Cell[22408, 682, 26, 0, 27, "Input"], Cell[CellGroupData[{ Cell[22459, 686, 269, 5, 43, "Input"], Cell[22731, 693, 79252, 1735, 186, 14004, 925, "GraphicsData", "PostScript", \ "Graphics"], Cell[101986, 2430, 130, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102153, 2438, 536, 10, 59, "Input"], Cell[102692, 2450, 20325, 459, 186, 3673, 249, "GraphicsData", "PostScript", \ "Graphics"], Cell[123020, 2911, 130, 3, 27, "Output"] }, Open ]], Cell[123165, 2917, 26, 0, 27, "Input"], Cell[123194, 2919, 387, 7, 59, "Input"], Cell[CellGroupData[{ Cell[123606, 2930, 150, 3, 27, "Input"], Cell[123759, 2935, 15064, 365, 219, "Output"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)