(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 178675, 4470]*) (*NotebookOutlinePosition[ 179655, 4505]*) (* CellTagsIndexPosition[ 179580, 4499]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Transformations in the plane", "Subtitle", CellAutoOverwrite->False], Cell["\<\ Ivan Cnop Vrije universiteit Brussel icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[TextData[{ "Recall that \n", StyleBox["//MatrixForm", FontWeight->"Bold"], "\nwill convert a double list into a traditional rectangular matrix and\n", StyleBox["//ColumnForm", FontWeight->"Bold"], "\nwill convert a list or double list into a column." }], "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["Images of basis vectors", "Section", CellAutoOverwrite->False], Cell["Write all vertices of the unit square:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(begin = Flatten[Union[\n\t\t\t{Table[{0, 1 - j}, {j, 0, 1}], Table[{1, j}, {j, 0, 1}]}], 1];\)\)], "Input", InitializationCell->True, CellAutoOverwrite->False], Cell[BoxData[ \(General::"spell1" \(\(:\)\(\ \)\) "Possible spelling error: new symbol name \"\!\(begin\)\" is similar to \ existing symbol \"\!\(Begin\)\"."\)], "Message"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(basisBlock = Polygon[begin]\)], "Input", InitializationCell->True, CellAutoOverwrite->False], Cell[BoxData[ \(Polygon[{{0, 1}, {0, 0}, {1, 0}, {1, 1}}]\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[Graphics[{GrayLevel[ .5], basisBlock}]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\)], "Input", CellAutoOverwrite->False], 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 0.5 0.166667 0.5 0.166667 [ [0 .4875 -6 -9 ] [0 .4875 6 0 ] [.16667 .4875 -6 -9 ] [.16667 .4875 6 0 ] [.33333 .4875 -6 -9 ] [.33333 .4875 6 0 ] [.66667 .4875 -3 -9 ] [.66667 .4875 3 0 ] [.83333 .4875 -3 -9 ] [.83333 .4875 3 0 ] [1 .4875 -3 -9 ] [1 .4875 3 0 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .16667 -12 -4.5 ] [.4875 .16667 0 4.5 ] [.4875 .33333 -12 -4.5 ] [.4875 .33333 0 4.5 ] [.4875 .66667 -6 -4.5 ] [.4875 .66667 0 4.5 ] [.4875 .83333 -6 -4.5 ] [.4875 .83333 0 4.5 ] [.4875 1 -6 -4.5 ] [.4875 1 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 0 .5 m 0 .50625 L s [(-3)] 0 .4875 0 1 Mshowa .16667 .5 m .16667 .50625 L s [(-2)] .16667 .4875 0 1 Mshowa .33333 .5 m .33333 .50625 L s [(-1)] .33333 .4875 0 1 Mshowa .66667 .5 m .66667 .50625 L s [(1)] .66667 .4875 0 1 Mshowa .83333 .5 m .83333 .50625 L s [(2)] .83333 .4875 0 1 Mshowa 1 .5 m 1 .50625 L s [(3)] 1 .4875 0 1 Mshowa .125 Mabswid .03333 .5 m .03333 .50375 L s .06667 .5 m .06667 .50375 L s .1 .5 m .1 .50375 L s .13333 .5 m .13333 .50375 L s .2 .5 m .2 .50375 L s .23333 .5 m .23333 .50375 L s .26667 .5 m .26667 .50375 L s .3 .5 m .3 .50375 L s .36667 .5 m .36667 .50375 L s .4 .5 m .4 .50375 L s .43333 .5 m .43333 .50375 L s .46667 .5 m .46667 .50375 L s .53333 .5 m .53333 .50375 L s .56667 .5 m .56667 .50375 L s .6 .5 m .6 .50375 L s .63333 .5 m .63333 .50375 L s .7 .5 m .7 .50375 L s .73333 .5 m .73333 .50375 L s .76667 .5 m .76667 .50375 L s .8 .5 m .8 .50375 L s .86667 .5 m .86667 .50375 L s .9 .5 m .9 .50375 L s .93333 .5 m .93333 .50375 L s .96667 .5 m .96667 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .5 0 m .50625 0 L s [(-3)] .4875 0 1 0 Mshowa .5 .16667 m .50625 .16667 L s [(-2)] .4875 .16667 1 0 Mshowa .5 .33333 m .50625 .33333 L s [(-1)] .4875 .33333 1 0 Mshowa .5 .66667 m .50625 .66667 L s [(1)] .4875 .66667 1 0 Mshowa .5 .83333 m .50625 .83333 L s [(2)] .4875 .83333 1 0 Mshowa .5 1 m .50625 1 L s [(3)] .4875 1 1 0 Mshowa .125 Mabswid .5 .03333 m .50375 .03333 L s .5 .06667 m .50375 .06667 L s .5 .1 m .50375 .1 L s .5 .13333 m .50375 .13333 L s .5 .2 m .50375 .2 L s .5 .23333 m .50375 .23333 L s .5 .26667 m .50375 .26667 L s .5 .3 m .50375 .3 L s .5 .36667 m .50375 .36667 L s .5 .4 m .50375 .4 L s .5 .43333 m .50375 .43333 L s .5 .46667 m .50375 .46667 L s .5 .53333 m .50375 .53333 L s .5 .56667 m .50375 .56667 L s .5 .6 m .50375 .6 L s .5 .63333 m .50375 .63333 L s .5 .7 m .50375 .7 L s .5 .73333 m .50375 .73333 L s .5 .76667 m .50375 .76667 L s .5 .8 m .50375 .8 L s .5 .86667 m .50375 .86667 L s .5 .9 m .50375 .9 L s .5 .93333 m .50375 .93333 L s .5 .96667 m .50375 .96667 L s .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 g .5 .66667 m .5 .5 L .66667 .5 L .66667 .66667 L F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-3.12952, -3.09715, 0.0215829, \ 0.0215829}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell["What does a matrix do with such a square?", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", \(-0.2\)}, {\(- .5\), ".9"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{1, \(-0.2`\)}, {\(-0.5`\), 0.9`}}\)], "Output"] }, Closed]], Cell[BoxData[ \(image[{x_, y_}] := A . {x, y}\)], "Input", InitializationCell->True, CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(Show[{Graphics[{GrayLevel[ .5], basisBlock}], Graphics[{Hue[0], Polygon[Map[image, begin]]}]}\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}\n\t]\)], "Input", CellAutoOverwrite->False], 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 0.5 0.166667 0.5 0.166667 [ [0 .4875 -6 -9 ] [0 .4875 6 0 ] [.16667 .4875 -6 -9 ] [.16667 .4875 6 0 ] [.33333 .4875 -6 -9 ] [.33333 .4875 6 0 ] [.66667 .4875 -3 -9 ] [.66667 .4875 3 0 ] [.83333 .4875 -3 -9 ] [.83333 .4875 3 0 ] [1 .4875 -3 -9 ] [1 .4875 3 0 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .16667 -12 -4.5 ] [.4875 .16667 0 4.5 ] [.4875 .33333 -12 -4.5 ] [.4875 .33333 0 4.5 ] [.4875 .66667 -6 -4.5 ] [.4875 .66667 0 4.5 ] [.4875 .83333 -6 -4.5 ] [.4875 .83333 0 4.5 ] [.4875 1 -6 -4.5 ] [.4875 1 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 0 .5 m 0 .50625 L s [(-3)] 0 .4875 0 1 Mshowa .16667 .5 m .16667 .50625 L s [(-2)] .16667 .4875 0 1 Mshowa .33333 .5 m .33333 .50625 L s [(-1)] .33333 .4875 0 1 Mshowa .66667 .5 m .66667 .50625 L s [(1)] .66667 .4875 0 1 Mshowa .83333 .5 m .83333 .50625 L s [(2)] .83333 .4875 0 1 Mshowa 1 .5 m 1 .50625 L s [(3)] 1 .4875 0 1 Mshowa .125 Mabswid .03333 .5 m .03333 .50375 L s .06667 .5 m .06667 .50375 L s .1 .5 m .1 .50375 L s .13333 .5 m .13333 .50375 L s .2 .5 m .2 .50375 L s .23333 .5 m .23333 .50375 L s .26667 .5 m .26667 .50375 L s .3 .5 m .3 .50375 L s .36667 .5 m .36667 .50375 L s .4 .5 m .4 .50375 L s .43333 .5 m .43333 .50375 L s .46667 .5 m .46667 .50375 L s .53333 .5 m .53333 .50375 L s .56667 .5 m .56667 .50375 L s .6 .5 m .6 .50375 L s .63333 .5 m .63333 .50375 L s .7 .5 m .7 .50375 L s .73333 .5 m .73333 .50375 L s .76667 .5 m .76667 .50375 L s .8 .5 m .8 .50375 L s .86667 .5 m .86667 .50375 L s .9 .5 m .9 .50375 L s .93333 .5 m .93333 .50375 L s .96667 .5 m .96667 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .5 0 m .50625 0 L s [(-3)] .4875 0 1 0 Mshowa .5 .16667 m .50625 .16667 L s [(-2)] .4875 .16667 1 0 Mshowa .5 .33333 m .50625 .33333 L s [(-1)] .4875 .33333 1 0 Mshowa .5 .66667 m .50625 .66667 L s [(1)] .4875 .66667 1 0 Mshowa .5 .83333 m .50625 .83333 L s [(2)] .4875 .83333 1 0 Mshowa .5 1 m .50625 1 L s [(3)] .4875 1 1 0 Mshowa .125 Mabswid .5 .03333 m .50375 .03333 L s .5 .06667 m .50375 .06667 L s .5 .1 m .50375 .1 L s .5 .13333 m .50375 .13333 L s .5 .2 m .50375 .2 L s .5 .23333 m .50375 .23333 L s .5 .26667 m .50375 .26667 L s .5 .3 m .50375 .3 L s .5 .36667 m .50375 .36667 L s .5 .4 m .50375 .4 L s .5 .43333 m .50375 .43333 L s .5 .46667 m .50375 .46667 L s .5 .53333 m .50375 .53333 L s .5 .56667 m .50375 .56667 L s .5 .6 m .50375 .6 L s .5 .63333 m .50375 .63333 L s .5 .7 m .50375 .7 L s .5 .73333 m .50375 .73333 L s .5 .76667 m .50375 .76667 L s .5 .8 m .50375 .8 L s .5 .86667 m .50375 .86667 L s .5 .9 m .50375 .9 L s .5 .93333 m .50375 .93333 L s .5 .96667 m .50375 .96667 L s .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 g .5 .66667 m .5 .5 L .66667 .5 L .66667 .66667 L F 1 0 0 r .46667 .65 m .5 .5 L .66667 .41667 L .63333 .56667 L F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool006;ooooo002A ooooo`03o`000?oooooooooo01[ooooo3ooo001Sooooo`00TOooool00ol0003oooooooooo`0Hoooo oa7oo`00Hoooool0097ooooo00?o0000ooooooooool05_oooolCool006?ooooo0007ooooo`?o0000 :_ooool5o`0002[ooooo0ol0000[ooooo`03o`000?oooooooooo01Cooooo5Ooo0003o`0002[ooooo 1Ol0000[ooooo`?o00000oooool000Kooooo00Go0000ooooooooooooooooo`00000Zooooo`04o`00 0?ooooooooooo`0002_ooooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`0BoooooaOo o`0000?oooooo`000?ooool0:oooool01?l0003oooooooooool0000Zooooo`05o`000?oooooooooo ooooool000000_ooool000Go00001Oooool00ol0003oooooooooo`0Qooooo`Go00000oooool00ol0 003oooooooooo`0Sooooo`Go00000oooool00ol0003oooooooooo`0Zooooo`;o00004OoooolHool0 00;ooooo00?o0000ooooooooool0:oooool00ol0003oooooooooo`0^ooooo`7o00000Oooool1oooo o`002?ooool2o`0002gooooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`0Zooooo`03 o`000?oooooooooo00kooooo6_oo0002ooooo`03o`000?oooooooooo02cooooo00?o0000oooooooo ool0:oooool2o`0000?ooooo000:ooooo`03o`000?oooooooooo02Oooooo00Go0000oooooooooooo ooooo`00000[ooooo`03o`000?oooooooooo02[ooooo00?o0000ooooooooool03?oooolLool000;o oooo00?o0000ooooooooool0:Oooool01Ol0003ooooooooooooooooo000002kooooo0Ol00001oooo o`7ooooo0006ooooo`05o`000?ooooooooooooooool00000:Oooool01Ol0003ooooooooooooooooo 000002[ooooo0_l0000/ooooo`03o`000?oooooooooo00[ooooo7_oo00000ooooooo0000o`00000[ ooooo`05o`000?ooooooooooooooool00000:_ooool01Ol0003ooooooooooooooooo000000;ooooo 0007ooooo`?o0000:oooool3o`0002cooooo00?o0000ooooooooool0:_ooool00ol0003ooooooooo o`08oooooaooo`000oooool00ol0003oooooooooo`0Zooooo`?o0000;?ooool3o`0000?ooooo002A ooooo`03o`000?oooooooooo00Kooooo8Ooo001Uooooo`00TOooool00ol0003oooooooooo`04oooo ob?oo`00IOooool0097ooooo00?o0000ooooooooool00_oooolUool006Gooooo002Aooooo`03o`00 0?oooooooooo02Ooo`00IOooool000KoooooS?l0000Xool006?o00000oooool000Kooooo00?o0000 ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooooooo00Kooooo00?o0000 ooooooooool01oooool00ol0003oooooooooo`06ooooo`03o`000?oooooooooo00Kooooo00?o0000 ooooooooool01_ooool00ol0003oooooooooo`07ooooo`03o`000?oooooooooo00Kooooo00?o0000 ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooooooo00Oooooo00?o0000 ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooooooo00Oooooo:Ooo0005 ogmoO`03o`000?oooooooooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`07 ooooo`03o`000?oooooooooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06 ooooo`03o`000?oooooooooo00Oooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06 ooooo`03o`000?oooooooooo00Oooooo00?o0000ooooooooool00Oooool000Kooooo00?o0000oooo ooooool0:oooool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo02cooooo:Ooo0005ogmo O`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0;?ooool00ol0003oooooooooo`01oooo o`00TOoooolYool000GoOgmoHOooool0093ooooo:_oo0005ogmoOf7ooooo002@ooooobWoo`001_mo OgmQooooo`00T?oooolYool000KoOgmoHOooool0093ooooo:Ooo0006ogmoOf7ooooo002?ooooob[o o`001_moOgmQooooo`00SooooolYool000OoOgmoHOooool008oooooo:Ooo0007ogmoOf7ooooo002? ooooobWoo`001omoOgmQooooo`00S_oooolZool000OoOgmoHOooool008kooooo:_oo0007ogmoOf7o oooo002>ooooobWoo`002?moOgmQooooo`00S_oooolYool000SoOgmoHOooool008kooooo:Ooo0008 ogmoOf7ooooo002=ooooob[oo`002?moOgmQooooo`00SOoooolZool000SoOgmoHOooool008gooooo :Ooo0009ogmoOf7ooooo002=ooooobSoo`002_moOgmQooooo`00S?oooolWool000coOgmoHOooool0 08cooooo9Ooo000>ogmoOf7ooooo002"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-3.12952, -3.09715, 0.0215829, \ 0.0215829}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell["\<\ The images of the basis vectors are precisely the columns of the \ matrix A:\ \>", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(image[{1, 0}] // ColumnForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(image[{0, 1}] // ColumnForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(A // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell["For later use we include a parameter in the matrix", "Text"], Cell[BoxData[ \(Clear[images]\)], "Input", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(images[ a_] := {{GrayLevel[ .5], basisBlock}, {Hue[0], Polygon[Map[A . # &, begin]]}}\)\(\n\) \)\)], "Input", InitializationCell->True, CellAutoOverwrite->False], Cell[BoxData[ \(General::"spell1" \(\(:\)\(\ \)\) "Possible spelling error: new symbol name \"\!\(images\)\" is similar \ to existing symbol \"\!\(image\)\"."\)], "Message"] }, Closed]], Cell[CellGroupData[{ Cell["Try this again", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "1.7"}, {\(- .5\), ".9"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{1, 1.7`}, {\(-0.5`\), 0.9`}}\)], "Output"] }, Closed]], Cell[BoxData[ \(image[{x_, y_}] := A . {x, y}\)], "Input", InitializationCell->True, CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(Show[{Graphics[{GrayLevel[ .5], basisBlock}], Graphics[{Hue[0], Polygon[Map[image, begin]]}]}\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}\n\t]\)], "Input", CellAutoOverwrite->False], 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 0.5 0.166667 0.5 0.166667 [ [0 .4875 -6 -9 ] [0 .4875 6 0 ] [.16667 .4875 -6 -9 ] [.16667 .4875 6 0 ] [.33333 .4875 -6 -9 ] [.33333 .4875 6 0 ] [.66667 .4875 -3 -9 ] [.66667 .4875 3 0 ] [.83333 .4875 -3 -9 ] [.83333 .4875 3 0 ] [1 .4875 -3 -9 ] [1 .4875 3 0 ] [.4875 0 -12 -4.5 ] [.4875 0 0 4.5 ] [.4875 .16667 -12 -4.5 ] [.4875 .16667 0 4.5 ] [.4875 .33333 -12 -4.5 ] [.4875 .33333 0 4.5 ] [.4875 .66667 -6 -4.5 ] [.4875 .66667 0 4.5 ] [.4875 .83333 -6 -4.5 ] [.4875 .83333 0 4.5 ] [.4875 1 -6 -4.5 ] [.4875 1 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 0 .5 m 0 .50625 L s [(-3)] 0 .4875 0 1 Mshowa .16667 .5 m .16667 .50625 L s [(-2)] .16667 .4875 0 1 Mshowa .33333 .5 m .33333 .50625 L s [(-1)] .33333 .4875 0 1 Mshowa .66667 .5 m .66667 .50625 L s [(1)] .66667 .4875 0 1 Mshowa .83333 .5 m .83333 .50625 L s [(2)] .83333 .4875 0 1 Mshowa 1 .5 m 1 .50625 L s [(3)] 1 .4875 0 1 Mshowa .125 Mabswid .03333 .5 m .03333 .50375 L s .06667 .5 m .06667 .50375 L s .1 .5 m .1 .50375 L s .13333 .5 m .13333 .50375 L s .2 .5 m .2 .50375 L s .23333 .5 m .23333 .50375 L s .26667 .5 m .26667 .50375 L s .3 .5 m .3 .50375 L s .36667 .5 m .36667 .50375 L s .4 .5 m .4 .50375 L s .43333 .5 m .43333 .50375 L s .46667 .5 m .46667 .50375 L s .53333 .5 m .53333 .50375 L s .56667 .5 m .56667 .50375 L s .6 .5 m .6 .50375 L s .63333 .5 m .63333 .50375 L s .7 .5 m .7 .50375 L s .73333 .5 m .73333 .50375 L s .76667 .5 m .76667 .50375 L s .8 .5 m .8 .50375 L s .86667 .5 m .86667 .50375 L s .9 .5 m .9 .50375 L s .93333 .5 m .93333 .50375 L s .96667 .5 m .96667 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .5 0 m .50625 0 L s [(-3)] .4875 0 1 0 Mshowa .5 .16667 m .50625 .16667 L s [(-2)] .4875 .16667 1 0 Mshowa .5 .33333 m .50625 .33333 L s [(-1)] .4875 .33333 1 0 Mshowa .5 .66667 m .50625 .66667 L s [(1)] .4875 .66667 1 0 Mshowa .5 .83333 m .50625 .83333 L s [(2)] .4875 .83333 1 0 Mshowa .5 1 m .50625 1 L s [(3)] .4875 1 1 0 Mshowa .125 Mabswid .5 .03333 m .50375 .03333 L s .5 .06667 m .50375 .06667 L s .5 .1 m .50375 .1 L s .5 .13333 m .50375 .13333 L s .5 .2 m .50375 .2 L s .5 .23333 m .50375 .23333 L s .5 .26667 m .50375 .26667 L s .5 .3 m .50375 .3 L s .5 .36667 m .50375 .36667 L s .5 .4 m .50375 .4 L s .5 .43333 m .50375 .43333 L s .5 .46667 m .50375 .46667 L s .5 .53333 m .50375 .53333 L s .5 .56667 m .50375 .56667 L s .5 .6 m .50375 .6 L s .5 .63333 m .50375 .63333 L s .5 .7 m .50375 .7 L s .5 .73333 m .50375 .73333 L s .5 .76667 m .50375 .76667 L s .5 .8 m .50375 .8 L s .5 .86667 m .50375 .86667 L s .5 .9 m .50375 .9 L s .5 .93333 m .50375 .93333 L s .5 .96667 m .50375 .96667 L s .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 g .5 .66667 m .5 .5 L .66667 .5 L .66667 .66667 L F 1 0 0 r .78333 .65 m .5 .5 L .66667 .41667 L .95 .56667 L F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo o`00TOooool00ol0003oooooooooo`0Fooooob[oo`00C?ooool000Oooooo0ol0000Zooooo`Go0000 :_ooool3o`0002_ooooo00?o0000ooooooooool05?ooool^ool001Cooooo1Ol0000[ooooo`?o0000 0oooool000Kooooo00Go0000ooooooooooooooooo`00000Zooooo`04o`000?ooooooooooo`0002_o oooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`0Boooooc;oo`004oooool01?l0003o ooooooooool0000Zooooo`05o`000?ooooooooooooooool000000_ooool000Go00001Oooool00ol0 003oooooooooo`0Qooooo`Go00000oooool00ol0003oooooooooo`0Sooooo`Go00000oooool00ol0 003oooooooooo`0Zooooo`;o00004Oooooleool001?ooooo00?o0000ooooooooool0;_ooool1o`00 007ooooo0Oooool000Sooooo0_l0000]ooooo`03o`000?oooooooooo02[ooooo00?o0000oooooooo ool0:_ooool00ol0003oooooooooo`0>ooooocWoo`004_ooool00ol0003oooooooooo`0[ooooo`;o 00000oooool000[ooooo00?o0000ooooooooool09oooool01Ol0003ooooooooooooooooo000002_o oooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`0?oo000Sooooo`00TOooool^ogmoO`Sooooo =?oo000Uooooo`00TOooool^ogmoO`[ooooo"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-3.12952, -3.09715, 0.0215829, \ 0.0215829}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(image[{1, 0}] // ColumnForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ InterpretationBox[GridBox[{ {"1.`"}, {\(-0.5`\)} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {1.0, -0.5}], Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(image[{0, 1}] // ColumnForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ InterpretationBox[GridBox[{ {"1.7`"}, {"0.9`"} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {1.7, 0.90000000000000002}], Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(A // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1.7`"}, {\(-0.5`\), "0.9`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Input your own matrix", "Subsubsection"], Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"\[FilledSmallSquare]", "\[FilledSmallSquare]"}, {"\[FilledSmallSquare]", "\[FilledSmallSquare]"} }], ")"}]}]], "Input", CellAutoOverwrite->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Special cases", "Section"], Cell[CellGroupData[{ Cell["Vertical projection ", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "0"}, {"0", "a"} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["Does not preserve area (unless a= 1 or -1):", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Animate the action for different values of a (best is a circular \ animation):\ \>", "Text"], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 1, 0, \(- .1\)}]\)], "Input", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Horizontal projection ", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"a", "0"}, {"0", "1"} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["Does not preserve area (unless a= 1 or -1):", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Animate the action for different values of a (best is a circular \ animation):\ \>", "Text"], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 1, 0, \(- .1\)}]\)], "Input", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Homotetical image", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"a", "0"}, {"0", "a"} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["Does not preserve area (unless a= 1 or -1):", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Animate the action for different values of a (best is a circular \ animation):\ \>", "Text"], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 1, \(- .8\), \(- .2\)}]\)], "Input", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Reflection about the y-axis .", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {\(-1\), "0"}, {"0", "1"} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["Does preserve area:", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 1, 1, .1}]\)], "Input", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Exercise", "Subsubsection"], Cell["Repeat this for a reflection about the x-axis", "Text", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Schear", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "0"}, {"a", "1"} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["\<\ Animate the action for different values of a (best is a circular \ animation):\ \>", "Text"], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 0, 1, .1}]\)], "Input", CellAutoOverwrite->False], Cell["They do preserve area:", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Rotation", "Subsubsection", CellAutoOverwrite->False], Cell[BoxData[{\(a =. \), "\n", RowBox[{"A", "=", RowBox[{"(", GridBox[{ {\(Cos[a]\), \(-Sin[a]\)}, {\(Sin[a]\), \(Cos[a]\)} }], ")"}]}]}], "Input", CellAutoOverwrite->False], Cell["Does preserve area:", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Det[A]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(Simplify[%] \[Equal] 1\)], "Input"], Cell["\<\ Animate the action for different values of a (best is a circular \ animation):\ \>", "Text"], Cell[BoxData[ \(Do[Show[Graphics[images[a]]\n, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {a, 0, 2 Pi, Pi/12}]\)], "Input", CellAutoOverwrite->False] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["A marketing problem", "Section", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["Problem", "Subsubsection"], Cell["\<\ Suppose computer manufacturer X loses 7% of his clients to \ computer manufacturer Y each year, and 5 % of computer Y users \ convert to X computers . \ \>", "Text", CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell["Modeling", "Subsubsection"], Cell["\<\ Horizontal axis stands for computer X users and vertical axis \ counts computer Y users. Here is the matrix that models the transition over a single year.\ \>", "Text",\ CellAutoOverwrite->False], Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {".93", ".05"}, {".07", ".95"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(A // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(image[{x_, y_}] := A . {x, y}\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(image[pts_List] := Map[image, pts]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(figure[j_] := Nest[image, begin, j]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(figure[3]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(Do[Show[Graphics[{Hue[j/20], Polygon[figure[j]]}]\n\t, AspectRatio -> Automatic\n\t, Axes -> Automatic\n\t, PlotRange -> {{\(-3\), 3}, {\(-3\), 3}}]\n, {j, 0, 12}]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Conclusion: even in the cases where we start from either 100% HP (the first basis vector) or in the case of 100% Dell (the second \ basis vector) the situation will evolve to a stable proportion of about 40 % HP, 60 % Dell. \ Let us zoom in to see the exact value:\ \>", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Do[Show[Graphics[{Hue[j/20], Polygon[figure[j]]}]\n\t, AspectRatio -> Automatic\n\t, Axes -> Automatic, AxesLabel \[Rule] {HP, Dell}\n\t, PlotRange -> {{\(-1.3\), 1.3}, {\(-1.3\), 1.3}}]\n, {j, 0, 16}]\)], "Input", CellAutoOverwrite->False], Cell["From a starting point in the middle 50 - 50 market share", "Text"], Cell[BoxData[ \(A . { .5, .5}\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(A . %\)], "Input"], Cell[BoxData[ \(A . %\)], "Input"], Cell[BoxData[ \(A . %\)], "Input"], Cell[TextData[{ "Repeating the application of a matrix many times is written in shorthand \ using NestList and #&", StyleBox[" :", FontFamily->"Courier New"] }], "Text"], Cell[BoxData[ \(\(NestList[A . # &, { .5, .5}, 100];\)\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(ListPlot[%, \ PlotRange \[Rule] \ {{ .4, .5}, { .5, .6}}, \ AspectRatio \[Rule] Automatic]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Find the value graphically and compare with the final value from \ the NestList line\ \>", "Text"], Cell[BoxData[ \(Nest[A . # &, { .5, .5}, 100]\)], "Input", CellAutoOverwrite->False], Cell["\<\ Remark: convergence to this value is rather fast (exponentially in \ the number of years)\ \>", "Text", CellAutoOverwrite->False], Cell["Even from the extreme situation", "Text"], Cell[BoxData[ \(\(NestList[A . # &, {0, 1}, 100];\)\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(ListPlot[%, PlotRange -> {{0, 1}, {0, 1}}, AspectRatio \[Rule] Automatic]\)], "Input", CellAutoOverwrite->False], Cell["For later use we compute", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(Eigenvalues[A]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(Eigenvectors[A]\)], "Input", CellAutoOverwrite->False], Cell["Load a package", "Text"], Cell[BoxData[ \(<< Graphics`Arrow`\)], "Input", InitializationCell->True], Cell["and make shure your arrows start from the origin:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(arrow[{a_, b_}] := Arrow[{0, 0}, {a, b}]\)], "Input"], Cell[BoxData[ \(General::"spell1" \(\(:\)\(\ \)\) "Possible spelling error: new symbol name \"\!\(arrow\)\" is similar to \ existing symbol \"\!\(Arrow\)\"."\)], "Message"] }, Closed]], Cell["Here is the last figure again:", "Text"], Cell[BoxData[ \(Show[Graphics[{Hue[16/20], Polygon[figure[16]]}]\n\t, AspectRatio -> Automatic\n\t, Axes -> Automatic, AxesLabel \[Rule] {HP, Dell}\n\t, PlotRange -> {{\(-1.3\), 1.3}, {\(-1.3\), 1.3}}]\)], "Input"], Cell["\<\ We see that compression is tending to one arrow and that it has \ happened in the direction of the other arrow \ \>", "Text"], Cell[BoxData[ \(Show[ Graphics[Map[arrow, \(-Eigenvectors[A]\)]\[IndentingNewLine], AspectRatio -> Automatic\[IndentingNewLine], Axes -> Automatic\[IndentingNewLine], AxesLabel \[Rule] {HP, Dell}\n\t, PlotRange -> {{\(-1.3\), 1.3}, {\(-1.3\), 1.3}}]]\)], "Input"], Cell["The first vector is a fixed point (eigenvalue = 1)", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(A . First[Eigenvectors[A]]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(% == First[Eigenvectors[A]]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Exercise: work this problem with slightly different \ percentages\ \>", "Subsubsection", CellAutoOverwrite->False], Cell["e.g. 4 and 12 %", "Text"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Epilogue: action of a matrix on directions", "Section"], Cell[CellGroupData[{ Cell["\<\ Show[Graphics[ Table[{Hue[x/(2\[Pi])],arrow[{Cos[x], Sin[x]}]}, {x, 0, 2 \[Pi], .3}] ],AspectRatio->Automatic ,Axes->Automatic, PlotRange -> All]\ \>", "Input", CellTags->"S5.27.1"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.00184 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.497605 0.478585 0.500603 0.478585 [ [.01902 .4881 -6 -9 ] [.01902 .4881 6 0 ] [.25831 .4881 -12 -9 ] [.25831 .4881 12 0 ] [.7369 .4881 -9 -9 ] [.7369 .4881 9 0 ] [.97619 .4881 -3 -9 ] [.97619 .4881 3 0 ] [.48511 .02202 -12 -4.5 ] [.48511 .02202 0 4.5 ] [.48511 .26131 -24 -4.5 ] [.48511 .26131 0 4.5 ] [.48511 .7399 -18 -4.5 ] [.48511 .7399 0 4.5 ] [.48511 .97919 -6 -4.5 ] [.48511 .97919 0 4.5 ] [ 0 0 0 0 ] [ 1 1.00184 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .01902 .5006 m .01902 .50685 L s [(-1)] .01902 .4881 0 1 Mshowa .25831 .5006 m .25831 .50685 L s [(-0.5)] .25831 .4881 0 1 Mshowa .7369 .5006 m .7369 .50685 L s [(0.5)] .7369 .4881 0 1 Mshowa .97619 .5006 m .97619 .50685 L s [(1)] .97619 .4881 0 1 Mshowa .125 Mabswid .06688 .5006 m .06688 .50435 L s .11474 .5006 m .11474 .50435 L s .1626 .5006 m .1626 .50435 L s .21045 .5006 m .21045 .50435 L s .30617 .5006 m .30617 .50435 L s .35403 .5006 m .35403 .50435 L s .40189 .5006 m .40189 .50435 L s .44975 .5006 m .44975 .50435 L s .54546 .5006 m .54546 .50435 L s .59332 .5006 m .59332 .50435 L s .64118 .5006 m .64118 .50435 L s .68904 .5006 m .68904 .50435 L s .78476 .5006 m .78476 .50435 L s .83261 .5006 m .83261 .50435 L s .88047 .5006 m .88047 .50435 L s .92833 .5006 m .92833 .50435 L s .25 Mabswid 0 .5006 m 1 .5006 L s .49761 .02202 m .50386 .02202 L s [(-1)] .48511 .02202 1 0 Mshowa .49761 .26131 m .50386 .26131 L s [(-0.5)] .48511 .26131 1 0 Mshowa .49761 .7399 m .50386 .7399 L s [(0.5)] .48511 .7399 1 0 Mshowa .49761 .97919 m .50386 .97919 L s [(1)] .48511 .97919 1 0 Mshowa .125 Mabswid .49761 .06988 m .50136 .06988 L s .49761 .11773 m .50136 .11773 L s .49761 .16559 m .50136 .16559 L s .49761 .21345 m .50136 .21345 L s .49761 .30917 m .50136 .30917 L s .49761 .35703 m .50136 .35703 L s .49761 .40489 m .50136 .40489 L s .49761 .45274 m .50136 .45274 L s .49761 .54846 m .50136 .54846 L s .49761 .59632 m .50136 .59632 L s .49761 .64418 m .50136 .64418 L s .49761 .69204 m .50136 .69204 L s .49761 .78775 m .50136 .78775 L s .49761 .83561 m .50136 .83561 L s .49761 .88347 m .50136 .88347 L s .49761 .93133 m .50136 .93133 L s .25 Mabswid .49761 0 m .49761 1.00184 L s % Start of user PostScript /mathtops { gsave MBeginOrig moveto MEndOrig currentpoint grestore } bind def /MAtocoords { mathtops 4 2 roll mathtops 4 copy pop pop 3 -1 roll sub /arry exch def exch sub /arrx exch def arrx dup mul arry dup mul add sqrt /arrl exch def translate } bind def /MAarrowhead1 { gsave MAtocoords arrl 0. eq { 0 0 Mdot } { [ arrx arrl div arry arrl div -1 arry mul arrl div arrx arrl div 0 0 ] concat -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto fill -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto -0.05 0.0125 lineto stroke } ifelse grestore } def % End of user PostScript 1 0 0 r .5 Mabswid .49761 .5006 m .97619 .5006 L s % Start of user PostScript 0 0 1. 0 MAarrowhead1 % End of user PostScript 1 .286 0 r .49761 .5006 m .95482 .64203 L s % Start of user PostScript 0 0 0.955336 0.29552 MAarrowhead1 % End of user PostScript 1 .573 0 r .49761 .5006 m .8926 .77083 L s % Start of user PostScript 0 0 0.825336 0.564642 MAarrowhead1 % End of user PostScript 1 .859 0 r .49761 .5006 m .7951 .87549 L s % Start of user PostScript 0 0 0.62161 0.783327 MAarrowhead1 % End of user PostScript .854 1 0 r .49761 .5006 m .67102 .94666 L s % Start of user PostScript 0 0 0.362358 0.932039 MAarrowhead1 % End of user PostScript .568 1 0 r .49761 .5006 m .53146 .97799 L s % Start of user PostScript 0 0 0.0707372 0.997495 MAarrowhead1 % End of user PostScript .281 1 0 r .49761 .5006 m .38887 .96667 L s % Start of user PostScript 0 0 -0.227202 0.973848 MAarrowhead1 % End of user PostScript 0 1 .005 r .49761 .5006 m .25599 .91372 L s % Start of user PostScript 0 0 -0.504846 0.863209 MAarrowhead1 % End of user PostScript 0 1 .292 r .49761 .5006 m .1447 .82387 L s % Start of user PostScript 0 0 -0.737394 0.675463 MAarrowhead1 % End of user PostScript 0 1 .578 r .49761 .5006 m .06493 .70514 L s % Start of user PostScript 0 0 -0.904072 0.42738 MAarrowhead1 % End of user PostScript 0 1 .865 r .49761 .5006 m .02381 .56814 L s % Start of user PostScript 0 0 -0.989992 0.14112 MAarrowhead1 % End of user PostScript 0 .849 1 r .49761 .5006 m .02501 .42511 L s % Start of user PostScript 0 0 -0.98748 -0.157746 MAarrowhead1 % End of user PostScript 0 .562 1 r .49761 .5006 m .06843 .28882 L s % Start of user PostScript 0 0 -0.896758 -0.44252 MAarrowhead1 % End of user PostScript 0 .276 1 r .49761 .5006 m .15018 .17145 L s % Start of user PostScript 0 0 -0.725932 -0.687766 MAarrowhead1 % End of user PostScript .011 0 1 r .49761 .5006 m .26297 .08348 L s % Start of user PostScript 0 0 -0.490261 -0.871576 MAarrowhead1 % End of user PostScript .297 0 1 r .49761 .5006 m .39672 .03277 L s % Start of user PostScript 0 0 -0.210796 -0.97753 MAarrowhead1 % End of user PostScript .584 0 1 r .49761 .5006 m .53948 .02385 L s % Start of user PostScript 0 0 0.087499 -0.996165 MAarrowhead1 % End of user PostScript .87 0 1 r .49761 .5006 m .6785 .05752 L s % Start of user PostScript 0 0 0.377978 -0.925815 MAarrowhead1 % End of user PostScript 1 0 .843 r .49761 .5006 m .80136 .13077 L s % Start of user PostScript 0 0 0.634693 -0.772764 MAarrowhead1 % End of user PostScript 1 0 .557 r .49761 .5006 m .89709 .23705 L s % Start of user PostScript 0 0 0.834713 -0.550686 MAarrowhead1 % End of user PostScript 1 0 .27 r .49761 .5006 m .95713 .36688 L s % Start of user PostScript 0 0 0.96017 -0.279415 MAarrowhead1 % End of user PostScript 0 0 m 1 0 L 1 1.00184 L 0 1.00184 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288.5}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003o ooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Q_ooool3o`0000Kooooo00?o 0000ooooooooool0S_ooool008Oooooo00?o0000ooooooooool01Oooool00ol0003oooooooooo`2> ooooo`00Ooooool5o`0000?ooooo00?o0000ooooooooool01Oooool00ol0003oooooooooo`2>oooo o`00Qoooool00ol0003oooooooooo`05ooooo`;o00002_ooool00onE0?ooooooooooo`22ooooo`00 Qoooool00ol0003oooooooooo`05ooooo`03o`000?oooooooooo00Wooooo00?oU@3oooooooooool0 P_ooool008Kooooo0_l00007ooooo`03o`000?oooooooooo00Sooooo0_nE0?n4ooooo`00L_ooool0 0om<0?ooooooooooo`0Booooo`03o`000?oooooooooo00Gooooo00?o0000ooooooooool02?ooool2 oiD0ohCooooo001booooo`03od`0oooooooooooo01[ooooo00?o0000ooooooooool02?ooool2oiD0 ohCooooo001booooo`;oC03o6oooool00ol0003oooooooooo`07ooooo`CoU@3oPoooool007;ooooo 0_m<0?lKooooo`03o`000?oooooooooo00Oooooo1?nE0?n3ooooo`00L_ooool3od`0oa[ooooo00?o 0000ooooooooool01oooool4oiD0oh?ooooo001booooo`?oC03o6_ooool00ol0003oooooooooo`06 ooooo`GoU@3oPoooool007;ooooo1?m<0?lIooooo`03o`000?oooooooooo00Kooooo1OnE0?n3oooo o`00L_ooool4od`0oaWooooo00?o0000ooooooooool01_ooool5oiD0obGooooo00?ogP3ooooooooo ool0Foooool0077ooooo1Om<0?lIooooo`03o`000?oooooooooo00Gooooo1_nE0?lUooooo`03omh0 oooooooooooo05_ooooo001aooooo`KoC03o6?ooool00ol0003oooooooooo`05ooooo`OoU@3o8ooo ool2omh0oegooooo001aooooo`KoC03o6?ooool2o`0000Kooooo1onE0?lRooooo`?ogP3oGOooool0 077ooooo1om<0?lGooooo`03o`000?oooooooooo00Cooooo2?nE0?lRooooo`;ogP3oG_ooool0077o oooo1om<0?lGooooo`03o`000?oooooooooo00Sooooo1?nE0?lQooooo`?ogP3oG_ooool0077ooooo 2?m<0?lFooooo`03o`000?oooooooooo00Sooooo00?oU@3oooooooooool08Oooool4omh0oekooooo 001;ooooo`03o`80oooooooooooo02?ooooo1Om<0?lIooooo`03o`000?oooooooooo00Sooooo00?o U@3oooooooooool08Oooool4omh0oekooooo001;ooooo`;o0P3o:?ooool00om<0?ooooooooooo`0G ooooo`03o`000?oooooooooo00Oooooo00?oU@3oooooooooool08Oooool5omh0oekooooo001;oooo o`?o0P3o9oooool00om<0?ooooooooooo`0Gooooo`03o`000?oooooooooo00Oooooo00?oU@3ooooo ooooool08?ooool6omh0oekooooo001ooooo`So0P3o8Oooool00om<0?ooooooooooo`0Eooooo`;o00002?ooool00onE0?oooooo ooooo`0Oooooo`03omh0oooooooooooo06;ooooo001>ooooo`Wo0P3o8?ooool00om<0?oooooooooo o`0Eooooo`03o`000?oooooooooo00Oooooo00?oU@3oooooooooool07oooool00ooN0?oooooooooo o`1Rooooo`00C_ooool7o`80ob?ooooo00?oC03oooooooooool05?ooool00ol0003oooooooooo`07 ooooo`03oiD0oooooooooooo01oooooo00?ogP3oooooooooool0H_ooool004oooooo1?l20?lUoooo o`03od`0oooooooooooo01Cooooo00?o0000ooooooooool01_ooool00onE0?ooooooooooo`0Ooooo o`03omh0oooooooooooo06?ooooo001?ooooo`05o`80ooooooooooooooooool20?l09?ooool00om< 0?ooooooooooo`0Dooooo`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07oooool00ooN 0?ooooooooooo`0Xooooo`;oo`3G>Oooool005?ooooo00?o0P3oooooooooool08_ooool00om<0?oo ooooooooo`0Dooooo`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07_ooool00ooN0?oo ooooooooo`0Xooooo`?oo`3G>Oooool005Cooooo00?o0P3oooooooooool08Oooool00om<0?oooooo ooooo`0Dooooo`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07_ooool00ooN0?oooooo ooooo`0Wooooo`?oo`3G>_ooool005Cooooo00?o0P3oooooooooool08_ooool00om<0?oooooooooo o`0Cooooo`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07_ooool00ooN0?oooooooooo o`0Uooooo`Goo`3G>_ooool005Gooooo00?o0P3oooooooooool08Oooool00om<0?ooooooooooo`0C ooooo`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07Oooool00ooN0?ooooooooooo`0U ooooo`Goo`3G>oooool005Gooooo00?o0P3oooooooooool08Oooool00om<0?ooooooooooo`0Coooo o`03o`000?oooooooooo00Kooooo00?oU@3oooooooooool07Oooool00ooN0?ooooooooooo`0Toooo o`Koo`3G>oooool005Kooooo00?o0P3oooooooooool08?ooool00om<0?ooooooooooo`0Cooooo`03 o`000?oooooooooo00Kooooo00?oU@3oooooooooool07?ooool00ooN0?ooooooooooo`0Sooooo`Oo o`3G??ooool005Oooooo00?o0P3oooooooooool07oooool00om<0?ooooooooooo`0Cooooo`03o`00 0?oooooooooo00Kooooo00?oU@3oooooooooool07?ooool00ooN0?ooooooooooo`0Rooooo`Ooo`3G ?Oooool005Oooooo00?o0P3oooooooooool08?ooool00om<0?ooooooooooo`0Booooo`03o`000?oo oooooooo00Kooooo00?oU@3oooooooooool07?ooool00ooN0?ooooooooooo`0Qooooo`Soo`3G?Ooo ool005Sooooo00?o0P3oooooooooool07oooool00om<0?ooooooooooo`0Booooo`03o`000?oooooo oooo00Kooooo00?oU@3oooooooooool06oooool00ooN0?ooooooooooo`0Qooooo`Soo`3G?_ooool0 05Sooooo00?o0P3oooooooooool07oooool00om<0?ooooooooooo`0Booooo`;o00001_ooool00onE 0?ooooooooooo`0Looooo`03omh0oooooooooooo02?ooooo1_oo0=Lnooooo`00:oooool2o`16obco oooo00?o0P3oooooooooool07_ooool00om<0?ooooooooooo`0Booooo`03o`000?oooooooooo00Go oooo00?oU@3oooooooooool06oooool00ooN0?ooooooooooo`0Uooooo`Coo`3G?oooool002_ooooo 0ol0A_l[ooooo`03o`80oooooooooooo01oooooo00?oC03oooooooooool04Oooool00ol0003ooooo ooooo`05ooooo`03oiD0oooooooooooo01_ooooo00?ogP3oooooooooool09Oooool4ool0ecoooooo 000/ooooo`Co04Ko:_ooool00ol20?ooooooooooo`0Nooooo`03od`0oooooooooooo017ooooo00?o 0000ooooooooool01Oooool00onE0?ooooooooooo`0Kooooo`03omh0oooooooooooo02Cooooo00Co o`3Gooooooooooooo`3G@?ooool002gooooo1Ol0A_lYooooo`03o`80oooooooooooo01gooooo00?o C03oooooooooool04Oooool00ol0003oooooooooo`05ooooo`03oiD0oooooooooooo01[ooooo00?o gP3oooooooooool09?ooool00ooo0=Ooooooooooo`12ooooo`00;Oooool6o`16obSooooo00?o0P3o ooooooooool07Oooool00om<0?ooooooooooo`0Aooooo`03o`000?oooooooooo00Gooooo00?oU@3o ooooooooool06_ooool00ooN0?ooooooooooo`0Sooooo`03ool0eooooooooooo04?ooooo000^oooo o`Oo04Ko9oooool00ol20?ooooooooooo`0Looooo`03od`0oooooooooooo017ooooo00?o0000oooo ooooool01Oooool00onE0?ooooooooooo`0Iooooo`03omh0oooooooooooo02?ooooo00?oo`3Goooo ooooool0A?ooool002kooooo2Ol0A_lUooooo`03o`80oooooooooooo01gooooo00?oC03ooooooooo ool04?ooool00ol0003oooooooooo`05ooooo`03oiD0oooooooooooo01Wooooo00?ogP3ooooooooo ool08_ooool00ooo0=Ooooooooooo`15ooooo`00;oooool9o`16obGooooo00?o0P3oooooooooool0 7?ooool00om<0?ooooooooooo`0@ooooo`03o`000?oooooooooo00Gooooo00?oU@3oooooooooool0 6Oooool00ooN0?ooooooooooo`0Rooooo`03ool0eooooooooooo04Gooooo000`ooooo`Wo04Ko9?oo ool00ol20?ooooooooooo`0Looooo`03od`0oooooooooooo013ooooo00?o0000ooooooooool01Ooo ool00onE0?ooooooooooo`0Hooooo`03omh0oooooooooooo02;ooooo00?oo`3Gooooooooool0A_oo ool0033ooooo2?l0A_lVooooo`03o`80oooooooooooo01_ooooo00?oC03oooooooooool04?ooool0 0ol0003oooooooooo`05ooooo`03oiD0oooooooooooo01Sooooo00?ogP3oooooooooool08Oooool0 0ooo0=Ooooooooooo`17ooooo`00_ooool00ol0A_ooooooooooo`0Tooooo`03o`80oooooooo oooo01Wooooo00?oC03oooooooooool03oooool00ol0003oooooooooo`04ooooo`03oiD0oooooooo oooo01Oooooo00?ogP3oooooooooool07oooool00ooo0=Ooooooooooo`1;ooooo`00>oooool00ol0 A_ooooooooooo`0Sooooo`03o`80oooooooooooo01[ooooo00?oC03oooooooooool03_ooool00ol0 003oooooooooo`04ooooo`03oiD0oooooooooooo01Kooooo00?ogP3oooooooooool07oooool00ooo 0=Ooooooooooo`1ooooo`00?_ooool00ol0A_ooooooooooo`0Rooooo`03o`80oooooooooooo01Sooooo00?o C03oooooooooool03_ooool00ol0003oooooooooo`04ooooo`03oiD0oooooooooooo01Gooooo00?o gP3oooooooooool07_ooool00ooo0=Ooooooooooo`1>ooooo`00?oooool2o`16ob?ooooo00?o0P3o ooooooooool05oooool00om<0?ooooooooooo`0>ooooo`03o`000?oooooooooo00Cooooo00?oU@3o ooooooooool05Oooool00ooN0?ooooooooooo`0Mooooo`03ool0eooooooooooo02oooooo0_oo08hN ooooo`00@Oooool00ol0A_ooooooooooo`0Pooooo`03o`80oooooooooooo01Sooooo00?oC03ooooo ooooool03Oooool00ol0003oooooooooo`04ooooo`03oiD0oooooooooooo01Cooooo00?ogP3ooooo ooooool07Oooool00ooo0=Ooooooooooo`0]ooooo`Goo`2>7_ooool004;ooooo00?o04Kooooooooo ool08?ooool00ol20?ooooooooooo`0Gooooo`03od`0oooooooooooo00gooooo00?o0000oooooooo ool01?ooool00onE0?ooooooooooo`0Dooooo`03omh0oooooooooooo01cooooo00?oo`3Goooooooo ool0:oooool7ool0SQoooooo0013ooooo`03o`16oooooooooooo01oooooo00?o0P3oooooooooool0 5oooool00om<0?ooooooooooo`0=ooooo`03o`000?oooooooooo00?ooooo00?oU@3oooooooooool0 5Oooool00ooN0?ooooooooooo`0Kooooo`03ool0eooooooooooo02Wooooo2Ooo08hPooooo`00A?oo ool00ol0A_ooooooooooo`0Oooooo`03o`80oooooooooooo01Kooooo00?oC03oooooooooool03Ooo ool00ol0003oooooooooo`03ooooo`03oiD0oooooooooooo01Cooooo00?ogP3oooooooooool07?oo ool00ooo0=Ooooooooooo`0Vooooo`_oo`2>8Oooool004Gooooo00?o04Koooooooooool07_ooool0 0ol20?ooooooooooo`0Booooo`;o00000oooool00om<0?oo0000ooooo`03ooooo`?o00001_ooool0 0ol0003oooooooooo`03ooooo`03oiD0oooooooooooo01Cooooo00?ogP3oooooooooool06oooool0 0ooo0=Ooooooooooo`0Vooooo`_oo`2>8_ooool004Kooooo00?o04Koooooooooool07_ooool00ol2 0?ooooooooooo`0@ooooo`04o`000?ooooooooooo`0000;ooooo00?oC03oooooooooool00_ooool0 1Ol0003ooooooooooooooooo000000Gooooo00?o0000ooooooooool00oooool00onE0?oooooooooo o`0Cooooo`03omh0oooooooooooo01_ooooo00?oo`3Gooooooooool09oooool:ool0SR?ooooo0017 ooooo`03o`16oooooooooooo01kooooo00?o0P3oooooooooool02?ooool5o`0000;ooooo00Co0000 oooooooooooo00000_ooool00om<0?ooooooooooo`06ooooo`03o`000?oooooooooo00?ooooo0_l0 0004ooooo`03oiD0oooooooooooo01?ooooo00?ogP3oooooooooool06_ooool00ooo0=Oooooooooo o`0Yooooo`Soo`2>9?ooool004Sooooo00?o04Koooooooooool07Oooool00ol20?ooooooooooo`0? ooooo`04o`000?ooooooooooo`0000;ooooo00?oC03oooooooooool01_ooool00ol0003ooooooooo o`03ooooo`03o`000?oooooooooo00?ooooo00?oU@3oooooooooool04oooool00ooN0?oooooooooo o`0Iooooo`03ool0eooooooooooo02[ooooo1ooo08hUooooo`00BOooool00ol0A_ooooooooooo`0M ooooo`03o`80oooooooooooo00kooooo00Co0000oooooooooooo00000_ooool00om<0?oooooooooo o`02ooooo`Co00001_ooool00ol0003oooooooooo`03ooooo`03oiD0oooooooooooo01;ooooo00?o gP3oooooooooool06Oooool00ooo0=Ooooooooooo`0Zooooo`03ool0S_ooooooo`2>00Coo`2>9_oo ool004[ooooo00?o04Koooooooooool07?ooool00ol20?ooooooooooo`0>ooooo`04o`000?oooooo ooooo`0000?ooooo00GoC03oooooooooooooooooo`000009ooooo`03o`000?oooooooooo00?ooooo 00?oU@3oooooooooool04_ooool00ooN0?ooooooooooo`0Iooooo`03ool0eooooooooooo02Sooooo 0_oo08h3ooooo`?oo`2>9oooool004_ooooo00?o04Koooooooooool07?ooool00ol20?oooooooooo o`0>ooooo`;o00001?ooool01?m<0?ooooooooooooooool5o`0000Gooooo00?o0000ooooooooool0 0oooool00onE0?ooooooooooo`0Aooooo`03omh0oooooooooooo01Wooooo00?oo`3Gooooooooool0 :?ooool00ooo08koooooooooo`04ooooo`03ool0S_oooooooooo02Kooooo001ooooo`03o`16oooooooooooo01_ooooo00?o0P3oooooooooool04_ooool00om< 0?ooooooooooo`0;ooooo`03o`000?oooooooooo00;ooooo00?oU@3oooooooooool04Oooool00ooN 0?ooooooooooo`0Gooooo`03ool0eooooooooooo02Kooooo0_oo08hcooooo`005?ooool3o`2?ocSo oooo00?o04Koooooooooool06_ooool00ol20?ooooooooooo`0Cooooo`03od`0oooooooooooo00[o oooo00?o0000ooooooooool00_ooool00onE0?ooooooooooo`0Aooooo`03omh0oooooooooooo01Ko oooo00?oo`3Gooooooooool09_ooool00ooo08koooooooooo`0cooooo`005_ooool6o`2?ocCooooo 00?o04Koooooooooool06_ooool00ol20?ooooooooooo`0Booooo`03od`0oooooooooooo00[ooooo 00?o0000ooooooooool00_ooool00onE0?ooooooooooo`0@ooooo`03omh0oooooooooooo01Oooooo 00?oo`3Gooooooooool09?ooool2ool0SSKooooo000Gooooo`[o08oo>Oooool001Wooooo2_l0Sol`ooooo`;o04Ko6Oooool00ol20?ooooooooooo`0Boooo o`03od`0oooooooooooo00Wooooo00?o0000ooooooooool00_ooool00onE0?ooooooooooo`0?oooo o`03omh0oooooooooooo01Gooooo00?oo`3Gooooooooool08oooool00ooo08koooooooooo`0ioooo o`006_ooool8o`2?oc?ooooo00?o04Koooooooooool05oooool00ol20?ooooooooooo`0Aooooo`03 od`0oooooooooooo00Wooooo00?o0000ooooooooool00_ooool00onE0?ooooooooooo`0?ooooo`03 omh0oooooooooooo01Cooooo00?oo`3Gooooooooool08_ooool2ool0SScooooo000Kooooo`Oo08oo =?ooool00ol0A_ooooooooooo`0Gooooo`03o`80oooooooooooo013ooooo00?oC03oooooooooool0 2Oooool2o`0000?ooooo00?oU@3oooooooooool03_ooool00ooN0?ooooooooooo`0Eooooo`03ool0 eooooooooooo027ooooo00?oo`2>ooooooooool0??ooool001cooooo1Ol0Sol00ooooooo08ooo`2? o`0cooooo`03o`16oooooooooooo01Kooooo00?o0P3oooooooooool04?ooool00om<0?oooooooooo o`09ooooo`03o`000?oooooooooo00;ooooo00?oU@3oooooooooool03_ooool00ooN0?oooooooooo o`0Dooooo`03ool0eooooooooooo023ooooo0_oo08hoooooo`007Oooool4o`2?o`?ooooo0_l0Solb ooooo`03o`16oooooooooooo01Kooooo00?o0P3oooooooooool03oooool00om<0?ooooooooooo`09 ooooo`03o`000?oooooooooo00;ooooo00?oU@3oooooooooool03Oooool00ooN0?ooooooooooo`0D ooooo`03ool0eooooooooooo023ooooo00?oo`2>ooooooooool0?oooool001kooooo0ol0Sol5oooo o`;o08oo@_ooool001oooooo00?o08oooooooooo ool01_ooool2o`2?oc3ooooo00?o04Koooooooooool05Oooool00ol20?ooooooooooo`0?ooooo`03 od`0oooooooooooo00Sooooo00?o0000ooooooooool00_ooool00onE0?ooooooooooo`0=ooooo`03 omh0oooooooooooo01;ooooo00?oo`3Gooooooooool07oooool00ooo08koooooooooo`12ooooo`00 :_ooool2o`2?oboooooo00?o04Koooooooooool05?ooool00ol20?ooooooooooo`0?ooooo`03od`0 oooooooooooo00Sooooo00Go0000oooooooooooooooooiD0o`0?ooooo`03omh0oooooooooooo01;o oooo00?oo`3Gooooooooool07_ooool2ool0STGooooo000/ooooo`;o08oo;_ooool00ol0A_oooooo ooooo`0Dooooo`03o`80oooooooooooo00kooooo00?oC03oooooooooool02?ooool01Ol0003ooooo ooooooooooooU@3o00oooooo00?ogP3oooooooooool04_ooool00ooo0=Ooooooooooo`0Mooooo`03 ool0S_oooooooooo04Gooooo000^ooooo`;o08oo;Oooool00ol0A_ooooooooooo`0Dooooo`03o`80 oooooooooooo00kooooo00?oC03oooooooooool01oooool01Ol0003oooooooooooooooooU@3o00ko oooo00?ogP3oooooooooool04_ooool00ooo0=Ooooooooooo`0Looooo`;oo`2>B?ooool0033ooooo 0_l0Sol/ooooo`03o`16oooooooooooo01?ooooo00?o0P3oooooooooool03_ooool00om<0?oooooo ooooo`07ooooo`05o`000?oooooooooooooooonE0?l03_ooool00ooN0?ooooooooooo`0Aooooo`03 ool0eooooooooooo01cooooo00?oo`2>ooooooooool0B?ooool003;ooooo0_l0Sol[ooooo`03o`16 oooooooooooo01?ooooo00?o0P3oooooooooool03Oooool00om<0?ooooooooooo`07ooooo`05o`00 0?oooooooooooooooonE0?l03_ooool00ooN0?ooooooooooo`0@ooooo`03ool0eooooooooooo01_o oooo0_oo08i;ooooo`00=?ooool2o`2?ob[ooooo00?o04Koooooooooool04_ooool00ol20?oooooo ooooo`0=ooooo`03od`0oooooooooooo00Oooooo00Go0000oooooooooooooooooiD0o`0=ooooo`03 omh0oooooooooooo013ooooo00?oo`3Gooooooooool06oooool00ooo08koooooooooo`1;ooooo`00 =_ooool2o`2?obWooooo00?o04Koooooooooool04_ooool00ol20?ooooooooooo`0DOooool003cooooo 0_l0SolVooooo`03o`16oooooooooooo013ooooo00?o0P3oooooooooool03?ooool00om<0?oooooo ooooo`06ooooo`;o00000_ooool00onE0?ooooooooooo`0:ooooo`03omh0oooooooooooo00kooooo 00?oo`3Gooooooooool06?ooool00ooo08koooooooooo`1Aooooo`00?_ooool2o`2?obGooooo00?o 04Koooooooooool04?ooool00ol20?ooooooooooo`0;ooooo`03od`0oooooooooooo00Kooooo00Go 0000oooooooooooooooooiD0o`0;ooooo`03omh0oooooooooooo00kooooo00?oo`3Gooooooooool0 5oooool2ool0SUCooooo0010ooooo`;o08oo9?ooool00ol0A_ooooooooooo`0@ooooo`03o`80oooo oooooooo00[ooooo00?oC03oooooooooool01_ooool01?l0003ooooooooooonE0?looooo`03ool0 eooooooooooo01Gooooo0_oo08hjooooo`koo`153oooool004Cooooo0_l0SolSooooo`03o`16oooo oooooooo00kooooo00?o0P3oooooooooool02_ooool00om<0?ooooooooooo`05ooooo`04o`000?oo oooooooooiD0o`_ooooo00?ogP3oooooooooool03Oooool00ooo0=Ooooooooooo`0Eooooo`03ool0 S_oooooooooo03[ooooo3Ooo04D@ooooo`00A_ooool2o`2?ob;ooooo00?o04Koooooooooool03Ooo ool00ol20?ooooooooooo`0:ooooo`03od`0oooooooooooo00Gooooo00Co0000ooooooooooooU@3o 2oooool00ooN0?ooooooooooo`0ooooooooool0>Oooool4ool0A@Cooooo1Ooo04DGooooo`00C_oo ool2o`2?oakooooo00?o04Koooooooooool03?ooool00ol20?ooooooooooo`08ooooo`03od`0oooo oooooooo00Cooooo00Co0000ooooooooooooU@3o2Oooool00ooN0?ooooooooooo`0;ooooo`03ool0 eooooooooooo017ooooo0_oo08hiooooo`?oo`152Oooool2ool0AAWooooo001@ooooo`?o08oo7?oo ool00ol0A_ooooooooooo`0;ooooo`03o`80oooooooooooo00Sooooo00?oC03oooooooooool01?oo ool01?l0003ooooooooooonE0?l9ooooo`03omh0oooooooooooo00[ooooo00?oo`3Gooooooooool0 4Oooool00ooo08koooooooooo`0eooooo`Coo`153?ooool00ooo04Goooooooooo`0Hooooo`00Dooo ool2o`2?oa_ooooo00?o04Koooooooooool02oooool00ol20?ooooooooooo`07ooooo`03od`0oooo oooooooo00Cooooo00Co0000ooooooooooooU@3o2?ooool00ooN0?ooooooooooo`0:ooooo`03ool0 eooooooooooo013ooooo0_oo08heooooo`?oo`15:oooool005Gooooo0_l0SolJooooo`03o`16oooo oooooooo00[ooooo00?o0P3oooooooooool02?ooool00om<0?ooooooooooo`03ooooo`04o`000?oo oooooooooiD0o`Sooooo00?ogP3oooooooooool02Oooool00ooo0=Ooooooooooo`0@ooooo`03ool0 S_oooooooooo03;ooooo0ooo04D^ooooo`00Eoooool2o`2?oaWooooo00?o04Koooooooooool02_oo ool00ol20?ooooooooooo`07ooooo`03od`0oooooooooooo00?ooooo0_l000000onE0?oooooooooo o`06ooooo`03omh0oooooooooooo00Wooooo00?oo`3Gooooooooool03oooool2ool0SS7ooooo1?oo 04Daooooo`00FOooool2o`2?oaSooooo00?o04Koooooooooool02Oooool00ol20?ooooooooooo`07 ooooo`03od`0oooooooooooo00?ooooo00?o0000oooooonE0?l02?ooool00ooN0?ooooooooooo`09 ooooo`03ool0eooooooooooo00kooooo00?oo`2>ooooooooool0;_ooool3ool0ACGooooo001Koooo o`;o08oo5oooool00ol0A_ooooooooooo`09ooooo`03o`80oooooooooooo00Kooooo00?oC03ooooo ooooool00oooool00ol0003ooooooiD0o`08ooooo`03omh0oooooooooooo00Sooooo00?oo`3Goooo ooooool03Oooool2ool0SRkooooo0ooo04Dhooooo`00GOooool2o`2?oaKooooo00?o04Kooooooooo ool02Oooool00ol20?ooooooooooo`05ooooo`03od`0oooooooooooo00?ooooo00?o0000oooooonE 0?l01oooool00ooN0?ooooooooooo`08ooooo`03ool0eooooooooooo00gooooo00?oo`2>oooooooo ool0:_ooool4ool0AC_ooooo001Oooooo`;o08oo5Oooool00ol0A_ooooooooooo`08ooooo`03o`80 oooooooooooo00Kooooo00?oC03oooooooooool00_ooool00ol0003ooooooiD0o`07ooooo`03omh0 oooooooooooo00Oooooo00?oo`3Gooooooooool03?ooool2ool0SR[ooooo0ooo04Doooooo`003ooo ool8o`3Iod[ooooo0_l0SolDooooo`03o`16oooooooooooo00Sooooo00?o0P3oooooooooool01Ooo ool00om<0?ooooooooooo`02ooooo`03o`000?ooooooU@3o00Kooooo00?ogP3oooooooooool01ooo ool00ooo0=Ooooooooooo`09_ooool4ool0ADGooooo0009ooooo`ko0=WoC_ooool2o`2? oa;ooooo00?o04Koooooooooool01oooool00ol20?ooooooooooo`04ooooo`03od`0oooooooooooo 00;ooooo00?o0000oooooonE0?l01_ooool00ooN0?ooooooooooo`06ooooo`03ool0eooooooooooo 00[ooooo00?oo`2>ooooooooool08oooool3ool0ADWooooo000 7oooool3ool0AE?ooooo000Cooooo`?o0=Wo3_ooool6o`3Iod?ooooo0_l0Sol?ooooo`03o`16oooo oooooooo00Cooooo00?o0P3oooooooooool00oooool01om<0?oooooooooooooooooo0000oooooonE 0?l01?ooool00ooN0?ooooooooooo`04ooooo`03ool0eooooooooooo00Sooooo00?oo`2>oooooooo ool06oooool4ool0AEKooooo000Eooooo`03o`3Ioooooooooooo01;ooooo1_l0fOloooooo`;o08oo 3_ooool00ol0A_ooooooooooo`04ooooo`03o`80oooooooooooo00;ooooo00KoC03ooooooooooooo ooooo`000?nE0?l5ooooo`03omh0oooooooooooo00Cooooo00?oo`3Gooooooooool01_ooool2ool0 SQ_ooooo0ooo04EJooooo`005oooool4ool0AF3ooooo000mooooo`Ko0=Wo<_ooool2o`2?o`_o oooo00?o04Koooooooooool00_ooool00ol20?ooooooooooo`02ooooo`05od`0ooooooooooooo`00 0?nE0?l00oooool00ooN0?ooooooooooo`03ooooo`03ool0eooooooooooo00Gooooo00?oo`2>oooo ooooool05?ooool3ool0AFCooooo0007ooooo`?o0000>Oooool6o`3Io`?ooooo00?o0000oooooooo ool00_ooool3o`0002?ooooo0_l0Sol:ooooo`03o`16oooooooooooo00;ooooo00Go0P3ooooooooo oooooooood`0o`02ooooo`03o`000?nE0?oooooo00;ooooo00?ogP3oooooooooool00_ooool00ooo 0=Ooooooooooo`04ooooo`;oo`2>5?ooool3ool0AA?ooooo0_l00004ooooo`03o`000?oooooooooo 00;ooooo0ol0000looooo`?o00001oooool000Sooooo00?o0000ooooooooool0>_ooool01?l0003o ooooooooool00006o`3Io`03ooooool0003ooooo00;ooooo00?o0000ooooooooool08_ooool2o`2? o`Wooooo00Go04Koooooooooooooooooo`80o`04ooooo`04od`0oooooooo0000oiD0o`?ooooo00Go gP3oooooooooooooooooool0e`06ooooo`03ool0S_oooooooooo013ooooo1?oo04DEooooo`04o`00 0?ooooooooooo`0000Oooooo00Go0000ooooooooooooooooo`00000looooo`03o`000?oooooooooo 00Kooooo0005o`0000?ooooo00?o0000ooooooooool0_ooool00ol0003oooooooooo`06ooooo`002?ooool00ol0003oooooooooo`0jooooo`04o`000?oo ooooooooo`0000_ooooo00?o0000o`3Iool0fOl01?l0fOlRooooo`;o08oo1oooool01Ol0A_oooooo oooooooooooo0P3o00;ooooo00CoC03oooooool0003oU@3o0_ooool01OoN0?oooooooooooooooooo o`3G00Cooooo00?oo`2>ooooooooool03Oooool3ool0AAcooooo00Co0000oooooooooooo00002ooo ool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo00Kooooo0008ooooo`03o`000?oooooo oooo03[ooooo00Co0000oooooooooooo00001oooool4o`0000Oooooo1ol0fOlMooooo`;o08oo1_oo ool01?l0A_ooooooooooool20?l2ooooo`06od`0oooooooo0000oiD0oooooooogP3o0oooool01?oo 0=Ooooooooooooooool2ool0SPcooooo1?oo04DOooooo`04o`000?ooooooooooo`0000Oooooo1?l0 000mooooo`03o`000?oooooooooo00Kooooo0007ooooo`;o0000??ooool01?l0003oooooooooool0 0007ooooo`03o`000?oooooooooo00oooooo1_l0fOlIooooo`;o08oo1Oooool02ol0A_oooooooooo ool20?oooooood`0oooooooo0000oiD0oooooooogP3o00;ooooo00Goo`3Gooooooooooooooooool0 SP0;ooooo`?oo`158oooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo03gooooo 0_l00008ooooo`002?ooool00ol0003oooooooooo`0kooooo`;o00002?ooool5o`0001?ooooo1_l0 fOlEooooo`;o08oo1?ooool00ol0A_ooooooo`80o`02ooooo`07od`0ool0003oU@3ooooooooN0?oo ooooool0e`02ooooo`;oo`2>2?ooool4ool0ABOooooo0_l00008ooooo`Go0000??ooool00ol0003o ooooooooo`06ooooo`00K_ooool6o`3Ioa7ooooo0_l0Sol3ooooo`08o`16oooooooo0P3ooooooom< 0?ooU@3ooooooooN0?l2ooooo`03ool0eoooooooo`2>00Oooooo0ooo04Eoooooo`00M?ooool6o`3I o`gooooo0_l0Sol2ooooo`09o`16ool20?oooooood`0oonE0?ooooooomh0ooooooooo`3G00;oo`2> 1Oooool3ool0AF_ooooo0ooo000Dooooo`00N_ooool7o`3Io`Sooooo0_l0Sol02Ooooooo04Koo`80 oom<0?ooU@3oomh0ooooooooo`3Gool0SP03ooooo`Coo`15K_ooool7ool0013ooooo0021ooooo`Ko 0=Wo1?ooool2o`2?o`04o`16oom<0?ooU@3oomh0o`;oo`2>00Coooooool0AOoo04Goo`15L_ooool: ool000gooooo0027ooooo`Ko0=Wo00Co08ooo`80oonE0?ooo`2>0ooo04Eeooooo`koo`002Oooool0 08_o00000_l0omd2o`3Io`;oo`1500?oodT0ool00?oo0000QOoo0007o`0000001_ooool00ol0003o ooooooooo`0:ooooo`03o`000?oooooooooo00_ooooo00?o0000ooooooooool02oooool00ol0003o ooooooooo`0:ooooo`03o`000?oooooooooo00_ooooo00?o0000ooooooooool02oooool00ol0003o ooooooooo`0:ooooo`03o`000?oooooooooo00_ooooo00?o0000ooooooooool02oooool00ol0003o ooooooooo`07o`3og@07ooooool0oi?o0?nCooooool0o`7ooooooonB0003oom900Oooooo00?o0000 ooooooooool02oooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo00[ooooo00?o0000 ooooooooool02oooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo00_ooooo00?o0000 ooooooooool02_ooool00ol0003oooooooooo`0:ooooo`goo`000_ooool00ol0003oooooooooo`05 ooooo`00OOooool7o`3og@Kooooo0_l0oi<01_l0od[oooooo`3o0Om7o`3of_l0ooooo`;ooi8000Co oooooom90?ooB@3oodT0LOooool8ool000oooooo001fooooo`Oo0?oM2oooool2o`3oT`08ooooool0 od[oooooooooool0o`7oTOl0om[o0?oof`02ooooo`04oonB0?ooooooooooooooo`?oodT0K_ooool3 ool001Cooooo001_ooooo`Oo0?oM3oooool3o`3oT`;ooooo00Wo0?m:oooooooooooo0?l1odOo0?nA o`3of_l0oooooooof`000_ooool2oonB00Cooooo1?ooB@21ooooo`00J?ooool7o`3ogACooooo0_l0 oi<4ooooo`0;o`3oB_ooooooooooo`3o0OooooooAol0oi7o0?oooooof_l0oooooooof`000oooool0 0oooTP3oooooooooo`05ooooo`?oodT0O_ooool0063ooooo2?l0omdIooooo`;o0?nC1Oooool03?l0 od[ooooooooooooooooo0?l1oooooom7o`3oTOl0oooooooJo`3ooooooooK00Cooooo0_ooTP08oooo o`?oodT0Noooool005Wooooo1ol0omdOooooo`;o0?nC1_ooool02Ol0od[ooooooooooooooooo0?l1 oooooom7o`3ooooooi7o0002ooooo`03om[o0?ooooooom/000Gooooo00?ooi80ooooooooool02?oo ool4oom907Oooooo001Booooo`Oo0?oM9?ooool2o`3oT`Oooooo00?o0?m:ooooooooool00_ooool0 1Ol0o`7oooooodOo0?ooooooTOl000;ooooo00Cof_l0ooooooooooooom/01Oooool00oooTP3ooooo ooooo`0;ooooo`?oodT0M?ooool004_ooooo1ol0omdYooooo`;o0?nC2?ooool00ol0od[ooooooooo o`02ooooo`09o`3o0OooooooooooodOo0?oooooo0000oi7o0?oooooof_l000?ooooo00?oom/0oooo ooooool00oooool2oonB00kooooo0oooB@1aooooo`00A?ooool7o`3ogBkooooo0_l0oi<8ooooo`;o 0?m:1?ooool02?l0o`7oooooooooooooooooAol0ooooool0003oTOl00_ooool01OoJo`3ooooooooo ooooooooom/000Kooooo00?ooi80ooooooooool03_ooool3oom906kooooo000mooooo`Oo0?oM<_oo ool3o`3oT`Wooooo00?o0?m:ooooooooool01?ooool01?l0o`7ooooooooooom7o`02ooooo`05o`00 0?nAo`3ooooooooooooJo`000oooool00ooof`3oooooooooo`05ooooo`;ooi804Oooool4oom906[o oooo000fooooo`Oo0?oM=oooool2o`3oT`_ooooo00?o0?m:ooooooooool01?ooool01Ol0o`7ooooo ooooooooooooAol000;ooooo00Go0000oi7o0?ooooooooooom[o0004ooooo`03oooK0?oooooooooo 00Kooooo00?ooi80ooooooooool04_ooool3oom906Oooooo000Dooooo`;o0?oM6?ooool8o`3ogCco oooo0_l0oi<ooooo`03o`3o0Ooooooooooo00Sooooo00?oAol0ooooooooool01Oooool0 0ol0003ooooooi7o0009ooooo`03om[o0?oooooooooo00[ooooo00?oom/0ooooooooool04oooool2 oonB03Oooooo0oooB@0Vooooo`00Aoooool3o`3oTb3ooooo00?o0?m:ooooooooool03oooool00ol0 o`7oooooooooo`08ooooo`03odOo0?oooooooooo00Gooooo00?o0000oooooonAo`002_ooool00ooJ o`3oooooooooo`0:ooooo`03oooK0?oooooooooo01Cooooo00?ooi80ooooooooool0=oooool4oom9 00Oooooo0_ooB@0Iooooo`00AOooool2o`3oTb;ooooo00?o0?m:ooooooooool03oooool00ol0o`7o ooooooooo`09ooooo`03odOo0?oooooooooo00Gooooo00?o0000oooooonAo`002_ooool00ooJo`3o ooooooooo`0;ooooo`03oooK0?oooooooooo01Cooooo0_ooTP0kooooo`?oodT01?ooool4oom901Oo oooo0013ooooo`;o0?nC8oooool00ol0od[oooooooooo`0@ooooo`03o`3o0Ooooooooooo00Wooooo 00?oAol0ooooooooool01Oooool00ol0003ooooooi7o000:ooooo`03om[o0?oooooooooo00_ooooo 00?oom/0ooooooooool05_ooool00oooTP3oooooooooo`0kooooo`[oodT05Oooool0047ooooo0_l0 oi_ooool=oom9013ooooo000kooooo`;o 0?nC9oooool00ol0od[oooooooooo`0Aooooo`03o`3o0Ooooooooooo00_ooooo00?oAol0oooooooo ool01_ooool01?l0003ooooooooooonAo`0;ooooo`03om[o0?oooooooooo00gooooo00?oom/0oooo ooooool06?ooool00oooTP3oooooooooo`0gooooo`ooodT03_ooool003Sooooo0ol0oiooooo`03odOo0?oooooooooo00Wooooo00Co0000ooooooooooooTOl03oooool00ooJo`3o ooooooooo`0Aooooo`03oooK0?oooooooooo01kooooo0_ooTP17ooooo`007?ooool3o`3oT`Cooooo 0_l0oiooooo`03o`3oB_oo oooooooo01_ooooo00?o0?l1ooooooooool04_ooool00om7o`3oooooooooo`0;ooooo`05o`000?oo oooooooooooooonAo`004_ooool00ooJo`3oooooooooo`0Dooooo`03oooK0?oooooooooo02Kooooo 00?ooi80ooooooooool0=oooool004gooooo00?o0?m:ooooooooool07?ooool00ol0o`7ooooooooo o`0Booooo`03odOo0?oooooooooo00_ooooo00Go0000oooooooooooooooooi7o000Booooo`03om[o 0?oooooooooo01Gooooo00?oom/0ooooooooool09_ooool2oonB03Oooooo001;ooooo`;o0?m:7_oo ool00ol0o`7oooooooooo`0Booooo`03odOo0?oooooooooo00cooooo00Go0000oooooooooooooooo oi7o000Booooo`03om[o0?oooooooooo01Kooooo00?oom/0ooooooooool09oooool00oooTP3ooooo ooooo`0dooooo`00B_ooool00ol0od[oooooooooo`0Nooooo`03o`3o0Ooooooooooo01;ooooo00?o Aol0ooooooooool03?ooool01Ol0003oooooooooooooooooTOl001?ooooo00?of_l0ooooooooool0 5_ooool00ooof`3oooooooooo`0Wooooo`;ooi80=?ooool004Wooooo00?o0?m:ooooooooool07_oo ool00ol0o`7oooooooooo`0Cooooo`03odOo0?oooooooooo00cooooo00Go0000oooooooooooooooo oi7o000Cooooo`03om[o0?oooooooooo01Oooooo00?oom/0ooooooooool0:?ooool00oooTP3ooooo ooooo`0aooooo`00B?ooool00ol0od[oooooooooo`0Nooooo`03o`3o0Ooooooooooo01Cooooo00?o Aol0ooooooooool03?ooool01Ol0003oooooooooooooooooTOl001Cooooo00?of_l0ooooooooool0 5_ooool00ooof`3oooooooooo`0Yooooo`;ooi80oooool00ol0od[oooooooooo`0Tooooo`03o`3o0Ooooooooooo01So oooo00?oAol0ooooooooool03oooool00ol0003oooooooooo`02ooooo`03oi7o0?oooooooooo01Go oooo00?of_l0ooooooooool07?ooool00ooof`3oooooooooo`0_ooooo`?ooi808?ooool003[ooooo 00?o0?m:ooooooooool09Oooool00ol0o`7oooooooooo`0Hooooo`03odOo0?oooooooooo00oooooo 00?o0000ooooooooool00_ooool00onAo`3oooooooooo`0Fooooo`03om[o0?oooooooooo01cooooo 00?oom/0ooooooooool0Oooool00ol0od[ooooooooo o`0Uooooo`03o`3o0Ooooooooooo01Sooooo00?oAol0ooooooooool04?ooool00ol0003ooooooooo o`02ooooo`03oi7o0?oooooooooo01Kooooo00?of_l0ooooooooool07Oooool00ooof`3ooooooooo o`1@ooooo`00>?ooool00ol0od[oooooooooo`0Uooooo`03o`3o0Ooooooooooo01Wooooo00?oAol0 ooooooooool04?ooool00ol0003oooooooooo`02ooooo`03oi7o0?oooooooooo01Kooooo00?of_l0 ooooooooool07Oooool00ooof`3oooooooooo`1@ooooo`00<_ooool00ol0od[oooooooooo`02oooo o`03o`3oB_oooooooooo02Kooooo00?o0?l1ooooooooool06Oooool00om7o`3oooooooooo`0@oooo o`03o`000?oooooooooo00;ooooo00?oTOl0ooooooooool05oooool00ooJo`3oooooooooo`0Moooo o`03oooK0?oooooooooo04oooooo000booooo`05o`3oB_ooooooooooooooool0odX0:?ooool00ol0 o`7oooooooooo`0Jooooo`03odOo0?oooooooooo013ooooo00?o0000ooooooooool00_ooool00onA o`3oooooooooo`0Gooooo`03om[o0?oooooooooo01kooooo00?oom/0ooooooooool0C_ooool0037o oooo1Ol0odXYooooo`03o`3o0Ooooooooooo01Wooooo00?oAol0ooooooooool04Oooool2o`0000?o oooo00?oTOl0ooooooooool05oooool00ooJo`3oooooooooo`0Oooooo`03oooK0?oooooooooo04go oooo000`ooooo`Go0?m::Oooool00ol0o`7oooooooooo`0Jooooo`03odOo0?oooooooooo017ooooo 00?o0000ooooooooool00_ooool00onAo`3oooooooooo`0Hooooo`03om[o0?oooooooooo01oooooo 00?oom/0ooooooooool0C?ooool0033ooooo1_l0odXWooooo`03o`3o0Ooooooooooo01_ooooo00?o Aol0ooooooooool04Oooool00ol0003oooooooooo`03ooooo`03oi7o0?oooooooooo01Oooooo00?o f_l0ooooooooool07oooool00ooof`3oooooooooo`1ooooo`;o0?l10_ooool00ol0o`7oooooooooo`0Qooooo`03odOo0?oooooooooo01Kooooo 00?o0000ooooooooool01?ooool00onAo`3oooooooooo`0Nooooo`03om[o0?oooooooooo02Kooooo 0ooof`0mooooo`00C_ooool4o`3o0BCooooo00?oAol0ooooooooool05_ooool00ol0003ooooooooo o`04ooooo`03oi7o0?oooooooooo01kooooo00?of_l0ooooooooool0:?ooool2oooK03cooooo001= ooooo`Oo0?l18_ooool00om7o`3oooooooooo`0Fooooo`03o`000?oooooooooo00Cooooo00?oTOl0 ooooooooool07oooool00ooJo`3oooooooooo`0Xooooo`03oooK0?oooooooooo03[ooooo001=oooo o`So0?l18?ooool00om7o`3oooooooooo`0Gooooo`03o`000?oooooooooo00Cooooo00?oTOl0oooo ooooool07oooool00ooJo`3oooooooooo`0Yooooo`03oooK0?oooooooooo03Wooooo001=ooooo`Oo 0?l18Oooool00om7o`3oooooooooo`0Gooooo`03o`000?oooooooooo00Cooooo00?oTOl0oooooooo ool07oooool00ooJo`3oooooooooo`1Uooooo`00C?ooool7o`3o0B;ooooo00?oAol0ooooooooool0 5oooool2o`0000Gooooo00?oTOl0ooooooooool08?ooool00ooJo`3oooooooooo`1Tooooo`00C?oo ool6o`3o0B?ooooo00?oAol0ooooooooool05oooool00ol0003oooooooooo`04ooooo`03oi7o0?oo oooooooo023ooooo00?of_l0ooooooooool0I?ooool004cooooo1Ol0o`4Sooooo`03odOo0?oooooo oooo01Sooooo00?o0000ooooooooool01?ooool00onAo`3oooooooooo`0Qooooo`03om[o0?oooooo oooo06?ooooo001;ooooo`Go0?l19?ooool00om7o`3oooooooooo`0Hooooo`03o`000?oooooooooo 00Cooooo00?oTOl0ooooooooool08Oooool00ooJo`3oooooooooo`1Sooooo`00Boooool4o`3o0BGo oooo00?oAol0ooooooooool06?ooool00ol0003oooooooooo`04ooooo`03oi7o0?oooooooooo027o oooo00?of_l0ooooooooool00_oJo`1Qooooo`00Boooool3o`3o0BKooooo00?oAol0ooooooooool0 6?ooool00ol0003oooooooooo`05ooooo`03oi7o0?oooooooooo023ooooo1OoJo`1Qooooo`00B_oo ool3o`3o0BKooooo00?oAol0ooooooooool06Oooool00ol0003oooooooooo`05ooooo`03oi7o0?oo oooooooo01kooooo1ooJo`1Qooooo`00B_ooool2o`3o0BOooooo00?oAol0ooooooooool06Oooool0 0ol0003oooooooooo`05ooooo`03oi7o0?oooooooooo01kooooo1ooJo`1Qooooo`00B_ooool00ol0 o`7oooooooooo`0Vooooo`03odOo0?oooooooooo01Wooooo00?o0000ooooooooool01Oooool00onA o`3oooooooooo`0Oooooo`Oof_l0H?ooool004Wooooo00?o0?l1ooooooooool08oooool3odOo0003 oooooom7o`3ooooo01[ooooo00?o0000ooooooooool01Oooool00onAo`3oooooooooo`0Pooooo`Ko f_l0H?ooool006oooooo1_m7o`0Jooooo`03o`000?oooooooooo00Gooooo00?oTOl0ooooooooool0 8?ooool6om[o063ooooo001_ooooo`SoAol06?ooool00ol0003oooooooooo`05ooooo`03oi7o0?oo oooooooo027ooooo1OoJo`1Pooooo`00Koooool8odOo01Sooooo00?o0000ooooooooool01Oooool0 0onAo`3oooooooooo`0Rooooo`Cof_l0H?ooool006oooooo1om7o`0Iooooo`03o`000?oooooooooo 00;ooooo2?nAo`0Pooooo`Cof_l0H?ooool006oooooo1om7o`0Iooooo`;o00000oooool8oi7o027o oooo0ooJo`1Pooooo`00Koooool6odOo01[ooooo00?o0000ooooooooool00_ooool8oi7o02;ooooo 0ooJo`1Oooooo`00Koooool6odOo01[ooooo00?o0000ooooooooool00oooool6oi7o02?ooooo0ooJ o`1Oooooo`00Koooool5odOo01_ooooo00?o0000ooooooooool00oooool6oi7o02Cooooo0_oJo`1O ooooo`00Koooool4odOo01cooooo00?o0000ooooooooool00oooool6oi7o02Gooooo00?of_l0oooo ooooool0GOooool006oooooo1?m7o`0Looooo`03o`000?oooooooooo00Cooooo1OnAo`25ooooo`00 Koooool3odOo01gooooo00?o0000ooooooooool01?ooool5oi7o08Gooooo001_ooooo`?oAol07Ooo ool00ol0003oooooooooo`04ooooo`CoTOl0Q_ooool006oooooo0_m7o`0Nooooo`03o`000?oooooo oooo00Cooooo1?nAo`26ooooo`00Koooool2odOo01kooooo00?o0000ooooooooool01Oooool3oi7o 08Kooooo001_ooooo`03odOo0?oooooooooo01gooooo00?o0000ooooooooool01Oooool3oi7o08Ko oooo0026ooooo`?o00001_ooool00ol0003oooooooooo`05ooooo`?oTOl0Q_ooool008Oooooo00?o 0000ooooooooool01Oooool00ol0003oooooooooo`06ooooo`03oi7o0?oooooooooo08Gooooo0027 ooooo`03o`000?oooooooooo00Gooooo00?o0000ooooooooool01_ooool00onAo`3oooooooooo`25 ooooo`00Qoooool00ol0003oooooooooo`05ooooo`;o0000Soooool008Oooooo00?o0000oooooooo ool01Oooool00ol0003oooooooooo`2>ooooo`00Q_ooool2o`0000Oooooo00?o0000ooooooooool0 S_ooool008Oooooo00?o0000ooooooooool01Oooool00ol0003oooooooooo`2>ooooo`00Soooool0 0ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003o ooooooooo`2>ooooo`00\ \>"], ImageRangeCache->{{{0, 287}, {287.5, 0}} -> {-1.04378, -1.04793, \ 0.00729456, 0.00729456}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell["Applying A once to these arrows gives", "Text"], Cell[BoxData[ \(\(Table[A . {Cos[x], Sin[x]}, {x, 0, 2\ \[Pi], .3}];\)\)], "Input"], Cell[CellGroupData[{ Cell["\<\ Show[Graphics[ Map[arrow,%] ],AspectRatio->Automatic ,Axes->Automatic, PlotRange -> All]\ \>", "Input", CellTags->"S5.27.1"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .522 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.499915 0.242045 0.261095 0.242045 [ [.01582 .2486 -6 -9 ] [.01582 .2486 6 0 ] [.25787 .2486 -6 -9 ] [.25787 .2486 6 0 ] [.74196 .2486 -3 -9 ] [.74196 .2486 3 0 ] [.98401 .2486 -3 -9 ] [.98401 .2486 3 0 ] [.48741 .01905 -12 -4.5 ] [.48741 .01905 0 4.5 ] [.48741 .14007 -24 -4.5 ] [.48741 .14007 0 4.5 ] [.48741 .38212 -18 -4.5 ] [.48741 .38212 0 4.5 ] [.48741 .50314 -6 -4.5 ] [.48741 .50314 0 4.5 ] [ 0 0 0 0 ] [ 1 .522 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .01582 .2611 m .01582 .26735 L s [(-2)] .01582 .2486 0 1 Mshowa .25787 .2611 m .25787 .26735 L s [(-1)] .25787 .2486 0 1 Mshowa .74196 .2611 m .74196 .26735 L s [(1)] .74196 .2486 0 1 Mshowa .98401 .2611 m .98401 .26735 L s [(2)] .98401 .2486 0 1 Mshowa .125 Mabswid .06423 .2611 m .06423 .26485 L s .11264 .2611 m .11264 .26485 L s .16105 .2611 m .16105 .26485 L s .20946 .2611 m .20946 .26485 L s .30628 .2611 m .30628 .26485 L s .35469 .2611 m .35469 .26485 L s .4031 .2611 m .4031 .26485 L s .45151 .2611 m .45151 .26485 L s .54832 .2611 m .54832 .26485 L s .59673 .2611 m .59673 .26485 L s .64514 .2611 m .64514 .26485 L s .69355 .2611 m .69355 .26485 L s .79037 .2611 m .79037 .26485 L s .83878 .2611 m .83878 .26485 L s .88719 .2611 m .88719 .26485 L s .9356 .2611 m .9356 .26485 L s .25 Mabswid 0 .2611 m 1 .2611 L s .49991 .01905 m .50616 .01905 L s [(-1)] .48741 .01905 1 0 Mshowa .49991 .14007 m .50616 .14007 L s [(-0.5)] .48741 .14007 1 0 Mshowa .49991 .38212 m .50616 .38212 L s [(0.5)] .48741 .38212 1 0 Mshowa .49991 .50314 m .50616 .50314 L s [(1)] .48741 .50314 1 0 Mshowa .125 Mabswid .49991 .04325 m .50366 .04325 L s .49991 .06746 m .50366 .06746 L s .49991 .09166 m .50366 .09166 L s .49991 .11587 m .50366 .11587 L s .49991 .16428 m .50366 .16428 L s .49991 .18848 m .50366 .18848 L s .49991 .21269 m .50366 .21269 L s .49991 .23689 m .50366 .23689 L s .49991 .2853 m .50366 .2853 L s .49991 .3095 m .50366 .3095 L s .49991 .33371 m .50366 .33371 L s .49991 .35791 m .50366 .35791 L s .49991 .40632 m .50366 .40632 L s .49991 .43053 m .50366 .43053 L s .49991 .45473 m .50366 .45473 L s .49991 .47894 m .50366 .47894 L s .25 Mabswid .49991 0 m .49991 .522 L s % Start of user PostScript /mathtops { gsave MBeginOrig moveto MEndOrig currentpoint grestore } bind def /MAtocoords { mathtops 4 2 roll mathtops 4 copy pop pop 3 -1 roll sub /arry exch def exch sub /arrx exch def arrx dup mul arry dup mul add sqrt /arrl exch def translate } bind def /MAarrowhead1 { gsave MAtocoords arrl 0. eq { 0 0 Mdot } { [ arrx arrl div arry arrl div -1 arry mul arrl div arrx arrl div 0 0 ] concat -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto fill -0.05 0.0125 moveto 0 0 lineto -0.05 -0.0125 lineto -0.05 0.0125 lineto stroke } ifelse grestore } def % End of user PostScript .5 Mabswid .49991 .2611 m .91139 .47894 L s % Start of user PostScript 0 0 1.7 0.9 MAarrowhead1 % End of user PostScript .49991 .2611 m .96454 .43344 L s % Start of user PostScript 0 0 1.91959 0.712043 MAarrowhead1 % End of user PostScript .49991 .2611 m .97619 .37255 L s % Start of user PostScript 0 0 1.96771 0.460481 MAarrowhead1 % End of user PostScript .49991 .2611 m .94529 .30171 L s % Start of user PostScript 0 0 1.84006 0.167786 MAarrowhead1 % End of user PostScript .49991 .2611 m .87461 .22723 L s % Start of user PostScript 0 0 1.54805 -0.139898 MAarrowhead1 % End of user PostScript .49991 .2611 m .77046 .15579 L s % Start of user PostScript 0 0 1.11775 -0.435084 MAarrowhead1 % End of user PostScript .49991 .2611 m .64214 .09374 L s % Start of user PostScript 0 0 0.587604 -0.691406 MAarrowhead1 % End of user PostScript .49991 .2611 m .50112 .04665 L s % Start of user PostScript 0 0 0.00497099 -0.885966 MAarrowhead1 % End of user PostScript .49991 .2611 m .35999 .01871 L s % Start of user PostScript 0 0 -0.578106 -1.00139 MAarrowhead1 % End of user PostScript .49991 .2611 m .23136 .01243 L s % Start of user PostScript 0 0 -1.10954 -1.02735 MAarrowhead1 % End of user PostScript .49991 .2611 m .12671 .02836 L s % Start of user PostScript 0 0 -1.54187 -0.961553 MAarrowhead1 % End of user PostScript .49991 .2611 m .05541 .06507 L s % Start of user PostScript 0 0 -1.83646 -0.809859 MAarrowhead1 % End of user PostScript .49991 .2611 m .02381 .1193 L s % Start of user PostScript 0 0 -1.96701 -0.585822 MAarrowhead1 % End of user PostScript .49991 .2611 m .03474 .18619 L s % Start of user PostScript 0 0 -1.92185 -0.309456 MAarrowhead1 % End of user PostScript .49991 .2611 m .08722 .25978 L s % Start of user PostScript 0 0 -1.70502 -0.00544685 MAarrowhead1 % End of user PostScript .49991 .2611 m .17657 .33348 L s % Start of user PostScript 0 0 -1.33588 0.299049 MAarrowhead1 % End of user PostScript .49991 .2611 m .2948 .40071 L s % Start of user PostScript 0 0 -0.847416 0.576831 MAarrowhead1 % End of user PostScript .49991 .2611 m .43135 .45548 L s % Start of user PostScript 0 0 -0.283253 0.803087 MAarrowhead1 % End of user PostScript .49991 .2611 m .57403 .49288 L s % Start of user PostScript 0 0 0.306213 0.957606 MAarrowhead1 % End of user PostScript .49991 .2611 m .71009 .50957 L s % Start of user PostScript 0 0 0.868326 1.02658 MAarrowhead1 % End of user PostScript .49991 .2611 m .82737 .50407 L s % Start of user PostScript 0 0 1.35287 1.00386 MAarrowhead1 % End of user PostScript 0 0 m 1 0 L 1 .522 L 0 .522 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 150.312}, ImageMargins->{{62, 0}, {0, 0}}, I