(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 364847, 14011] NotebookOptionsPosition[ 353864, 13671] NotebookOutlinePosition[ 357074, 13768] CellTagsIndexPosition[ 356763, 13756] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["A Tour of AbstractAlgebra", "Title", CellMargins->{{Inherited, 79}, {Inherited, Inherited}}, Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["The Basic Structures", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There are three basic ", StyleBox["Mathematica", FontSlant->"Italic"], " data structures used in AbstractAlgebra: the Groupoid, Ringoid, and \ Morphoid. These are generalizations of groups, rings and morphisms. We will \ use groupoid, ringoid and function when we refer to the mathematical \ counterparts to the corresponding ", StyleBox["Mathematica", FontSlant->"Italic"], " data structures." }], "Text"], Cell[CellGroupData[{ Cell["Groupoids", "Subsection"], Cell["\<\ A Groupoid consists of a set of elements and a \"binary\" operation (two \ inputs from the space whose images do not need to belong to this space). One \ means of creating one of these is with the FormGroupoid option.\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ G = FormGroupoid[{0, 2, 1, 4, 6}, Times, GroupoidName \[Rule] \"ex.1\"]\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "1", ",", "4", ",", "6"}], "}"}], ",", "\<\"-Operation-\"\>"}], "]"}]], "Output"] }, Open ]], Cell["\<\ We can easily extract the operation and elements of any groupoid.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Operation", "[", "G", "]"}], "\n", RowBox[{"Elements", "[", "G", "]"}]}], "Input"], Cell[BoxData["Times"], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "2", ",", "1", ",", "4", ",", "6"}], "}"}]], "Output"] }, Open ]], Cell["\<\ We are often interested in whether a groupoid has an identity element or not.\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HasIdentityQ", "[", "G", "]"}]], "Input", CellTags->"Mode1"], Cell[BoxData["True"], "Output"] }, Open ]], Cell["\<\ Many functions can take on additional Modes, such as Textual or Visual.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HasIdentityQ", "[", RowBox[{"G", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Textual"}]}], "]"}]], "Input"], Cell[BoxData["\<\"We say a Groupoid G has an identity e if for all other \ elements g in G we have e * g = g * e = g (where * indicates the \ operation).\"\>"], "Print"], Cell[BoxData["\<\"In this case, ex.1 has the identity 1.\"\>"], "Print"], Cell[BoxData["True"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HasIdentityQ", "[", RowBox[{"G", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .55556 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.47619 0.0132275 0.47619 [ [ 0 0 0 0 ] [ 1 .55556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .55556 L 0 .55556 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.0132275 0.477324 0.542328 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.107143 0.15873 [ [ 0 0 0 0 ] [ 1 1.16667 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.16667 L 0 1.16667 L closepath clip newpath 1 1 0 r .18254 .4246 m .18254 .58333 L .34127 .58333 L .34127 .4246 L F .34127 .4246 m .34127 .58333 L .5 .58333 L .5 .4246 L F .5 .4246 m .5 .58333 L .65873 .58333 L .65873 .4246 L F .65873 .4246 m .65873 .58333 L .81746 .58333 L .81746 .4246 L F .81746 .4246 m .81746 .58333 L .97619 .58333 L .97619 .4246 L F .18254 .90079 m .18254 1.05952 L .97619 1.05952 L .97619 .90079 L F 0 g [(red->left identity)] .03968 .02778 -1 0 Mshowa 1 0 0 r .02381 .4246 m .02381 .58333 L .18254 .58333 L .18254 .4246 L F 1 1 0 r .5 .4246 m .5 .58333 L .65873 .58333 L .65873 .4246 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .10714 m .02381 1.05952 L s .02381 .10714 m .97619 .10714 L s .02381 .26587 m .97619 .26587 L s .02381 .4246 m .97619 .4246 L s .02381 .58333 m .97619 .58333 L s .02381 .74206 m .97619 .74206 L s .02381 .90079 m .97619 .90079 L s .02381 1.05952 m .97619 1.05952 L s .18254 .10714 m .18254 1.05952 L s .34127 .10714 m .34127 1.05952 L s .5 .10714 m .5 1.05952 L s .65873 .10714 m .65873 1.05952 L s .81746 .10714 m .81746 1.05952 L s .97619 .10714 m .97619 1.05952 L s .02381 1.05952 m .18254 .90079 L s 2.6 Mabswid .18254 .10714 m .18254 1.05952 L s .02381 .90079 m .97619 .90079 L s [(0)] .2619 .82143 0 0 Mshowa [(0)] .42063 .82143 0 0 Mshowa [(0)] .57937 .82143 0 0 Mshowa [(0)] .7381 .82143 0 0 Mshowa [(0)] .89683 .82143 0 0 Mshowa [(0)] .2619 .6627 0 0 Mshowa [(4)] .42063 .6627 0 0 Mshowa [(2)] .57937 .6627 0 0 Mshowa [(8)] .7381 .6627 0 0 Mshowa [(12)] .89683 .6627 0 0 Mshowa [(0)] .2619 .50397 0 0 Mshowa [(2)] .42063 .50397 0 0 Mshowa [(1)] .57937 .50397 0 0 Mshowa [(4)] .7381 .50397 0 0 Mshowa [(6)] .89683 .50397 0 0 Mshowa [(0)] .2619 .34524 0 0 Mshowa [(8)] .42063 .34524 0 0 Mshowa [(4)] .57937 .34524 0 0 Mshowa [(16)] .7381 .34524 0 0 Mshowa [(24)] .89683 .34524 0 0 Mshowa [(0)] .2619 .18651 0 0 Mshowa [(12)] .42063 .18651 0 0 Mshowa [(6)] .57937 .18651 0 0 Mshowa [(24)] .7381 .18651 0 0 Mshowa [(36)] .89683 .18651 0 0 Mshowa [(0)] .10317 .82143 0 0 Mshowa [(2)] .10317 .6627 0 0 Mshowa [(1)] .10317 .50397 0 0 Mshowa [(4)] .10317 .34524 0 0 Mshowa [(6)] .10317 .18651 0 0 Mshowa [(0)] .2619 .98016 0 0 Mshowa [(2)] .42063 .98016 0 0 Mshowa [(1)] .57937 .98016 0 0 Mshowa [(4)] .7381 .98016 0 0 Mshowa [(6)] .89683 .98016 0 0 Mshowa [(ex.1)] .02381 1.13889 -1 0 Mshowa gsave .97619 1.13889 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .95317 0 0 Mshowa [(y)] .14286 1.0119 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0132275 0.97619 0.542328 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.107143 0.15873 [ [ 0 0 0 0 ] [ 1 1.16667 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.16667 L 0 1.16667 L closepath clip newpath 0 1 1 r .5 .74206 m .5 .90079 L .65873 .90079 L .65873 .74206 L F .5 .58333 m .5 .74206 L .65873 .74206 L .65873 .58333 L F .5 .4246 m .5 .58333 L .65873 .58333 L .65873 .4246 L F .5 .26587 m .5 .4246 L .65873 .4246 L .65873 .26587 L F .5 .10714 m .5 .26587 L .65873 .26587 L .65873 .10714 L F 0 g [(red->right identity)] .03968 .02778 -1 0 Mshowa 0 1 1 r .02381 .10714 m .02381 .90079 L .18254 .90079 L .18254 .10714 L F 1 0 0 r .5 .90079 m .5 1.05952 L .65873 1.05952 L .65873 .90079 L F 0 1 1 r .5 .4246 m .5 .58333 L .65873 .58333 L .65873 .4246 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .10714 m .02381 1.05952 L s .02381 .10714 m .97619 .10714 L s .02381 .26587 m .97619 .26587 L s .02381 .4246 m .97619 .4246 L s .02381 .58333 m .97619 .58333 L s .02381 .74206 m .97619 .74206 L s .02381 .90079 m .97619 .90079 L s .02381 1.05952 m .97619 1.05952 L s .18254 .10714 m .18254 1.05952 L s .34127 .10714 m .34127 1.05952 L s .5 .10714 m .5 1.05952 L s .65873 .10714 m .65873 1.05952 L s .81746 .10714 m .81746 1.05952 L s .97619 .10714 m .97619 1.05952 L s .02381 1.05952 m .18254 .90079 L s 2.6 Mabswid .18254 .10714 m .18254 1.05952 L s .02381 .90079 m .97619 .90079 L s [(0)] .2619 .82143 0 0 Mshowa [(0)] .42063 .82143 0 0 Mshowa [(0)] .57937 .82143 0 0 Mshowa [(0)] .7381 .82143 0 0 Mshowa [(0)] .89683 .82143 0 0 Mshowa [(0)] .2619 .6627 0 0 Mshowa [(4)] .42063 .6627 0 0 Mshowa [(2)] .57937 .6627 0 0 Mshowa [(8)] .7381 .6627 0 0 Mshowa [(12)] .89683 .6627 0 0 Mshowa [(0)] .2619 .50397 0 0 Mshowa [(2)] .42063 .50397 0 0 Mshowa [(1)] .57937 .50397 0 0 Mshowa [(4)] .7381 .50397 0 0 Mshowa [(6)] .89683 .50397 0 0 Mshowa [(0)] .2619 .34524 0 0 Mshowa [(8)] .42063 .34524 0 0 Mshowa [(4)] .57937 .34524 0 0 Mshowa [(16)] .7381 .34524 0 0 Mshowa [(24)] .89683 .34524 0 0 Mshowa [(0)] .2619 .18651 0 0 Mshowa [(12)] .42063 .18651 0 0 Mshowa [(6)] .57937 .18651 0 0 Mshowa [(24)] .7381 .18651 0 0 Mshowa [(36)] .89683 .18651 0 0 Mshowa [(0)] .10317 .82143 0 0 Mshowa [(2)] .10317 .6627 0 0 Mshowa [(1)] .10317 .50397 0 0 Mshowa [(4)] .10317 .34524 0 0 Mshowa [(6)] .10317 .18651 0 0 Mshowa [(0)] .2619 .98016 0 0 Mshowa [(2)] .42063 .98016 0 0 Mshowa [(1)] .57937 .98016 0 0 Mshowa [(4)] .7381 .98016 0 0 Mshowa [(6)] .89683 .98016 0 0 Mshowa [(ex.1)] .02381 1.13889 -1 0 Mshowa gsave .97619 1.13889 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .95317 0 0 Mshowa [(y)] .14286 1.0119 0 0 Mshowa MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 160}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXb2P60hy5z6NZiTN+9jbO+/acLL+iPUHODITOzooOcA2IBhYHEzsBoaJ 8yVKmTExoEzJmZEiRYoUyYYF22DChHcHJjRAwGDCgAETBgzK1dUfbJEUxdEb 7/vAPODNUFR3fXV1df26esiff/fr7//hH7/79Q+//O7bv/7Vd/b3P/zyn7/9 q3/6Fd4afWEYX3xvGIb/rcGuAS/FD/r3A/shPjzh+l/o1xigTME/HeF4PMEJ f/tRZvxeb3IPVXKA5dwEk/OFuXOAEuB3vNUf0a8RFHkORVHSpztxryoLyPMC Kvz0x+Ie3qR7ZVkZb7R7+Jk+fSXvAWuXA95mYg7q+7rj3kj+LHyYo/S7pJIK vpOihxuQRn1FP8dgLHdQcgtDlfpgz7XvjDnYmwPkxKGCYGuL7+7oO0ELNmHx oCxRQsWpKW3CzaLBlnVfQFDwhvFxPZK350vwTjHdxm53QhBzHYD+L1SCjEgQ ZxuQ7aUUUAawEBw56UcwzA0whkW0l99RX8vi0kkeKI3o81CLU9MDcxNBGXtK E3uf6HLp9uFilbCzjDtlUhP84romr4QmJwe5LrZsiIzf6aP5NQ4IOl0WgTs3 UIgIrzPICmF8SMFhAttbSJmDYNvY34G9sOCYVpAHa1JmtfUhyzPwtyv67Bzi ifDsYD0naTf7AJAqd/U/QEI5ZFkO8WEF5mpPvVP8XJH/7ImKe4jIp6oihaPn wBKlKOhzAWl0QPecwz5KIUtTyItKKIuDV4ZkZpQCSux72rlgrXasrxjavyA/ ZJoyzVdMg4PQPGccYrCZ1tYGojSHNNzDkn2eOxCX1+VLDswKvC2blocVmmB1 UPOjRz6kxe0QHx2ksYIIr7M0l5Oht6/83hIu5kWFGOsv1dQuYIPjvA4LMdG/ Uk5peweKaIfjEX+fwPdDmrHhxkQKbs0B9WA0XJp3JewdC5aWNcIZYBkTvFxz xdFVgv1aRUHHO0JWggx1ReCC6fj0iY/ba0j2NrnKFmPr8XjA/yiJ74Mfppr+ AZI0IahJabfqKCcURSHVHCjjLUlyzCXLn0C6t3BY+Yy+xr4M0dnna2WIcG3C 3A0UfV2Oe8mz7lNHVq0dj21jHtvQvbYu/jY9mqe/7R47+5CcjR15prmElW2D hf/tJY+oOMY9Y5fTDDiubVgsl69o7EY4dkv86LLxE1qNqUvs78E2+TjaG19p 0jWI6YGHANNCUSwL7JUtfMCFXEpRha1BBHGr6hrEvDZyeiDyh6w5iHxgrrGn AdEsEm0ag6jJcTaIRmMQtXZch3s1k1boYUzFBV/TxDiqeIt2L1i8FQZd7XxI Ih+2uxNyyGA9Z5HHw3jLx+u0ZguLBRELvwmPPMv1AZI0gcPG4mMd5I9E/g6y 2Ad3yUkv3OPlofpa2XK1C/n8KiJwGHd7T5+LNAb/6FGc3Rx9CHAyhAm3XBYe YOPavP/aA8/bwMbbAy4KUyEJX1hCCq84hJzrn7O+tNYYCwf8OIXI3/IREgvr NamSg6Oib1HEsDbZohtek0p6HiVJEfMS7jFcrHdXusphkNlGBQebibxm3xuh PsIzisFLGfa2W5YLiTQBR5GNah6CsxDr9Qx/LnEZq6doFmzrzGKBbmzOwfXz ifQyNiFPW0wxeRPL3UGcV12BlQ/+BFLfU3GYMlJc2BJhkni/eiVTm/mcUj7L 49ZMkcvKXnIuKwccZwUrx4MEw4Mc5DLy9PxtJE1QhOiFMrUzwWLXcoAZaS4R 5/xNLZC2es2VwEvKNa5IxP9pCZaxpNVYePukty9qIZPVBeZlcoGnObQJ5fj+ VBm1ovSdpdpyfpWYz8jUfSxsUwkTR+g6jhzAO1w35sI1aEVUUQZzKTlwdw1O eVHW96qAZiRbxup7Id07j54szmCGg8m/XGaUSPFGRbRXHbykTKQl71G303jJ dpTN5aXmdOft/ocb8E+UcgVsRYxSnj2ivE4knsqGun/NXf+19C8M5t6y9mia mQp/JLC2XTbV9JVkzZo5vpD5DuKdLbqu2cqgltm6t1IvcNUCoqlXtxPq/an4 KotDCIIAUsxJv5QqlxmEeI/dj9LijbJEBaloHiWZDuYOmFc5+1jJW+UJNQsj SkckjkyOLiw5wjT+l8tBRngCtmUxGcYgIfJf8rtk6t+wu//ed4PmzdeKwtfq 3h/2Xn3DrkYvxF6IfTBiM7oxErCPB6+pYiCDEgeKHGA+djB47KAy62h3FirP wvKIQF/GwS9v1y1wnQGksNGC38Kl6T9RsnOQy6hnZw03fqbJJrlH26VsofYQ 1gLc7ay52HMYgb3jGyogFyhqPO0Xaqoa6nBt2WDH1nixjSPWGbZMqu0esLbR fZsQBvX9ytQIjcHeNnZ4dtq+yHwFYaHJ32/lyGP8beyCDhBy6LhPq6aV7xE3 WtQwwnyALyoWxJWmOTf0G6jKnPY5js6cstmMbQGKBTk98qx2jlieMvu1BSsZ /c8MfUGupqHfkn12llhljyGkSQCutVL7ZXzXr8RFPoEta2fvGOBvGvotDa2H GdPOj6EoC8yeXSK6i8WKK9KlTZBRts72ThZeOL5sY266B5AIDxGYkCkm38Ck wKgNfa+19hbYWmT7LFs0ed5pTBu0RxKeK2chV9+thDkSTl8b8X5pmqN5x61i 8fzUz0GyaO9SjlBg5ZXazOFsZ5TQGZwNZ7pj/uTg3BU+jIoYrj/UnAuGSxyI 0D2ygCdPh7S6YE6mrnOSnHJwOVbrMGegmVPOwMznG8HuKePt2ua8IE1N/15R ZCnPnMyJs/SV8PZ4x4KTizCrFPNmC1FW3Df6v6b+SRTAzmXWW4AwJsrNx8Nj Wx6ISoY650i5mz6SiKhVQvxw2aKSOVp0PR9i0fM9bhNOOWhTfzJQokmDB4v1 AmxzMCT+JWSFDWLO2CMZ6sFTw1FFCokZ61AORyK2V9R/GlvosaZEPb6LXrzY YFLMahzlrNN4nqnN7orP7vXV2S2FY0u1AvpiD9feJ80Q2pKlXtbHglJV1nQK 2uOm7Xa5NOU+BsC5C3v0LVO3Hld2KqL5kvZsSBXaepzDIc4JUw1a6HEQ8hPB 4MX6yEavtplcevjsWBF25vsixLMdrKosgqOPs2M1Z2Ybyf5s6TfXHD/nPkU7 DAdtizUkqS1213D9pRfwXRqywALCsl7ReUIhyx+a2biUjwjRd7A9xWKbZ3Vm QuX7c/S4vOIm6DYfF3oMRXzQSjRmIwzWSVJKe0jSpd1j2kqSEIcmNS1zrQxY pSe11UP/F2s2GLUBZz2yNIdpDPHeOZtelhfU6U7G98VwMTGaphtDdlqf9Vyq bdoxQdWNVdfZMJsyembsTBuuNEkgTtLz9LIOR6xBDGleaqmxnKG0I3JWVOQk M8xukjRjg1yr8djNs7lMsOwxpwaMp9qlYOm54NRcGFiPgvfI9B7IIk5YnavP Eh8vdvn8ib3sPLwQ+yiJ9W8MzNS3JcH87Cw21qzeinY69H8YIohc3M4SNJbv FtC5uPXtAEhIWcT6WQaDCvKFHn1nPUybq1jXhsKd2FDg/xCUd2HysSL0nlsF V7PRMZ0vKXFhyBATs/rUchtqez+DkX0NdSrYLQWExk/MoEyYbVxq9pn2MG9m HP27BRcQt9GF3W/aBBgCj8RJBDks7OdW7gjIlfgG/F7bNKc9e2ufSqXJWs4Z Gp8MlKaeW30I4gL0rs36nuB/dM2sdSKNCTJUVUrozfJOmODAzRhebR2RD89h vd3B2jbJn3H2ddn+shD9QFZa8gLsbqZnT8X9A6Y2rxhZCHJL8MQRkHpqPw2q S8PJKpS5XPJC6sI7D5DTHub11O4z2AVkfd/oPBjS98BLCeoOFhuTI81J1Lvb SNchee00JWwZQnNOvHXBMSMKZTSXkhbztpHa83PciaObWOip6H2AodhZSLk+ 4kLWXiiu4nB9oaCTA9ZeHHXjoI6dsmzbqMG3jUo7YT2vr2pYud4Weg+03mMm mfPEYt1fyzn0BJytUpFod35UgZ9tq23z2MHsKly/kzJ0IOFmcB+OwgeYhAPe jKqzXbWlLgCt+lYSuBbat48dlNuTRwffMi3TQW8XTO4H1i8w+fMnNhxz8zPI xM5QpC9ffcP96YXYC7GbiE3pG1ZkNxBvG/RpNpDBTOub5Vrfi2mkwZpH9QJQ V8XZCRn+n8VIIdyEKNw1cLYm30RIAKWh4KzEKAHXhlo8qB5S32jbIUTQ1YNr yVY4Q0PoBuY9gppGd9wo1Bu4iIjv+myCiRU2z/D/UXRl14X4Wq31BgFn3iBC jeMdv46rliD3GjQ1cPXB3/hZ5OvnDauSj96R/SGDza+LNsUxNSxZY6TGwbXR GgpWROd8MZGFPOTX+7TPBjPhF6HBjyYKng3FObwVA4RScHiriSm90ROKI5il Jd1QizsxWbMqdNPPdT9qY90ur5Dq8qq2aiGq2kPUDXrV5dCzpsuhp6auVOjg KHtrCslvg051pxoTc2MgEDUEEMUxKzUmSksqNqPX4aBmAWd4GDSoA7T0ay05 TtQEeC304LAMHROMDhv0acmQIxc4QQYcOXb5raj+Nifv+/utqfltZQiUd2Ee SjsUgYoxbW27XXgmYiVHf4ZAfy1FWYmWoWwMCmyC5pxqX3C6o+DEAtOOKzpr 6SgDEUItBGkiQHUFJY6M0OFQx+QoHLdsNWTwC1miY+xWpOtjS02MjhqA61AT ckPUVclrBqhZGjVJU1dTkjzHWB2eFu/PfQjnU6sVQ1Aan3VHjIq3Sq8OJkVs nG0p4zwc4qVMu7zlpXI5ZCtEmnf7FA+LokWHuGVBUaPRV87cLKV5RJ/avsyo xsnVZfJTyKQ+V2LXoctL/fCF2MdAbOjB4vqqv6bYw1T/O+a+Olp9km1Y3XBY OXAykHu9PTm4Hvk+R5cH1mAuFM1aNdYBVcJhdb/JAOa3Vh7f5wTygLN9jWrY hbN9Ayt/T6nlTbsFeGyQHFpMHHp0+OrZs1ZZq6cA1Vu5e1pBbtbNvL3LfrUQ OPTU79UtcNbprF7VU8McUIq7VmF77GZ6Q0Vv6Cndq9PjYj3qwgH3q/W2qxW0 aT/fWyt3Nxy9fcKfAHSVotqx9mqh7WrprDmjuvjeWre77bTtgJp2V0XqqRW2 /sLZtIfTDVW6247N9lhiKqTXy1T1OtNfUOsvmc06KA8txj3hrGtPpPwUstbP ldgLTHwh9rkSUzFTQ5pdMbP/HOtzf9sl1eNlJeQS2IVIu5bA6+ddf8xWfdLP ril9EVrejEE/SMMrykwvm0HPES/Bx1v/THTy0bQeouVAI10ClLceHG0myx+u 9RAtn2KkDqx5KzJtKfLBWg/Rcuh0uwBDbwWtk4+m9RAte4wko9kFJHoDZJ1+ uIZXlLlqhm7MedvZzx+zVZ/0PctynbrUMHMoCJ39v33bJVVPQvXx5qsfGzEy osdu/NvNN2qBfsauHqRA71k2pUeRTZ6JGD11avpMxH7CrmTdhX+p7eQ/A4Mv FYNXZ0P8nmTfKbKj5yT7VpG9e06ybxTZsSL7Ix6SfK3Y13/l9fkfg3xUWp8X TD/fE49C3UlL3c/mnONUKTltKfmpn26cKN1m3bp9qmcaH5Rij23P/HRPMt4r tV631Pq0Dy+OlWZvlGaf9HnFO6XQW6XQJ3JKcaREf6dEf4aM5JUi++Vzkm0k kXWK+QwM7tmNr56JGJH46TMRIzv+7P2JUXj81yZ1vcTV/exXuv5h+PVv6BfO ojSC0/EIx9OJ3pAS55Xx3+dNkoMLpmmqicYOKokmHnD50wPbHKa/wpdfycdl dL3RRH9XyN/TzwlOdkvnAIk6KFYfvaCoVEESxfwtDlkMSV5p1eKYUkj2vH0h Bef4wN7tcRaR5Ps9Sowx3GvHuCbEUKU71YY9R1r+aa16WJPpQsocXXDUXjci nV97ZYnxC8Ge1aJ9oeAhq8TGOka2Y3xWlmD5inPwaW13Tpk6HJP7UvwVLs3w X5prYEy49naLLNrTorrwInosGGs7d/b0cGSpYORJc9MD0/VTIrl6uYUDEXsO alH9reylnsg8By/IpLipshY7OlHNGhouXA9WLHHaJ8aZKm8HvVCi0k4osGfp VaCe5gBVDgF28+NcHf3R3wXwd1LAoyvkttjxkZnQlh6BsFyBxVZkZwXihKTc nMtODrdPxczIrm02Gv+pq/Bm2OsU8kCBHXYo67WQtdBk/RvpOzimoTzK5if8 xTDI2U8L5fmBu4KTOJw5lf0K/p4UeQAGUybKrpdeaJyJ/O7KA/wrdCBhcfsA qXiVELpufSyjU/SJGE05pzM42obuZKprmog3DYH2xNwS9lY9Yfc4ayJvISfZ PlFnl4z/0Kf64+VH52vP+KepnngaNFXPZVCbgrrf0Dcm56MCm/b09a+kh1cZ +Ow9U1tbvURE7/tnql0Ca/mw/Tk9zfysHV0/IZobX/wf3L7DeA==\ \>"], ImageRangeCache->{{{0, 359}, {199, 0}} -> {-0.052364, -0.0277836, \ 0.00732845, 0.00732845}, {{8.9375, 171.375}, {194.25, 4.75}} -> {-1.49687, \ -0.859276, 0.0484835, 0.0484835}, {{187.625, 350.062}, {194.25, 4.75}} -> \ {-8.42759, -0.859276, 0.0484835, 0.0484835}}], Cell[BoxData["True"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ClosedQ", "[", RowBox[{"G", ",", " ", RowBox[{"Mode", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input", CellTags->"explanation"], Cell[BoxData["\<\"All the elements marked with Yellow are original elements \ in the set. Those in red are from outside.\"\>"], "Print", CellTags->"explanation"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.08333 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.18254 0.15873 0.0257937 0.15873 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath 1 1 0 r .18254 .66071 m .18254 .81944 L .34127 .81944 L .34127 .66071 L F .34127 .66071 m .34127 .81944 L .5 .81944 L .5 .66071 L F .5 .66071 m .5 .81944 L .65873 .81944 L .65873 .66071 L F .65873 .66071 m .65873 .81944 L .81746 .81944 L .81746 .66071 L F .81746 .66071 m .81746 .81944 L .97619 .81944 L .97619 .66071 L F .18254 .50198 m .18254 .66071 L .34127 .66071 L .34127 .50198 L F .34127 .50198 m .34127 .66071 L .5 .66071 L .5 .50198 L F .5 .50198 m .5 .66071 L .65873 .66071 L .65873 .50198 L F .18254 .34325 m .18254 .50198 L .34127 .50198 L .34127 .34325 L F .34127 .34325 m .34127 .50198 L .5 .50198 L .5 .34325 L F .5 .34325 m .5 .50198 L .65873 .50198 L .65873 .34325 L F .65873 .34325 m .65873 .50198 L .81746 .50198 L .81746 .34325 L F .81746 .34325 m .81746 .50198 L .97619 .50198 L .97619 .34325 L F .18254 .18452 m .18254 .34325 L .34127 .34325 L .34127 .18452 L F .5 .18452 m .5 .34325 L .65873 .34325 L .65873 .18452 L F .18254 .02579 m .18254 .18452 L .34127 .18452 L .34127 .02579 L F .5 .02579 m .5 .18452 L .65873 .18452 L .65873 .02579 L F .18254 .81944 m .18254 .97817 L .34127 .97817 L .34127 .81944 L F .34127 .81944 m .34127 .97817 L .5 .97817 L .5 .81944 L F .5 .81944 m .5 .97817 L .65873 .97817 L .65873 .81944 L F .65873 .81944 m .65873 .97817 L .81746 .97817 L .81746 .81944 L F .81746 .81944 m .81746 .97817 L .97619 .97817 L .97619 .81944 L F .02381 .66071 m .02381 .81944 L .18254 .81944 L .18254 .66071 L F .02381 .50198 m .02381 .66071 L .18254 .66071 L .18254 .50198 L F .02381 .34325 m .02381 .50198 L .18254 .50198 L .18254 .34325 L F .02381 .18452 m .02381 .34325 L .18254 .34325 L .18254 .18452 L F .02381 .02579 m .02381 .18452 L .18254 .18452 L .18254 .02579 L F 1 0 0 r .65873 .50198 m .65873 .66071 L .81746 .66071 L .81746 .50198 L F .81746 .50198 m .81746 .66071 L .97619 .66071 L .97619 .50198 L F .34127 .18452 m .34127 .34325 L .5 .34325 L .5 .18452 L F .65873 .18452 m .65873 .34325 L .81746 .34325 L .81746 .18452 L F .81746 .18452 m .81746 .34325 L .97619 .34325 L .97619 .18452 L F .34127 .02579 m .34127 .18452 L .5 .18452 L .5 .02579 L F .65873 .02579 m .65873 .18452 L .81746 .18452 L .81746 .02579 L F .81746 .02579 m .81746 .18452 L .97619 .18452 L .97619 .02579 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02579 m .02381 .97817 L s .02381 .02579 m .97619 .02579 L s .02381 .18452 m .97619 .18452 L s .02381 .34325 m .97619 .34325 L s .02381 .50198 m .97619 .50198 L s .02381 .66071 m .97619 .66071 L s .02381 .81944 m .97619 .81944 L s .02381 .97817 m .97619 .97817 L s .18254 .02579 m .18254 .97817 L s .34127 .02579 m .34127 .97817 L s .5 .02579 m .5 .97817 L s .65873 .02579 m .65873 .97817 L s .81746 .02579 m .81746 .97817 L s .97619 .02579 m .97619 .97817 L s .02381 .97817 m .18254 .81944 L s 2.6 Mabswid .18254 .02579 m .18254 .97817 L s .02381 .81944 m .97619 .81944 L s [(0)] .2619 .74008 0 0 Mshowa [(0)] .42063 .74008 0 0 Mshowa [(0)] .57937 .74008 0 0 Mshowa [(0)] .7381 .74008 0 0 Mshowa [(0)] .89683 .74008 0 0 Mshowa [(0)] .2619 .58135 0 0 Mshowa [(4)] .42063 .58135 0 0 Mshowa [(2)] .57937 .58135 0 0 Mshowa [(8)] .7381 .58135 0 0 Mshowa [(12)] .89683 .58135 0 0 Mshowa [(0)] .2619 .42262 0 0 Mshowa [(2)] .42063 .42262 0 0 Mshowa [(1)] .57937 .42262 0 0 Mshowa [(4)] .7381 .42262 0 0 Mshowa [(6)] .89683 .42262 0 0 Mshowa [(0)] .2619 .26389 0 0 Mshowa [(8)] .42063 .26389 0 0 Mshowa [(4)] .57937 .26389 0 0 Mshowa [(16)] .7381 .26389 0 0 Mshowa [(24)] .89683 .26389 0 0 Mshowa [(0)] .2619 .10516 0 0 Mshowa [(12)] .42063 .10516 0 0 Mshowa [(6)] .57937 .10516 0 0 Mshowa [(24)] .7381 .10516 0 0 Mshowa [(36)] .89683 .10516 0 0 Mshowa [(0)] .10317 .74008 0 0 Mshowa [(2)] .10317 .58135 0 0 Mshowa [(1)] .10317 .42262 0 0 Mshowa [(4)] .10317 .26389 0 0 Mshowa [(6)] .10317 .10516 0 0 Mshowa [(0)] .2619 .89881 0 0 Mshowa [(2)] .42063 .89881 0 0 Mshowa [(1)] .57937 .89881 0 0 Mshowa [(4)] .7381 .89881 0 0 Mshowa [(6)] .89683 .89881 0 0 Mshowa [(ex.1)] .02381 1.05754 -1 0 Mshowa gsave .97619 1.05754 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .87183 0 0 Mshowa [(y)] .14286 .93056 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{265.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"explanation", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXbuT28YZh+7Ie0g6yTrpdCfbyaiIX7JDT5LOk0nCJmmi4T/ARuMJRy48 4Thu2LJjye46VKxYsWLFhhUbNmzYsECDBgUKzGSYBMVmnx+W2F0AhHGyqdmb wd1isfh9j/329eNy7/WbH9/+4/s3P3737ZuXf/vhTfftd9/+6+Vf//kDzjq+ 5zj3/o6vty8dkkaOI37Rn9fkF7+pOP0N+VNHQtQjlnvK5OLcP5FfZ7m5RyTj d+S+Dima9wdShKZ+r8/jKQtmwSyYBbNgFgzAbuj9MQoDBwWhQ++eg4Br6WkY safXGgE6FF25pySFy8V4LAzwFeK7eioP/3WemRVmKtXRbZsO3/RqDRy0xakr UJya4NR2St0uJJ0uudS1AwXYA5w3JCM1vsYOgWB5XZ4H7+Yq8xxkCavbiqw6 Wia49FpJenQkmU9AJtO8jiYJGr269B32bJV6thJa6H3KvHWC1i4vjqs6XLH0 xJfcesULehP2cL110GbM0ptYMpkpeQGVOuOKkHTEzfJ5XgNfHr6m+OrtVH6O XmkPn5Aaow8HHJ78XRIw5pYtlz7ixcIdt1xyEJdVPS0pwmOcgNBQ4iaQqGgV 8+1tA1s6oE2DXiQYBguNb90WLjjkBbF/m0TeSjL2GQ+nFfcdgopPwnnAJKf8 aNBBhXY5zEKClmIKIrShjVAq2DmHmiAlNlIA8DinGEU8hx3iNHFd4NoPlgxm qotKYl5/nphHZA+WGvOWkudqPC+QPHelek6vQwJ9xWGmUos74gElbPelhrCW TWd6PaCtYJy4njpqye/d/UOORJLcC/CeyeC4ReK4YaOA40S/LeJirm26Bh0S 6OccZsALROC4GrX1lgdPQ0YX+nR2YpLleZo4XWvj1OC4GlpgJR2suE/6m5D1 8rtttCm10Zi10WHRNhpLyhwRG9NeUxS4UTo6CYP2UzxihONCnkXGiKYs4Io3 TdH3CsfE/H7K8XIGYaEnFkTNa2FfREjjKDE4eNhJ3pTLVAeKGlVgxsO/IXyV NB2P60l6rL7OYylNVI/d8rdjjsYbqagU0eyaO4aLIcHng4b88joJOTfJkvoO 49Ql2tAmDG0CdySaqcuwmZQYzJSpS42OZq1EbTm82qn4F+6D13P1SY+tdagK cXWkPsCRwjw9oNahaxVX2xHdbo1Wi4SY0au94HNM38Mdgpee8F1LT31lBiqa I3FZqOn4PR7ySeXppKV6+yMSFiccJZKQUx27Uo54MnAyjf3lLhgsmAWzYBbM ghUh7fW5v1wrLJgFs2AWzIJZsEKfAdwwiICumBRRH5M8I7efIV4sTQm5IpE8 aBHtxfIzcumErrrkFW6T0RzXoECWPJXIVz80qMGHBkjwCo4jCCCkME/i04dq PhEw0DN1FG/xwhVfgUeZddQeyR/uFCbzhRcFRxJKpNNI9mKW3OuUF09Mnw0U 49kvUzqVYvwVx13xWCe8O48XqMnRBghSArEvay+cOGREB1RvjzFaiROL6vAM oAX3LJONae45xbsnPhAx7YqId8pQ/pkfezRvccvHDWuA0x0XV8K2DHkvHCga 35BfDrMqHYVG0Spnv9T4zUC7pzn7koS/scVu15zvxB5wGQuvabG5fL3w1Vbq 75oOEOxqi9XJvS7gqH3odoGyF9NvGBlqaNrBFYJrlDQ8Yft+HL1wkugbRIts MF3Sg4MiUvWP2gDrOcy66MbK8vlG92AUGPGGOvfkMvPCPSLAYyf5mGCsc09K ZLrDVzh+QcCKnmeXPReeKcXbG7c5bEagn+STXMpdnkeIduTwyt5pTzo5qiNS zH2dZxu5cEGk70/BG1n0wKecNr0ryqLzuZ4vz/V0eGoPK/PuQmE9E65nzFVm /SCn0hbMglkwC2bBEGKJKhhzpBGs5FkwC2bBLJgFs2B3DZa7az5DQPZOegNv dIzWI5WFwWtP8pSWSAjLXM5c5h/FPjLBPy6jBPIK3iiqRMJYZtHt10qp7N31 RuqRsNDEhbM+frXL0lFcZje7QBx3gBugS+QBvscuuVYKGkSnEfVM+Y0Cl7v/ 3ch3rIaw41tHkeWR1iKSXW74IuQrfqMQfRxl8djpOCqwTd1o7jLT3FyKWcBM ++BvqTZ0QtSqN7DOmoJ5W8p/ipVZ5LCgbIh2Tptul90leXKt1PPFatzmbv4u G7cFqF1oh8IP0RL6GNVafQgbiN+0oRn7tY07p2Pcv89wLY17VHCJndNywLWx cjG20ZvxwFUDThF5o5iZInBVM42brI1mbj2J6RxKZhahXGmkbSYpztNVI02R ozZamZBNW563A9oYpduItu1UlGaTqOIp6RZ5CU2XKiMn7+rIVvWpfsvyQc6k LJgFs2AW7GDBSOKuOM7STK0Fs2AWzIJZMAtWFmx/jtOwU9gkqigNuQezWYx1 LCo4YTML7zK+pAXLHTryxOyqHHqyNOFZlJ40yC2xgZg5qNyxIU/NDtLRmJov 9eexofszmjrBN4pbcrcEFz3xI+O75zpqswRDWpjl1MlT99Pl7uUtemJHxtY/ Hd1Z4giMYsynTliJbblFz9vIiPkcClRz7kweqVqQDTWKLLHzdq9jNAo4w8CV qs7IZV8LcqZGkSX22V7y6N/vqIxcr+gp1j02x2ZTrFlCSmywFU4oefhFxiiq I2aTQSKb1M0mZnXIOww13/GazIuKnleR0e0dwiTSglkwC2bBLBhCLGH3w1ow C2bBLJgFO3AweSerYIjVTTLGUyWUp+qenurfNSwKFU5ZXR3nkM5KAXX31R0i GPkQAxH8E7bIGgqq2x9/BkSjGwzMb4mzmXMQVaV/BsRMdkzD/pY7qyGroH7X 7DtGzHaDSgWX5oyNBQ1Kv1tEc6PQ88EliOMcRE0Iv3tEoxsMTHAJyjgHUVX6 Z0A0DoAp9ncPetiAoA5fd4hgnJzIdG7RHby6d9UJRvXvHtDcz4JZMAtmwd45 2AlCLOH8hfw6vdvcRPWvSeq0Ij80SOqsIrDfkpTYpcJt4HfVCPgKBByRVFXB 8CXAHlcJ+wpga1XCfgGw9SphPwfYkyphPwPY0yphPwXYsyphPwHY8yphfwOw 96uEvaAZZ2gz6oimhkabLfJGbX7fRIuI/RdQKv1B9dLxfRyhBddgGsTIm7D0 cLZxEtEPqxT9mGbU0Hrc5YY2kLsMEmkXdyHNnw24tA5abdEFSHt0J25FW7Qa 96jEwcJDc7q7rYsWfsTq8Rh0qzqevIlwK4mnAM26Yq3TQssInYP0D6qU/iuA fVIl7McAe1kl7EcA+xRg3+FhDB+C+Gcg/v0/buEFWH0FVr/nJyswc58r5r43 5ylcg5HXipGHforCc7DtRm/boZ6dcAWGvVAj83BPTHgGZn2omHXYhyQ8Bcs+ AssO+lyESzCIzVowgL9G89kMzeZzNJvN0SaMpen2gZyU8ATMesTN8qYD1Gw2 wS94gl/tKuIDEEmFE12nZP7XRwG+q1TUYxB1yUUhtKHThO7Uq1ZUshagoU8O tl4MuRN7uD9ElS7wLlLSyMo8oMNVa+CiHhlVJl61a8qHIJL2WrjjCeZ9RKfo Me4YaLpLDK10gfwgJRU/idZ00uN0JrjLwz/Rko76bXdV7dr8vmIwWSJNOkmX McGrz7XbEhPUiUf1gQqpTJNkAfRJlbBnAPtplbCnAPtZlbAnAPt5lbB1gP2i StgawL6qEvYYYL+sEvYIYL+qEpZ5AZqLwxnbCuApRKMiMPqV1K8rAqPmynua E3r9z1LuNyCOPmWDL0u/fk/T1GTDvOmRppxuIiKX+yNN784e+PNz/ghP+fEM PMKL5ZhP245x1hbxfprh5BOaZ1wjjIe89QaPAjgVbJCHNX8gREkTC64Fe+0U bWZDQKdXo43cOYbBE1TWTup4QbFBsT+GMi28tqatErehYM7fbw6QT5oWl7hd wmJZDEHN4RLxH+ffXHwWX3oOlrHZQ3+6oAvD/jzglinzGOZH/jHRY6z0hD4d TNfML5GPZm4ftbsjvETAuOsJXZG13DWZJdCyjf4EhbTxMAlrV7ib8n0s+4S6 OwxC7L8+reB1EKAwiv8r3tolY4W6PnhriLxtfD9loTw/2jHlEachm2g0I4E5 xdcMzRcLtFj5ImJQ7E1h1dAazEj+MQRbiJb4tcUmZKMKmcGviDJD4gnnf0LB XVr3Prd2OWzhZXcPdchyrt+jzlhw8tM82Xoom3CB2wIjcJudLup2Oqjb6/Lv HA6Ix9lPuASmbIDr+SHXNZJ0/Y+InTxSmDACgx6aRyzmzsV7GZO0HZXxDN2f UvjeeMWLrlGfUBBd8mqMA4h7vDtF/upWhC4JNjZF06qeSyrDq76Hwlh0BCLw Cs/zzuWm/gD5C3f3O56dW0RLb1fwD9FoU/dcaLPDZQRwZ5q4oU9eMTnQsWHH RGGIm8OWL20IAxqgBQ7d+Qgb3lDf/TWU89Cw3eBd0ZC2RLncS4jnCAUB1W3n OU1rOnnn3v8BjVtCLA==\ \>"], ImageRangeCache->{{{0, 331.25}, {359, 0}} -> {-1.15003, -0.163932, \ 0.0237738, 0.0237738}}], Cell[BoxData["False"], "Output", CellTags->"explanation"] }, Open ]], Cell["\<\ The Cayley table is a tool that can reveal a number of interesting properties \ regarding a group.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CayleyTable", "[", RowBox[{"G", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[BoxData["\<\"For each element, a different color is used. The entries in \ the table corresponding to the elements are then colored and labeled \ accordingly.\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.08333 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.18254 0.15873 0.0257937 0.15873 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath 1 1 0 r .18254 .66071 m .18254 .81944 L .34127 .81944 L .34127 .66071 L F .34127 .66071 m .34127 .81944 L .5 .81944 L .5 .66071 L F .5 .66071 m .5 .81944 L .65873 .81944 L .65873 .66071 L F .65873 .66071 m .65873 .81944 L .81746 .81944 L .81746 .66071 L F .81746 .66071 m .81746 .81944 L .97619 .81944 L .97619 .66071 L F .18254 .50198 m .18254 .66071 L .34127 .66071 L .34127 .50198 L F .18254 .34325 m .18254 .50198 L .34127 .50198 L .34127 .34325 L F .18254 .18452 m .18254 .34325 L .34127 .34325 L .34127 .18452 L F .18254 .02579 m .18254 .18452 L .34127 .18452 L .34127 .02579 L F 1 .753 .796 r .5 .50198 m .5 .66071 L .65873 .66071 L .65873 .50198 L F .34127 .34325 m .34127 .50198 L .5 .50198 L .5 .34325 L F 1 .5 0 r .5 .34325 m .5 .50198 L .65873 .50198 L .65873 .34325 L F .74 .99 .79 r .34127 .50198 m .34127 .66071 L .5 .66071 L .5 .50198 L F .65873 .34325 m .65873 .50198 L .81746 .50198 L .81746 .34325 L F .5 .18452 m .5 .34325 L .65873 .34325 L .65873 .18452 L F .678 .847 .902 r .81746 .34325 m .81746 .50198 L .97619 .50198 L .97619 .34325 L F .5 .02579 m .5 .18452 L .65873 .18452 L .65873 .02579 L F 1 1 0 r .18254 .81944 m .18254 .97817 L .34127 .97817 L .34127 .81944 L F 1 .753 .796 r .34127 .81944 m .34127 .97817 L .5 .97817 L .5 .81944 L F 1 .5 0 r .5 .81944 m .5 .97817 L .65873 .97817 L .65873 .81944 L F .74 .99 .79 r .65873 .81944 m .65873 .97817 L .81746 .97817 L .81746 .81944 L F .678 .847 .902 r .81746 .81944 m .81746 .97817 L .97619 .97817 L .97619 .81944 L F 1 1 0 r .02381 .66071 m .02381 .81944 L .18254 .81944 L .18254 .66071 L F 1 .753 .796 r .02381 .50198 m .02381 .66071 L .18254 .66071 L .18254 .50198 L F 1 .5 0 r .02381 .34325 m .02381 .50198 L .18254 .50198 L .18254 .34325 L F .74 .99 .79 r .02381 .18452 m .02381 .34325 L .18254 .34325 L .18254 .18452 L F .678 .847 .902 r .02381 .02579 m .02381 .18452 L .18254 .18452 L .18254 .02579 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02579 m .02381 .97817 L s .02381 .02579 m .97619 .02579 L s .02381 .18452 m .97619 .18452 L s .02381 .34325 m .97619 .34325 L s .02381 .50198 m .97619 .50198 L s .02381 .66071 m .97619 .66071 L s .02381 .81944 m .97619 .81944 L s .02381 .97817 m .97619 .97817 L s .18254 .02579 m .18254 .97817 L s .34127 .02579 m .34127 .97817 L s .5 .02579 m .5 .97817 L s .65873 .02579 m .65873 .97817 L s .81746 .02579 m .81746 .97817 L s .97619 .02579 m .97619 .97817 L s .02381 .97817 m .18254 .81944 L s 2.6 Mabswid .18254 .02579 m .18254 .97817 L s .02381 .81944 m .97619 .81944 L s [(0)] .2619 .74008 0 0 Mshowa [(0)] .42063 .74008 0 0 Mshowa [(0)] .57937 .74008 0 0 Mshowa [(0)] .7381 .74008 0 0 Mshowa [(0)] .89683 .74008 0 0 Mshowa [(0)] .2619 .58135 0 0 Mshowa [(4)] .42063 .58135 0 0 Mshowa [(2)] .57937 .58135 0 0 Mshowa [(8)] .7381 .58135 0 0 Mshowa [(12)] .89683 .58135 0 0 Mshowa [(0)] .2619 .42262 0 0 Mshowa [(2)] .42063 .42262 0 0 Mshowa [(1)] .57937 .42262 0 0 Mshowa [(4)] .7381 .42262 0 0 Mshowa [(6)] .89683 .42262 0 0 Mshowa [(0)] .2619 .26389 0 0 Mshowa [(8)] .42063 .26389 0 0 Mshowa [(4)] .57937 .26389 0 0 Mshowa [(16)] .7381 .26389 0 0 Mshowa [(24)] .89683 .26389 0 0 Mshowa [(0)] .2619 .10516 0 0 Mshowa [(12)] .42063 .10516 0 0 Mshowa [(6)] .57937 .10516 0 0 Mshowa [(24)] .7381 .10516 0 0 Mshowa [(36)] .89683 .10516 0 0 Mshowa [(0)] .10317 .74008 0 0 Mshowa [(2)] .10317 .58135 0 0 Mshowa [(1)] .10317 .42262 0 0 Mshowa [(4)] .10317 .26389 0 0 Mshowa [(6)] .10317 .10516 0 0 Mshowa [(0)] .2619 .89881 0 0 Mshowa [(2)] .42063 .89881 0 0 Mshowa [(1)] .57937 .89881 0 0 Mshowa [(4)] .7381 .89881 0 0 Mshowa [(6)] .89683 .89881 0 0 Mshowa [(ex.1)] .02381 1.05754 -1 0 Mshowa gsave .97619 1.05754 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .87183 0 0 Mshowa [(y)] .14286 .93056 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{265.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXW2MI2UdH9ju7r3D3e1ue4ByMby/FEWD5iBgA+qRcDT60dTEk9CDqLHC ClYkJDVB+wVTImaVQHM5KjmaUyvG6oZyZ0NIuUtDUk16huYyuaR8mA8TMjkz 6JD8fd5nOs+8dW/2cI/ZpN3pzDO/////m+f19zwzc+Dg8iMPf//g8qMPHdz7 tccOlh559KHH9371B4+hXTOXKMolD6DPI3sVvA2Kwr/I3wH8xX7EvL0P/5sF bmoH3TtP7aK9d+OvTaF7L8U7PgfHTr8/S7fQEbLv8+Lo7fiotI9vJWAJWAKW gCVgCZjYkcHJlRk4/PY/4OWTZ8ivJWEgTVLPgK4poBsK+ZX2MOqFkvZwZDcx PwOWoYOmaaCbljIr9mlonw4W+rXg7zBxTplD3+/CoQdJE04+dyw34NXT7y8K 35fIiSlYKdiJVnoO93cxw8NGgSegB9C+Wt9AB01oFrMIgu4rNUfA/ui5UfxZ Eixwc2D2oeAypygFIBaJb/g7BYNaXoAVG8PdwuJODgQGtMo5B9AslBp9cP4N miXbSLYMA8Ptvy/Bzz+7H/18GJ7rn4XDf3qB+PHj7lmb4EVy4hyoLerk0FRg 1KTbI4vy74h8O1gmuuq6Bp1KFpRSC23rYFjU0XGnQk7MlpugjlVo14pQbo0c OSHELzfROwg/zSL1p9oZwFjtQ7VY5kQD8gdM0wRDV6GB05WaoFvgJhoDjaFe rkCzNwLDNGDYrhLQ5shkzrdo7upryOYQSmg7Xx/YQBLHhET0+9jp9+DQ9Qpc vfw3vAd93oa70dnfOjpUZKLrecRPjZRClIsUyGGbAwfRCyxnDGo5yFb7Ip+Q XN4sMyZUckZ0R2xmd7OsSQghzBagpwM3MVgROVZkumxNZEjK56U8IlC2oEvQ p04hFPw3ahbR7wpoPPuiQJRqLyqT9yLbX/wRPI9yxsu//yVB/mn3rAeTK1kF Kl3GJPpUsQ99Dyb7DiZTbJ/WW6FOdzUaSGRHbCYXBKIJbVwcEJOobNKyP4d4 wFVSFcYoi9LS0oChZtg80CuxjZyvDvvQrGLi8sB4RH7TS1Hvox3GIHKWnCH+ f+/eyYt4x/JruC4jKRa8yezZZNayEcjktT7NMzno6s5aP6ozi4JQkaNQ3qki B5RCA3g5B1AJAStDA0Z14oNtSuRpawhFVt0qtQG/Emq7LGph8slVAMEEEEnr qRT8fHkfKPdW4cX+e3D45Jm0XJxzjuJs0eJcCyvO3C90BlgivhGJr9RS3dWl 5EbGVZjnUC1o4xj9GrkaPZ4VU6D3UGWXrUIL5aickzjK+GZWcxdgyGCsUQP9 zkJ7hGp3PWJ7noJjJ/8AV+N286nX4JXT78t08aZFRVSpbdbkyM1MCixtCJ0e KhPlLKZthpcp3MznaqDiSlvvkTa40tVkxlyeZFwNC3bdIJm+UO+Ta6ASBvIw MO3Wm3YeqJe5FQdtFGQrjLtNaHRHFIBkMptCbABX9koWZTbdctQyEn2EJ1Sa XlltwB0in+5z1Xu8L1TL2Tm52pH6Qikw1TbkWYJcTXBnjbu8z0I/ecSjBQuR 3HC3H7MwalUmClWx3he1K2ht2hGo9RU3a7OgdWsTZxZQj26GVyiWCivFrLPT pASU0wy/3KfPwItvnoQX3nx3sgPJO79jVYGx7u788sJpoq6sTosQ84RefA11 YtSxhq/vYphNd7uAO4k6sqsiuyYp7HifoY2FJXdLgM8w6Bma8wwVRiMVNMMK YuL/d3SSgCVgCVgCloBFmSHw3ssMdz56J8AwOjpNFAlYApaAJWAJWAIWK1jw hEOanIhHWSaZPtDQ6GiPh9GrWDrvKYUAR9IYAg0lOx8ehQfEMPMe+NUH76DR NHcydGaB6KtoFGaMWmI0jT+5cguLUulI9pZEOHyIJ09UpNhEBf0bNEt0t5/W L2YOzncKwkPFoYGsnutC+9xxOHbmMHwTnXXfkQY9Nt2MAdWWMLwFzQKT5tEv TChO3BiZSjqS8bSLxeBZCB8l3zF4tucEznNywUOAxVHMQOdcA+5kF2eGff/k X118lKTYLdEZOi9g06lDDV/L1pjHC2Usg/V0B51RHVkQ1C6yfOUlVIZK+lx6 Ou9JBR9G59H3cfjhrQp89teHYfXDP0MRbT/w0m/gj+ecpTry3AAv3cNmCbDQ WWs0oVbC83BFXObcRAbbX5JI7HuQGCrn2zMza5tP8C3Q7X8+jX5+HX73URee QH4XTx73KNChUwCcM3NYpzVhoUCyqZKvT9aIQXbTkbgKVeypxraGqQKf5iIF v3hYgTtfegGeeBA7+obMT6jUb5dQExpY+a10qTtGF7LUH8XdbEh2ZX7kAjkb os/vYiyudVbAl6POBy/x2gS+e/K4zFGovu9sFNollKDYIuq5NaaKcROdKXPk sutuD3ymC3BJmtDgbQ13p3DjPGYBPNRoWukeObKfufqGo5yF6veixzFs0nLF Png6faJ8edmROXFNA6RY1glW2LlGP72678tGB5X+Y2f/Cu2P3nGwESzMi06i xQVxw9FJ9EKWy41T1Oczld5iui2/RxXsN2S/PAFLwBKwBCwBA6AbU8rv8Iwi Gz5xiht5hu/jLthzAQlYApaAJWAJWAK23mCh6/0DDATfA+AhMCEILGp/Q4wU hb5XQ0NmdJSk2C2cC5XdF7F/eCy2esRD3r4f+u1TJMWSiCOqEwsi3iDF3h5H Rr4pwIeWObCeUkB7UoEOHvF/iW4bT+MQGRvTaOkoZmThxN+heYBpB8+9CuOj R6B64NuYFczhBCO+9pcEEUGie0YiInTRvocEQC/NYL8C2fvoZViSog+Vvsm1 xvLDib9AnUR/P/ReP7VHBOxlJy2ijKqFLzokhGlW1PuG3Q8MO1SjTouw34L2 d64hYQ/apzJS2P2AsIOV67R3yKFL388n5CCJOSNCXoXqZ5AXX/kZGCdOpSOG HCQ8Z1yhTrMwfa0ZO0wxphkbFdTVHt4iH+O3j6NDX4Be2yNs7wzuIyW7S3DA OnKfKiwF1jKqPh5SoHkXMZyWYoyi+IqqawVd0sKTR8BCcarPHSKV7mBVrrok uxkpVpckLMfquwLcN1azpNiC6X5HrFGUWxTjLIyePSQS4E/xySNKRorNZceO zUvXtQOLtjzbN6uaZdQdeMqdVUNlWNYYd1BT8zqMX39LkWtdJ3JaCsYp0mZc HY2ARdQbsuuVgCVgCVgCtmHB1iKKnjglGbaNcBciSrsJWAKWgCVgCVgCFitY mCgqGwhbp+xrNKqCuSCcCxVFowmWUQ0vOkekEGmN8y5Gxloes7IzjKpgWXNR 0BRZLY0ma0YxbqvM061mpnyt7WkpgQs6PYXQtERRhNXE02qiPrYzHgxFWaAc 9TEngbfNe+qjSxIboUrrdFKpj920VKxCFxdHfUJJ4Co7T8VULjURlvdGEU99 7C1JwYeuEo76RJHQ8uCrn8okhCqyEaTUQJNeFUaU1cBreExI4G0I4ZqrTE6o lBuqvUax612lhq8F5rcYTPdkkNDM4y3a2nVIqPYbLNoGGZErjNCVv5yE6R7x EUCCl8JrNyfB6nCwwuuFbDcWwQt8p3guR0DVuBH6pQlYApaAJWAJGADdmFZ+ Bg/dm23dHrgvAUvAErAELAFLwNYHLEN+T4rOS8JAsCTtdW4m8Gg853qNEMFD nLbjiKBeeybIhCWIE8Fr9A8BYvKiCG8K1TkwYTpqwvVE9KXBRzCWaYiyWDco oez0x4DoS4OPUizTEOkBEwEJZac/BsRgGmSt2IeGsGdGBCT0cfrCIvoXCm+1 2KNQRFjoG5TQIwtfeERfGnx0YZmGUAE5BFF2+mNA9G0AXQqw3AD6SsQ+CHLz tY4Ivp0Tp7Yrd078lF/5qNzBiP/cDdT3S8ASsAQsAbvgYOTBNXhD+TL+ml/f vbbrt+Gtecn1ta1nzuKtTTGB3Yq3+OIWFgP7FY+BW4QBMmUf16LumwXsTJyw NwnYVJywNwrY2ThhbxCwc3HCXi9g5+OEvU7AbooT9loBuzlO2GsE7JY4YbeT HZtg1CjyooaXx4EqFg+Sx9DtENa3xm99nqws6DEP2poFaotu1zojxTa9LU7T l5EdKbbuCweahXpfs61tXw9r406VWSvi59ZtF9Z2rAutYMKAr8/rqdCtYMsl 6I0Neh1nhG9x5ye1xWnF+UmDTomPdfL4ka2bhfXL47T+KQG7M07YqwTsrjhh rxSwuwXsBXwgxBXC/IIw/4l45MMeEfiiCPwT8HQHFvOSFPNF90yHtAg2LQV7 UT3JYUkEmvEO9GJ4fsOiCHKPnHU37lMbFkRYV0hhXQQPatgtwrtSal025LMZ domAaB9nFozxELqdDnS6qA7rdGGkW47O+cZ5WsNOEdkOFpnarkIulxP84xtm Yh12XC5MEuOYpjbuMJLH1sdr6jJhahczhdfl4zePltpqvKbswQPJ/eSx3fz1 iWVQAWIdEW53WcNDeY20Z/lqHcpZfFePGu8gdJswSVd9z4HWrQDp01sAOtku 4UBjHVFvdVmdJ6+KwLcp8bsQwKDv1yjUB/EO5rdIAeMxVatoV00tNFwd1vO8 TWup4u6PeLUVe8R0bZywmwTsdXHCzgvY6+OEnROwN8QJOytgb4wTNiVgb4oT dkbA3hwn7KUC9pY4YSkLorgoTOKNAZ5AZGMCIzfD3hYTGAnXuQja1uPvcezd J8yRo7TxpdsHLtJtErJP12mHRzqvjogz3V1ke7L3wI5vZofwi4F03QDTtFjP bQbtMvldehQnXAHdxDzCN8CpwxHgW9csbQQq8nwrN+XoWDAv6GnzMOpMvkdZ yRag3kUwowYbD81Cvj4Ca9wUafJoEM5fbCHew5yrwhgXLWbR7PMusBhW5Rwv 6/k3Mx8ksG4WkdHeQ6XdI4PFSldjkUn9GMojm1e6DDlN76uutoeUF2MMnXoF CiX6ohdt2CIjs3x9iHsJJG220sL3ZIsAh3VONxEInfdT6pqO+KuQCzzUNNAN 6z/8rEn1lrs7FmzhmwytLa4Inf2jiVB2MN0yB40Ozpht9OlAt9eD3mAs7uu0 HDf05asdvJ/fDQ2WDn10Wm+ki/tjzQF2poaZUP7LHZzUgbewaMlrhwplKOLX nFTKhIweU0v9O1vbnCFsR2WBKr65YglKxSKUyiV2o2KV3AVP/vQ+yankqqHr vI35ajh8/ZDnnTAVGUsE1TJ0DZrnNvPzAjppEy6jHjq7i7TcHLCkQ6jgNwWV WuR+Wm3IGC+1YTxY4VkXZzbaRfN0PVSFFqeOVfyuMHYSz3iR+3mbnUV9K4x7 9ckbQ4srQFKbA3HDJynqat0WQu23yjGcyXxDjtxE7YiKDRGD3yekG6Z4FQyq kqCHsm63gQLPyud+WqRToVZgL5ZB6XRXur0iPxugacS3ieNk26OSVy75H8pc 7ZQ=\ \>"], ImageRangeCache->{{{0, 331.25}, {359, 0}} -> {-1.15003, -0.163932, \ 0.0237738, 0.0237738}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "2", ",", "8", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8", ",", "4", ",", "16", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "12", ",", "6", ",", "24", ",", "36"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ringoids", "Subsection"], Cell["\<\ Since we now wish to consider rings, we switch our structure.\ \>", "Text"], Cell[CellGroupData[{ Cell["SwitchStructureTo[Ring]", "Input", AspectRatioFixed->True], Cell[BoxData["Ring"], "Output"] }, Open ]], Cell["\<\ FormRingoid works in a fashion analogous to FormGroupoid. The required \ parameters are the list of elements, the addition operation and the \ multiplication operation. Options can be added afterwards.\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ R = FormRingoid[{0, 2, 1, 4, 6}, Plus, Times, FormatOperator \[Rule] False, \ FormatElements \[Rule] True]\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"Ringoid", "[", RowBox[{ RowBox[{"{", "\<\"-Elements-\"\>", "}"}], ",", "Plus", ",", "Times"}], "]"}]], "Output"] }, Open ]], Cell["\<\ Since there are two operations, we need to view the Cayley tables of both \ operations.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CayleyTables", "[", RowBox[{"R", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[BoxData["\<\"For each element, a different color is used. The entries in \ the table corresponding to the elements are then colored and labeled \ accordingly.\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .51587 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.47619 0.0122827 0.47619 [ [ 0 0 0 0 ] [ 1 .51587 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .51587 L 0 .51587 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.0122827 0.477324 0.50359 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.0257937 0.15873 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath 1 1 0 r .18254 .66071 m .18254 .81944 L .34127 .81944 L .34127 .66071 L F 1 .753 .796 r .34127 .66071 m .34127 .81944 L .5 .81944 L .5 .66071 L F .18254 .50198 m .18254 .66071 L .34127 .66071 L .34127 .50198 L F .5 .34325 m .5 .50198 L .65873 .50198 L .65873 .34325 L F 1 .5 0 r .5 .66071 m .5 .81944 L .65873 .81944 L .65873 .66071 L F .18254 .34325 m .18254 .50198 L .34127 .50198 L .34127 .34325 L F .74 .99 .79 r .65873 .66071 m .65873 .81944 L .81746 .81944 L .81746 .66071 L F .34127 .50198 m .34127 .66071 L .5 .66071 L .5 .50198 L F .18254 .18452 m .18254 .34325 L .34127 .34325 L .34127 .18452 L F .678 .847 .902 r .81746 .66071 m .81746 .81944 L .97619 .81944 L .97619 .66071 L F .65873 .50198 m .65873 .66071 L .81746 .66071 L .81746 .50198 L F .34127 .18452 m .34127 .34325 L .5 .34325 L .5 .18452 L F .18254 .02579 m .18254 .18452 L .34127 .18452 L .34127 .02579 L F 1 1 0 r .18254 .81944 m .18254 .97817 L .34127 .97817 L .34127 .81944 L F 1 .753 .796 r .34127 .81944 m .34127 .97817 L .5 .97817 L .5 .81944 L F 1 .5 0 r .5 .81944 m .5 .97817 L .65873 .97817 L .65873 .81944 L F .74 .99 .79 r .65873 .81944 m .65873 .97817 L .81746 .97817 L .81746 .81944 L F .678 .847 .902 r .81746 .81944 m .81746 .97817 L .97619 .97817 L .97619 .81944 L F 1 1 0 r .02381 .66071 m .02381 .81944 L .18254 .81944 L .18254 .66071 L F 1 .753 .796 r .02381 .50198 m .02381 .66071 L .18254 .66071 L .18254 .50198 L F 1 .5 0 r .02381 .34325 m .02381 .50198 L .18254 .50198 L .18254 .34325 L F .74 .99 .79 r .02381 .18452 m .02381 .34325 L .18254 .34325 L .18254 .18452 L F .678 .847 .902 r .02381 .02579 m .02381 .18452 L .18254 .18452 L .18254 .02579 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02579 m .02381 .97817 L s .02381 .02579 m .97619 .02579 L s .02381 .18452 m .97619 .18452 L s .02381 .34325 m .97619 .34325 L s .02381 .50198 m .97619 .50198 L s .02381 .66071 m .97619 .66071 L s .02381 .81944 m .97619 .81944 L s .02381 .97817 m .97619 .97817 L s .18254 .02579 m .18254 .97817 L s .34127 .02579 m .34127 .97817 L s .5 .02579 m .5 .97817 L s .65873 .02579 m .65873 .97817 L s .81746 .02579 m .81746 .97817 L s .97619 .02579 m .97619 .97817 L s .02381 .97817 m .18254 .81944 L s 2.6 Mabswid .18254 .02579 m .18254 .97817 L s .02381 .81944 m .97619 .81944 L s [(0)] .2619 .74008 0 0 Mshowa [(2)] .42063 .74008 0 0 Mshowa [(1)] .57937 .74008 0 0 Mshowa [(4)] .7381 .74008 0 0 Mshowa [(6)] .89683 .74008 0 0 Mshowa [(2)] .2619 .58135 0 0 Mshowa [(4)] .42063 .58135 0 0 Mshowa [(3)] .57937 .58135 0 0 Mshowa [(6)] .7381 .58135 0 0 Mshowa [(8)] .89683 .58135 0 0 Mshowa [(1)] .2619 .42262 0 0 Mshowa [(3)] .42063 .42262 0 0 Mshowa [(2)] .57937 .42262 0 0 Mshowa [(5)] .7381 .42262 0 0 Mshowa [(7)] .89683 .42262 0 0 Mshowa [(4)] .2619 .26389 0 0 Mshowa [(6)] .42063 .26389 0 0 Mshowa [(5)] .57937 .26389 0 0 Mshowa [(8)] .7381 .26389 0 0 Mshowa [(10)] .89683 .26389 0 0 Mshowa [(6)] .2619 .10516 0 0 Mshowa [(8)] .42063 .10516 0 0 Mshowa [(7)] .57937 .10516 0 0 Mshowa [(10)] .7381 .10516 0 0 Mshowa [(12)] .89683 .10516 0 0 Mshowa [(0)] .10317 .74008 0 0 Mshowa [(2)] .10317 .58135 0 0 Mshowa [(1)] .10317 .42262 0 0 Mshowa [(4)] .10317 .26389 0 0 Mshowa [(6)] .10317 .10516 0 0 Mshowa [(0)] .2619 .89881 0 0 Mshowa [(2)] .42063 .89881 0 0 Mshowa [(1)] .57937 .89881 0 0 Mshowa [(4)] .7381 .89881 0 0 Mshowa [(6)] .89683 .89881 0 0 Mshowa [(Addition)] .02381 1.05754 -1 0 Mshowa gsave .97619 1.05754 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .87183 0 0 Mshowa [(y)] .14286 .93056 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0122827 0.97619 0.50359 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.0257937 0.15873 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath 1 1 0 r .18254 .66071 m .18254 .81944 L .34127 .81944 L .34127 .66071 L F .34127 .66071 m .34127 .81944 L .5 .81944 L .5 .66071 L F .5 .66071 m .5 .81944 L .65873 .81944 L .65873 .66071 L F .65873 .66071 m .65873 .81944 L .81746 .81944 L .81746 .66071 L F .81746 .66071 m .81746 .81944 L .97619 .81944 L .97619 .66071 L F .18254 .50198 m .18254 .66071 L .34127 .66071 L .34127 .50198 L F .18254 .34325 m .18254 .50198 L .34127 .50198 L .34127 .34325 L F .18254 .18452 m .18254 .34325 L .34127 .34325 L .34127 .18452 L F .18254 .02579 m .18254 .18452 L .34127 .18452 L .34127 .02579 L F 1 .753 .796 r .5 .50198 m .5 .66071 L .65873 .66071 L .65873 .50198 L F .34127 .34325 m .34127 .50198 L .5 .50198 L .5 .34325 L F 1 .5 0 r .5 .34325 m .5 .50198 L .65873 .50198 L .65873 .34325 L F .74 .99 .79 r .34127 .50198 m .34127 .66071 L .5 .66071 L .5 .50198 L F .65873 .34325 m .65873 .50198 L .81746 .50198 L .81746 .34325 L F .5 .18452 m .5 .34325 L .65873 .34325 L .65873 .18452 L F .678 .847 .902 r .81746 .34325 m .81746 .50198 L .97619 .50198 L .97619 .34325 L F .5 .02579 m .5 .18452 L .65873 .18452 L .65873 .02579 L F 1 1 0 r .18254 .81944 m .18254 .97817 L .34127 .97817 L .34127 .81944 L F 1 .753 .796 r .34127 .81944 m .34127 .97817 L .5 .97817 L .5 .81944 L F 1 .5 0 r .5 .81944 m .5 .97817 L .65873 .97817 L .65873 .81944 L F .74 .99 .79 r .65873 .81944 m .65873 .97817 L .81746 .97817 L .81746 .81944 L F .678 .847 .902 r .81746 .81944 m .81746 .97817 L .97619 .97817 L .97619 .81944 L F 1 1 0 r .02381 .66071 m .02381 .81944 L .18254 .81944 L .18254 .66071 L F 1 .753 .796 r .02381 .50198 m .02381 .66071 L .18254 .66071 L .18254 .50198 L F 1 .5 0 r .02381 .34325 m .02381 .50198 L .18254 .50198 L .18254 .34325 L F .74 .99 .79 r .02381 .18452 m .02381 .34325 L .18254 .34325 L .18254 .18452 L F .678 .847 .902 r .02381 .02579 m .02381 .18452 L .18254 .18452 L .18254 .02579 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02579 m .02381 .97817 L s .02381 .02579 m .97619 .02579 L s .02381 .18452 m .97619 .18452 L s .02381 .34325 m .97619 .34325 L s .02381 .50198 m .97619 .50198 L s .02381 .66071 m .97619 .66071 L s .02381 .81944 m .97619 .81944 L s .02381 .97817 m .97619 .97817 L s .18254 .02579 m .18254 .97817 L s .34127 .02579 m .34127 .97817 L s .5 .02579 m .5 .97817 L s .65873 .02579 m .65873 .97817 L s .81746 .02579 m .81746 .97817 L s .97619 .02579 m .97619 .97817 L s .02381 .97817 m .18254 .81944 L s 2.6 Mabswid .18254 .02579 m .18254 .97817 L s .02381 .81944 m .97619 .81944 L s [(0)] .2619 .74008 0 0 Mshowa [(0)] .42063 .74008 0 0 Mshowa [(0)] .57937 .74008 0 0 Mshowa [(0)] .7381 .74008 0 0 Mshowa [(0)] .89683 .74008 0 0 Mshowa [(0)] .2619 .58135 0 0 Mshowa [(4)] .42063 .58135 0 0 Mshowa [(2)] .57937 .58135 0 0 Mshowa [(8)] .7381 .58135 0 0 Mshowa [(12)] .89683 .58135 0 0 Mshowa [(0)] .2619 .42262 0 0 Mshowa [(2)] .42063 .42262 0 0 Mshowa [(1)] .57937 .42262 0 0 Mshowa [(4)] .7381 .42262 0 0 Mshowa [(6)] .89683 .42262 0 0 Mshowa [(0)] .2619 .26389 0 0 Mshowa [(8)] .42063 .26389 0 0 Mshowa [(4)] .57937 .26389 0 0 Mshowa [(16)] .7381 .26389 0 0 Mshowa [(24)] .89683 .26389 0 0 Mshowa [(0)] .2619 .10516 0 0 Mshowa [(12)] .42063 .10516 0 0 Mshowa [(6)] .57937 .10516 0 0 Mshowa [(24)] .7381 .10516 0 0 Mshowa [(36)] .89683 .10516 0 0 Mshowa [(0)] .10317 .74008 0 0 Mshowa [(2)] .10317 .58135 0 0 Mshowa [(1)] .10317 .42262 0 0 Mshowa [(4)] .10317 .26389 0 0 Mshowa [(6)] .10317 .10516 0 0 Mshowa [(0)] .2619 .89881 0 0 Mshowa [(2)] .42063 .89881 0 0 Mshowa [(1)] .57937 .89881 0 0 Mshowa [(4)] .7381 .89881 0 0 Mshowa [(6)] .89683 .89881 0 0 Mshowa [(Multiplication)] .02381 1.05754 -1 0 Mshowa gsave .97619 1.05754 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .87183 0 0 Mshowa [(y)] .14286 .93056 0 0 Mshowa MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 148.562}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXVuoK9d5Hh/tm7TPMfUlcSGBmNK0TxV9aJ00KS2q09aBOCJ9LCrUNZZt 2lI1OY2jusGgQlo9xEWhLmqDLcyJGhxht6pL1Ryi+FSEIJ+DCEwLcokwg0F+ mIchDIYJjOHvuq+5rLVmzdY+Sc9GG/beo5l1+W/rX/9an9Y/jz529akn/vSx q08//tiDv/v5xzpPPf34Fx78nT/7PLpVuctx7nrKcZxvP+jga0CX7A/5eRr/ YR/O4fqj+N8Bbv81cfVV+ugy/vcivvEBcXXF7tElfOMBePWtd0mDH8RXFXqP P/1ZxRV5WhHNVkTdA/7UydUwtbwnaU/SnqQ9SWmSTnFxpwIvf/+/4aWbb5NP VdFBVfG0JjqoksYq6E8Evu+DH0SoPd5yTTyNIYpi8kk+vZs9jQIftn5IPh0b 2a4ZKa0RvioQ+A4EoUM+1RTiUbVSU4jsiNEXhwHhLYhi51DcQ7z6AeIrSXNO tFR4R+jvD+DJz5Jpi/w+dHUM33zr3RNB+7G5YFWQd0K6OIJwM4WmIws2ulNA IqzmZB+5Q/SxAaswKXvOx3rc4k1QMTkHMFgRXZCf9aRLb1eg0ZtDTO/S6gUN VVhDEUzadeeA3etMNrxtYhhZFZ/YSqxKRH0Aw5YsNFwmFL4LZQeCvwJ6pGIO OEvRClqZ7hynBUyo6B7twB00RWPt8VpKVDSE9DntNhINHUJnvILkjzvpyE7q XXDDrH60Jvm1rzyCPj4Bz6/egZf/7QVCx5cW7+RNUlNQcn4sRm4ME6yNzgQC TD4yUVx4vImcvF0CeNBBT7tzP2eXVyCO0JhDfmHeq6P2pug6gJBZH/hz0u5g 6UO8nVHNuyEdr9atbOc9UrPenYC39WA2aEN3uqF1NUZZKLMTIuwj8KZUsevI gc2EXm9iarM7Uyj5LKAra5x3E5uatCk9/bkLW28F/XYXxIiPI+SoIwgDD8Zt psoYssaJG9rCqNuDyXIDYRTCetYnjU42ESOe6n648lGfa6Lp5siVpOfskvKC je6H8OQvOvCRq9/Gd9Dv9+E3UO0/eGXtSEEfWZRWWWgAAzzeplvG7xa66HNv GSQs9JRZ6GqABl9rQnx8TTw9Zk9d9LTeXyXG9BH4iy4ahgPg0px3HVzmyFi5 wv4iV8v04tFyGSM8LiUgbomjJiJhQCZD5JrQPEEGS8ISbUk6STBRRvbU0g+o xRDTa8EyAN6FOxRuUHiy+kB4OUrKJTnzIUXEK0rUMiBFNpM2+twDn1XBjDj9 pa2pPYz6/thfwNfQ0Hnptb8jLf/V4h2dqWlK5+fn9aSDPtZhMJ7AoIO9eBt7 57yVxd5EzM95K1sprIzYpdOHIMGw0sqSlfms4i+HVHoLnzoSk5UVyoZb2bCO BtGCWRn67eMeVgorKyLpOMFEGbEfiRYjmGFfiqwMiZuLbDNpEZFtkX+jrnYM az+Ufo3Wv0zqe+sVTPrYqJrAbAzRTc10tEI3Qtfan1UI/X/ycNrAH7r6LRw8 CA6ThlZc4yRnbNF6RKhrtFpkgDvNUToY5MbGHSCedG+jsfHQiw7uBiwCUM6r x6VllDK4pTS4Qd3C4FRkJRkpK/5j7pGQ7+kjApzWGGToTMOb4TqEzSgjM2Gt 8RraPIgfuFzm3qwrQkPy2+gBasZgbDSoO4C/ufoJcB7uw9dXP4SXb75dywRz uQKniikygjGaM5zegrIRLqBO+UhMkZeZJD3se9kUKZ8ap8g5niKHwMIEWJAp cmmeInllHGHyIBA5fiLgztTTh2wGiYgJspGYIGM6QQ6KJsgCgrIRmkHuh6yl OJLthKsBsc8ld2AHECxRfFXvwxT5oUbSlKgLqLJgsQVr1ky8GZP5Z7ZBAWVg uVA9gFdv/gt8BC9vnv0WfOOtd/MGlCmgMqAYZh1kQO0pEQ2P0CdenDCRk4S5 TXs9mG+2ZD3tu2Pid1dR0qB4DBH7a5gvkXfu1rEqKlwLPlsEYOfsU3sdrILs ekBbf4NXiI0BeNgogyVZvvUWvsmstHLiZsWjfsQ1Gs9sNZBfAZSlKW9ZWoUc CBGHxF22RiuiEI9YShPcSC5G6VqY7SQMV1nJncJ2MYHxYkMbIO5JmhruAIeZ Th25qSBORIo5M6NbL4fwjetjeEh4uE/kogp9KcVOyHpCJz32i5dLqcnvhA1g QadD1+T479AVDjsxPLhuIm8mNlkagxWV6CG4o7bsDS3aIkjOI5rKXLHxdsH3 B+hvEymZLbEyxla1khbfCBk0ZKP9eW4jpCxBkiETGdk4/xA2015q8mqPVnJL gw1UFODnBHaIRu4gVbM1XLKVCCoRezBs12Wr47VjmA9P+eB46234+ndvwgvf /UF290hZQLIjNjbjEK2SPbxBmdimkJuJfHaIwgBvEIrxhO+FaNG+8fyM71XV qCTGoY9qeVtSSxWg14pY49ugW8+BbZDdBi3RuyRZ02c2/MabXwGVVhCJe6G/ FT1lA25cg8s3WQPJbeOBH8YmJf8/3Erfk7Qn6WKStBPuPX//TcYIuqqIjksy wltRMyJbtpLtnqQ9SXuS9iRlSNJiwywOAho8BRwRBiXarcLCVWi3Kr6TLJrx bHNvUhS83yRiLYMqg3hquAkUsc1//Ap8RoTlvwl//6M30eqDE3liKFUVRNig qJdoQc6VB716ehOuN10D+0msMatMkoWA+I6Q94FCV1UrERUi1dYsmPqTwrZl 1J10OKNJ7Fhi3ztC2sb9SsrI9fcWMHvvDXj17Zfh91GtT10b02dsz0lfqpaz LRMImrAtvKrxYTGdgbtFoyGOYD3rkcKTFE4tS9ug2rvg1up9JhsBWcPN5Zgx dV7LmFkBy2oY2FEBymdCpo0ADOaiAvP3xvBJJ73t85f/u8BPSYkjIc4jyxrH QgbWUCihiO+aYwPsUgRTaXA2IPUZYGg1AlNWSNbAcll+ysteLwENJpz92tKZ UWnpIzVmh8l8A/78lxz45X94Ga7/+N+hja4/8+I/wr++l5wbjixKV9XmZsJE 09OK74EX0BEZe9TvjNZRclqhBQsx6zMAhXqjsxWRNcZcgo1yQjcxrYSFs9tc ZXFpi5lz9j9fRh8/B//8/gK+iOhu33xDMXOqStUy5mSJeKZETJWNHECDbcm2 hnis5U2qEJk+J5M6sRKLNXpsTb6p35qVCWnA3sOMhKxRZgPIRyP6A/jbJxz4 5IsvwBc/iwn9TlI+ygLZWEsNZyYEd0gdbnsMrruEpetlvkOVRP+KweYzwMlq NKWQezazFSHC5cjX9Ju3jjx/h0oYN4uclAWPLSxk/qMX+SwMf3zzjbyFZArk LUQFS+YtBIeL+NvV2y1Zv6osxAZNPhs+bDISgwCokRTiu+U40PSbjbY1LOL5 JYXBShXvgAIb7OSURWvXrj3CSP1Ows1WFU8lJ4VwYsoDu0OxiGXucZhdE9OC hTDwGUBdlYXUClina30tGGtNrqqfvDlomFHBpdng1x6qtTCEOZr3Xn3nP2H2 /psKQ0g+lTyYUMXM5pTY7FKisbYYrBpONTFgxlLNVKlazjv9JM184yaJf6oQ UzPGakRM74hN2D1Je5JKknQ2eLIYuYTnHMYjuspTcuOWFY+8lRSPrO4DiZYR t+wpl+OepD1Je5L2JBWTxL+wljyteqog04xhyvO8mRO7WnYKT90aWFSdPK7p 2a7iJjCw9XsiZpUnOtG6BT0lJY4EcceWNY4FccdCANnTl5Xk6csEAHmCWcQ1 rl9ToGSfhtXsFilxIkRxVpBTcZg3tw1WVkKF4OSZ2Csp9EJckwnBEkTWGM4R xM864D/jwByvzj5Or8MvU4IT9qItWM2YCf6rPQeZhnaQhFDpG/8Fk0fZqvD5 b8L2lWvQf/QPsQxx6ZR52OKUcsRmztMqTcNCBmVAxXJc2Ym2EH1MGUMh6qtY slLzdB9Bq9tPUVOsJsdD7mlN0CbOUckziGlVIIGgleeN/4AREcinYfn6rVMh AzMAyD1z7txpbslqYsAanyukVtVPLTECSgB2zALKgKVava2MelspieWbjorj fWkFMIl8D2Z/9PNEIu7sVk1IxBpR46rMHe7UqFLNkzXyVUi4qp+sKi3wsLwa C0HI26DG3Lm5WrJxJojr0P859PC3/xrCG7eqOQ0WAljy61WZE5Nn16AJcCok 3KzBQhgqobkyeN9tcZ6Jo2o554nmh+tLfEV+w3/6Anr0K7Cc5VRYBDHxznIn FM/mTIsgIWvqzU7VhBUlpj0DAKeJfQ4gvorm3MdR9PDrpONaJubJFThNGBcd M5ozYOowZ4iMuPXMNYiRILznnwQczrnXkwGBHRCUPJdqPCioDHcMbJcBckpw pen3NKdiFdKTUrEWQdOqOOo4Egx4RKHiTIGsitVHsGrJfpAkDmHzlSdTpdrP XHPyk2QhcpNcahWey9OoV8uyDRBjwYymHyk5LUzDRrsN1qX1slEXramf1XnZ 5NPsHJk+WJX6jjJbzc1RnP46bF//niMjPvMWRs1IVSFUYuhX1XItJ+IckJLY QzCgSHfqhs6epD1JJUnaDeq4cYszcuNWrjvJEu9YwwhrJckIb+WBRMsJEekR pj1Je5L2JO1JupNIEls/ShzGjHjIvdzMmS4tO0XoS55FbR9FbNsCAceCuKMy 0EEJICCZ0MMOo7GGDmzSq2aUcVxaLoWYi+nonRSDbcdSvNbJY88nd6rGhMyI wUnGfCzwhRKwgcRWbHAba5DBOgWq0nZsBWKNzJiO19Uy9mMr33JZXs8nv6lq p0OFWdSEiI4NoMYZYQsB2igxn3KghnUi0vx2h5nvEqeyysM2hSK1ZCohgjL5 RhXfUlfCHdWkNLR4yBkQDzqlF6FH5XARmzyhGSOoWrANVniRzRm1JO5eIE3r nKfls4CqtsZUQIl0klV1gfxEYcZKapw4HdRUHkyxydaZ33Izc1viRJMl10XC K+ZBq2pz/k2Ns9diKlIIx+aCkvpCeIX7eh1EVQC+WCfRVLp3C06t8SjNUa9a xqtbyKxcYtCdkmUa40Ud9KKOF41AjS0OA3awVyFgY50a0xAdFrNvDWhpDnmp A8NiQZZL/Llr2kuNl1DjONWMizCgPRZgDgcszSCZHeRjk7xS6SSKGC3EvVRH t7JuoUhO1qk3d009qQn90jhSKgpWo0wWOJL4wocSNytEmcS2SvYskDKI0zFg BtFUh61qmTBNx7yWvpTbLpUV8s7fq9uTtCfJiqTdgDUQCCEIhFDigs/lyeJJ GVOMgAIhZFcPJFvOPd2TtCdpT9KepDRJp0BDjSRyVBUdVBVPa5akm9+vl9rc MFBgRrZU1KcPZuup36VlVUAKCixH8nGiLiDJKQXj8EjvOesDNoxKO1ytGCXL h7Nm9i2wroICphZMNJToQrWoBAPSciLYOzYXrGa0bHtYpmpxWIYVtEO9inGs /GrTTgIlQCnLgjYt2tB4hq61hqDBVfKGYAJgTFCO/DKk6iv2NaHw8vhNude1 5S2gkPUyJ47sCtq0aEPjGbrWWoAGVMlbgAl9MeE4tZwF5M56JCzAFrwp9xq1 vPYL2S6Vns8SnbIU5Pl3bdZ+Hl/RaF8DxJggnaql9u1wnPLvMtNo3sRyqWx6 VgVtWrSh8Qxd6z2/GmpReH4DJmOD8uQtQD0DWEA7ephK5+OLmCxzEMquoE2L NjSeoWutrjXQSV7XJozFGrrJhnvqQ0MpnWshm8K3geV1XsisNaBUIL68zgvF d/5daxduGaAkv3BTISmFgEwtp1vVCSI22s2gUwGcpFmQadkqBIg0gskvyLSC 2b0L7W5FEhjJ71bkYBMt5JIPt3Nnj1LK0WFGelRIs9mhZqAI9zE91dbV9mvb 8p2wjbUnaU/SbiQRFHSEb9wnri7fpkeS/fvx1fGu7JNWjnIMnu0sG6H2ZFeS 7hOMnQNJ9+Ir/iVz+jCxmNmFzHvFlarlcyD9HkH6JXG1C8H3iCvZ3jmQSVH+ E9iMZfrb8SYCT3zzn6SSPhR9Vs6FmzLdVtLdnhvTx+TLEEtGwcyPwZvS68F8 40iOD86RY4s+K+k+z4Fd/i0c+v1cLNw6jFa+5PDwXDg0dVNJd3OOTG3nfdZb GyezloI7Elc/CTDLRE4lTc5PMGOeMDqIwOVfrl96sOhhCjuw3IYJd3Isri42 aGUtlUpaKoVA00XIlcc9szftiFrjjQ/zDm+lidNZCTORpnMhcTBLcVTS4rjo OfRqglPUSbhdw2I+h/liAfP5AjZBnJi/Lh4wJtOAUaeuEkAlZwoXLh9fVdoA jaC9WR8ajYbwXzieYz+ZSebiwGTyi9r8jS1MCglnETl5a7hQKf2k3+OHubYz 7C3J+9cUruBiYGTJuC/NsUbdFyH/nwyGOOP4JA8+INeZeSqvfweCYjLf2JGC R4Vnv3OTA8pFCX9RXbDkh1u64GExZDV6J0NfR2kd59m9lFPuBUgPeJhRMv7s kxmn2R9Bt45PbOft+k4Dvg4zulVzKRVcCFKZDpb9tBMEph0tfedrD8haJAYI yHUnbdB3AEYmN0t4mg4NV2zwOndS1sFKRmXH5IXIOD8CPzAJIX3NdmvkntOe cSUj0BNTn6LHc9icy+wpEccTwbQtR9HUj2E9avLwY+rRk8H0045sX8qwbdW7 c877/ypYQcIZu7BHx0nSJ8l2dyOcIEn37UpkppXdSDrEN+7flaRMK7uRpD7x RVC/l5SPDLU+Kmh6TVx9lT4iSn7a/vpF8k+9HfOa4dl96eqq9etvsWdx6JHq iwVqAv1feaHzpKEea3oEkFsj8SajzYRVqaPqdZIA6GlFedbUB9gjPKCDIIAo lmkl4ihE90Ls15h4K+y18Yn32LC6+F2qQRg5DXKvEIfih4PXkzGwzMSJ5uTi 4BfEvRjCMEMK+hSFEYg85bg9nCZhuCafsqyFUSzW05w1YN7MhrX77VjjqZ8x ed56Q96kG/sb/H4DJYv3Jcwd0xKtEqnEmuAigrbTDnWBNXzYG005yWxjdWi3 6UuzG+SF6jGsxqz4IXnMaR26Pn4bqXMgnhF6xY877rDV6wGp1xvjN5uSN5iq qnjzAc5Xwaocg9MaANmgSjDQQKqINiOxKO5MPd6b86vkrxm/4/JaDbqwSJlJ bqXxIS6/ZH6Z+oC82TlcDbj8mkM0Lwcr6NSl/BrsmiZi8/B8LhhuT8SrkHFi roZg+ACanSFsQsEwrXLK03LTpCz1NnSavKcGjBacf9KLw3f7aDeRVj3bxTAh 6wOot/rgsvdluJOu0Fq9BZ02dRmt8foSkzBSbGJySyn2tmhW5IQzaLYqRgld U/RmS7KJ01v4Og3fSweKSClDntZhvo3ZXuHHYNGvEwe3CWk2FKc9hPU2gK07 pfhRvUc4CVa05e54SbKpLccUtOrNaNq9OPRh6wewIWlrurDGCfK3AYhsK5FL JIHLR+EWFpM+tGmuBmPdiLx9mvYbxsilbVdkJYVfQY4FTNOhUBrJG+67iJ/u jLw799eYVDJocJULG2NvswlMplPot5rQG6Hr8QRW2ygn7OQC7sPk2QdhO6dd rwPOJIropvQejiWDJWanhbE8CDYzIs46JY2ODiTGwF9DD7M3W6NrH79vlWrm c7DCmkFc+sjxblYz6LbaMCVsxqQortpNVqXOWSS9744X4G03MO3Tzzy+1XRb qMV4S7PstYcLVD6E7XpOLaa/BJJ3DYtn7KJJI0BiJeMBsTuVL4r/KVjAZbUF 8OGy5WlUSLqXWCZZyys9NZRqtAh61Oh0odvpQLfXJcy1JxtB8Dyga19UfIvH cZ17Oexu+lIuiNIh2YwNeRK6yB1wT+zwe9iVNPB7fCI5/ybLXWL3SPOpe1Va jrmrRB1qLjRNElrwM5mkvz0gBwvyRu4SVu4KRp0WDJH3WS2XJHyjZbQbAB/i MgsXaOIY4NgChmi8jdwA1kORpAlNWVhxc84Itv90/iaabpXJSgoG32sg9z3Z JHZLs+WO2ctapiB/Aqrl0VrZPo/pVEJGCzeiwwB49jj5evNGf4bGR0Tax68y RzGGbP82K/GKWok1pqDVAJHd6kIbv4W91yXKWrLseHr93UNN/wqjg+RHQqXG KPoe9xrA4Gc05c7YvMVp5nY/KLD7IGX3TsbuwaUiizMic7IiaxaLLNE9szzn 40J9+m9i8KBq2ZdBlRgYhi0UaflLaDaHKLilngEnLl0gE+KWz9QnWMllLqOW SSGbICGamEhwsI4Vlh9Iyx9mLZ/6N+SslO2nLD8jZpqOl1o+xxv95RhGcxrN hJs5dJt1h4PTNMLmP0KVt0OTpyU0uSqpydQYQGoN5oQcvGwi83RnJiWL56Zm D5abLayRZEh2Khbhxh6dQ1uDGc03O2Tx3Spg9WOy8FrjOS0lgivguzMY9uk8 1h2MYDQawnA0ha0IsXR17xZL3E5uDp2wObRHxYXigRBFgnhHujFw6dgo/OYJ X0p6ixmbhaHMthf7oXlvELF4tLSQAEfdBiJ4Cr1mE82xDeRYV6Q5nOGNj5wI BQ6zZP62tCXzeB6ZJUyGfaKLZneAZDeC4XCETCJiZQ5I7B34Ln0r4iq4JNhA PfboCqEznMPGWyO316SBtA/68Xlo0MiHRTSFLWGLIjdvRfOY1Uk0BcQYJ4h5 /ObNEFFF3qu58KmNlbeEHQ3htJwhhMi0WVB8FkO4mw62u5lipu06EtOQxFej dUhZuR9JyEVhO1+sN6CNr9k4I1JajeWav9mBTqOOEyfTh8ktAxRHCgldQTHh GFkbDZnb3R700DzZ7Y1oOkB1VabwK2gAkEWn4LGOFlN0GeiKFbZ83iILsS9x ltEqvMlCVBQesOmShCeIU5qYlizF8bTJAKPW0DVaPVq1D7rUwzTaXcRKD7HW g7knrZ5nUaXbHSGvynusI8G1m5Liies7qi6FyWulg5afixHnXu4IDNn04C9w PXr7Z5DVdoG7xDMoZBd90O04FujTjKHL8QBaYvejjzcDDzi/MTPbzTATuRyI R2sUdfWWIsghb2UIIiFEupHmIkLqqSAnWe5AlKabenhjjpfDm21MFMyYTkQW a6dJ10gxW5LgaZCnQ2Z7dUNFUIFTaPfdKBFUoG7ZiyQuK+oeakmmGasxyRGT Rpxgm+T6Y9ul5y0KpkfyocQWtnPX/wGpFXs9\ \>"], ImageRangeCache->{{{0, 359}, {184.688, 0}} -> {-0.0529091, -0.0257991, \ 0.00733224, 0.00733224}, {{9, 171.375}, {180.312, 4.375}} -> {-1.49923, \ -0.332899, 0.0484994, 0.0484994}, {{187.625, 350}, {180.312, 4.375}} -> \ {-8.42979, -0.332899, 0.0484994, 0.0484994}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "7", ",", "10", ",", "12"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "2", ",", "8", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8", ",", "4", ",", "16", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "12", ",", "6", ",", "24", ",", "36"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Here we form the extension ring of polynomials over the Boolean ring on {1, \ 2, 3} and choose a random polynomial of degree 2 that is monic (leading \ coefficient is the unity).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomElement", "[", RowBox[{ RowBox[{"PolynomialsOver", "[", RowBox[{"BooleanRing", "[", "3", "]"}], "]"}], ",", "2", ",", RowBox[{"Monic", "\[Rule]", "True"}]}], "]"}]], "Input", CellTags->"RandomPolynomials"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{3}\"\>", "\[InvisibleSpace]", "\<\" + \"\>", "\[InvisibleSpace]", "\<\"{2}\"\>", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "x", "\[InvisibleSpace]", "\<\" + \"\>", "\[InvisibleSpace]", "\<\"{1, 2, 3}\"\>", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", InterpretationBox[ SuperscriptBox["x", "2"], Subscripted[ x[2], {}, {1}], Editable->False]}], SequenceForm["{3}", " + ", "{2}", " ", x, " + ", "{1, 2, 3}", " ", Subscripted[ x[2], {}, {1}]], Editable->False]], "Output"] }, Open ]], Cell["\<\ Next we consider a random 3 by 3 matrix whose elements come from the lattice \ ring on the divisors of 12 (with operation LCM/GCD for the addition and GCD \ for the multiplication.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RandomElement", "[", RowBox[{"MatricesOver", "[", RowBox[{ RowBox[{"LatticeRing", "[", "12", "]"}], ",", "3"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellTags->"RandomPolynomials"], Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"1", "4", "3"}, {"4", "6", "6"}, {"12", "2", "3"} }], ")"}], MatrixForm[#]& ]], "Output"] }, Open ]], Cell[TextData[{ "The third type of ring extension is the ring of functions over a ring; here \ we use ", Cell[BoxData[ FormBox[ SubscriptBox["\[DoubleStruckCapitalZ]", "12"], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomElement", "[", RowBox[{"FunctionsOver", "[", RowBox[{"ZR", "[", "12", "]"}], "]"}], "]"}]], "Input", CellTags->"RandomPolynomials"], Cell[BoxData[ RowBox[{"Func", "[", RowBox[{ "9", ",", "10", ",", "6", ",", "8", ",", "3", ",", "2", ",", "3", ",", "1", ",", "8", ",", "9", ",", "3", ",", "10"}], "]"}]], "Output"] }, Open ]], Cell["As a last example here, we form the Galois field of order 9.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GF", "[", "9", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Ringoid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "x", ",", RowBox[{"2", " ", "x"}], ",", "1", ",", RowBox[{"1", "+", "x"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}], ",", "2", ",", RowBox[{"2", "+", "x"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "x"}]}]}], "}"}], ",", "\<\"-Addition-\"\>", ",", "\<\"-Multiplication-\"\>"}], "]"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Morphoids", "Subsection"], Cell["\<\ To form a Morphoid, the parameters are a (pure) function and then either two \ groupoids or two ringoids. (The function has the first structure as the \ domain and the second as the codomain.)\ \>", "Text"], Cell[CellGroupData[{ Cell["f = FormMorphoid[Mod[#, 6]&, Z[12], Z[6]]", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"Morphoid", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "6"}], "]"}], "&"}], ",", "\<\"-Z[12]-\"\>", ",", "\<\"-Z[6]-\"\>"}], "]"}]], "Output"] }, Open ]], Cell["\<\ The MorphismQ function determines if this is a (ring) homomorphism.\ \>", "Text"], Cell[CellGroupData[{ Cell["MorphismQ[f]", "Input", AspectRatioFixed->True], Cell[BoxData["True"], "Output"] }, Open ]], Cell["\<\ To see visually why the operation is preserved for the pair (3, 5), try the \ following.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PreservesQ", "[", RowBox[{"f", ",", " ", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33613 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.47619 0.0080032 0.47619 [ [ 0 0 0 0 ] [ 1 .33613 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33613 L 0 .33613 L closepath clip newpath % 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 % Start of sub-graphic p 0.0238095 0.0080032 0.477324 0.328131 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.184874 0.070028 0.0588235 0.070028 [ [.5 .56653 -3 -4.5 ] [.5 .56653 3 4.5 ] [.5 .42647 -3 -4.5 ] [.5 .42647 3 4.5 ] [.5 .14636 -3 -4.5 ] [.5 .14636 3 4.5 ] [.2549 .33193 -3 -4.5 ] [.2549 .33193 3 4.5 ] [.7451 .33193 -3 -4.5 ] [.7451 .33193 3 4.5 ] [.2549 .12885 -3 -4.5 ] [.2549 .12885 3 4.5 ] [.2549 .18487 -9 -4.5 ] [.2549 .18487 9 4.5 ] [.11485 .40896 -3 -4.5 ] [.11485 .40896 3 4.5 ] [.11485 .46499 -3 -4.5 ] [.11485 .46499 3 4.5 ] [.32493 .54902 -3 -4.5 ] [.32493 .54902 3 4.5 ] [.32493 .60504 -3 -4.5 ] [.32493 .60504 3 4.5 ] [.2549 .68908 -15 -4.5 ] [.2549 .68908 15 4.5 ] [.7451 .07283 -18 -4.5 ] [.7451 .07283 18 4.5 ] [.7451 .12885 -3 -4.5 ] [.7451 .12885 3 4.5 ] [.7451 .18487 -3 -4.5 ] [.7451 .18487 3 4.5 ] [.7451 .2409 -27 -4.5 ] [.7451 .2409 27 4.5 ] [.67507 .40896 -3 -4.5 ] [.67507 .40896 3 4.5 ] [.67507 .46499 -12 -4.5 ] [.67507 .46499 12 4.5 ] [.88515 .54902 -3 -4.5 ] [.88515 .54902 3 4.5 ] [.88515 .60504 -12 -4.5 ] [.88515 .60504 12 4.5 ] [.7451 .68908 -12 -4.5 ] [.7451 .68908 12 4.5 ] [.493 .01681 -24 -4.5 ] [.493 .01681 24 4.5 ] [ 0 0 0 0 ] [ 1 .70588 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 1 0 0 r 2 Mabswid [ ] 0 setdash .16387 .66106 m .34594 .66106 L s .65406 .66106 m .83613 .66106 L s 1 .72 1 r .64706 .14986 m .64706 .26891 L .84314 .26891 L .84314 .14986 L F .54 1 0 r .64706 .04482 m .64706 .14986 L .84314 .14986 L .84314 .04482 L F 1 0 1 r .79412 .52101 m .79412 .57703 L .97619 .57703 L .97619 .52101 L F .58403 .38095 m .58403 .43697 L .76611 .43697 L .76611 .38095 L F .65406 .15686 m .65406 .21289 L .83613 .21289 L .83613 .15686 L F 0 1 0 r .23389 .52101 m .23389 .57703 L .41597 .57703 L .41597 .52101 L F .02381 .38095 m .02381 .43697 L .20588 .43697 L .20588 .38095 L F .16387 .10084 m .16387 .15686 L .34594 .15686 L .34594 .10084 L F .65406 .10084 m .65406 .15686 L .83613 .15686 L .83613 .10084 L F 1 0 1 r .5 Mabswid .42997 .54902 m .78011 .54902 L s % Start of user PostScript 3.5 7. 8.5 7. MAarrowhead1 % End of user PostScript .21989 .40896 m .57003 .40896 L s % Start of user PostScript 0.5 5. 5.5 5. MAarrowhead1 % End of user PostScript .67507 .36695 m .7451 .27591 L s % Start of user PostScript 7. 4.4 8. 3.1 MAarrowhead1 % End of user PostScript .88515 .507 m .7451 .27591 L s % Start of user PostScript 10. 6.4 8. 3.1 MAarrowhead1 % End of user PostScript 0 1 0 r .35994 .12885 m .64006 .12885 L s % Start of user PostScript 2.5 1. 6.5 1. MAarrowhead1 % End of user PostScript .11485 .37395 m .2549 .23389 L s % Start of user PostScript -1. 4.5 1. 2.5 MAarrowhead1 % End of user PostScript .32493 .51401 m .2549 .23389 L s % Start of user PostScript 2. 6.5 1. 2.5 MAarrowhead1 % End of user PostScript 1 0 1 r [(f)] .5 .56653 0 0 Mshowa [(f)] .5 .42647 0 0 Mshowa 0 1 0 r [(f)] .5 .14636 0 0 Mshowa 0 0 0 r [(+)] .2549 .33193 0 0 Mshowa [(+)] .7451 .33193 0 0 Mshowa 0 g [(8)] .2549 .12885 0 0 Mshowa [(a+b)] .2549 .18487 0 0 Mshowa [(3)] .11485 .40896 0 0 Mshowa [(a)] .11485 .46499 0 0 Mshowa [(5)] .32493 .54902 0 0 Mshowa [(b)] .32493 .60504 0 0 Mshowa [(Z[12])] .2549 .68908 0 0 Mshowa [(f\\(a+b\\))] .7451 .07283 0 0 Mshowa [(2)] .7451 .12885 0 0 Mshowa [(2)] .7451 .18487 0 0 Mshowa [(f\\(a\\)+f\\(b\\))] .7451 .2409 0 0 Mshowa [(3)] .67507 .40896 0 0 Mshowa [(f\\(a\\))] .67507 .46499 0 0 Mshowa [(5)] .88515 .54902 0 0 Mshowa [(f\\(b\\))] .88515 .60504 0 0 Mshowa [(Z[6])] .7451 .68908 0 0 Mshowa [(Addition)] .493 .01681 0 0 Mshowa 0 0 m 1 0 L 1 .70588 L 0 .70588 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0080032 0.97619 0.328131 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.184874 0.070028 0.0588235 0.070028 [ [.5 .56653 -3 -4.5 ] [.5 .56653 3 4.5 ] [.5 .42647 -3 -4.5 ] [.5 .42647 3 4.5 ] [.5 .14636 -3 -4.5 ] [.5 .14636 3 4.5 ] [.2549 .33193 -3 -4.5 ] [.2549 .33193 3 4.5 ] [.7451 .33193 -3 -4.5 ] [.7451 .33193 3 4.5 ] [.2549 .12885 -3 -4.5 ] [.2549 .12885 3 4.5 ] [.2549 .18487 -9 -4.5 ] [.2549 .18487 9 4.5 ] [.11485 .40896 -3 -4.5 ] [.11485 .40896 3 4.5 ] [.11485 .46499 -3 -4.5 ] [.11485 .46499 3 4.5 ] [.32493 .54902 -3 -4.5 ] [.32493 .54902 3 4.5 ] [.32493 .60504 -3 -4.5 ] [.32493 .60504 3 4.5 ] [.2549 .68908 -15 -4.5 ] [.2549 .68908 15 4.5 ] [.7451 .07283 -18 -4.5 ] [.7451 .07283 18 4.5 ] [.7451 .12885 -3 -4.5 ] [.7451 .12885 3 4.5 ] [.7451 .18487 -3 -4.5 ] [.7451 .18487 3 4.5 ] [.7451 .2409 -27 -4.5 ] [.7451 .2409 27 4.5 ] [.67507 .40896 -3 -4.5 ] [.67507 .40896 3 4.5 ] [.67507 .46499 -12 -4.5 ] [.67507 .46499 12 4.5 ] [.88515 .54902 -3 -4.5 ] [.88515 .54902 3 4.5 ] [.88515 .60504 -12 -4.5 ] [.88515 .60504 12 4.5 ] [.7451 .68908 -12 -4.5 ] [.7451 .68908 12 4.5 ] [.493 .01681 -42 -4.5 ] [.493 .01681 42 4.5 ] [ 0 0 0 0 ] [ 1 .70588 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 1 0 0 r 2 Mabswid [ ] 0 setdash .16387 .66106 m .34594 .66106 L s .65406 .66106 m .83613 .66106 L s 1 .72 1 r .64706 .14986 m .64706 .26891 L .84314 .26891 L .84314 .14986 L F .54 1 0 r .64706 .04482 m .64706 .14986 L .84314 .14986 L .84314 .04482 L F 1 0 1 r .79412 .52101 m .79412 .57703 L .97619 .57703 L .97619 .52101 L F .58403 .38095 m .58403 .43697 L .76611 .43697 L .76611 .38095 L F .65406 .15686 m .65406 .21289 L .83613 .21289 L .83613 .15686 L F 0 1 0 r .23389 .52101 m .23389 .57703 L .41597 .57703 L .41597 .52101 L F .02381 .38095 m .02381 .43697 L .20588 .43697 L .20588 .38095 L F .16387 .10084 m .16387 .15686 L .34594 .15686 L .34594 .10084 L F .65406 .10084 m .65406 .15686 L .83613 .15686 L .83613 .10084 L F 1 0 1 r .5 Mabswid .42997 .54902 m .78011 .54902 L s % Start of user PostScript 3.5 7. 8.5 7. MAarrowhead1 % End of user PostScript .21989 .40896 m .57003 .40896 L s % Start of user PostScript 0.5 5. 5.5 5. MAarrowhead1 % End of user PostScript .67507 .36695 m .7451 .27591 L s % Start of user PostScript 7. 4.4 8. 3.1 MAarrowhead1 % End of user PostScript .88515 .507 m .7451 .27591 L s % Start of user PostScript 10. 6.4 8. 3.1 MAarrowhead1 % End of user PostScript 0 1 0 r .35994 .12885 m .64006 .12885 L s % Start of user PostScript 2.5 1. 6.5 1. MAarrowhead1 % End of user PostScript .11485 .37395 m .2549 .23389 L s % Start of user PostScript -1. 4.5 1. 2.5 MAarrowhead1 % End of user PostScript .32493 .51401 m .2549 .23389 L s % Start of user PostScript 2. 6.5 1. 2.5 MAarrowhead1 % End of user PostScript 1 0 1 r [(f)] .5 .56653 0 0 Mshowa [(f)] .5 .42647 0 0 Mshowa 0 1 0 r [(f)] .5 .14636 0 0 Mshowa 0 0 0 r [(*)] .2549 .33193 0 0 Mshowa [(*)] .7451 .33193 0 0 Mshowa 0 g [(3)] .2549 .12885 0 0 Mshowa [(a*b)] .2549 .18487 0 0 Mshowa [(3)] .11485 .40896 0 0 Mshowa [(a)] .11485 .46499 0 0 Mshowa [(5)] .32493 .54902 0 0 Mshowa [(b)] .32493 .60504 0 0 Mshowa [(Z[12])] .2549 .68908 0 0 Mshowa [(f\\(a*b\\))] .7451 .07283 0 0 Mshowa [(3)] .7451 .12885 0 0 Mshowa [(3)] .7451 .18487 0 0 Mshowa [(f\\(a\\)*f\\(b\\))] .7451 .2409 0 0 Mshowa [(3)] .67507 .40896 0 0 Mshowa [(f\\(a\\))] .67507 .46499 0 0 Mshowa [(5)] .88515 .54902 0 0 Mshowa [(f\\(b\\))] .88515 .60504 0 0 Mshowa [(Z[6])] .7451 .68908 0 0 Mshowa [(Multiplication)] .493 .01681 0 0 Mshowa 0 0 m 1 0 L 1 .70588 L 0 .70588 L closepath clip newpath MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{646, 217}, ImageMargins->{{62, 0}, {0, 0}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfVvUG9d13oj/jXfJki1HpiSSVtIk9VroqiXbUWvFBuUoDhMLlpLISQvG UmnDoi2RCM0uLdisK0HSKqEojpAwIWyqxIpqJIxBhwEjBbJb+IK0NZzV6cM8 dFbXwsO8zAse5mFe5mEedvfZ5zJngDMDgP/Pi+WCCz8HZ/b+9uXscz8z51NP nXr6888+derY0acO/PrJp6pPHzv65QOPnDiJSSu3WNbKL1rWLbcesNg1WJb8 M/X55+zPTPJNmfqblLAGcejBcDCA4XAAA/zf9kLr/2YRR+MucNsLUCwWoNYb S+K/p/9W8E8EQRBAFDMGnhZHIaaFEOOvPZIujiBCIvZrl8YbIm8QRlz44+pG DGE4BYC/ojCitJ0izW0WodBy6dd7phQKo9hanVKI/VpfUKFvcTv/RjJFNpR4 GOC3BA5y+r3qNoqLnVBs2hC6PY2kAJVKia7ZPaa93RHka3RbBBW0nAl0KxYq K+8VYRQmmeF0qhbnWyW+esdmrmA8JhZv0IQCpnKWDbDKTRhHkDKgiD6Lxm1B swLVniel8Yz4qLQ6dqEiTSo0gckI7aa0utRyAAIbqoXE6qK4btqM2IOaZlml C5GQE457UFRqrkKp2oJxqNTkLLvAKrZIqNNCXxYqUC1JSUVoD6XWJEXwrAgx UaZT/WFL89AqFMoNcIKYO7tbU74ulKFaKZK4csfdRi7ZYNmhsm4qO65JfrR4 HH5bhKg/apLYgR9bXKWPwLDBoqmO/htDlUFWWuD6AfhOD8qUc3USGdhNElfr jGASTGDUqdHven9MsuJwAv4kgPGgjuk1cPF6gjixVCZySGVGH4U+DLsNqNS6 lEF5vNG4o+SGMRZt34YaC5Nyh+LB69e4/hQcEfRraE+tz+7xcPwYGXon+ANO 6AZSpRjcHk/zMCkYMeFlGPlY3sd9Mr7AgXjQodHBxIU6U6bv4vUEJmHM/fgY 2MyPqNMEq4ux3YdauQI9UiomUsZa01l5lYLBWRb2DcHzx9Br8N89L84TO9fn sd8jnEpriPQh+O6A529jhHcDaKIPKx0Hq7oAnD6FGZrbA1V53ID8+qYerqye nkADWYvVGtSqVajVa6RSpTtWYgYBbBPkfq+C0SqLPCt7jcQaxG8hVMMOV0Rh iJymrJYsmcbKVRHLnx0ldb1Ot02kEXwqbQenE2VX4+GZzNqahs0D8uPSvHCI FV6TNTnQKpeg7QTgtoiQ6Owm88xAymQBJm4pPRBDmpXYwNKKWO10x0l7NUO3 QTpZlR4knwAa6NFS2zXiywba5A+3XSJ3B/hrVeBL3mKjjwEYET7Wc6xFS/Cv sb/P84DqCpZxp0ztbwf7Lp16ka6ppfH7FEz9iYSX0dScE01BKpqsqWgCh1sX T1lnTVtXmm+dJl4EyXQ0jaBUaoHn8oJhVbswxGyR0SRcomQ2i8ZoanKzNBti MrXpxoZoCpJoak1H04SiCcuqET8VTVP+cCmbeDTxtDWYjDrQHvCWLRwPoFYq sNYaP+uijyQ/yufXwuWpgNqHIT0gFtaLpAag2k+sZ5VeqQ6jsQ8ual9kmSJ6 JLHHK+dys4+Vvgf9VkX0ewLBH1M/1GWVZUrNPTBx+tBq8H5ErdmGdrsFrXYP fNXSZvHuVX3y6kzl3BWVc53uN7ChCbFD0Cyy8upogbaXAq2MdrVrRcTpQb1U wtq5iOXcpoLRr1oq6CJsKFgFj7/16kkGgewWYY5Ct9UgF5VqTTSpDa1WG5vi SNCsskYH2z6H2lDk5cnbucQ672hVWwMYey4W7RLv5kwgO7TXchx1t2o9WQb5 2FJ7dpe0K1DryeBc6KLxDrZ6IWrFWtbacMKzfvkM2mT+iKi8JFzVqxRQ8Ra1 lW035ODvRp0daJTl2KEIFXYtApL0tjvJEKRUhSoO2hojEZD6CAZbcqXzHuwR dzD/eaelUqtDHVvpWr0Nnuw4zbKKLNgDHu9Nqz5xATufvH/rqKFDcr9MHdd0 MOIYoyQ609iIiJqaGjE0t8Wv2UCD1dhFDlRuObnBiGOSZo2Xx2KlhvbU0b46 DLwkGCO3rQ3BQskqJRbQe5VSonbXmVgmkSoSM12EffZhW7ogGe+0RIU3GTI+ nnwbBlMNZAVyFbmymUwREch7busU4qNOE8pqbNfAGhFWpb2xKArj1lSjuapu uc0S1EeqfY1D7GIGkXIiH4U7qEgh1b7qdKuKms8IsFG9pGMjdeEKPaK2g9ut iRLA+6ux6GhaVhWcEHYozGiqDeRymqx0OpHWVqJs1v1H2bsNvGuZeq8RHdM7 Ei6JNdsjpJfTJFvtj1Rm8nrS7rag2cJ6DL99jOZ1ATjuygFtkzXXK0pOCJ0y z/tGkol2w1INe6K0B81qA1ytC6jTkUolurGDVHH6bWhi7TYYy4orhGGHpbXZ SJzaBKaD266oEEYdpPFOpwFdN1S2qTLJSOsjMZ0zw75mUO32BU3gvQXrLRnh gQe2bYPj+iz7pGKTsUPJfhgr53iDBpTrfHC025BG5j8pcCMcPTIA23YYiB5t /XoF6r2xMm6KdM0Avc+QJgyB9OdqpxZvYX8+Ca8IMw6rn4/+NBD9HEtF/7zs W3BqYtGvu0TaGfz9jMvT3pUGW4ptRuh7BeUrkQUfxBuHbct6n0zzebA+6c0I XYotU+iJJqf8GrA2SJgRWvBixFXeIxHjJE3SHa2yGtWCl4E1VEblthR+xoi9 gvKwapFku7kOvz8mNP5F9I/g/Q+2BfgGPFFJ2sL7UNBDomV/JmQQIutQ0VMe V0qmnRQG3VW01OSchX2QE0Ga7kWb0x31Z3xzjbTe2KyGGe5dhxeR81SfU5/E cD7tU6ZIoFfw9n1461GbfpGiL7uc/Aj+z9iP1IWwsaRBRVltWteV2k7BfFh0 6Y46GDfo/sPMyALFkBIZcpEs5o3e3XKlt29SwRnn3ipLg8OZX9QiX2ZNZaIp N+Zpjw/RDowMVq/chb9PRIlHT7UwrWlJHYjvccR+ZKhFlT8b6Mwo6Ywpd26l mttE8X5hzLOEBfgz9uY0nevXlzWFz3hCOSdJO9njiEkp3A0nQq7cEfTl4+jT h4q8JmLXj2LaMz7XkGl8aJgol6HwBxZz7fKabueaCn8dYX0z/B5pcN5aLLTY kIrOde0Hcl0ri1bNZbPMogxgDDwzwuIVzgBhXgrd74QX0MYjWBpPY7E6bSvh 5OXHa6hcnfOwiuoRvD6ElVuFV73whKjkjiAfE32owOleSIqbijonsz5YWun1 LKVlGL84TirjwwMVxjnqZuub6WtV4yPKfaLBeMJRJZ7yHEnOqBK/DqcHiV7U UNQptrIriXV4XAT4fZIFIZ8LFcuJFk8+DZnuXVrPnVl6Ev5zXdGIFUSo75A6 84Jn1jdb4cxqotbjOrPcWZO54yYtoyx81EHBOHghTOhOaA2YlMxK2qMOT1vT Yov10B7qzXTiNqOGzDwGz0L0JMvYBi9TtUDF2kIaZfgH6SeiYMpvRauQ2pjH NkfeJSsuVOTEeKrP1BaFZETqqhLwEM9ws0+WF30aK7gnBlchesb420QJZ548 ha47YZNHZaf2RZ8nnY5EjzvRfVnOGzPg+TT772G8az3LrshZn2A/6eob6bsU Zg+ru/8f4tpC/B6HwKs7csF+j4NZYsZiIdh1dnXrfNgNdrV3DuwBlsrGFlhM LSz17NcBBbGTXe3KErVf8mIXgPixPBxUvLvY1U4lPpN4RqV7iXINLK1lpm9N V20vu9pQqt0r4SPFYK3IvyHZRRT3pE1QsmpTsjq6rFvZ1boyZS5Thknr1LGz qkIXad6Y+4Yk3c6uVpRV+yWfbJdZY+vxRhit2m8yZp3rNbK4L/oGKXdwvrQ9 +XzZJjGinnIw/z3iTDR/9gUljDBUwEmTAj0OyI6DkiRWcEY8Uj6TOFvjrsou nhlW4kxyz23sak1prCTUFa2Wzd9IStEqWKyxbyjDTJAriRPM9NnlQfQkLDF7 i10nLUZ3s6sdSun3S6ULggGs6XDZL5WQnmPfphFSK8Fm+mxns350XYRGKJhc zTPb2dWe2YiPtJCy05lkiBTZCY0tI3Q6UqaJs5WviqLG/onBFhY/Yrqf6FlR nUBDRP6K+NtRO5PYgiWwiWS88a5ZI1nmtAW+1CoyFmtsS2hMQ6R9ZQCRPrCg KvvSqiRlPw98fjhOV89cnXUIIQAX6phUAwdV8/GLytw/5YY1Xn3oSO2ZAqaE DqdIW4L0Q/lCPzhbeWchzRisWq7Y4pXvRNRYHxJ+j6CJP/la2YdmK7pIsM1W dPunSSTyhw3ID0wVRAObudOQVrNFywWJmqbuw4cNHIn4nP4JLxSsVY7BQ/8P oIrJZeiDDSP8+hBbIv/hbRCi8SoR/cACCCIzke9hhZCjSgBtKIiqpABFui5g WriwKtkIC6kiM8CDCuVmkGRAhugPGzgeyBZFGx+oeRlCKak28V8vZSMm0BV9 7shh0s2STELWT+i/VfKKixliYyZ5EGWKebeZPkcCsd2ShXf4HcH4tMhgtlYc it3q+pb6MOLrwi8bsHvL8JL4/YwX78ZWABNrAgFWZQenVarQf2yJdgLtSrKP vViti+3ZtP9KbtthDxy4Hl+sTXau8Z3xhWJRW7RgOx+4li8qa+4VGmHbzrcy W9oyh1UG2kFnsdpaanl5MfU2llGFnHOPUiXEyC+mVKmiejCjSsphG2rHSdfF /AjG0KU9TkXoj5P9Bw7bgVYfad5CSyIPGrQIUYG+gw2VZ0ODFiFoR8a0szZI w64wu2E54KN2DavGnGXtn3JUvlrbl1BBcxJTwYe2VUc1xlj7heBaDS6Eui1Z DhL7NFrDMW2YiCcDKIitpdJBtIuPb2eb2eJaHwZJGu3+KrCs1sKJB/iqUM+i EMKBzMFZp+SoIncQBeMROGy/WOzByPaW0oacdVALbp5XQZZz+I4Pp9fUHprY A2rza+xDt9mkrR1Vmiyt0TXbYzHyI6VSba6DDigHRdCnh1TK4Fg8WXPQHHXo E0GXliha0G2w0lIFT+2eW0AdrUJaI3U89FLXqpCUUSqShae+QP/dCYEzgG5/ RJv+fLsN6mkMzKdWLdmDbhUr+s4wUqtNNUQJuvYYPHfId+4VW6xhTZx0UDmJ b5C1rA4GOSQK/R1psp6liQygUD1ehXk/8JL9kPP1WElHs/aUjuUcMDtmHfxB PdWVLfI9IdlFS+wAp4gq892vjK3SZI/qWC9NFat1bDdiWQ2iQ8RW3FnH7MzS hD7jLt/yVkgWAwpqd/AcbVLFyrf40yCuKVhkw0oNoXjkK7VBKFUJJxu+mk5k nVGG6zUujguwibKBbW/0SHSJFR1NdM8gc0V4BCIcgwQR7X6krbfxBLxA7fST ss8oK+8VPvetLnSwluVia9LiGYOrQniMVbw9DlLGOW3u8sYo0IyThW9spTOr guPsJMa+KzDYbkWxuzsbV9N8DXsYzRRu2RpZM7H77wVU6Lt8qxNWwImKB1QN GqAjPPxGWofl+1m8qc4Oy7tZ3p++ruIWMH4yTf7Jm4FoD0tlvdiOC+7FiH7t FGnxRRdG5yf0606R5p21YcL26Wl0wXkbxpd42lpa6DWBnzFit6CEKw51Yxtn QzZdztM6fJ96742YPcTKEV9r8PrjCii68XP8kYrJrBHXBD7TCPtYUVGuSvdd xs7jlZh+raq/MfQfwzL2YAeit9k4kiv0tk9PwpWOO1wQpcUIEUKsQUpjqi/5 WfbeKE30KpUWb76uih1BYLfgoKVGKWwGr3Mh4iaw71u8uS6fdKlAsiYfWdqH tcHKYzhYeVAMVi4r5PAsrzH7nVgpPLnggn+FB5+kc46XJJQlnzstHrMTDfAb nW+ruOB8GxCeE5vfH6yknmRuveorZww+g2n/ogWhdNB3b6QXdt4Ii0X2H2f/ rTHD/1hVrmxm8VIA7kv8qUrnIrbqnQkLOuWXSyPquzTP0nN8pIXUrHseY/cS DsGOiCHYhUDQ4N/LNvE1zgZJYL4dUge0/pqkwz4YBq9/vk+7yHvncajW8SG4 HK+kHFUHX4UL83sEgyP8qYv66RFMLvkwOM73Tvc6itV7qca7+JeFH/o3zAE7 r7+xItNpVXdd2axqnXMYkwebSYyoOC3A4CIkhl4Q48pXcVyJzUh8UYwrr0Bi 6BVbOEjP6RhaWJqa5yKtWhJPXl4BVRs4x9GygzxWpUxKO9zXykIITcQqP+cq mRGVg2Ji7j9cXztXVOMZgfvqCALUM7xgg9OJpuivkb0ie7+kQpovIurzna/O OqLFAls5In6Dj+da58JEacw453l9nLwi4ypVZbM2piScwdN2Y7+iD81jOKw/ 3qB7xccaeN2E5sk+OYhXo450ivQJtYqYRxPdJyztcE/zCX9SuHJ6rFTl+UhV LTfpzZvBGSoy3uJp1ee69ABh8biT4CZOsLbcCyIyjrH/NnKcIZsUZqR33oHB c1UajPWxxzh6zQb/cjxjYP3ViXDYOgTnBtB9aQT+JazTzralEipiZYk6FwqY vciCvnisBvUjVf5o46EqXtegdrTL7IawM4bRmTZVj60zI7BfG4HzRigh/TM1 ZWpSePiQrXpyCB6y946Wpgq37HbxapW0v3IT+UavSWzVKyjB6GIkRKxfN7/o cw0bYjFGrKz+UdotQdLxOViA4sECgbdVXq+SPd1DeP9wl3VOZWPrn5maSTnS Z8VQqcTqQmyHlUpTbYmEGT9fS2BQOns4sHLSmW57WZ5IFmpcD1ag8qCUXobu uSAp6xPqXBeOjXiZ7N0cXkj6pyF5IemfrrAuCdUL6I2kfkq8MdMV2Yw79Ond HQavyNzynq9QPRa8ndRt0fmO6gGrXH0rop5XcFnvIbh84PK8pw1wkj5jwmtT WRhcou1LWjBzuWpcgWmFY46wmKfxsWQBhpeEfpevl0Wycgg7HoRvBZSb2DmE 6KKPv5P+5lYaJ3Ltc+y/nWL+SLSRryQ2IunFoTaeYPHaUzY4J2vQRj3ZLzl+ iS50ocqDVgn3z9ngiZZxRamFZeSQhstazysgayk2om3hqMm5IoY8omIsHB3R XRL/XA2ar/qqmoTvXEtjkrCLYHiyBYM3IpVx18IYkUFHlU2raZvWZEWCAeOi g+2zDniXooOqfonBv+Bgsg3uG5PtKuwm4LCkTsh2VL4Nl64xvjDjKfbfbiWG +uMNdkVzZd/OvatD7BLLKGaI5C5Vz2emIf6dMtZE1M29q+fHdj5jLa/+kyK6 lHtXL3PrYr59hug7uXd1LSza8gR0CWI304aqsyj9qwvS3aP5R2yL0j7Ev11x 0JvktjGw/70k/R9qOalpBWJhYjptQ2XIX7Mrtj4E/yuLd5sSOsXB1wusJw2M exX5X3Gv4+U/LUh3gsN+1kBOW5UpfC6yq+2MfLQg3XEO+wcG8tuUb7cZ7nbY 3zUxJS5M/59bgvIsV+mIgfxOQ9q3lIu2KbD/vgneZ7j4soH8vYa0/6IgVtTV cBO8X+Li/62B/OcMaX/J/m5XEGxFDX5ooLsri5c4VpX4L3Lx/8ZA/j5DWluJ X1Ng31+Gd4cST7zHuPjfN5DvM6RdUBBrSpH/tglevrjJN7dOkd9tSPvP7O9O BUFg31uad12J5+vN1mcM5PcY0uhdFbsY44YS/7aB7t4s3p1pXr5jwnrCQL7f kPbNtHgC+4dN8H6ei/9dA/mBLAhi3K7A3lyQ97yyOeH9HBf/Owbyg4a019lf yrUdSpG/3wSvEP/bBvL3G9IofKjE7lS2mMTflyV+Q4nfoTn/cQP5z2c5kDWE Mon3pYQ2G1l5sRAUzECJcvGYgfsXMhFXdUT2IRH0rA3d4s24JLKuXEtwUbI+ bcD7Z4a0bxpcsmJIIw9RT2fVcFfuOLo+0kT8lgwCZP0zGbvg850Z6l0xOt03 DLC7DLw7DHR/a8D7JUNay8D7XkOaMOfRHHPYphqaEBjJ/X5punM55ui8uwx0 lwx4v7ygjLsMabwDb33KALFfqRSrjTomc/7CALvbwLvbQPdtAx53I3/Tkzsc sR1aEI5tcPzI2jDQm+TvysEwuZUPOKzfylRnOwRuH5q0JVCsHVQbeN2EZrvP 4NcMrCbNdi4GZwrlv8nMpDV6zRVN5nfEZH7LWd5ZBowcZ/1mpjponYMQVfae ODGPXq7yt601umx7q8lZf56p2Vy4nQbWvzaIOCANxaiwW9pM9sQc2WcNuLtz MEwRzseY1mEDvGy+9UKyw0D3ZwbYvQbePQa6v8p0A69rWvxdA5aasE22m1qm XDLpsntBPFNMC/f8hkHUfRqsrBJN7vlTA+ytBt69BrpvGfB4tqxD6HsQxoF8 Kx1EEx9/g6lUmVTYmw9jipUnuTM+aZAgexy+YwPf+w/GkDVpcpuB1+SMNwx4 smPGwn3YbtELH5fPhIT3VgPdZ7nZv26A/ZeGtKYB4v2GtL808H7QkPbagnhC zUcMEPcb0v7EAPHzhrT2FuPxGRvr1wwQDxjSvm6A+AVD2oUtxhNqfsIA8SFD 2h8bIH7RkPb6FuPxySbrYQPEhw1pJthfMqR908D7EUPaqwvi8Ukp65AB4lcM aX9kgPhlQ9o3DLybwRNqFg0QDxrSXjFAfMCQds7Auxk8PsdmfdwA8a8MaW8b IP5iE7xC/McM5P/akPZdA8RZA91HFxTPp/isX10Q4nsGiD810D20oOp8is/6 2oLkzuZhTRYsCstnBPks3MOM2jSn9jS/iymm5q+qePcbeL+Qy7uk+NsMECcW FG/i/cy0+HyIdxkgjm+C94mtFH/AwFvZSvG3GyCeXVC8ifd3FxFPM0s0N/Oe TShSWhBlRqVMsHXlVAK7wwD2zJag/I6m0n6GwHCm34STKYBmYPdwXqDZu5kn ed9tEPqlXGmmmd9HNyHttzUT574hJ9PUPQyTRtJLPZebaf5cTTLdsJeB7dgS TWZdk/+ynUzvvIvBric6LfBA7nsM+nxxUUUynXM7w1vbtCKPa47Jf+uPzAPS RPj7KfZ3lfPKHJp64jbT+usmTTeRAi7jtT+Zrr6NwdFwn2TkPTV7p0H+sXmC Tcs3n9oCwY9phu+X8g2vDso0fDeD25XINz8Qa5odf3qezEybr17mpzVzM980 lGkrrbbdqgfXzFOumYZmSsu08iql6SbOfW+QSbgcGEIBVLHaJgvTOBHEJmv4 QtUdXBYjyX8kVm4+0PX9wlUrKgfa8xRNdoVsStHStGPz3k+U7dg1oBWGvtCZ vcLAB4nKS3Dms7n5/svT574l9bn7qvXR3bRfBv30O5Bys5ONpwo87V6OImvy qWeFTYtUlVy5JjeY5N6ztNxHNbMfXtpE6pK+zwD7eYW3lOqZeJ+aVtMEy+dc sAfDjuViu6vYLfYSALYhLIS7N6HxoXzofVuofEWgFyCpIRxN+X0GCZ9T0KZd BnOg9+VC/9Yiyqu6tweGAFleYxPePbl4Qs0XM8HWeB1haV/sZ3zVAGXalZiH 8RUDBl845O+XMEKt0rE+VABYGAVw2oDyEwP7w2Z2kyGHs5UYGshNdv9oOdh/ XNAIk/jfyIb9jyIt8l1wJ/wFVHJBNJ64MHLpBLbkXYVzxH9tE3hCzZcNsP9B kkfiiXo7TBaXxcFyPS9Wk/U6rGnP6mbw+AKbms3UX+dlWt2RouymeDgekmOj dN5V9TemA//EaVkmDb5mYDetf53eetFcjJiMnvtWr4cNSn1ZosoDHfUH0sfq rZfqrOty211ZTJrcCRyKc5X7vjkDTy8GZ1pcOnnDlU9lQP7bwkwGnKK/6/S+ G7cvHgqfTMD36X2b6vU6gXgoXDvddpH3paH6/KFwO1ArXLr2X10Ay7T2+OUb q/YjU07PeRuZSftTIk0/h1eWQ57fdLJmovICL17j5/zS+ab5nv4p0DXlXsY0 /S6zFdDeZZYT11Jt/upTqXbsiUefHf1I53wZKqLEmd1MdbnEqqv+lQXxsoP6 +uvMdRGrgZlvRTNpfFJkOr3l1XVg0BHPDds2jEb8oL1pLerDibAqU5Q0UMUS Gv0rBsW/kg9jan3/8MZq/Im0qzPes5bv6iBpNgoFKBbEU7hOqN58qF7uV+my vutKvjSpu90ST+EC5Ho7Aybf2zdKaeFw2TnTX+1m2hgli6AnjiZnL+xV52iL Y79ZS7xqwFNpkXgGtuclVZipirgJdOEdMv4knlH8mjwBN8mESk/BO+0atPl5 uKpXzw5YrorTLE0iTU9vnbxGsnLM4w0EG9xhD8Lh53R6QVQyoPyPTO8sxH4o W4mRgdz0UNmPDXR8qoE/yrkA+RbAbkbbj1932J8YyP/RQGcS/zEO21gQ1vQg nonuV5eDXVTbHNh/MpAvqu1D1xT2FQO5CfZHC9J9NBuW/r6WdWPHJhkh/ck9 lJcW8ehF8Wf4FbBDxmQaeZqm3e55J5FTJyDZ7jHFmNy9cw5Esj3DBEF3bzdC HAAx1x9Y6a0TxJhskzjArlirorZJAJ/Nf2FBFNoGvT8LRVdpP4Gt8ZND9Aav J1ZjCDTZupC8Z92j15ToWxfqlstD0hJbF15YUsLUNo0FJMyass5P/2CHq7B1 2qn9ByQr2WuQvJZ3AkOrDw66KrYicMWbbNVegxeWFzC1q2KOAN2Q+2QG820E 9ItWzagH8jwjp6v3K09N6MEWtW3ghQVRyAcHs1CMvk1O9eKrVQzc1UxPNpTw 8FuHEPPRE+97jtEFjKVtRQa3LoS9keRbPrYxysUhyJY4qtcq6zGYbBWSutt8 cw69FobHbQuLEkzrvhDwLl3xPOBZxVc5Pjs4yKFvUtx3TBX3NQwxBt3B/0cw Qv+wID0wpfA8wFsTXXMAMz3MZmpDUUYC4Qi1SDZnBZw6rmuqDk1b1UMnscrM x280Y1WO9H0LSn9USdfW33OkG13QmqroiikXmBexj+lh51jlNAJGR2gMuyxR ++aJuncBUTOtn/Kitob7RX431Q7enUVnblSvESx3d+b67dMGCfsWYJkjzLze missh2WOw7Sl0lyHTdPpsOqsH8MyJ7F8PYeAMydn+KQXKOnzJ+Z7ghPSn9xO K13L9xXMW8cj4vqCxPdrAuQbCeatwBHxCwsSCwHqSQ3tVB05qNfXwtYMdCvS j+m1sP7WQ/KnydQ8wbyTb9TzA8suPc2HNq09vXlzqpVy2tyDcPizGVexbDQX WbFqK0dv3oxKTUXZvNNw/qssygst/8zHS+bWkyWgN28iXTLck3UUTlqlRZZs 8vFMSzbT7rmRukwXt/yjcHhdsPxiy8pi8JJVX3R586bVLOW6/JN7vqdoll42 2bYAvGnt5M2bU62Z4pic8vNDkTZveWSbgVe+FkZfHnnrOsi4P22Ofv4OF5W3 BLKhL4HQR+eX4vQlkbeuk5wps/TzfH4k4yG9TrLdQGo6DmgJdjEBDOnP/J7t z1QqDbQfYVfPqit6LPvX0mml60G+eXP4G7t4T3riezAeexBE4sm9VYgCH5Ow dvYmrBJ63Uy9SybHIfhETck/vobYn0+rHzotUQ6pEpUiXGqULNkgv26mliJi r6eqVCyoP76G2Cn1VwQT3+KjHp2K+Sv/WUfidQOdrEYC7OhO+DlqyaK1qEVZ d/XH10GGMOcPFOyYt+VWclYNnWWq3j0DiZgwgXQ7ak5HDV/4C2uwKawU2Owf pVW7auZrqgvKTfmzTenBjPahVU5q9lIjtWOCNcFNYfn3NyXqp9LkVGbzDkm3 wkdQ9iSEwGPNYjHVAZ6VuAeH8wHG1AQGdez7VHt4HbD38NBHblkp1LrgYV3Q b1ag1htrmzKmLb9aPdbBbbMxcxUcFB44vEfS8+PszP6ZMllk9mdlmIQj6vOU Oy6FaIMNGAMwCZN1h9MU5z1C0kF1u/wwhsbA03p5iYFnlxe3ovmEVUtCJLBZ 8rLoeZkM/ME71jKRdU/Sf2sQDHmA9TwMFGxIg9gcJFJrW7NOBuFkxBu3Bg7k 1gzW/fmSslKmscFgsQ4uBuWE9gXykYHJtB++A21KlbQ1cHtdcIKQT29adZoK XVnQNGmG0+Ibs4cBGOuRs0vK0tXmY/ek0So1BvKA29Sx1ely9s6zK9UaMqX5 gUsNemGNx9/b2BylpZbAic3VyDYFE4M6SxrLeZUPf5ONis5UY7CUZPl0yogd W11qgR9iSAeRin6tZ/f9d6hdU+3aoIYtcrlGbwAtiy5Q14vlXEzo8PnyarMD ziSWyw9sJWYwsqGL3GjpigAbsz5dsQl04nYwIsD6cCK5Js4AOq2aHDic3ZQK WC3R4T2l5oDN5qrnjsIx9DotPmc9Cn7ws2HmVKZO7B6J4a91beO3y6bJ1ARb 5EGXnSHfaMLQi6SoyOuraZ1iU1kb+0OlL31LTXbcu+Rih0M3EKjV7oEfK2uX U4GbtYZW9bWZpaI2QYaZETjQajQQsc1Ovv/Bz5CtInvlOd/sebtAPG+XLAhG NHng+TSn8B0t2fc8GHs+q8z/z6YRxOEPkP7ckAkp65b/B3SPv8M=\ \>"], ImageRangeCache->{{{0, 806.5}, {270.25, 0}} -> {-0.0532697, -0.0168103, \ 0.00326494, 0.00326494}, {{20.375, 385}, {263.812, 6.4375}} -> {-3.43824, \ -1.09217, 0.0489561, 0.0489561}, {{421.5, 786.125}, {263.812, 6.4375}} -> \ {-19.1483, -1.09217, 0.0489561, 0.0489561}}], Cell[BoxData["True"], "Output"] }, Open ]], Cell["We now switch back to groups.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SwitchStructureTo", "[", "Group", "]"}]], "Input"], Cell[BoxData["Group"], "Output"] }, Open ]], Cell["At this point, we now build a group homomorphism.", "Text"], Cell[CellGroupData[{ Cell["g = FormMorphoid[Mod[#, 6]&, Z[12], Z[6]]", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"Morphoid", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#1", ",", "6"}], "]"}], "&"}], ",", "\<\"-Z[12]-\"\>", ",", "\<\"-Z[6]-\"\>"}], "]"}]], "Output"] }, Open ]], Cell["\<\ We see different results now that we are working with groups.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PreservesQ", "[", RowBox[{"g", ",", " ", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .70588 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.184874 0.070028 0.0588235 0.070028 [ [.5 .56653 -3 -4.5 ] [.5 .56653 3 4.5 ] [.5 .42647 -3 -4.5 ] [.5 .42647 3 4.5 ] [.5 .14636 -3 -4.5 ] [.5 .14636 3 4.5 ] [.2549 .33193 -3 -4.5 ] [.2549 .33193 3 4.5 ] [.7451 .33193 -3 -4.5 ] [.7451 .33193 3 4.5 ] [.2549 .12885 -3 -4.5 ] [.2549 .12885 3 4.5 ] [.2549 .18487 -9 -4.5 ] [.2549 .18487 9 4.5 ] [.11485 .40896 -3 -4.5 ] [.11485 .40896 3 4.5 ] [.11485 .46499 -3 -4.5 ] [.11485 .46499 3 4.5 ] [.32493 .54902 -3 -4.5 ] [.32493 .54902 3 4.5 ] [.32493 .60504 -3 -4.5 ] [.32493 .60504 3 4.5 ] [.2549 .68908 -15 -4.5 ] [.2549 .68908 15 4.5 ] [.7451 .07283 -18 -4.5 ] [.7451 .07283 18 4.5 ] [.7451 .12885 -3 -4.5 ] [.7451 .12885 3 4.5 ] [.7451 .18487 -3 -4.5 ] [.7451 .18487 3 4.5 ] [.7451 .2409 -27 -4.5 ] [.7451 .2409 27 4.5 ] [.67507 .40896 -3 -4.5 ] [.67507 .40896 3 4.5 ] [.67507 .46499 -12 -4.5 ] [.67507 .46499 12 4.5 ] [.88515 .54902 -3 -4.5 ] [.88515 .54902 3 4.5 ] [.88515 .60504 -12 -4.5 ] [.88515 .60504 12 4.5 ] [.7451 .68908 -12 -4.5 ] [.7451 .68908 12 4.5 ] [ 0 0 0 0 ] [ 1 .70588 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath % 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 2 Mabswid [ ] 0 setdash .16387 .66106 m .34594 .66106 L s .65406 .66106 m .83613 .66106 L s 1 .72 1 r .64706 .14986 m .64706 .26891 L .84314 .26891 L .84314 .14986 L F .54 1 0 r .64706 .04482 m .64706 .14986 L .84314 .14986 L .84314 .04482 L F 1 0 1 r .79412 .52101 m .79412 .57703 L .97619 .57703 L .97619 .52101 L F .58403 .38095 m .58403 .43697 L .76611 .43697 L .76611 .38095 L F .65406 .15686 m .65406 .21289 L .83613 .21289 L .83613 .15686 L F 0 1 0 r .23389 .52101 m .23389 .57703 L .41597 .57703 L .41597 .52101 L F .02381 .38095 m .02381 .43697 L .20588 .43697 L .20588 .38095 L F .16387 .10084 m .16387 .15686 L .34594 .15686 L .34594 .10084 L F .65406 .10084 m .65406 .15686 L .83613 .15686 L .83613 .10084 L F 1 0 1 r .5 Mabswid .42997 .54902 m .78011 .54902 L s % Start of user PostScript 3.5 7. 8.5 7. MAarrowhead1 % End of user PostScript .21989 .40896 m .57003 .40896 L s % Start of user PostScript 0.5 5. 5.5 5. MAarrowhead1 % End of user PostScript .67507 .36695 m .7451 .27591 L s % Start of user PostScript 7. 4.4 8. 3.1 MAarrowhead1 % End of user PostScript .88515 .507 m .7451 .27591 L s % Start of user PostScript 10. 6.4 8. 3.1 MAarrowhead1 % End of user PostScript 0 1 0 r .35994 .12885 m .64006 .12885 L s % Start of user PostScript 2.5 1. 6.5 1. MAarrowhead1 % End of user PostScript .11485 .37395 m .2549 .23389 L s % Start of user PostScript -1. 4.5 1. 2.5 MAarrowhead1 % End of user PostScript .32493 .51401 m .2549 .23389 L s % Start of user PostScript 2. 6.5 1. 2.5 MAarrowhead1 % End of user PostScript 1 0 1 r [(f)] .5 .56653 0 0 Mshowa [(f)] .5 .42647 0 0 Mshowa 0 1 0 r [(f)] .5 .14636 0 0 Mshowa 0 0 0 r [(+)] .2549 .33193 0 0 Mshowa [(+)] .7451 .33193 0 0 Mshowa 0 g [(8)] .2549 .12885 0 0 Mshowa [(a+b)] .2549 .18487 0 0 Mshowa [(3)] .11485 .40896 0 0 Mshowa [(a)] .11485 .46499 0 0 Mshowa [(5)] .32493 .54902 0 0 Mshowa [(b)] .32493 .60504 0 0 Mshowa [(Z[12])] .2549 .68908 0 0 Mshowa [(f\\(a+b\\))] .7451 .07283 0 0 Mshowa [(2)] .7451 .12885 0 0 Mshowa [(2)] .7451 .18487 0 0 Mshowa [(f\\(a\\)+f\\(b\\))] .7451 .2409 0 0 Mshowa [(3)] .67507 .40896 0 0 Mshowa [(f\\(a\\))] .67507 .46499 0 0 Mshowa [(5)] .88515 .54902 0 0 Mshowa [(f\\(b\\))] .88515 .60504 0 0 Mshowa [(Z[6])] .7451 .68908 0 0 Mshowa 0 0 m 1 0 L 1 .70588 L 0 .70588 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 203.25}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVPFuMW8d1Y3F3tZK8kh0ncvzSauP0kTphGrtuIjtKwnViJ2osRmpq1+0K qSGYtRDHYjYCDKJqYFN2KjoqKrYqRFeo2DolKpQCBAq1qY8uii764M/9uT/8 4Qd/LhDw4wK9P/fjAj09c87M3CE5JHdtxUhW4OW9wzPnPWfOmTujZ1888/JL P3jxzKmTLx58Zv3F4sunTv7o4NOn17Epc4cQd7wshPi/g0LeA96qC/2dkhf1 8Ct8/3P59Qy8DeLQbW64VzaIDLwVCDgzEPR0n2o7j8+vdLnt7tGO+xXQ27GA R5HbI54Q9+u2gGwAf9Kf0vF0lYF+jNc5zUUk4FzMFJc0siRt03Ani9g3L+At fLprlIDueCTLBKQ37KDrArzQI0T8QcRfxN8frSu8O+G5gukCDyONw3m+fyWS KJRWkMczfeZHt60rWe7LaVIZEDkBp8NhuHMew50MJvK9AOew05k2A66jCc4G JKjG8Tb+/DD+dNSjJ+L7rS6Dn8Bv2f1EWdHpaRjksYJtZZufRTLekZyC9dEW KNcRKXOW7GJIRkxS2niM7b3adj73O2fZSctbGFi89rjt+CaKhSaQXnYfPp+O U17P1LCtKjR56ncccT+9aZkvGLeNlEfrZiajb1mMnu8rpvy0bb3FyFL/uRNO R+w3J5C548jk4Rw7orw/im2vBMycZHZ1M+VrAq+PTOJV+0IJDVpoKAOhMl/p oD9EYzhQL4rt/fAGincC3ecs+sFZz9Alto+XkK0y95H++TTer6KfF9if4Tnl 7yewnyS9mmW4N1JfMObzp7BtxhH2f1gNw+d8Y94Ta9iEIOeNeRfg7EY69Gj4 lclCkz1iAY4r5T+suyDK1yLT5XSNm8+6goR2hlKLuUQJxbwWsZuOUu0MFIVQ o29EKdxpa0RpotLwR31um7esJEPk4ZYjHO7VoANlFv0pWJ5YR/V5jHSP9lhk 5nRvJAzVue+RjlRPaq/DrMtx4vt0VEXpziDXp6XdQ6EnhXMBN52NVWz/4JPN k/JrFV1MfF/eEcf0mPmVAXpO3mXk3ce2DL5T3u2dAb4sW+WMgS4g0Kzy6aBB sUfe7Z6B4iHqNA+iNzyKRMlGtU/eLRhUD2m6cTpRZvQ1Ij4I4sEpJBdAyMFc VLCafE8sG6r3yLsdhuoB3U/HCDnw+xwQkOqB6cRkh5ZhjZ87TGxOAr40TMyo VhMLlT4mU2gqyIYSSxBbqTh3ybt5Q+GgplA2sAw82UYqvJDiBIUwy0Z3yrtd Bv2KRp9VHfBphoryHJXoX6RIdC0BFuXd0rg9YkutnhFmBrGiMpz8pyY5NCYR e5TgM3gZQEVZK6OuDYhB/YkH5HVO/nD3OFNS7LrCr2eIeCpTloJHB8FjBLwA EYTQhTI2lcBH7gL8ID+PjpCfZ1ezMdUnGfeAFi9R3owZD9nud5QWYqjiYxVp q7Zh/4xVt4n+uTqOrCaZtpBNCUZsi514SaCPMm9AEZvXoA0edPATQCKU+HAL FCK8m4IohDpklb9kIUf3WWyLtoZIi9KHAuklTEVxdWzRlxx2m5BP/RT/tYbo YYPd7SZ9zRG7XZTTQ9n7EE/p8fOP8Kfj2pxRCFGc0NOSHjVJjG00SsS5ySi+ Q1+LNMjqhazx1FyxDEXK5nLQiWCHwppEfej2I3rSbX41T12yuZxVvJTAC5mj Nwz1h0CZRXiwNpQZy2ljDTxZtAo5sTi53Alxt06kml0UOOxBs5wnDtu9kAIF sVNBKcodi0WULu5DheqUArR9HK59DypUp1RQbhjlEN1TRNBUqqgIHwLkuCJK kkMc3JO46zWoQ22zB9IayWADssidF4PhrltDT6/6QwoEHNQ1DFTlzTBtC1qI Kyt1bymQSEt3FAHUib01wIz+oJujDA1Xv1WFnFH0El7z4EkLJgE0q1Wo1WpQ pEy4RPfVag06QWy4Ks3katlwFUNbZIkrTAaXR7k6Rl/7IfQ3oNnuQBBGEHh1 7WPIUR9qpSKUyiXIU4VRgHK5DCX0xY0+c1Qnn8xD0+tBv7sJJaowanL4pwwd NAzhzEFqamBYgTHDMUMLEGyUh8J0rtyWoXGyzXaydkhra1K73K1QhR5qpjxi rwUMjom8o08kqiyxgyE9oGnwhiGEUcypArZ5VC3Yfi35i8lGVT8WP3E6cQ35 WkPnxWkF+qJMuvNdTvxHeoTjsPJ64fAIr6/xSOiEFhkWbh56Ylh7BZz9x2z/ PYUqCjCMejigcEykqJZNYAhxqPXxE4sxp/4oI6uqPz58w52yQYboRhe612J6 2q3akmtd6FwZ0NN+1da/5MHgPRiCC6940LvObfOjBPYoILjpU0ytXIqEaWu0 yCKtdxPxCY3sYoWd4CYYuN5r0r4YCkcI/LEymgC1HIpPb9tEvVM503FOS3oD Y/PNhJ7mzDWB9jFEcwgTt1uY0Sv+bgVQRv7yr/pMl9oSRBFBYqHUshXfDIb4 e0F+Ueb3Uz0gbkk14ahfkWUpr9k1rsaqHT/vddE/cUisdwlYzg0IXj9izXzH cOY7pGa+G+wf0nEvVenndiMxvA6udiG4yYbRcP6reVMMccjdCblTXsoBfuIr dWMX7rcToss1nkUPFTj40ScLtQuB0cPG89j2+RpEWjdKD8/LrwWjB0aJaep1 TFrelIMT09RrmKY2BlL7mlO43qHQVb0UsebkFKY4a15BI17HCfaEmmCvhgoG rzc86le5FKYWuhVRpC1f1HAY9NCKwZU2ToFZaF3BSbcRQHgjyQwpqgyBUZ60 RQwbJ3LEQvlsBwbXA9h4tcDKapiu/TdLPI3dGNZDWp6Ql2rw+DKabqWaqs2Y Mwsb1yAV/qqavy/g/I1jMLmm5u+bkAp/01NKs4VPoLaCbZdjy2UlHPedNxKj ZCtsPk2T2o60LfeIoIq41l7ripT/GhlhVNzvGrNz7WqntQ4F1KTxDYPJu00W 9nKUCoeC+K/b6UJG63nIx+V4zCslcNudGKTaUD2F6cSrFfotd6yC91Worrch NKPP10rROqEIgrYZ2DqRbUdalk5Ccq7C2Z5hle1HI3RIJ8eNC3DKZer8HfJa oZZFhRVLmStYyrxWpIyljZG3cxFLmRvJqJzlCwOltwUIL2Py8iYmL9fRuy/V NRNG1dqHLkdKNXuxSxNKx0pQPlEk38muFvG+BKWTTSk3RI0edM7XaaDUzmM5 dbED/ruRRhmcLxlRU7fhGbm4vgl97N46mR9xZx2ceYDZKjpmVLTDxM9hxYRp QFzB0mwlS7jrl6MdJp7H0FzFn480ZaDWIz44P5JHnWhLnzMMSV/HWBRYbmiP HY2m93opRYPEs9L26/5o/JFW0V0omKwUoHBIU1+D5uUwdewBTTTZU52hCSQv v3ap3APQKfHuvD1y+q8XyD3DW+kwjq80zExgxHgvpnAb3rBDQJdnrdf71uyW xsm0r0em37hOi2uW7ZiumVmwLXvKVxLbs3kWNq8Pz9zP8iw9STAEvbZpTTPS ki3DkL9egvqlcCgHia82ocjmNMSDyx70VWjIGLbQeVbtVY+8HO7ab+WMX8MJ 1r+pZkI1XLInO/QrkX+tBNULwVi6820j05wJfH/BHqy88j2c75An7xIW6dfj FSv5CK762OxB993BojHPAHzZ1IjEPovM73HapsnQCuxPRnM74mW3WclzAz1r BtqCuXtrFOio6T8F6FmV3uhEjEM+J/nKgYHtnHLHAGD9jfT4Z4XUAlJVAOtg JPEjR6IoumiE/yelfgGcKoojjo57DfjP2G54q+h8ywG+zyikYbCr+U2XUPh5 gRF804HgLnnNmPg28uvPlJ700NAIJbCAP2S0zzg67ne0/aMRaIdB+zyjeNoB fq+j7R9YXI2CkD3HKL7hAP+ko61uUMwZFH/AKL7uAL/f0fb38rpoUBCy7zKK pxzgDzjarsjrLtlx3iD7fUax6gB/0NH2d/K6W3ZcMCi4JMbpbxz8IUfbOwbF TsMPl/niaw7wZUfbZXndY1AQMl5QEV91gB90tNVMx0Vzl2cUX3GAr0zSBdlh 1yiKww7wTznayCILBsWipYsvO8A/PUmddoxQZTrsNuwpAz3p6P1rk1RDazNg /xHSPfJubnRs4lVx/YQDn3aCQa8LAb8U4EjqsupItNvt6KvCnB4JIz2UBQ5N YUSuDNEU3wk52G6BkV2OvrsdcIr8lxxoDxgUiVkSWnTA/e0UPdh99zjgjjL5 L06UfhHCLpYBtKqoyoAilgE1LAPqbblGN+/oemmiQmai2+XoynOl+N2JOkKs PibkRUzIyyohX8OEvIwJeaUpl4NdTP7NRLXNRDeFyccdlHQwmGVIF0d3Ovou OeA4QTDvUFyBxHbFXQ64qgPtkqPvFPKPOdDqIBT4mFtGoDQ8DnfRgXafo6+L PGc35v2ijfa3HW1/5UCx4mjj3Ed8wYHC1bZNtC7OXAr8SweKhx1tnHqJzztQ uNziggPFpx1tCm3WgcLl7D91oPh1RxvneeJzDhSuge5C+xuONs7zxGcdKFwx tuJA8ZuT0T7iQOGaOc47UPyWo41TSvOTjcI1M743GcVnHOCuCfx9BwrOSsXL WwT/+gcCpyH/lIR2JXkFeaU1+30OFE/9AlAccKB4yaC4y4FidXso7nagyH3k KD7mQPG1URTLDhQ0n80bFITsHgeyr1rIliUGobYKya1LsdryMJEAZfN7uS9Q kpiIEAZiAKFI+IXRLKJmZ0bJXqOQxabaODGR+JLESVN++ho7gpbIWUv9GSgK j2kL9Rr74w6GvjLG0AIz1BG8k0Pt3tXboCbydLdEu5DyJBNy+Wa4DE3Rgwj5 64oKL+jTrpct8GM2DCWKh46wtkc9qEQnTpSY35PXOe6rFeMBvzkPmegnHEQP W0RJ83LBQu68qSjCIdN11VffHhaevUG6Xwx9pN0UBVp46gj1onO/g/6Xx1xx LhVafqrsEBPppw7B9GXhwm+XGIW/vBXSRt96d1IiZshNpeCSre+A3sCuQVfL e6+D6JOjTocuu6mWkVKPS5i4qyLVJThkwdh+h7Z4LyWUrmPczbQkyAIy2YQG eiW/iS5phrfOrxy1myOjtqZG7WR+5+XWHYC24hnzcQjM/jvtmvpV9kBUh/Cv 0d5A/O2TDgafGHMgax+W3r7lYkwvh4DcUpDltodSP+LAMvQa/D4H+UMW+ae2 TWp1y2hdKws8J6CNu/jdUKrFwAdye0IEDxgK9zsofGlbFAoKexZSx/NvBwXj zi2Xah5woOW6V/xgIrJ59i9hfTAQlRyoOGkVr05ENSdLODab1GsI28Ty7w7w x28b+J+rtjjoQnfAm8z0IkIy6EKnO6CnxxxouboQpx1o/0yDx2ovgxel6xCB 2svQT0yBYqNlUibLt7fEudZRNSmvqnYwgJrhRvrOmWsCbTo1RFtPXYIpDnjR a+aOOtea6A81VrnjlY89SAjexdAzO16RF7WLod7NbI2aXgmPPLWLIXBr8VFb hun77Vzrwut0XaC9S9222nkwGEAQ0AZZs20pVDsPPHr3PJNURveL1M4DL9wS 91P247kWxte1/X1UUpa32mqfYMVlYWMAKctb2O8HsdovgCw/7mD5CzbLvHAz vGFPvYFXyxmTla7Z5k29mu2kr97y+1HK0gwaxkqxesuPrOsi22adVyRUub4w aVefS9FFpUDaTdz1YaOhXsF7HnQ6HgRRMsZFeXOgpJpISgto7IJCb4HxCbv/ pjMepqMtm4VcVr0i9yPFuGQ1hiYdVGrKUJ6ZTk3z7tXUO3IAs85q887rNeli hrVR0PXSSkeUfqtALi13SevlzbjbMLFgzoHPtMXqPXarb1ZFHCz9cCJ5OS2O vG0utAx6v16CuscbDvUcEveaUGTFmBUTm2R2Msl1rf4EQ5Dv0WbDfhgfdWD5 3GQs/zkZfH2L4J+9beD/5QB/ZDL4fzvAec1I/GiL2KeAu7B/5raB/48DnFfY xBkH+P9+mJ/oQR2QpneddGiA3uI/JRnY9Uv6EwUhUtE9TqBlULVIKMy6ykHT kd7Z7WM4rjZis4ZCNcQwMlN5Za3RKz8tVaYSUnpbSplaujbSpx039tpIGctj lRhzmTpOaIGPzASCS/F0HeSAobVP9tyZ0pICDWBTtMFHQRIRY1VZNmsey6N0 PqW1w2sb9EQHfyge/ViCj6xlDKCk1jLGkBmm05N3XP5J5F2LaVqrmOcuQOVw hArqq23hCTIvu9RFPIHEvFyOYLTquLVYsw2wZLpp/B4vTNHOIjZaDa0ME/DP MX55EsunT+owtOi2lKKeRz1L1A387kAHxZCWOjiVb5k4R8quoc03LRPcNY68 hbxKrwzwE09BXhvxypxCbqrCGWsVNC3QDx+3leeLtWG8qLzIobzVlJZ7neFP Jw9jU2FapfnLtw2cmZpYoRe20NNdeY/1bGnGrDr6X+2f3FUxn6xKD1gNV7vq V8Jm/38W+j3HrMJz2epjEogZVaXqo2cM+wDVf6g2u1qcd8BltDTD1SIvuptE Y9aBKfPiZrtl4GzUrjpwiLuZZ6XeV+6x7RJvJmbT1aryRjQ366RUW7vHliq4 2fjSIiSt4iawNOmY1DBLW6nOpuNzVWejFpx+Torda/vVV2Zr6HVXuwobYnD6 4an3Dcy2S6ytnM1y1VljFk0PVf2baptVP7kOZOldSHb9tDwSCayDVUxqWq20 066V6M/ur8nZtdMIOfvw1YbW4XCdtOgAVQk4Ufwl+k+NKK5/Q95939w98Qv6 aRIPx7QW0f8GQR96vT6EsXoLOQdxGGATDpH+QDroO27oPcYUEQQETc3fGSYR +TXQh4JwEGgSXRq9QseHd9zQmkTSb5khgU4zRCKjOvEClnlll/CZDRl73nHA abcLcQ4YhLGR0B4NMpIrUt80aHscNER6TIqOAPMiFP0ZMlGKstswmZmZ4KrU CUNBIasOfWWg2DRZ3kgUZ1Eufig+pNAB1NbSUZqvDC3jyBBUdUnO0alZ4FnQ G0QQ9uV4zw0F93GKS5hmYEIcDmCjjIGwiAkyTsBRwhzqRaVsqQl9dKx2tQCl Vs9awhmV/IPysQDdukwxiuAj8dDnENgKkimSf0vrLOpQZFtrdMleFTkbh+Ai pr3Kx4QrW/EMbnKBJh8PqWz0rRibCljdPrmMpRPpsIokyFphTcXXKQLyFq15 CDfLKptEdeJAxqTLqUrNtWdJp0016PDAreCMO++Q7q+3SWtINDlr58rQRdMN aN2UZ6+ZtpuHbqsJfhhxVov19cAyyCzRtBh+jZf0N0NwemZ1m7RstjkhSWNC vrKh/4uQoXP2zkEpmeYjZhU65d2nij9X7QxTzYOfuF1zh0GTgBqS5DtFnvbT 1VV/ZBhui7J+F9WpYO6Sr2GihqYPY+Ml49FWj7yNEsaMtRJtpVX/8QI0+4nO oyKfq4FiFYv6QaKrGFlQbWBC2MTeKKlewe7JEJyrAp3IxzR/jfND3Wvgb0Cj VtITUvVDsYBuTse/8tUNmcybt3FRD1qNGpcJZhrT0g68FpHhjcN1/DRl7mey RixDmvI/OqhUYbMfa1Jxv23yrlzVSJsEm4Zf+uRR8gR0r2CzARVEVKu3IEiM tNtjYU45ftRrW6lfzsos0RihD7VKBTHW5X/PoETWp/blK8tQvbJMi9CYsox+ QMnHv1jNAWYYvX4gR4g6ayLu+H+2hejw\ \>"], ImageRangeCache->{{{0, 359}, {253.062, 0}} -> {-2.64983, -0.84, 0.0497899, \ 0.0497899}}], Cell[BoxData["True"], "Output"] }, Open ]], Cell["\<\ Sometimes morphisms are more easily set up by matching how we want the \ elements to line up.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FormMorphoidSetup", "[", RowBox[{ RowBox[{"D", "[", "4", "]"}], ",", " ", RowBox[{"Z", "[", "8", "]"}]}], "]"}], ";"}]], "Input", CellTags->"FormMorphoidSetup"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .6 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.05 0.3 0.05 [ [ 0 0 0 0 ] [ 1 .6 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .6 L 0 .6 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 0 m .5 .6 L s [(Domain)] .2 .5 0 0 Mshowa [(Codomain)] .8 .5 0 0 Mshowa [(1)] .2 .45 0 0 Mshowa [(1)] .45 .45 0 0 Mshowa [(Rot)] .2 .4 0 0 Mshowa [(2)] .45 .4 0 0 Mshowa [(Rot^2)] .2 .35 0 0 Mshowa [(3)] .45 .35 0 0 Mshowa [(Rot^3)] .2 .3 0 0 Mshowa [(4)] .45 .3 0 0 Mshowa [(Ref)] .2 .25 0 0 Mshowa [(5)] .45 .25 0 0 Mshowa [(Rot**Ref)] .2 .2 0 0 Mshowa [(6)] .45 .2 0 0 Mshowa [(Rot^2**Ref)] .2 .15 0 0 Mshowa [(7)] .45 .15 0 0 Mshowa [(Rot^3**Ref)] .2 .1 0 0 Mshowa [(8)] .45 .1 0 0 Mshowa [(0)] .8 .45 0 0 Mshowa [(1)] .55 .45 0 0 Mshowa [(1)] .8 .4 0 0 Mshowa [(2)] .55 .4 0 0 Mshowa [(2)] .8 .35 0 0 Mshowa [(3)] .55 .35 0 0 Mshowa [(3)] .8 .3 0 0 Mshowa [(4)] .55 .3 0 0 Mshowa [(4)] .8 .25 0 0 Mshowa [(5)] .55 .25 0 0 Mshowa [(5)] .8 .2 0 0 Mshowa [(6)] .55 .2 0 0 Mshowa [(6)] .8 .15 0 0 Mshowa [(7)] .55 .15 0 0 Mshowa [(7)] .8 .1 0 0 Mshowa [(8)] .55 .1 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 172.75}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"FormMorphoidSetup", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXD2s5Mhx5t17u8Lt7a5kCCdZdnKSAkMnaaCTTpLPd7Yw8t3t2TrfWN6f EyAKwkrQaBUIGshKJp1sQmbMaBiYaKKRAkaTTETAYMKEMMCADggDDBgwYcCg XF39w+Zss2d2/ea9h9MO8N7ukNXd1dXVVV9VV79/efyHJ7/67eM//OaXj1+/ 9/vHsye/+eW/v/7B736Pj85ecpyXnjiOk77usP8D/lf8+hPgxzljX0B8nD/S b+fFqxevXrz6f776hnjV1BVUVQ0tfrshnkHbQNO09O1V8axFurIsoWpa5681 OtYWaZ135TNoiK6sGucvDMPfMdB9op61atwPOZtfVkw0sJ6SbaCfiZ9Qf9l6 Tt+9uIK2jGA+dpyXyYKwYSewTirq4WX6fROS1Uz14TgjWKxiNvXPKA5q2MzH 1IHsZoYkkvu79PsW1InfdTP2sBV+ii1M2PdJQN+zrUdTd87BGbkQ7DLqI/En 56Lnsdf1/C3BYJ1teC/iZzzfsN4+axDlbXuTh3KFidcxxLWS6lfony+ivCsI FyNwZhs+hTKkHqY45QYKWLAeXR+yqsG1LiFcTqirXSl4aBIaeRFmqEgF7NZL mM7XrC+Hi5T9LiCYL2AdZVA3NaThksZYZ43DZ/UFWvgsZCs5h7RiClCBP2ai 9CFHhWiLDbVZhinyhdQ41jZYgDtbEd9tXUORhjDCFd2kBZRFAVXdvqlYaGHt YnezNTB1YAJj3a0UC33BvnpEOyldgBxm+Gy+LaV0v0r/vAKJN4aRl9BsPDYb V3BbcCmHpdRLNlQGLpthVAnJxjBmi9aAYhHamEshqkS7c6iyCBK2Gm0OUZyf 0eMbtF3SXSS4jiEpGtHk87hmHiqkz9Qe0tWUtolc0HwzowVebXew3Yb4s4Vd FEGUFES/z9p3FPs4RaY4m0IQFTBnioGs2iU83O6RaBejGB13TRbq3p6E/Ym2 mx0YLXeczWMkDAmfRiuN0m0SW57GsF5ysShSZn1cvhfWS2YeZpC38LKUdsu3 wWy1Ju7HfqKkLS3FSLI5WrCmfK4hN17j6Qxm0ynM5jNkidEtQY3cJkrab1Gf NyFdz8h4eTieN2PsTCGprTZioImUcZuvlY3oyfg10mJnuoIszyAKfZrIgvTF bh/KJAR/ya3t3AsgCHzwgw0ULTOgXHuhTWEqBeMlZ+Jxna3Vki63PaWO1Yrj 6pRSqV9DMXu0KlGWQxpvYUH7bU3WQmrDfJ1w7ahTWIwcsnrse13gzLYBWQ9/ G0GMCp/ktfNtIbsmDfgyuS5fHm7gbeIeaCLFLdWeGY09lU59ZjRSufgQjJla R/xbGWsO7g7+dmHDHRwUuxXMZy4332huF4s5zBcBmk/ZVQVpJg0HrniZ4bK1 ciFoixTbBfWZCv3M1ry/0UiOeY68SZ9Vgz9yuCu7jf635qOknXFhn3zl9tS5 iAIYa71NfbUbss1cee7RiPRsGiROZ8QbWE1QlIudGH9HNH5aHzAxw+0k8MjX U2ViPuDr8RXRPN2uYMaUCTeMjyo8d0fKfZ2J5g26n7rmGEo+Y/uWKRQzL+dC K5i7ZNrgI1iBUrLR8CW5g0u4hhWiBCaPnExDtxSAu6vAXZYw9VjGTBcgr6T+ 30EdzqHGJcYlgSV235QFfme+JoLldES7chkE4C34jhwvdx2rOGJdIQysG8Eq 9zWM/W2lG/kWwhmKYsr3jfRj67w96EaH2t3XVmmzWMA2Q+9dItRMVrTHmdkT K/Jlrbtkg1PxfQjwx/M8XJk1xHklDMsZuUNvtoS0kagWXWXcYTZ3lUqrUu68 ng9x/UhJgW2qYJtrm4QD1x0qwjZvlG9pix14S49sHGPH83zY7FJSiFty8XEP BK6jjUWze1O8rtO1sP3ClXEYZcV95ib3FaM1BBNHgWH2209q1c17XKzvCPJk NQd3ETKL2c0V8VqR51Cgpf2qkkILRZZAHMeQ5uV3lMQlaW3H/Rrdf3IOrklE dGUh1te0Z0+HU11IZA+nOrqfiGcVD6/om/Aylx1OIVR0+WutGxeEszhhOPWm lL0W/Njkp9M9EpNjCMfXduxkSbuj5yAuK4aq1XIttwluoBit+py4PXEMpfa3 FufYFbGjk4JMgwmBswQ9UkWG3YFN0QpBXnS4xM3jOS1fQEJzGZA/F4+vOGL6 npCTHtV8ziDPuwa6B5o6MEdPQIA+ShrOvlAvNEI6JzGRtqNQ0ZdIO3BNAiQp XD2csQlXp+sJl7nN8QJSVNgyDrikirYv3NOERq8qQZewHKldIOP9axIavSUE qAcyNkHrdA/Usw6fSOcwWW5BBCzO+31NvpzA6IYeGPHX6I3lDqljjxYxEijq WgRI3xXy1IMYE2z8rIHugVCriO1ZdBQFOoGqanppwouMgV4bioF0kYEbxDwI onh0Aol8fS2CoOFA5VAYOtROrgJUXB4Tb8v2fC8FfuFxT7ZZ9DzDNIgvM+75 lurWHqVIXPG0TA+3vS+mWmehliAf66bcHv1UPFSpBqOfewbunijShppneaHB xmsSm1z4K+kRDgU7f6U9k8HOe+KZHrDYvIlOJ1NqTSXPp9QpB4+rTh7snC6I +b4YeCAQseUGBpp0uYGc+3nN9y42qepG+N436J/TxjhcfCeLX94WAhmIQaw5 c3OTLmVVwm4TYqSA6oPanIYL5RXFZv86/XNxoY0y6Vcbw/ydYnU4DrH7wuF2 3VlwSaGCFtMoaV5QTKPSstcjeOlJdSAAOSjVgXYPxFTrMkfExBlscy6uIG16 Aj5NXHPNApi/VWpmD0KkyzkEP0xt7wuhUwjPlGTMYTMTX6kAgdTq4+Obu88U 32gxypWFKG+Lxd8LM0x5pNtm0kdCT6RqJgkzT7l+KPyG2AcXe2JjjDguI+B4 RwhiLyiwyWyPtCcz3A8lK+FBr8hKboTMviZk9qyxxU3x7BIChbfFLEwg3mQO 71jopRlMfLfnQZyxzwQmduRjNZ0e1lcL0sf1Jh7umkn/g/d/TRD7hb/6QLxi Wl3Xw/DcmofX6MTxEJf7kTAeN95MJWNuEEyf+SFwl0cZNUci7VXWqOH/SQx/ CBfb3YG9LVe+G/2iB+bqanXEyU99vnAc3kbcW7Cgqq0hi9Ywm0xhW3A7zFaA w9E54kQ0YUXJ9O9H1L0dudoRxnA7Obu2YbFeDWUeE1pyV4k0Nn8vRDiEhhnE JKAVhLDbbSFkMHS3gyhK2ALKygWOZCm+cn6sZN+hRVvuS6dTsZAITvQsgq4b 7+1xP4Q+5VnX2EV/PIMp/syE6/GSus+9T4mGj+nZICqznv2am3SxCUfYYx9D 1LagTPI02NG2+kCfjw3sleAxdZ4GqGc0Qdh5E3KrvCqhhTxNYEtRsQshWsko itFht85HgssB5GOb2EATqV68sGaKW62BgLxu3VcvO5DCOA4WE7k/b3EglcqM EfqfqRgVwct4NCL7EST1R2J0E/owJSpuW+i5RTyHEE3ZJNgSgkTsICbxrljA 40BMl2qRzjffTGlzVEq9zP7/INd79JJrqCPlVREvCq7fUWo3DCNeFb2zpK9e repMN0pfBvyyTV8Gmki/k61c6Ryknnwsp8IS/0mM7j1hmO6xYZAn4hkVK3Mb Knu5Jj73wl/9QLx6nrrwnxq6/bWBTuTn3lIdXYvabm7nzf7ZBjRN9PePHFPk 2fgRztXXY0sRmJy4zWKY6B8cMZ5wRfzY9rQF0/8onx3w9tbzhgNtHxrG3Z/i hZ7H87zJXsWymKodBByTnjO1e2gZtzfVSy0cfl9wZUIHNr010T8yD3Gvv45X V6Z7ppfpCgPyFJowTfqOmfQnhl7FSn5XKMSl1cDeHKqBldPcgx+2ae6RPrQP IGb8ltoCJ68xlUeHOkKxHXrpdA8P9itQzuGyzg/lMw3i2Cs5OrpHg/1dFzRz ZfBIugId9tjyHjqdyHtcNjw6UKv5Q6UAx1yRG86Y29r+25G8XAlsGi7B7Bzu oatuQw53uN39I8Y/EYwaKKRUuTIN5VhzLhrdA3OXH+5N4LRFi1xcZgxjBfoG +ofmIXpo4VILBZWn7MMXq6fsk35i7nhPya6+HO9ML8dT7lSHMTat1OnksUDb dONofZ8MDd193mq49wTDA2DGli8ZaLKfODQM6pwWI5nq0SSuN+EcG6430T+0 jHMUZuqKwe6pZx3usdbEa3SfGPr7lGMmeS50CDP9YriLZzoDen4s9M9qcY65 tzKUJLC3lamhdKUSl4pOnsAzCnHswBPCp8U4fNrHXDMZThgMtetsKwLcqoSt mEPJDglV3CVz9xcFXSZE8xTOsB6e90llWEwc8Tql/YOGi4Ip/6o46GEIq8vu k0qjEg8xexoIojLpfaRgPxHvkT46xPizAI1bxwINedww4O9t7nOgiZyHQVue 7UTHDhs+Vto07KWPyeyZ2klo3pYpbCNEufMRm4rwTcec8JicPt+IZq9r8+Am eom1m7yr7Bh7ksNAjq45VrtT7ujkZicPJbzRp/ycx/RKntWwRa5KKp+V2OR9 8eqQ1/rxkXSmNPvtI9vyLAFDEGWvxtmP1F9T4OwOep379td2A2BsIt0cnb86 M9T9FkHJjHZ7ptycBI66mTCZDlsCTqfT76yxdC53ndCFFUnt7A0dG4aOjxw6 HhiamZSFAhoVLB3KLF/a0MqnVlSxYBj6JAIfawJvucC9TuAyEN+zpw/Nj23I ZI9U3qrlhZ1zqr3MQxXN7g2/ZywHbKht+D1SWVXIgANBNEcCv0LuPil13Zw+ MjyzSd3UlpfTZX8OMZO8l6THTOrIvanpGWgmW+/iIyUuNOOiwvSGob/zvf70 uOzQuP/A2eTX7G9BRjcKtCoMiqkiVUIsYjJuzW+DCsnQTrkSPWPAHa95Zi0u E7pEzlDif61FSfFNujIzm/L6IHeVyoKxc/malX6IGjJSVj+FJgtUonmTKxHJ IEwXG6+OewWbbLXzfFYLNIUwLfV5aPWFKrYkccermaO4dUada0KQft1k8Ia+ hN8k1MbO7ucYINZ1CfHG6wY5ECTwRNICWOexN+HDUDjmwCb/X7LK01WCnFWQ hB4FH6O5CGQJbJT4k4rxU3HBi7+VfWeiBi1EK+jMeXJGnrLoy8iD2XcZPOdS cD1IS9TcIoX1YixKB+3zqWI+9zmqMHP20YqnF1jwfE1l8Q19NflJiy9OtGUq tQhnhE2y/9mPT5n57+JTKlF0PLrHEOPMlhhRsyQ+xau1qA1YhlBSjW9FoT86 hi5i0cbmz27qRZv0EU5VWvanF/BMXL+iYsPOVD0VWt/psc7q9NlVBQUWcRKC FUPbK5v2N59eLAlc1K0jquUfQfTf9hnr97pY79M1+0t6PLnArqnXaM3mkxGX MSIX7X6h+Eiuqz7XmhRT/7jFGlHpXZcyfe7Fqg62vcRpH1ysv1R/RyKqj7EN LuyylGOn6Rpy+qOSLr/kXqONWm2owLoW9n++K+XdKVbqXeHjOcfXku9clGGz m5F1nVHPYy+xLReJXiwX7/1vKMNYlIwL+yTanF/EdL0Q8iKH0Oe+n+VejzOO zywA5/kk0Fu5W0q/vO7vCXALyutlZTZJ3mtSySTuTs+Eh1VX/TD4o354PatC BKM5xOp6H7ASI5We0u6mk9uXKEN1iSNui9a2cOVuQcBiq/YFr9dlfh7AfvRG zMarrvp2MoPZeKRykv22VyiA3rp9Rt29HU8X4HsLxf86rR1T5uxcyIXhVX4N hd206mfVTDiY6EQNhrzgxG5SyPt8w+vCA8IVZY/HEIQ72K75Ef5oGRl5lIdh rUDIKSIFjGMvczo9Kd9EKYfg+z798Kzehh28qvv6zOwxwS8i5+cGQfxIdMM2 VbT2wJ2MYeLOsasFeGHWnVajnETOBvXuS4be+QmzdrWDpbqnsNhkxoF/Jp6V 4qYWu3/wJUNb0e01ie9evHrx6jq8cl76P7iCgT4=\ \>"], ImageRangeCache->{{{0, 359}, {214.938, 0}} -> {-10.0216, -6.00006, \ 0.0697884, 0.0697884}}] }, Open ]], Cell["\<\ We want to send the first element in the domain to the first element in the \ codomain, the second element in the domain to the third element in the \ codomain, the third to the fifth etc.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", " ", "=", RowBox[{"FormMorphoid", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "7", ",", "2", ",", "4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"D", "[", "4", "]"}], ",", " ", RowBox[{"Z", "[", "8", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Morphoid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "0"}], ",", RowBox[{"Rot", "\[Rule]", "2"}], ",", RowBox[{ SuperscriptBox["Rot", "2"], "\[Rule]", "4"}], ",", RowBox[{ SuperscriptBox["Rot", "3"], "\[Rule]", "6"}], ",", RowBox[{"Ref", "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"Rot", "**", "Ref"}], "\[Rule]", "3"}], ",", RowBox[{ RowBox[{ SuperscriptBox["Rot", "2"], "**", "Ref"}], "\[Rule]", "5"}], ",", RowBox[{ RowBox[{ SuperscriptBox["Rot", "3"], "**", "Ref"}], "\[Rule]", "7"}]}], "}"}], ",", "\<\"-D[4]-\"\>", ",", "\<\"-Z[8]-\"\>"}], "]"}]], "Output"] }, Open ]], Cell["\<\ Here we see that this is not a homomorphism on the whole group, but note that \ we can see a homormorphism from the rotational subgroup to the set {0, 2, 4, \ 6}.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MorphismQ", "[", RowBox[{"h", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[BoxData["\<\"The table entry corresponding to the computation a*b in the \ domain of the morphoid is colored if and only if the pair {a,b} is preserved \ by the morphiod; i.e., f(a*b) = f(a)*f(b)\"\>"], "Print"], Cell[BoxData["\<\"KEY for D[4]: label used \[Rule] element:{g1 \[Rule] 1, g2 \ \[Rule] Rot, g3 \[Rule] Rot^2, g4 \[Rule] Rot^3, g5 \[Rule] Ref, g6 \[Rule] \ Rot**Ref, g7 \[Rule] Rot^2**Ref, g8 \[Rule] Rot^3**Ref}\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.05556 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.12963 0.10582 0.0251323 0.10582 [ [ 0 0 0 0 ] [ 1 1.05556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.05556 L 0 1.05556 L closepath clip newpath 1 1 1 r .23545 .02513 m .23545 .13095 L .34127 .13095 L .34127 .02513 L F .23545 .13095 m .23545 .23677 L .34127 .23677 L .34127 .13095 L F .23545 .23677 m .23545 .34259 L .34127 .34259 L .34127 .23677 L F .23545 .34259 m .23545 .44841 L .34127 .44841 L .34127 .34259 L F .44709 .02513 m .44709 .13095 L .55291 .13095 L .55291 .02513 L F .44709 .13095 m .44709 .23677 L .55291 .23677 L .55291 .13095 L F .44709 .23677 m .44709 .34259 L .55291 .34259 L .55291 .23677 L F .44709 .34259 m .44709 .44841 L .55291 .44841 L .55291 .34259 L F .55291 .02513 m .55291 .13095 L .65873 .13095 L .65873 .02513 L F .55291 .13095 m .55291 .23677 L .65873 .23677 L .65873 .13095 L F .55291 .23677 m .55291 .34259 L .65873 .34259 L .65873 .23677 L F .55291 .34259 m .55291 .44841 L .65873 .44841 L .65873 .34259 L F .65873 .02513 m .65873 .13095 L .76455 .13095 L .76455 .02513 L F .65873 .13095 m .65873 .23677 L .76455 .23677 L .76455 .13095 L F .65873 .23677 m .65873 .34259 L .76455 .34259 L .76455 .23677 L F .65873 .34259 m .65873 .44841 L .76455 .44841 L .76455 .34259 L F .76455 .02513 m .76455 .13095 L .87037 .13095 L .87037 .02513 L F .76455 .13095 m .76455 .23677 L .87037 .23677 L .87037 .13095 L F .76455 .23677 m .76455 .34259 L .87037 .34259 L .87037 .23677 L F .76455 .34259 m .76455 .44841 L .87037 .44841 L .87037 .34259 L F .87037 .02513 m .87037 .13095 L .97619 .13095 L .97619 .02513 L F .87037 .13095 m .87037 .23677 L .97619 .23677 L .97619 .13095 L F .87037 .23677 m .87037 .34259 L .97619 .34259 L .97619 .23677 L F .87037 .34259 m .87037 .44841 L .97619 .44841 L .97619 .34259 L F 1 1 0 r .12963 .76587 m .12963 .87169 L .23545 .87169 L .23545 .76587 L F .23545 .76587 m .23545 .87169 L .34127 .87169 L .34127 .76587 L F .34127 .76587 m .34127 .87169 L .44709 .87169 L .44709 .76587 L F .44709 .76587 m .44709 .87169 L .55291 .87169 L .55291 .76587 L F .55291 .76587 m .55291 .87169 L .65873 .87169 L .65873 .76587 L F .65873 .76587 m .65873 .87169 L .76455 .87169 L .76455 .76587 L F .76455 .76587 m .76455 .87169 L .87037 .87169 L .87037 .76587 L F .87037 .76587 m .87037 .87169 L .97619 .87169 L .97619 .76587 L F .12963 .66005 m .12963 .76587 L .23545 .76587 L .23545 .66005 L F .23545 .66005 m .23545 .76587 L .34127 .76587 L .34127 .66005 L F .34127 .66005 m .34127 .76587 L .44709 .76587 L .44709 .66005 L F .44709 .66005 m .44709 .76587 L .55291 .76587 L .55291 .66005 L F .55291 .66005 m .55291 .76587 L .65873 .76587 L .65873 .66005 L F .65873 .66005 m .65873 .76587 L .76455 .76587 L .76455 .66005 L F .76455 .66005 m .76455 .76587 L .87037 .76587 L .87037 .66005 L F .87037 .66005 m .87037 .76587 L .97619 .76587 L .97619 .66005 L F .12963 .55423 m .12963 .66005 L .23545 .66005 L .23545 .55423 L F .23545 .55423 m .23545 .66005 L .34127 .66005 L .34127 .55423 L F .34127 .55423 m .34127 .66005 L .44709 .66005 L .44709 .55423 L F .44709 .55423 m .44709 .66005 L .55291 .66005 L .55291 .55423 L F .55291 .55423 m .55291 .66005 L .65873 .66005 L .65873 .55423 L F .65873 .55423 m .65873 .66005 L .76455 .66005 L .76455 .55423 L F .76455 .55423 m .76455 .66005 L .87037 .66005 L .87037 .55423 L F .87037 .55423 m .87037 .66005 L .97619 .66005 L .97619 .55423 L F .12963 .44841 m .12963 .55423 L .23545 .55423 L .23545 .44841 L F .23545 .44841 m .23545 .55423 L .34127 .55423 L .34127 .44841 L F .34127 .44841 m .34127 .55423 L .44709 .55423 L .44709 .44841 L F .44709 .44841 m .44709 .55423 L .55291 .55423 L .55291 .44841 L F .55291 .44841 m .55291 .55423 L .65873 .55423 L .65873 .44841 L F .65873 .44841 m .65873 .55423 L .76455 .55423 L .76455 .44841 L F .76455 .44841 m .76455 .55423 L .87037 .55423 L .87037 .44841 L F .87037 .44841 m .87037 .55423 L .97619 .55423 L .97619 .44841 L F .12963 .34259 m .12963 .44841 L .23545 .44841 L .23545 .34259 L F .34127 .34259 m .34127 .44841 L .44709 .44841 L .44709 .34259 L F .12963 .23677 m .12963 .34259 L .23545 .34259 L .23545 .23677 L F .34127 .23677 m .34127 .34259 L .44709 .34259 L .44709 .23677 L F .12963 .13095 m .12963 .23677 L .23545 .23677 L .23545 .13095 L F .34127 .13095 m .34127 .23677 L .44709 .23677 L .44709 .13095 L F .12963 .02513 m .12963 .13095 L .23545 .13095 L .23545 .02513 L F .34127 .02513 m .34127 .13095 L .44709 .13095 L .44709 .02513 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02513 m .02381 .97751 L s .02381 .02513 m .97619 .02513 L s .02381 .13095 m .97619 .13095 L s .02381 .23677 m .97619 .23677 L s .02381 .34259 m .97619 .34259 L s .02381 .44841 m .97619 .44841 L s .02381 .55423 m .97619 .55423 L s .02381 .66005 m .97619 .66005 L s .02381 .76587 m .97619 .76587 L s .02381 .87169 m .97619 .87169 L s .02381 .97751 m .97619 .97751 L s .12963 .02513 m .12963 .97751 L s .23545 .02513 m .23545 .97751 L s .34127 .02513 m .34127 .97751 L s .44709 .02513 m .44709 .97751 L s .55291 .02513 m .55291 .97751 L s .65873 .02513 m .65873 .97751 L s .76455 .02513 m .76455 .97751 L s .87037 .02513 m .87037 .97751 L s .97619 .02513 m .97619 .97751 L s .02381 .97751 m .12963 .87169 L s 2.6 Mabswid .12963 .02513 m .12963 .97751 L s .02381 .87169 m .97619 .87169 L s [(g1)] .18254 .81878 0 0 Mshowa [(g2)] .28836 .81878 0 0 Mshowa [(g3)] .39418 .81878 0 0 Mshowa [(g4)] .5 .81878 0 0 Mshowa [(g5)] .60582 .81878 0 0 Mshowa [(g6)] .71164 .81878 0 0 Mshowa [(g7)] .81746 .81878 0 0 Mshowa [(g8)] .92328 .81878 0 0 Mshowa [(g2)] .18254 .71296 0 0 Mshowa [(g3)] .28836 .71296 0 0 Mshowa [(g4)] .39418 .71296 0 0 Mshowa [(g1)] .5 .71296 0 0 Mshowa [(g6)] .60582 .71296 0 0 Mshowa [(g7)] .71164 .71296 0 0 Mshowa [(g8)] .81746 .71296 0 0 Mshowa [(g5)] .92328 .71296 0 0 Mshowa [(g3)] .18254 .60714 0 0 Mshowa [(g4)] .28836 .60714 0 0 Mshowa [(g1)] .39418 .60714 0 0 Mshowa [(g2)] .5 .60714 0 0 Mshowa [(g7)] .60582 .60714 0 0 Mshowa [(g8)] .71164 .60714 0 0 Mshowa [(g5)] .81746 .60714 0 0 Mshowa [(g6)] .92328 .60714 0 0 Mshowa [(g4)] .18254 .50132 0 0 Mshowa [(g1)] .28836 .50132 0 0 Mshowa [(g2)] .39418 .50132 0 0 Mshowa [(g3)] .5 .50132 0 0 Mshowa [(g8)] .60582 .50132 0 0 Mshowa [(g5)] .71164 .50132 0 0 Mshowa [(g6)] .81746 .50132 0 0 Mshowa [(g7)] .92328 .50132 0 0 Mshowa [(g5)] .18254 .3955 0 0 Mshowa [(g8)] .28836 .3955 0 0 Mshowa [(g7)] .39418 .3955 0 0 Mshowa [(g6)] .5 .3955 0 0 Mshowa [(g1)] .60582 .3955 0 0 Mshowa [(g4)] .71164 .3955 0 0 Mshowa [(g3)] .81746 .3955 0 0 Mshowa [(g2)] .92328 .3955 0 0 Mshowa [(g6)] .18254 .28968 0 0 Mshowa [(g5)] .28836 .28968 0 0 Mshowa [(g8)] .39418 .28968 0 0 Mshowa [(g7)] .5 .28968 0 0 Mshowa [(g2)] .60582 .28968 0 0 Mshowa [(g1)] .71164 .28968 0 0 Mshowa [(g4)] .81746 .28968 0 0 Mshowa [(g3)] .92328 .28968 0 0 Mshowa [(g7)] .18254 .18386 0 0 Mshowa [(g6)] .28836 .18386 0 0 Mshowa [(g5)] .39418 .18386 0 0 Mshowa [(g8)] .5 .18386 0 0 Mshowa [(g3)] .60582 .18386 0 0 Mshowa [(g2)] .71164 .18386 0 0 Mshowa [(g1)] .81746 .18386 0 0 Mshowa [(g4)] .92328 .18386 0 0 Mshowa [(g8)] .18254 .07804 0 0 Mshowa [(g7)] .28836 .07804 0 0 Mshowa [(g6)] .39418 .07804 0 0 Mshowa [(g5)] .5 .07804 0 0 Mshowa [(g4)] .60582 .07804 0 0 Mshowa [(g3)] .71164 .07804 0 0 Mshowa [(g2)] .81746 .07804 0 0 Mshowa [(g1)] .92328 .07804 0 0 Mshowa [(g1)] .07672 .81878 0 0 Mshowa [(g2)] .07672 .71296 0 0 Mshowa [(g3)] .07672 .60714 0 0 Mshowa [(g4)] .07672 .50132 0 0 Mshowa [(g5)] .07672 .3955 0 0 Mshowa [(g6)] .07672 .28968 0 0 Mshowa [(g7)] .07672 .18386 0 0 Mshowa [(g8)] .07672 .07804 0 0 Mshowa [(g1)] .18254 .9246 0 0 Mshowa [(g2)] .28836 .9246 0 0 Mshowa [(g3)] .39418 .9246 0 0 Mshowa [(g4)] .5 .9246 0 0 Mshowa [(g5)] .60582 .9246 0 0 Mshowa [(g6)] .71164 .9246 0 0 Mshowa [(g7)] .81746 .9246 0 0 Mshowa [(g8)] .92328 .9246 0 0 Mshowa [(D[4])] .02381 1.03042 -1 0 Mshowa gsave .97619 1.03042 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 .90661 0 0 Mshowa [(y)] .10317 .94577 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{272.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXS2Q40qS1uuf6Z6e7tl3Mwtu3+6+eDdoY4HBsoM+cBsHLoxuUZMXG+d4 Cy7OsbfE1MxQzMzIyMjIyMRIxETEREDEREBAREAgL+tPpb/Sn9VqtVsdMR79 lDKzsrKyfvJT6j9//scv//0/P//jb3/9+ac///3nyS9/++v//fTv//t3vHT9 naZ991/475efNHIMmiZ+6N9fyA8/afj4j+S/GxCs/sCu3jG+ePXP5Oe+8OoV ufAvIS1ypNFr38K73xTXyhz1rHpWPaueVU1WD/TCLf4EYJsG7HY7MEwLPLz6 JRTjgT51gyU0LKFhCQ1LaF9DSfLIfA2ZfWqGTFdLKZT7AZ+yYMKGLfZvMAc7 gH8K9fuRPkgKaomCGhakDaGVofglxrp5il0vmGqBJ3rhGsA/wjM+MT+45Ixe 81wHHMfFJgVqmawpHikF8oTGn6Bn9JrnaviEhk/wcoU8fN8n9OnZY0wqFY/A K8vjil8LfA+fwLq4PiunfOJL7l1BDwmCS+l5Z9HLaRbWoGj1vg3r+RSen8eg r1YwZo8yhQU26EiLPoCktcEEDCcQT8Z6zkeqyvUc1fmsISWNUyIzN432gTgl dD0Ovcf6SdzIsmWS2rFoDac7J6KdsLtli3FFb9+CuY73RNPjTjEiwX2uVg6L 52tejcFkCQ63rYd0X8kmwgzzBkx9FEoyXh0/JZ7PF+K014UQ2vMCTkG2EHlE fFiPBzecyGRtAf9jTVveSPwDjJgg9HeoHzIopeyP3tI+k6rAfEC08Az6cgmT AdPI4uBRGu5+Ru9Ru0Mx9KEGA/3wkDC/J04E23ypRYgw83P37JyaHNoHIxJt eCbOXZ44oUcx5gNU+pp6LelRHkrIAafIuceGhdEyLUexWmxjC7sDDn9BAJ69 p/1htIwYUVlCxNUQF+m5NqzGeG+yBjeA6oSsrQ6z5Q5OHvouIdHCrE7otJvR 88F0DfbJhq0+hunGqlE1bCEXRxeLEpzBET2q6wWSkNIofXOBpyMICWEvn0Vs 3lyOKEVx2yQWMTOkUd4DG0p8k4mE1sM90EdOiBmEuWT3PeDn6Li0WZZh5ogU GmZgrbDMkJSJGObHkrJY3DM6QhYdz+dVZbnlshz1IQzmBj17iMlC3EKhghcj TbimQaZDqSKLMdOUsuRTEEPOcT2lupnv7MiQU6VtfFPHMjqdr8q2UVqgdyDF x2ALiuiuFwNCkvEITjsYIovn2RJWCy7c/pS2QO/AWtUG2eqMEGvlAF0SI6Qh IY0Tymr1HJHCWoqak6E5bYFFshx0dn9Z6B6L1AO+A5bthK3BR420DykiZK2f 8f4cB1gfdjPs5ZMV+hEvSaiMdm7AO1mw3+gwwHpN0h6tnIodY8EbKanishS8 aqYoJpTD2Ros9Me7xYQKMNvyKYNYEgxG8DxiLbhzgqQpfg7n2kM0NQvNbsfN bbaVk8QJn5ZJQlmDtFoi1DKr5JG4aD5IxxUt5qp5othbOaHR0HaOXnKuWlY7 rEFIpYa03Yl/3tp+su2fitWMbUq0szh6YC2Jcz1ktH+eapgzY0vo7XTIxNKm ZAarpW2xjJLRTdMK7d2qFCra4gNXkmdtYcyH+cHomXou4nkNj2h6Tgdl1usD 2JDZzNzQ0lNFz9IiVDROBaeH2MrCR4lRkFFJrxHu8mSR/tDdYavjyOBHFcSm io+5cgQWO0Zd0UVvAJG1KBPhMV8dVLO4YDNNMAwTHB8eE/rMJ0D+XGNOl/gb XKsM54ckgZJK8EyxYtCSq5z8JiXNGISejLmZycZOUcmXQwziJYdguieEyzem wDGuEMkFBxboB4YLU5rT98BWnB6fWJnMSfCCEYsRFG0yRV4dcFmPE1HXEiOl rA3dE0JJlyPmBY8u36mIC0ZdCs5nXZfuOpxODtFSnAzQTkrWeEy44SLSeoJS 4JqwWm3h5NO2Jus40A/up1RBa4XD4FAHmxck3Xq2d5IF0bcEDhi7PexX2NcH pXVNdxpGkZU56t1wg6Sur9lGAisYbiYYLh8/gHfxCOlrsDcTQTZ8InuNyrR/ S3ksxlKY8UrLaEzfWkfEZY4drU2q5Kswf2fLzFKPOuyw5t6Bdo6QzJBuqKWb IDixNVVYcKRnFbzluzYDPuro4OY3gTSWABz00rZ9QrMBuR0njNLBcdK2NbwZ 3RaTG9u/5uU8XGRb6LWc2M5KvBx1/c4JXJ/tJmXZrhCHGvdjRgGfFTglCoR6 D8imHO28efW/zKBCz6pn1bNqlBU5KIs4yL56mXrpWfWselZvn1WPQ2iuVI9D eO2ClXAIUYxAORyC79MtGXpWDocQeBLrkI9DuOLXAp/hEJzYLkBZPMVjbs2v xLXGkQa1cAiVYv6P6c6SF/Nnmwbs4agiS3EmgIFJxMqmZDsotZV3nwt+OCw0 CRgIdxZTuIf6WIwqUf+3Bx04F06hCGxUj/VLzyDsThHrF07CINHc5ySQqHT4 +rTh5w6Ad+TRMDNpe/mIA9vA8RWPPewCnq1xnEAdxIECiPEugAKNgSmUtlg1 vC9tUQ01uI6G9+WoYslyaaMsCsxb6zHIIAtgrxuSIEsywlYszg2/dtRJbF4V XasJxEjHot42TKA52ITSAKtG99MGmI7uX0ej+6FXZBTYteqR/QN380tSZc9M e0U12OA2BjYgI7ZlS1E5JkxhiDXxGBeIE2gMOaEelyuG95NIg7u88L50PEs5 OCfN8GNhNN7eTiMAARwyWKUTfqMM6kHYKVmODfj8ZWtnDdD1cBjV4vJi1tt9 jEAzuAnFeqR6dD+JMrjLi+6HvhBc1ugHP40wyI/Os8nAALaWi9MNNx4CKwMw EFFrsvNi4CzR8VMAg3p4i2rB+bcBEjgbL6GMfCswAWmUgY3+YraiuwFYUBPD aDIwTbqdxwEEBCIQPMVYUrwC9zhH/i7F6US9YDrErUBAZMSmW8YRFAIcFOou RgPcJ/ROntAynshCHHwJZbdhMR6Ip8hqVIvXkE6QrTRdw1MjGZQgibSW28YU 5CMdSu1pS1CADZZlg4MLVimG3OdWoBWyTONl8AP56IV3EiroWfWselaNsiIH PbqgZ9Wz6lldIqseXdBcqR5d8NoFK6ELopH/cuiCJjMQtJFJ4WWwAtVxC/XQ Bdkx/uSGXlcyC3Qk1cIFAQQaAU3UTnCgCPNXS3DQYmKBMqiDNvItXDBKoDEk Re0EB4owf/UEB20lFehSsoXLQQucj56oneBAEeevnuCg5aQCXcq5cDFQgUbA EwpTrB/rlymw7kHOyzqUVqBDSRcuAy3QHIJCsVKpHPNPYlJfO6lAV9IrXARo 4Hz8hCIOngIJSEi9CE+fmYIgxBo0lhuhbQhBaWyD4o36bByAnL8wDTWWbUC0 20smSGgVNlAazJDSfxaWQOr9K1dUUZoCUa4o7cGL4gkK0QzvJHrQs+pZ9awa ZUUOesBBz6pn1bO6RFY94KC5Uj3g4LULlgIcXPFrUTCAXNlnAQ6u+LUmUw20 kTKhPUhBrXQGtcL8cjuZdZpOJRV4/SwLF4QVaAQ/URtwoIjwVwMctJhXQJjf 6yZbuGCUQGNIilrZDbJi+8nIWqfSCXQs2cLlYAXOx07URhsoQvtl0AavnlWg Y7kXLgkycD6IQj1K1wvwJy2ya/kFupR94bIQA+ejKGphDjIi/tUwBy3lGehA xoU3jxZoBjihTHWgAA2kUx00m6CgueQJbaIKSsMdlOpWQAaS6n6xTAQvlTyh NWBBabhDqW3uwswFcvc7PxnCi+IJCtEM7yR60LPqWfWsGmVFDl4QcHD+Uc+q Z9Wz6lnVZNUQ4KAQSnAZBVqCFPQFlQVLQQqk2rPgA5JYVuD/nLtX4hrWws0E JlTPa1Ad/FA9P0M18EPVfAWK8HTpVAXXvFeauhZ5PrEPVphgAO/FA+1Z63lG KR/DsB6HMaXJui6R015uBePtU5AFhGguaUIjuIxGsknUhmTUT1WQHZKumKoA ZSK9gfRTRgR7eJBVOQUVoSHiFqwd3ynEYzdDQ/minPjTgym6xpMGW7Tk6aYq FYvsLeL1EzoF1+ZQiEVVKsUpE8pQKYZllKFSnE3iLEyG8kXcukFombRVDRe4 iacCWEQIZXmeqoF+Uc6DZKA/m8pdTBzy78g7/DzWV8vKIeJqLLKeFW9uLkNC M3iM5rJHnA/IqI0bUIShq2cpEDUlw9duxrwiOrWMmhaF+sU1L9ciy1JxDG6V +/pUSIBdg/1G4wH2UpWqkzGhWYBGc8klzkdoKAy0XnQ6+emO/Ii9aENGBe8v aY9OGkM+kXBynmOU5YADJr+2d9NaLiPDDWyncmblQIpIQykTGoNmNJdX4jxs Ri30APlLBKyroQdI7VyDqWiDnW04T6AHiuL++QO0WBsUiRBEei2LeGdP60ti ELxwpp4xMzs/fcLZkIyz80ich8ZQvFGfCqtLU/rC6cmb0VaOvmpvoG/dr5hB xW1BYAUschc7kY1dhcjHIu4JrIBGY/g4GGHhEy/IYvgZBUslQSgFfBD1VGdn KIV2SCk4K2Ke1i44vDV1lXZxDR16NDdTu2QkjwfT6bZUWheik4QFh5kFq2Y8 qAZ4+BKpW36Shmpoh5ycBTJsn52zwPWTk4OvEUU4TnKPKZbH4JRciyWzHOTf TedA0ELp83MqKKp9mZGAnlXPqmfVKCty0IMHelY9q57VJbLqwQM9eOAtFayU jyD6Zn25fATlw/4vB0EozlvQPQhCrXwEivfVq+UjKBmGvzBowhlJES4NklAb VaB4P70aqqCZIPwbxCbUjMFfHiThrOQD0RfS6ycfqBp8v3BMQji4KZMgXCYm QWmJNd5FL4MkeKGY+2VCEoozIVw2HkFpnHXfUE9aaCNB+HcCSSjOhnCpeATF QqX62+vJaeL5Efj3CEhQJkW4BECC8g15xUv46YQEhZF+EShtFX9QKqlBm/gD paIVr9qnFV0Y9A9j3e1BEarE9buDScjB0MRe/U+jPLKhANEQf7MQhG/Z5ey6 cIN3EjHoWfWselaNsiIHPcigZ9Wz6lldIqseZNCDDN5SwRfPUHAlrrUCN2g6 e0AbEIQagAJl7nr5mm4ZQEGbyQG6g0p4zbwAHUMl1AYUKPLUVwMUdCk3QIdg CS+cGqBLsIRagIIrPkJF89NLyJsaUNCVfAAdgyS8TjqArkETzgAUxPPSJ9/8 fnN5AF4fk/A67/93FZdQC02QlaW+GoqgtWQAHcEhdCMDQPfwCIrVSb0M9sn5 YZeyAnQAk/CqGQE6AkVQBrgVWfrTAe7mkgs0ATloKJ1A8zgDNWQjOxd/BmSj sTwDTUAOXiqPQBt4g9xsHJFvBCiQBBVTDpyDMyibhqAszuCdhAV6Vj2rnlWj rMhBjyToWfWselaXyKpHEvRIgrdU8MWRBO3iDAS91/tyQXXsgaITfMxNTQD+ IRE6z8r6Hd0k7UxqgE4AE7qQGKAjmITacAIyxrmOCxaFFczg6DjgekFyu7hD OQG6hEnoRnKADoASasEJRBA3+sngdBD3rSQE6Bgo4W19o6A5UMJZcAIv1xLf UiYAYVuvCkq4hI8TNAdOqAUnKGOZ3U8F0CYgoVOZADqES6iVlOCKm1/2EF0m KUH+8PxKGQFeEozwtr9O0AwWQRHhJiFiB4zdHvarCf20fdyevuejRtufMiiD Nmjv+wWlAQc5WrZxzTjgTk4HV6nlNj9pUAZq0IXPF1SHHaQaIvziROChqdCl T6QBvkQYNPtJg3x8wbfMcvWxBO8kHNCz6lldOKsPAOxA+w/yc/eyV2XFfiRH d2EVQ+HOP0rp8Pfk6L4VVr8Lm4st38gRPbtqhf1vQ/ZXMbt5UaY/hKyu22P6 m5DVTXtM/zlkddseU9Zz7nHOOxbWBCvLB5tAc+n5kKzXZNToQ9uy3dHJjsHl 2zoBzrjYsb6zIuGsu/YEY/srN3BcT7iSBrA8OFKW+/ZlOe3mXJYxmD5IbcQT kqvgB19DgnkghfdVSm2QOF81xauKhg17sn2pTcA4eZG+Gw915QAXviTk6gsq Ciq9l72ZhE+tLAd2E0GFBojkyCHXSvT10gSUQXLKAjrk370S1yJfbXhqgF7g k5UeoecX0BM7uoGHpR2XgMtZLQufIF+n5+/2lHzCc7N4ZO8bSHVHOkN9AMPH hN3USqpQhYjyUw8PaQvOJiKyVJv6KDTT8er4qZIQh8WzhB0sSRLhakIwgyKw A9lXtMEUTI9vIZQnck27KoMdOBGrLIVNoVtIUdgB+k0nSNQlZUnfh/bzFB6x QrWhCLLSZ6ZIqE5I8fGG6oSItyG913NtjidYgxtAdUK2sYXdAUfAIABPSLQ8 1pDotOHnaKHekYfPUlW7yyMUuhljPsAet064mbKiuPsZvUfNC02SxQUPUpSU lf0qtK3PCSurDjhIyls9A8JTJQpZH2V4SFD4mEeBnpmLUQQnkOV1q8hy1IdK WT4XymKtx7S/cleH7nMI2txIm1KZpgmsFZDFDJbJMKVCtSxHVBRx2ySGOTNy TEkakDQqYUpVEQNpU6qawqAOhdRXFdLOIIcIb0GyipzjiOnDboYqm6zQ+3rV CYHvgGULQ3DSXbksoQMfgpekYT1T7Z7KaFhYCRkF0zZVJEpw2vHA/hJWC97t 96ccm5JDH+tgt9hCR9jj4mW33+MiZg+WG0RW6MLequIA0tZSNTFBhruv+aGE JKWnPEpczzYP5XtgLYkDOmQNHgVUWOuRKdKQx/KHsLX9pDgfCwnZ22kklo+z D9b6KX9YTslH4oj4iJgxOBepRqywBqNILD/IMTk5b//AG8nezmE4FI1Ed4si Jhd2n4qxf9lA5yQjSM5jq38YIUnhsUAO8t76nK5UN+hZhvNDsiL5BFivwxmw aYJhmOD4UI0AG9YGsLVcnATSBVmSQEkluDu0cxwB/fRyIL8xvMM8MkwHPGpv aDlWFUd6EPan7UQQiVjT98IxZET3ZTUL0gl8ShVUfMFAFoy+qy1j94c0S+Yl sFOj6skq/RR5qTtSkFDyePieFA6eUpRssiRYHXCdj4sT1xLjSlp4ZjJjsm4D MgCx6L2Zo225EfUgGhv7DLH4ydbO1HY6yp+uuiKnQFpgxWcMZMEwqO1smYHp hwx+vrWWJLRwZzrZaEz8xXgQFsSVtpaU6jq6ZRQJ22dNeMN6ELWMogKMwXDz nKfcev3EzcA19HB0w3mB3Cz8InQQCexLHShyB2QViH2mQBb4NafvOSdwfbbc lpJ/yyhng2XZ4HhBZrk0wxPKBjl7QXJP/JNoKLTeOZl/zZcwRecyRg/edugj shf4ARy6YEQfGIjF44S0UosxoA8Jme7oGnpKLGa8YUMe9ibS7Z6XZpvBqduE YB+oLW4i6JgNrrJxdsL60g1sbDlAtyalVMhv2mMqd5d/aI+pjMD+tj2mWVHn 37XC/gO58PtWWN2SCz+2woqqsm6+gz+GItK7f2BX6fFfWjz+N3qcvRL9FSsn 50BsrCDjiuuDGBPJkHeyLBxC6GX69yOnmrXYSFD1zAW/PYCl6Qmqgb0JsaVz g+3i/ETvxSebMWrXnNqQToPDAEi4cHdZnUvGy0WA8WiRoRHnsFhHlw+niUkY l0Is2KPURd1mK4Ou+q6SknoQbgdAcIxMtRITfJyB6rFa5EfWZbSYjdKzrUGf n4mMmOnpzOd4LciEiQxdU1x9ep4Dhw0r/YwTsqxa3HCOgU82tXEeZB/o888r M1z/pmpxxUVJxOKFhKc9l5CuC4KHRKWiU4+Y9IyT2PC54jVihjMBMbZFpQ/1 7Jt0QcH8Jfm9oxYS/1PUIhHFF9EYumv1PKVLsOfZVLStiCsr5i1P6QoJpqJC WBxXfYNwMZuu0F2oCFwAQRCwLffxck/6ar5x5UTJRR84zKew5xsi4TZIzoyn RJUCey16YapKwsL84xLY1pwPS97GSgsrji+LZZWHzs0NxENQPE26jk6T+OqM P/kIwu3opjAeH7bTgViSRSo3AjNgawnyKsyY7Gju6GoT6yCrlXBif4pyuwPX XFH5huMZLPSZMGFYH4X53/ClJ3osfQWmE9zwy+AZYXH94F2Hly3YrBbUCwsP HGP6AZluYbFY0H+6rsNiuSEDR0iBxBHJrbkOe9sXUQWL+1o93N6/oUv6xXyO VJZoYH6U2Q8RDTi4cMKbTAP/yu7T44zhTfvu/wHfjalX\ \>"], ImageRangeCache->{{{0, 340}, {359, 0}} -> {-1.22505, -0.239073, 0.034743, \ 0.034743}}], Cell[BoxData["False"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["More Groupoids", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["We form a list of some groups, to be used below.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"someGroups", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "5", "]"}], ",", " ", RowBox[{"Dihedral", "[", "4", "]"}], ",", " ", RowBox[{"Symmetric", "[", "3", "]"}], ",", " ", RowBox[{"U", "[", "15", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"#1", "+", "#2"}], ",", "5"}], "]"}], "&"}]}], "]"}], ",", RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "Rot", ",", SuperscriptBox["Rot", "2"], ",", SuperscriptBox["Rot", "3"], ",", "Ref", ",", RowBox[{"Rot", "**", "Ref"}], ",", RowBox[{ SuperscriptBox["Rot", "2"], "**", "Ref"}], ",", RowBox[{ SuperscriptBox["Rot", "3"], "**", "Ref"}]}], "}"}], ",", "\<\"-Operation-\"\>"}], "]"}], ",", RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", "\<\"-Operation-\"\>"}], "]"}], ",", RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "7", ",", "8", ",", "11", ",", "13", ",", "14"}], "}"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"#1", " ", "#2"}], ",", "15"}], "]"}], "&"}]}], "]"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Most functions can take a list of arguments, as shown here with CayleyTable.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CayleyTable", "[", RowBox[{"someGroups", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}], ";"}]], "Input"], Cell[BoxData["\<\"KEY for D[4]: label used \[Rule] element:{g1 \[Rule] 1, g2 \ \[Rule] Rot, g3 \[Rule] Rot^2, g4 \[Rule] Rot^3, g5 \[Rule] Ref, g6 \[Rule] \ Rot**Ref, g7 \[Rule] Rot^2**Ref, g8 \[Rule] Rot^3**Ref}\"\>"], "Print"], Cell[BoxData["\<\"KEY for S[3]: label used \[Rule] element:{g1 \[Rule] {1, 2, \ 3}, g2 \[Rule] {1, 3, 2}, g3 \[Rule] {2, 1, 3}, g4 \[Rule] {2, 3, 1}, g5 \ \[Rule] {3, 1, 2}, g6 \[Rule] {3, 2, 1}}\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.08333 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.47619 0.0257937 0.47619 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.0257937 0.477324 0.517101 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.159864 0.136054 0.0255102 0.136054 [ [ 0 0 0 0 ] [ 1 1.07143 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.07143 L 0 1.07143 L closepath clip newpath 1 1 0 r .15986 .70578 m .15986 .84184 L .29592 .84184 L .29592 .70578 L F .29592 .56973 m .29592 .70578 L .43197 .70578 L .43197 .56973 L F .43197 .43367 m .43197 .56973 L .56803 .56973 L .56803 .43367 L F .70408 .29762 m .70408 .43367 L .84014 .43367 L .84014 .29762 L F .56803 .16156 m .56803 .29762 L .70408 .29762 L .70408 .16156 L F .84014 .02551 m .84014 .16156 L .97619 .16156 L .97619 .02551 L F 1 .753 .796 r .29592 .70578 m .29592 .84184 L .43197 .84184 L .43197 .70578 L F .15986 .56973 m .15986 .70578 L .29592 .70578 L .29592 .56973 L F .56803 .43367 m .56803 .56973 L .70408 .56973 L .70408 .43367 L F .84014 .29762 m .84014 .43367 L .97619 .43367 L .97619 .29762 L F .43197 .16156 m .43197 .29762 L .56803 .29762 L .56803 .16156 L F .70408 .02551 m .70408 .16156 L .84014 .16156 L .84014 .02551 L F 1 .5 0 r .43197 .70578 m .43197 .84184 L .56803 .84184 L .56803 .70578 L F .70408 .56973 m .70408 .70578 L .84014 .70578 L .84014 .56973 L F .15986 .43367 m .15986 .56973 L .29592 .56973 L .29592 .43367 L F .29592 .29762 m .29592 .43367 L .43197 .43367 L .43197 .29762 L F .84014 .16156 m .84014 .29762 L .97619 .29762 L .97619 .16156 L F .56803 .02551 m .56803 .16156 L .70408 .16156 L .70408 .02551 L F .74 .99 .79 r .56803 .70578 m .56803 .84184 L .70408 .84184 L .70408 .70578 L F .84014 .56973 m .84014 .70578 L .97619 .70578 L .97619 .56973 L F .29592 .43367 m .29592 .56973 L .43197 .56973 L .43197 .43367 L F .15986 .29762 m .15986 .43367 L .29592 .43367 L .29592 .29762 L F .70408 .16156 m .70408 .29762 L .84014 .29762 L .84014 .16156 L F .43197 .02551 m .43197 .16156 L .56803 .16156 L .56803 .02551 L F .678 .847 .902 r .70408 .70578 m .70408 .84184 L .84014 .84184 L .84014 .70578 L F .43197 .56973 m .43197 .70578 L .56803 .70578 L .56803 .56973 L F .84014 .43367 m .84014 .56973 L .97619 .56973 L .97619 .43367 L F .56803 .29762 m .56803 .43367 L .70408 .43367 L .70408 .29762 L F .15986 .16156 m .15986 .29762 L .29592 .29762 L .29592 .16156 L F .29592 .02551 m .29592 .16156 L .43197 .16156 L .43197 .02551 L F .89 .81 .34 r .84014 .70578 m .84014 .84184 L .97619 .84184 L .97619 .70578 L F .56803 .56973 m .56803 .70578 L .70408 .70578 L .70408 .56973 L F .70408 .43367 m .70408 .56973 L .84014 .56973 L .84014 .43367 L F .43197 .29762 m .43197 .43367 L .56803 .43367 L .56803 .29762 L F .29592 .16156 m .29592 .29762 L .43197 .29762 L .43197 .16156 L F .15986 .02551 m .15986 .16156 L .29592 .16156 L .29592 .02551 L F 1 1 0 r .15986 .84184 m .15986 .97789 L .29592 .97789 L .29592 .84184 L F 1 .753 .796 r .29592 .84184 m .29592 .97789 L .43197 .97789 L .43197 .84184 L F 1 .5 0 r .43197 .84184 m .43197 .97789 L .56803 .97789 L .56803 .84184 L F .74 .99 .79 r .56803 .84184 m .56803 .97789 L .70408 .97789 L .70408 .84184 L F .678 .847 .902 r .70408 .84184 m .70408 .97789 L .84014 .97789 L .84014 .84184 L F .89 .81 .34 r .84014 .84184 m .84014 .97789 L .97619 .97789 L .97619 .84184 L F 1 1 0 r .02381 .70578 m .02381 .84184 L .15986 .84184 L .15986 .70578 L F 1 .753 .796 r .02381 .56973 m .02381 .70578 L .15986 .70578 L .15986 .56973 L F 1 .5 0 r .02381 .43367 m .02381 .56973 L .15986 .56973 L .15986 .43367 L F .74 .99 .79 r .02381 .29762 m .02381 .43367 L .15986 .43367 L .15986 .29762 L F .678 .847 .902 r .02381 .16156 m .02381 .29762 L .15986 .29762 L .15986 .16156 L F .89 .81 .34 r .02381 .02551 m .02381 .16156 L .15986 .16156 L .15986 .02551 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02551 m .02381 .97789 L s .02381 .02551 m .97619 .02551 L s .02381 .16156 m .97619 .16156 L s .02381 .29762 m .97619 .29762 L s .02381 .43367 m .97619 .43367 L s .02381 .56973 m .97619 .56973 L s .02381 .70578 m .97619 .70578 L s .02381 .84184 m .97619 .84184 L s .02381 .97789 m .97619 .97789 L s .15986 .02551 m .15986 .97789 L s .29592 .02551 m .29592 .97789 L s .43197 .02551 m .43197 .97789 L s .56803 .02551 m .56803 .97789 L s .70408 .02551 m .70408 .97789 L s .84014 .02551 m .84014 .97789 L s .97619 .02551 m .97619 .97789 L s .02381 .97789 m .15986 .84184 L s 2.6 Mabswid .15986 .02551 m .15986 .97789 L s .02381 .84184 m .97619 .84184 L s [(g1)] .22789 .77381 0 0 Mshowa [(g2)] .36395 .77381 0 0 Mshowa [(g3)] .5 .77381 0 0 Mshowa [(g4)] .63605 .77381 0 0 Mshowa [(g5)] .77211 .77381 0 0 Mshowa [(g6)] .90816 .77381 0 0 Mshowa [(g2)] .22789 .63776 0 0 Mshowa [(g1)] .36395 .63776 0 0 Mshowa [(g5)] .5 .63776 0 0 Mshowa [(g6)] .63605 .63776 0 0 Mshowa [(g3)] .77211 .63776 0 0 Mshowa [(g4)] .90816 .63776 0 0 Mshowa [(g3)] .22789 .5017 0 0 Mshowa [(g4)] .36395 .5017 0 0 Mshowa [(g1)] .5 .5017 0 0 Mshowa [(g2)] .63605 .5017 0 0 Mshowa [(g6)] .77211 .5017 0 0 Mshowa [(g5)] .90816 .5017 0 0 Mshowa [(g4)] .22789 .36565 0 0 Mshowa [(g3)] .36395 .36565 0 0 Mshowa [(g6)] .5 .36565 0 0 Mshowa [(g5)] .63605 .36565 0 0 Mshowa [(g1)] .77211 .36565 0 0 Mshowa [(g2)] .90816 .36565 0 0 Mshowa [(g5)] .22789 .22959 0 0 Mshowa [(g6)] .36395 .22959 0 0 Mshowa [(g2)] .5 .22959 0 0 Mshowa [(g1)] .63605 .22959 0 0 Mshowa [(g4)] .77211 .22959 0 0 Mshowa [(g3)] .90816 .22959 0 0 Mshowa [(g6)] .22789 .09354 0 0 Mshowa [(g5)] .36395 .09354 0 0 Mshowa [(g4)] .5 .09354 0 0 Mshowa [(g3)] .63605 .09354 0 0 Mshowa [(g2)] .77211 .09354 0 0 Mshowa [(g1)] .90816 .09354 0 0 Mshowa [(g1)] .09184 .77381 0 0 Mshowa [(g2)] .09184 .63776 0 0 Mshowa [(g3)] .09184 .5017 0 0 Mshowa [(g4)] .09184 .36565 0 0 Mshowa [(g5)] .09184 .22959 0 0 Mshowa [(g6)] .09184 .09354 0 0 Mshowa [(g1)] .22789 .90986 0 0 Mshowa [(g2)] .36395 .90986 0 0 Mshowa [(g3)] .5 .90986 0 0 Mshowa [(g4)] .63605 .90986 0 0 Mshowa [(g5)] .77211 .90986 0 0 Mshowa [(g6)] .90816 .90986 0 0 Mshowa [(S[3])] .02381 1.04592 -1 0 Mshowa gsave .97619 1.04592 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07007 .88673 0 0 Mshowa [(y)] .12585 .93707 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0257937 0.97619 0.517101 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.10582 0.0251323 0.10582 [ [ 0 0 0 0 ] [ 1 1.05556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.05556 L 0 1.05556 L closepath clip newpath 1 1 0 r .12963 .76587 m .12963 .87169 L .23545 .87169 L .23545 .76587 L F .55291 .66005 m .55291 .76587 L .65873 .76587 L .65873 .66005 L F .34127 .55423 m .34127 .66005 L .44709 .66005 L .44709 .55423 L F .76455 .44841 m .76455 .55423 L .87037 .55423 L .87037 .44841 L F .23545 .34259 m .23545 .44841 L .34127 .44841 L .34127 .34259 L F .65873 .23677 m .65873 .34259 L .76455 .34259 L .76455 .23677 L F .44709 .13095 m .44709 .23677 L .55291 .23677 L .55291 .13095 L F .87037 .02513 m .87037 .13095 L .97619 .13095 L .97619 .02513 L F 1 .753 .796 r .23545 .76587 m .23545 .87169 L .34127 .87169 L .34127 .76587 L F .12963 .66005 m .12963 .76587 L .23545 .76587 L .23545 .66005 L F .55291 .55423 m .55291 .66005 L .65873 .66005 L .65873 .55423 L F .65873 .44841 m .65873 .55423 L .76455 .55423 L .76455 .44841 L F .34127 .34259 m .34127 .44841 L .44709 .44841 L .44709 .34259 L F .44709 .23677 m .44709 .34259 L .55291 .34259 L .55291 .23677 L F .87037 .13095 m .87037 .23677 L .97619 .23677 L .97619 .13095 L F .76455 .02513 m .76455 .13095 L .87037 .13095 L .87037 .02513 L F 1 .5 0 r .34127 .76587 m .34127 .87169 L .44709 .87169 L .44709 .76587 L F .23545 .66005 m .23545 .76587 L .34127 .76587 L .34127 .66005 L F .12963 .55423 m .12963 .66005 L .23545 .66005 L .23545 .55423 L F .44709 .44841 m .44709 .55423 L .55291 .55423 L .55291 .44841 L F .55291 .34259 m .55291 .44841 L .65873 .44841 L .65873 .34259 L F .87037 .23677 m .87037 .34259 L .97619 .34259 L .97619 .23677 L F .76455 .13095 m .76455 .23677 L .87037 .23677 L .87037 .13095 L F .65873 .02513 m .65873 .13095 L .76455 .13095 L .76455 .02513 L F .74 .99 .79 r .44709 .76587 m .44709 .87169 L .55291 .87169 L .55291 .76587 L F .65873 .66005 m .65873 .76587 L .76455 .76587 L .76455 .66005 L F .76455 .55423 m .76455 .66005 L .87037 .66005 L .87037 .55423 L F .12963 .44841 m .12963 .55423 L .23545 .55423 L .23545 .44841 L F .87037 .34259 m .87037 .44841 L .97619 .44841 L .97619 .34259 L F .23545 .23677 m .23545 .34259 L .34127 .34259 L .34127 .23677 L F .34127 .13095 m .34127 .23677 L .44709 .23677 L .44709 .13095 L F .55291 .02513 m .55291 .13095 L .65873 .13095 L .65873 .02513 L F .678 .847 .902 r .55291 .76587 m .55291 .87169 L .65873 .87169 L .65873 .76587 L F .34127 .66005 m .34127 .76587 L .44709 .76587 L .44709 .66005 L F .23545 .55423 m .23545 .66005 L .34127 .66005 L .34127 .55423 L F .87037 .44841 m .87037 .55423 L .97619 .55423 L .97619 .44841 L F .12963 .34259 m .12963 .44841 L .23545 .44841 L .23545 .34259 L F .76455 .23677 m .76455 .34259 L .87037 .34259 L .87037 .23677 L F .65873 .13095 m .65873 .23677 L .76455 .23677 L .76455 .13095 L F .44709 .02513 m .44709 .13095 L .55291 .13095 L .55291 .02513 L F .89 .81 .34 r .65873 .76587 m .65873 .87169 L .76455 .87169 L .76455 .76587 L F .76455 .66005 m .76455 .76587 L .87037 .76587 L .87037 .66005 L F .87037 .55423 m .87037 .66005 L .97619 .66005 L .97619 .55423 L F .55291 .44841 m .55291 .55423 L .65873 .55423 L .65873 .44841 L F .44709 .34259 m .44709 .44841 L .55291 .44841 L .55291 .34259 L F .12963 .23677 m .12963 .34259 L .23545 .34259 L .23545 .23677 L F .23545 .13095 m .23545 .23677 L .34127 .23677 L .34127 .13095 L F .34127 .02513 m .34127 .13095 L .44709 .13095 L .44709 .02513 L F 0 1 0 r .76455 .76587 m .76455 .87169 L .87037 .87169 L .87037 .76587 L F .87037 .66005 m .87037 .76587 L .97619 .76587 L .97619 .66005 L F .44709 .55423 m .44709 .66005 L .55291 .66005 L .55291 .55423 L F .34127 .44841 m .34127 .55423 L .44709 .55423 L .44709 .44841 L F .65873 .34259 m .65873 .44841 L .76455 .44841 L .76455 .34259 L F .55291 .23677 m .55291 .34259 L .65873 .34259 L .65873 .23677 L F .12963 .13095 m .12963 .23677 L .23545 .23677 L .23545 .13095 L F .23545 .02513 m .23545 .13095 L .34127 .13095 L .34127 .02513 L F .5 .165 .165 r .87037 .76587 m .87037 .87169 L .97619 .87169 L .97619 .76587 L F .44709 .66005 m .44709 .76587 L .55291 .76587 L .55291 .66005 L F .65873 .55423 m .65873 .66005 L .76455 .66005 L .76455 .55423 L F .23545 .44841 m .23545 .55423 L .34127 .55423 L .34127 .44841 L F .76455 .34259 m .76455 .44841 L .87037 .44841 L .87037 .34259 L F .34127 .23677 m .34127 .34259 L .44709 .34259 L .44709 .23677 L F .55291 .13095 m .55291 .23677 L .65873 .23677 L .65873 .13095 L F .12963 .02513 m .12963 .13095 L .23545 .13095 L .23545 .02513 L F 1 1 0 r .12963 .87169 m .12963 .97751 L .23545 .97751 L .23545 .87169 L F 1 .753 .796 r .23545 .87169 m .23545 .97751 L .34127 .97751 L .34127 .87169 L F 1 .5 0 r .34127 .87169 m .34127 .97751 L .44709 .97751 L .44709 .87169 L F .74 .99 .79 r .44709 .87169 m .44709 .97751 L .55291 .97751 L .55291 .87169 L F .678 .847 .902 r .55291 .87169 m .55291 .97751 L .65873 .97751 L .65873 .87169 L F .89 .81 .34 r .65873 .87169 m .65873 .97751 L .76455 .97751 L .76455 .87169 L F 0 1 0 r .76455 .87169 m .76455 .97751 L .87037 .97751 L .87037 .87169 L F .5 .165 .165 r .87037 .87169 m .87037 .97751 L .97619 .97751 L .97619 .87169 L F 1 1 0 r .02381 .76587 m .02381 .87169 L .12963 .87169 L .12963 .76587 L F 1 .753 .796 r .02381 .66005 m .02381 .76587 L .12963 .76587 L .12963 .66005 L F 1 .5 0 r .02381 .55423 m .02381 .66005 L .12963 .66005 L .12963 .55423 L F .74 .99 .79 r .02381 .44841 m .02381 .55423 L .12963 .55423 L .12963 .44841 L F .678 .847 .902 r .02381 .34259 m .02381 .44841 L .12963 .44841 L .12963 .34259 L F .89 .81 .34 r .02381 .23677 m .02381 .34259 L .12963 .34259 L .12963 .23677 L F 0 1 0 r .02381 .13095 m .02381 .23677 L .12963 .23677 L .12963 .13095 L F .5 .165 .165 r .02381 .02513 m .02381 .13095 L .12963 .13095 L .12963 .02513 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02513 m .02381 .97751 L s .02381 .02513 m .97619 .02513 L s .02381 .13095 m .97619 .13095 L s .02381 .23677 m .97619 .23677 L s .02381 .34259 m .97619 .34259 L s .02381 .44841 m .97619 .44841 L s .02381 .55423 m .97619 .55423 L s .02381 .66005 m .97619 .66005 L s .02381 .76587 m .97619 .76587 L s .02381 .87169 m .97619 .87169 L s .02381 .97751 m .97619 .97751 L s .12963 .02513 m .12963 .97751 L s .23545 .02513 m .23545 .97751 L s .34127 .02513 m .34127 .97751 L s .44709 .02513 m .44709 .97751 L s .55291 .02513 m .55291 .97751 L s .65873 .02513 m .65873 .97751 L s .76455 .02513 m .76455 .97751 L s .87037 .02513 m .87037 .97751 L s .97619 .02513 m .97619 .97751 L s .02381 .97751 m .12963 .87169 L s 2.6 Mabswid .12963 .02513 m .12963 .97751 L s .02381 .87169 m .97619 .87169 L s [(1)] .18254 .81878 0 0 Mshowa [(2)] .28836 .81878 0 0 Mshowa [(4)] .39418 .81878 0 0 Mshowa [(7)] .5 .81878 0 0 Mshowa [(8)] .60582 .81878 0 0 Mshowa [(11)] .71164 .81878 0 0 Mshowa [(13)] .81746 .81878 0 0 Mshowa [(14)] .92328 .81878 0 0 Mshowa [(2)] .18254 .71296 0 0 Mshowa [(4)] .28836 .71296 0 0 Mshowa [(8)] .39418 .71296 0 0 Mshowa [(14)] .5 .71296 0 0 Mshowa [(1)] .60582 .71296 0 0 Mshowa [(7)] .71164 .71296 0 0 Mshowa [(11)] .81746 .71296 0 0 Mshowa [(13)] .92328 .71296 0 0 Mshowa [(4)] .18254 .60714 0 0 Mshowa [(8)] .28836 .60714 0 0 Mshowa [(1)] .39418 .60714 0 0 Mshowa [(13)] .5 .60714 0 0 Mshowa [(2)] .60582 .60714 0 0 Mshowa [(14)] .71164 .60714 0 0 Mshowa [(7)] .81746 .60714 0 0 Mshowa [(11)] .92328 .60714 0 0 Mshowa [(7)] .18254 .50132 0 0 Mshowa [(14)] .28836 .50132 0 0 Mshowa [(13)] .39418 .50132 0 0 Mshowa [(4)] .5 .50132 0 0 Mshowa [(11)] .60582 .50132 0 0 Mshowa [(2)] .71164 .50132 0 0 Mshowa [(1)] .81746 .50132 0 0 Mshowa [(8)] .92328 .50132 0 0 Mshowa [(8)] .18254 .3955 0 0 Mshowa [(1)] .28836 .3955 0 0 Mshowa [(2)] .39418 .3955 0 0 Mshowa [(11)] .5 .3955 0 0 Mshowa [(4)] .60582 .3955 0 0 Mshowa [(13)] .71164 .3955 0 0 Mshowa [(14)] .81746 .3955 0 0 Mshowa [(7)] .92328 .3955 0 0 Mshowa [(11)] .18254 .28968 0 0 Mshowa [(7)] .28836 .28968 0 0 Mshowa [(14)] .39418 .28968 0 0 Mshowa [(2)] .5 .28968 0 0 Mshowa [(13)] .60582 .28968 0 0 Mshowa [(1)] .71164 .28968 0 0 Mshowa [(8)] .81746 .28968 0 0 Mshowa [(4)] .92328 .28968 0 0 Mshowa [(13)] .18254 .18386 0 0 Mshowa [(11)] .28836 .18386 0 0 Mshowa [(7)] .39418 .18386 0 0 Mshowa [(1)] .5 .18386 0 0 Mshowa [(14)] .60582 .18386 0 0 Mshowa [(8)] .71164 .18386 0 0 Mshowa [(4)] .81746 .18386 0 0 Mshowa [(2)] .92328 .18386 0 0 Mshowa [(14)] .18254 .07804 0 0 Mshowa [(13)] .28836 .07804 0 0 Mshowa [(11)] .39418 .07804 0 0 Mshowa [(8)] .5 .07804 0 0 Mshowa [(7)] .60582 .07804 0 0 Mshowa [(4)] .71164 .07804 0 0 Mshowa [(2)] .81746 .07804 0 0 Mshowa [(1)] .92328 .07804 0 0 Mshowa [(1)] .07672 .81878 0 0 Mshowa [(2)] .07672 .71296 0 0 Mshowa [(4)] .07672 .60714 0 0 Mshowa [(7)] .07672 .50132 0 0 Mshowa [(8)] .07672 .3955 0 0 Mshowa [(11)] .07672 .28968 0 0 Mshowa [(13)] .07672 .18386 0 0 Mshowa [(14)] .07672 .07804 0 0 Mshowa [(1)] .18254 .9246 0 0 Mshowa [(2)] .28836 .9246 0 0 Mshowa [(4)] .39418 .9246 0 0 Mshowa [(7)] .5 .9246 0 0 Mshowa [(8)] .60582 .9246 0 0 Mshowa [(11)] .71164 .9246 0 0 Mshowa [(13)] .81746 .9246 0 0 Mshowa [(14)] .92328 .9246 0 0 Mshowa [(U[15])] .02381 1.03042 -1 0 Mshowa gsave .97619 1.03042 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 .90661 0 0 Mshowa [(y)] .10317 .94577 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.0238095 0.566232 0.477324 1.05754 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.0257937 0.15873 [ [ 0 0 0 0 ] [ 1 1.08333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.08333 L 0 1.08333 L closepath clip newpath 1 1 0 r .18254 .66071 m .18254 .81944 L .34127 .81944 L .34127 .66071 L F .81746 .50198 m .81746 .66071 L .97619 .66071 L .97619 .50198 L F .65873 .34325 m .65873 .50198 L .81746 .50198 L .81746 .34325 L F .5 .18452 m .5 .34325 L .65873 .34325 L .65873 .18452 L F .34127 .02579 m .34127 .18452 L .5 .18452 L .5 .02579 L F 1 .753 .796 r .34127 .66071 m .34127 .81944 L .5 .81944 L .5 .66071 L F .18254 .50198 m .18254 .66071 L .34127 .66071 L .34127 .50198 L F .81746 .34325 m .81746 .50198 L .97619 .50198 L .97619 .34325 L F .65873 .18452 m .65873 .34325 L .81746 .34325 L .81746 .18452 L F .5 .02579 m .5 .18452 L .65873 .18452 L .65873 .02579 L F 1 .5 0 r .5 .66071 m .5 .81944 L .65873 .81944 L .65873 .66071 L F .34127 .50198 m .34127 .66071 L .5 .66071 L .5 .50198 L F .18254 .34325 m .18254 .50198 L .34127 .50198 L .34127 .34325 L F .81746 .18452 m .81746 .34325 L .97619 .34325 L .97619 .18452 L F .65873 .02579 m .65873 .18452 L .81746 .18452 L .81746 .02579 L F .74 .99 .79 r .65873 .66071 m .65873 .81944 L .81746 .81944 L .81746 .66071 L F .5 .50198 m .5 .66071 L .65873 .66071 L .65873 .50198 L F .34127 .34325 m .34127 .50198 L .5 .50198 L .5 .34325 L F .18254 .18452 m .18254 .34325 L .34127 .34325 L .34127 .18452 L F .81746 .02579 m .81746 .18452 L .97619 .18452 L .97619 .02579 L F .678 .847 .902 r .81746 .66071 m .81746 .81944 L .97619 .81944 L .97619 .66071 L F .65873 .50198 m .65873 .66071 L .81746 .66071 L .81746 .50198 L F .5 .34325 m .5 .50198 L .65873 .50198 L .65873 .34325 L F .34127 .18452 m .34127 .34325 L .5 .34325 L .5 .18452 L F .18254 .02579 m .18254 .18452 L .34127 .18452 L .34127 .02579 L F 1 1 0 r .18254 .81944 m .18254 .97817 L .34127 .97817 L .34127 .81944 L F 1 .753 .796 r .34127 .81944 m .34127 .97817 L .5 .97817 L .5 .81944 L F 1 .5 0 r .5 .81944 m .5 .97817 L .65873 .97817 L .65873 .81944 L F .74 .99 .79 r .65873 .81944 m .65873 .97817 L .81746 .97817 L .81746 .81944 L F .678 .847 .902 r .81746 .81944 m .81746 .97817 L .97619 .97817 L .97619 .81944 L F 1 1 0 r .02381 .66071 m .02381 .81944 L .18254 .81944 L .18254 .66071 L F 1 .753 .796 r .02381 .50198 m .02381 .66071 L .18254 .66071 L .18254 .50198 L F 1 .5 0 r .02381 .34325 m .02381 .50198 L .18254 .50198 L .18254 .34325 L F .74 .99 .79 r .02381 .18452 m .02381 .34325 L .18254 .34325 L .18254 .18452 L F .678 .847 .902 r .02381 .02579 m .02381 .18452 L .18254 .18452 L .18254 .02579 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02579 m .02381 .97817 L s .02381 .02579 m .97619 .02579 L s .02381 .18452 m .97619 .18452 L s .02381 .34325 m .97619 .34325 L s .02381 .50198 m .97619 .50198 L s .02381 .66071 m .97619 .66071 L s .02381 .81944 m .97619 .81944 L s .02381 .97817 m .97619 .97817 L s .18254 .02579 m .18254 .97817 L s .34127 .02579 m .34127 .97817 L s .5 .02579 m .5 .97817 L s .65873 .02579 m .65873 .97817 L s .81746 .02579 m .81746 .97817 L s .97619 .02579 m .97619 .97817 L s .02381 .97817 m .18254 .81944 L s 2.6 Mabswid .18254 .02579 m .18254 .97817 L s .02381 .81944 m .97619 .81944 L s [(0)] .2619 .74008 0 0 Mshowa [(1)] .42063 .74008 0 0 Mshowa [(2)] .57937 .74008 0 0 Mshowa [(3)] .7381 .74008 0 0 Mshowa [(4)] .89683 .74008 0 0 Mshowa [(1)] .2619 .58135 0 0 Mshowa [(2)] .42063 .58135 0 0 Mshowa [(3)] .57937 .58135 0 0 Mshowa [(4)] .7381 .58135 0 0 Mshowa [(0)] .89683 .58135 0 0 Mshowa [(2)] .2619 .42262 0 0 Mshowa [(3)] .42063 .42262 0 0 Mshowa [(4)] .57937 .42262 0 0 Mshowa [(0)] .7381 .42262 0 0 Mshowa [(1)] .89683 .42262 0 0 Mshowa [(3)] .2619 .26389 0 0 Mshowa [(4)] .42063 .26389 0 0 Mshowa [(0)] .57937 .26389 0 0 Mshowa [(1)] .7381 .26389 0 0 Mshowa [(2)] .89683 .26389 0 0 Mshowa [(4)] .2619 .10516 0 0 Mshowa [(0)] .42063 .10516 0 0 Mshowa [(1)] .57937 .10516 0 0 Mshowa [(2)] .7381 .10516 0 0 Mshowa [(3)] .89683 .10516 0 0 Mshowa [(0)] .10317 .74008 0 0 Mshowa [(1)] .10317 .58135 0 0 Mshowa [(2)] .10317 .42262 0 0 Mshowa [(3)] .10317 .26389 0 0 Mshowa [(4)] .10317 .10516 0 0 Mshowa [(0)] .2619 .89881 0 0 Mshowa [(1)] .42063 .89881 0 0 Mshowa [(2)] .57937 .89881 0 0 Mshowa [(3)] .7381 .89881 0 0 Mshowa [(4)] .89683 .89881 0 0 Mshowa [(Z[5])] .02381 1.05754 -1 0 Mshowa gsave .97619 1.05754 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 .87183 0 0 Mshowa [(y)] .14286 .93056 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.566232 0.97619 1.05754 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.10582 0.0251323 0.10582 [ [ 0 0 0 0 ] [ 1 1.05556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.05556 L 0 1.05556 L closepath clip newpath 1 1 0 r .12963 .76587 m .12963 .87169 L .23545 .87169 L .23545 .76587 L F .44709 .66005 m .44709 .76587 L .55291 .76587 L .55291 .66005 L F .34127 .55423 m .34127 .66005 L .44709 .66005 L .44709 .55423 L F .23545 .44841 m .23545 .55423 L .34127 .55423 L .34127 .44841 L F .55291 .34259 m .55291 .44841 L .65873 .44841 L .65873 .34259 L F .65873 .23677 m .65873 .34259 L .76455 .34259 L .76455 .23677 L F .76455 .13095 m .76455 .23677 L .87037 .23677 L .87037 .13095 L F .87037 .02513 m .87037 .13095 L .97619 .13095 L .97619 .02513 L F 1 .753 .796 r .23545 .76587 m .23545 .87169 L .34127 .87169 L .34127 .76587 L F .12963 .66005 m .12963 .76587 L .23545 .76587 L .23545 .66005 L F .44709 .55423 m .44709 .66005 L .55291 .66005 L .55291 .55423 L F .34127 .44841 m .34127 .55423 L .44709 .55423 L .44709 .44841 L F .87037 .34259 m .87037 .44841 L .97619 .44841 L .97619 .34259 L F .55291 .23677 m .55291 .34259 L .65873 .34259 L .65873 .23677 L F .65873 .13095 m .65873 .23677 L .76455 .23677 L .76455 .13095 L F .76455 .02513 m .76455 .13095 L .87037 .13095 L .87037 .02513 L F 1 .5 0 r .34127 .76587 m .34127 .87169 L .44709 .87169 L .44709 .76587 L F .23545 .66005 m .23545 .76587 L .34127 .76587 L .34127 .66005 L F .12963 .55423 m .12963 .66005 L .23545 .66005 L .23545 .55423 L F .44709 .44841 m .44709 .55423 L .55291 .55423 L .55291 .44841 L F .76455 .34259 m .76455 .44841 L .87037 .44841 L .87037 .34259 L F .87037 .23677 m .87037 .34259 L .97619 .34259 L .97619 .23677 L F .55291 .13095 m .55291 .23677 L .65873 .23677 L .65873 .13095 L F .65873 .02513 m .65873 .13095 L .76455 .13095 L .76455 .02513 L F .74 .99 .79 r .44709 .76587 m .44709 .87169 L .55291 .87169 L .55291 .76587 L F .34127 .66005 m .34127 .76587 L .44709 .76587 L .44709 .66005 L F .23545 .55423 m .23545 .66005 L .34127 .66005 L .34127 .55423 L F .12963 .44841 m .12963 .55423 L .23545 .55423 L .23545 .44841 L F .65873 .34259 m .65873 .44841 L .76455 .44841 L .76455 .34259 L F .76455 .23677 m .76455 .34259 L .87037 .34259 L .87037 .23677 L F .87037 .13095 m .87037 .23677 L .97619 .23677 L .97619 .13095 L F .55291 .02513 m .55291 .13095 L .65873 .13095 L .65873 .02513 L F .678 .847 .902 r .55291 .76587 m .55291 .87169 L .65873 .87169 L .65873 .76587 L F .87037 .66005 m .87037 .76587 L .97619 .76587 L .97619 .66005 L F .76455 .55423 m .76455 .66005 L .87037 .66005 L .87037 .55423 L F .65873 .44841 m .65873 .55423 L .76455 .55423 L .76455 .44841 L F .12963 .34259 m .12963 .44841 L .23545 .44841 L .23545 .34259 L F .23545 .23677 m .23545 .34259 L .34127 .34259 L .34127 .23677 L F .34127 .13095 m .34127 .23677 L .44709 .23677 L .44709 .13095 L F .44709 .02513 m .44709 .13095 L .55291 .13095 L .55291 .02513 L F .89 .81 .34 r .65873 .76587 m .65873 .87169 L .76455 .87169 L .76455 .76587 L F .55291 .66005 m .55291 .76587 L .65873 .76587 L .65873 .66005 L F .87037 .55423 m .87037 .66005 L .97619 .66005 L .97619 .55423 L F .76455 .44841 m .76455 .55423 L .87037 .55423 L .87037 .44841 L F .44709 .34259 m .44709 .44841 L .55291 .44841 L .55291 .34259 L F .12963 .23677 m .12963 .34259 L .23545 .34259 L .23545 .23677 L F .23545 .13095 m .23545 .23677 L .34127 .23677 L .34127 .13095 L F .34127 .02513 m .34127 .13095 L .44709 .13095 L .44709 .02513 L F 0 1 0 r .76455 .76587 m .76455 .87169 L .87037 .87169 L .87037 .76587 L F .65873 .66005 m .65873 .76587 L .76455 .76587 L .76455 .66005 L F .55291 .55423 m .55291 .66005 L .65873 .66005 L .65873 .55423 L F .87037 .44841 m .87037 .55423 L .97619 .55423 L .97619 .44841 L F .34127 .34259 m .34127 .44841 L .44709 .44841 L .44709 .34259 L F .44709 .23677 m .44709 .34259 L .55291 .34259 L .55291 .23677 L F .12963 .13095 m .12963 .23677 L .23545 .23677 L .23545 .13095 L F .23545 .02513 m .23545 .13095 L .34127 .13095 L .34127 .02513 L F .5 .165 .165 r .87037 .76587 m .87037 .87169 L .97619 .87169 L .97619 .76587 L F .76455 .66005 m .76455 .76587 L .87037 .76587 L .87037 .66005 L F .65873 .55423 m .65873 .66005 L .76455 .66005 L .76455 .55423 L F .55291 .44841 m .55291 .55423 L .65873 .55423 L .65873 .44841 L F .23545 .34259 m .23545 .44841 L .34127 .44841 L .34127 .34259 L F .34127 .23677 m .34127 .34259 L .44709 .34259 L .44709 .23677 L F .44709 .13095 m .44709 .23677 L .55291 .23677 L .55291 .13095 L F .12963 .02513 m .12963 .13095 L .23545 .13095 L .23545 .02513 L F 1 1 0 r .12963 .87169 m .12963 .97751 L .23545 .97751 L .23545 .87169 L F 1 .753 .796 r .23545 .87169 m .23545 .97751 L .34127 .97751 L .34127 .87169 L F 1 .5 0 r .34127 .87169 m .34127 .97751 L .44709 .97751 L .44709 .87169 L F .74 .99 .79 r .44709 .87169 m .44709 .97751 L .55291 .97751 L .55291 .87169 L F .678 .847 .902 r .55291 .87169 m .55291 .97751 L .65873 .97751 L .65873 .87169 L F .89 .81 .34 r .65873 .87169 m .65873 .97751 L .76455 .97751 L .76455 .87169 L F 0 1 0 r .76455 .87169 m .76455 .97751 L .87037 .97751 L .87037 .87169 L F .5 .165 .165 r .87037 .87169 m .87037 .97751 L .97619 .97751 L .97619 .87169 L F 1 1 0 r .02381 .76587 m .02381 .87169 L .12963 .87169 L .12963 .76587 L F 1 .753 .796 r .02381 .66005 m .02381 .76587 L .12963 .76587 L .12963 .66005 L F 1 .5 0 r .02381 .55423 m .02381 .66005 L .12963 .66005 L .12963 .55423 L F .74 .99 .79 r .02381 .44841 m .02381 .55423 L .12963 .55423 L .12963 .44841 L F .678 .847 .902 r .02381 .34259 m .02381 .44841 L .12963 .44841 L .12963 .34259 L F .89 .81 .34 r .02381 .23677 m .02381 .34259 L .12963 .34259 L .12963 .23677 L F 0 1 0 r .02381 .13095 m .02381 .23677 L .12963 .23677 L .12963 .13095 L F .5 .165 .165 r .02381 .02513 m .02381 .13095 L .12963 .13095 L .12963 .02513 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02513 m .02381 .97751 L s .02381 .02513 m .97619 .02513 L s .02381 .13095 m .97619 .13095 L s .02381 .23677 m .97619 .23677 L s .02381 .34259 m .97619 .34259 L s .02381 .44841 m .97619 .44841 L s .02381 .55423 m .97619 .55423 L s .02381 .66005 m .97619 .66005 L s .02381 .76587 m .97619 .76587 L s .02381 .87169 m .97619 .87169 L s .02381 .97751 m .97619 .97751 L s .12963 .02513 m .12963 .97751 L s .23545 .02513 m .23545 .97751 L s .34127 .02513 m .34127 .97751 L s .44709 .02513 m .44709 .97751 L s .55291 .02513 m .55291 .97751 L s .65873 .02513 m .65873 .97751 L s .76455 .02513 m .76455 .97751 L s .87037 .02513 m .87037 .97751 L s .97619 .02513 m .97619 .97751 L s .02381 .97751 m .12963 .87169 L s 2.6 Mabswid .12963 .02513 m .12963 .97751 L s .02381 .87169 m .97619 .87169 L s [(g1)] .18254 .81878 0 0 Mshowa [(g2)] .28836 .81878 0 0 Mshowa [(g3)] .39418 .81878 0 0 Mshowa [(g4)] .5 .81878 0 0 Mshowa [(g5)] .60582 .81878 0 0 Mshowa [(g6)] .71164 .81878 0 0 Mshowa [(g7)] .81746 .81878 0 0 Mshowa [(g8)] .92328 .81878 0 0 Mshowa [(g2)] .18254 .71296 0 0 Mshowa [(g3)] .28836 .71296 0 0 Mshowa [(g4)] .39418 .71296 0 0 Mshowa [(g1)] .5 .71296 0 0 Mshowa [(g6)] .60582 .71296 0 0 Mshowa [(g7)] .71164 .71296 0 0 Mshowa [(g8)] .81746 .71296 0 0 Mshowa [(g5)] .92328 .71296 0 0 Mshowa [(g3)] .18254 .60714 0 0 Mshowa [(g4)] .28836 .60714 0 0 Mshowa [(g1)] .39418 .60714 0 0 Mshowa [(g2)] .5 .60714 0 0 Mshowa [(g7)] .60582 .60714 0 0 Mshowa [(g8)] .71164 .60714 0 0 Mshowa [(g5)] .81746 .60714 0 0 Mshowa [(g6)] .92328 .60714 0 0 Mshowa [(g4)] .18254 .50132 0 0 Mshowa [(g1)] .28836 .50132 0 0 Mshowa [(g2)] .39418 .50132 0 0 Mshowa [(g3)] .5 .50132 0 0 Mshowa [(g8)] .60582 .50132 0 0 Mshowa [(g5)] .71164 .50132 0 0 Mshowa [(g6)] .81746 .50132 0 0 Mshowa [(g7)] .92328 .50132 0 0 Mshowa [(g5)] .18254 .3955 0 0 Mshowa [(g8)] .28836 .3955 0 0 Mshowa [(g7)] .39418 .3955 0 0 Mshowa [(g6)] .5 .3955 0 0 Mshowa [(g1)] .60582 .3955 0 0 Mshowa [(g4)] .71164 .3955 0 0 Mshowa [(g3)] .81746 .3955 0 0 Mshowa [(g2)] .92328 .3955 0 0 Mshowa [(g6)] .18254 .28968 0 0 Mshowa [(g5)] .28836 .28968 0 0 Mshowa [(g8)] .39418 .28968 0 0 Mshowa [(g7)] .5 .28968 0 0 Mshowa [(g2)] .60582 .28968 0 0 Mshowa [(g1)] .71164 .28968 0 0 Mshowa [(g4)] .81746 .28968 0 0 Mshowa [(g3)] .92328 .28968 0 0 Mshowa [(g7)] .18254 .18386 0 0 Mshowa [(g6)] .28836 .18386 0 0 Mshowa [(g5)] .39418 .18386 0 0 Mshowa [(g8)] .5 .18386 0 0 Mshowa [(g3)] .60582 .18386 0 0 Mshowa [(g2)] .71164 .18386 0 0 Mshowa [(g1)] .81746 .18386 0 0 Mshowa [(g4)] .92328 .18386 0 0 Mshowa [(g8)] .18254 .07804 0 0 Mshowa [(g7)] .28836 .07804 0 0 Mshowa [(g6)] .39418 .07804 0 0 Mshowa [(g5)] .5 .07804 0 0 Mshowa [(g4)] .60582 .07804 0 0 Mshowa [(g3)] .71164 .07804 0 0 Mshowa [(g2)] .81746 .07804 0 0 Mshowa [(g1)] .92328 .07804 0 0 Mshowa [(g1)] .07672 .81878 0 0 Mshowa [(g2)] .07672 .71296 0 0 Mshowa [(g3)] .07672 .60714 0 0 Mshowa [(g4)] .07672 .50132 0 0 Mshowa [(g5)] .07672 .3955 0 0 Mshowa [(g6)] .07672 .28968 0 0 Mshowa [(g7)] .07672 .18386 0 0 Mshowa [(g8)] .07672 .07804 0 0 Mshowa [(g1)] .18254 .9246 0 0 Mshowa [(g2)] .28836 .9246 0 0 Mshowa [(g3)] .39418 .9246 0 0 Mshowa [(g4)] .5 .9246 0 0 Mshowa [(g5)] .60582 .9246 0 0 Mshowa [(g6)] .71164 .9246 0 0 Mshowa [(g7)] .81746 .9246 0 0 Mshowa [(g8)] .92328 .9246 0 0 Mshowa [(D[4])] .02381 1.03042 -1 0 Mshowa gsave .97619 1.03042 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 .90661 0 0 Mshowa [(y)] .10317 .94577 0 0 Mshowa MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{265.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ1sZcV97+n98L2218tHICSQBrILC8sjfqnI64tQW+oGUmjYbIA24T1c QqAxRYTWIbwQh/AMjgRxQ0NMA3JCg8PbmIR1N8RAcbPJhcQCdAOxSBwkU2GR qyAn0q1kVVeRbqRb6f/me+acMzNn5pz7YS/e1d2995yZc+bM/2P+M7/ff86B j9/6t5+4+eO33nj9x8/481s+Pv63N17/6TM+8Pe3oEP53wuC37sMff72jAB/ hyDg/5A/B/A/7EePv78T/1cA3rT/Ro8O4P/ux0f3ivPT0VMn4W8z+NugciqP D5wAb7z80YL4lsPf3gJHXv01+XYiVP7rJ+wYTAbsGPzoJf4NgvwxdANybAgm zz2XXG8X/panx5BSkLO7xT12i3vsFvfYLe6xW9xjN75H7lhreg5fLCiifz8C 1cMXwXe+9qfwxOEPwqvo6IB4rKAPf9UVGhSNyePGoCsdefVXMPvEU3DnNw/D PU+8AN9CRwdFQ3O4oahU5b9egEdf/gbc+4MH4KsvH4Gn0NFB8RB5/BBBAWo3 BlC5JoAq+r8xiXqDP1sOPxu6DPyoCrWH56Dy5Qeh+vDj0EBHB8Vz58nDosus ostU0GXQ/w0gndDzLkc9+tMPwt9QL0U/Z/13qP70o/2y1/O012k5ejXcblqO XKU/0v19cOSVF+Ay9apnfx5mX/n1QEQCfVD53RG4Ui347k/Co7/7yYB4rBwR Qh/AHQGMqwVPCaB2B36ukDBQwcrj4YJ7boZa5aUB0Sk50hOoYCtyxWF0xRbp Ihe5lLBccEF0maCOPpvkV0xWRdIluGNeh4df+AU8/OLruINYPxRJP+SJJi79 9gXeK+lkWiTSQPKqXgpXoCf63KOXU+mhf3/5/IfhZ89cDr+kJZhwC441CuJx +vjj/HwZ/gTV+OvvrqHW0GOHf/6aeMRi/BF/+xhchGqMvfjDQMq3SOSLbOT2 AEbR2ekxLvM8kfnmrQHUbyPyYl1RJIJGZ48u0BpfrwRSukXSJ+hsk11vJdCK FP2+6bTjuPCZWhfhkj3nYAmLz41vGxIqf/5pe0X5Ps/yRW42KwGQv8sBbRH+ dzSgWgTSvJ69+/RI2wpw16NXUlOsfgD+nFcvwAWf+QA5zIoXmAl+6+g34Q8V 9T7vhm9iL1iIyWXp5c+in+fD7H+qqkflUiQyGFMuU53At+CyyAtZHCK9LZuL W3cprCy9xEsw+RSYfNbmg8gD5mFmBUcj5EOtNMF1VQ/A18b3wxV/sRfuuvt9 cDVVYD6Y/OBL+xSvth9+8PxHaVXq1kqsL7XXCGwXyUfcXRkZw4tw6603w598 aBSuu/cBuJgaBj4LX7rrSi7o0z92HzyMDuFKubgr/O0iTH7xWrjo6svhpkNT xH8iW8mT0wX45/suFC257NBj+YiHLBMLWrgIaT3yYzNXUKkha8JnYePjUtvQ 6Y07Am5iIe+JLnL0SVi44VoYvfgKmPn8F+hFvl5BZ5+DhQNnFpjOjd/1OK7A P4pf7SeWtzCN2oHUemaetYNLFp07GEjdHZkREtfZ6BDcsf9suPXsfXDNyWUI Tvx99P1smNjP7G3/frgdfSbOPguuOAH1zInvgNv2nxvQRu7yrZdnt0SOHIIp 9BkP6PcWM9kl9JlDnwb61JhKzKpmuxt+Wb0cfvbjD8N3bjwegqv/GH2/HF6l oySJW15B/vS5r52HSp8Hzz7zYXjl+Y9ElKlEQpdbP4Su+rGH4BGkLdiQ8b3G j74exK238l+LZAD93z/4N8V6C8x6W0gnmuhTR8+CDBdGr2CWrVhvCf37YyRc +kTTX/42bDx2CKYPXIutF18pZLl90EIyrKN+qbA+wt8bLXpab7DBcawDPgSf Owvf5nS4664/hL85i97yHu7Xjv4x+/1heOP5S0lY8ud3XaIa7e60F5E2Swcr HEG9DH99Nq58JVx3931w2dn0Qjd89zVit7OPzcOd30WR4yu/gm898zgZ7P7w 7uW8kAB6KtTd6PMUjL0b170EbvrGHXDlu+l1PvXis/T875bRyL4MT/3HInzu E+jc398D3/sdFZ1qwEMwfQqtOXMQCZt9n2UGvH51AFPo+MYEGhLH6dB28DLV FaPmUGt8Gqb3BMT7ztz2f2F8D7vQ139Mzm98+Qbye/jqL0LtX56EpZuvgIm7 H1c8NI+PpodZc5DOj7PvsyvsdBE2UcyzXqGH19D3zQYLdSNGnMM2hw7e+LZB OOWUPeSXOPb2odggcMrb9sSO0ZGV1Ke/tHVLal36wX+RiwmmlXhtivyWZptj 8c4PPvNW2D9OxlIRF60f/gNU5A/IRCSnsdQ1uA7d5uIHXyYqg1UKR1FXPbam WGofs9TZ+85HPuEeOMqmHuokg8Y/B9njcFc9fzMVPi6RE4ImFkn+fRrmDlBJ V598qU8IsI8NsavoyYenAyavJOtcP/xe9Os0ePp57q4+DJ+moyH5/dyX9hK3 9bOX6XncXcH4RWHrTHmRqHWW4NtPTBOL+tLKr1nX/gKuYuEmj6jvv/0COP3W pyLDKY0tWVRzIY5qmJn+G1xLR1Ty+58fvJAPZnvue4QV+YkQCzUsaN5IFWll QgSlU3JYZW42D9UR1NMXRcdUPJwii2s+PEFawmIh9DlKL/L1So4FR2t3Xcuc 75M0vBVtQGraXGVtaDDbY21YUQIldIwXQ1NLWtFgh2MxO+yDm9+BI+FT4BY0 KtIR8zS4ad85fP6HzW8sZH7GKiLKUCyvSGwN/buB/l9klrmoscCnNRb4qtYC eZB7/8wn0M/9KOh6CK772AXo+yh8eeXXceM7+vo9wIPcYmSY7INZ5G1HLgug heIi7IXHkKfdvF1xrkVhc8/B0nVnEptbXXqpGLO5FS+be/VR/HB7ofoyN5e/ hHvOwuZCB7OnP3Ma6a1/xObz/CX6ETHlReIj4re++wXSgbOvcpt7HW44G9sc HRGP/PwX8MAzvxD2eN3/DOD0278fGxGfevEW9OtyeFTY1DJ86t3Y9OiIeOix S9D5T8JhNDLeeyfqzL+fgrnfPKuMiMz6GmNUWWqTwvqwpLj15ZgNNm4JYPkq 1O84SLpKHRKpATa+/mn06wqoiYD1OZjdgw3wx3z+Un9wghrg/UeViIcZYGOF NQOEsc0Oxw2wkcEAJ889C96HA/u958DNp4rzNgM0VDEbIDo2EZpzQVbr+/bT 95HrnfehK+E8fN333xeeYvaJIPWHcBMLUqPWV4TmTULMMEflqwSpfcL0jtLA 5uIv4AW2QmrTG2ATP7riccGNF8BzRw/Ad26nE71PP/BBcr76wH4+SQn+BwrW xYDG7K7f5Qpy0iUvofSjCEXZWsp5f/cQPLD8Itx51yfIla566AVibNQw8Soa GvCI/C6Azz/zumJ4u6mhsRWW99x5Dxz61SLc++BVpN61/3qEGSKdK3zqlWfh 0DfOhz1ffKQgba5MYw22DjOChrR1ZFiVy6hwpq4W66FLfyQjrPpk3N74wszI dV+EdRRiVm75X/QS//B4gdnb6i14MvteWH5SXRvA9dkkkdRHkdo6GjMqs6wJ S2wt1d3W1KCTGk4RbnvXKRCUT4Gr3jYEZ7BzqqHxQLNgKa+zsj5iZQU6P8Td Q5d6MseYr8P4+9F1/u5x6nhXHic6cMPTrykxZokZ2qOPXS5iTCnaIhfc+SjG REPb3DnEyIqRkBJN7Y5WxbSees33QnVJY2uOoSV97F3w6hMXwtVsorb/T0+H C4j2nAZPIJP45RPvQ9+Ph0NPoKnyj8lyo1yfRLMiMk761VeWK2k37kKT6Hm4 mM3wTn8/c1covrwHxZffegKb1yfgnicqcM9jFXj454oLo6szu+Cpf/8KXMam dns+dAm8h1zgQvgqiy+/9/wnyeL1F+67EN6j2hUdpUrQQMH8GJvVDSMBjCgL amISMCGWbRSzolHiEDTm74cxNp0b/qNL2RUuxBIiEERLjG90BXz87idj0zrU jnV0DzadGz6otKPhHkuig3fs2wvXvGsP/NVJZWwt3Fgmz90Pf3UCrX3G28PG pRQPbOWFcVUDOmRNM1PDczi8IIOXDptscUYamlgn/eUzl8J3/t8H4GvXHY+N Lc/BpZ9+GJ742p/BkbuRnz7LbG+/gs9/DF3uo9+Ew8jeDi/Pk5vc+syvFHuj i3IlEtp84c4xuPff0TTkNz+EIy9PEZHM/lZnf1i8bI4HM2OGhRgcmYzedohI s0Ym6xfC6tH4QkwBWmjWXUF9tDBBjLHPbIf9wuFcCf/4p3glEw1HP/5IQdhZ WV+gKLpngK8qk6Ho/8D9L66Rpf6Hln+Bu0kORQNsuRL3zOQn6LO+50HFHvpZ zN26LYD5KwLYQAMO3EY7BnWKVPt+5pTWP38pBH/waagdRar95BwZGqbuPyo1 u5+7oRbS4gqKBbF+DFu19/az3gnnMEmc8bY9Raank/veSQ7hdQQl/FJKBoai dH2/SAcD9W9DWedHQ2p4nb8A609fiNfyyaUu+Iyiqwfgrr84nqo30tVXtPHX t55+iDky5thueCgcf+VF/PUsfOZD4cWFT738LJ/xUifHHTzxROtXCDWNjRNF WL/7BnFT/Bm77ZAyb+X62axJdR+ZsenngPLY91x5vLju1Xdfqsx1+i2l8jFN /fbRh0JtxEET8vZSUwd55/zmK9Sr3/dIEFdT7pLFZc4guGNcTVv/8hCHQOjn jz6NcUe9ms6MskJITTcNaspjmNvPORtuQ7Ns7jDxsYl9+8QxNXZhZcn0IFou FLM0iAuVMwM8Na8J1YxELevPXw6vVD8Silre+OmV8LNnroxEtALsfOU1eOiZ F+GhF15TwE4JVpeYmtVRhNmcVBZTIghfBTYeexI2nnwuiC9vNdEzbDYTY5Bd fCrzzAF47okD8LPnP6Lo1KDmrNQlSZ/YxZTlqd88Bd9jOK2crw4qj1MbD6A1 qVrNgLJ4UEfxcO1fjmLvLh36IMcskWbU6wEzn2OTDoN0iwHpATs7pNAaFOBb AOlId9k3qUdxWPwYafr9b5qbMiEdweMV/8YEwm8lBfIWcSspuBPxDSJCKmtI GTnxODrKRk7ziImkjNhj20kePekK/FuDsVsJCLSPnMpRAoQrKcHONfDnBAS+ 7I0CYWPgY6yOB02iM0SIzivAkJwlucPZAj33rMfR8xTodxAxOgOgDU7gMzKx FJwBYch+IHwnYHbNIoqZ0jggdIa6G12hQWU6YKZZSgplJlbjLiGITBzLQY0+ 57j3putt5FdfFNQNFG9lA38V8+Q45P7xDwgGnX5Nzo7k2tfG/GDwAp9X8uN+ kHMHQGWDWhqpnv1SM/O0pbSc9Iq0HLlKf0RFjbTUgYiWZqd7DkYUNjsldcBR dwv83zAsyvtMVd+ivigXKUX5whqsR27scKgdSTHjVyUTGszKKMNtImDbPkhW Q491o64WhOoWvMmufd6EWn86q1TZ9lBri74KO6HoPNgVNlw0vcLqEcS0ClvU oaf0XEhbEwHONkGYBufqSCwtqMRS6Xb7GWhvvYIQiZ6bKtyxP9U2H3HVXeaW 5lVuqTJz6CHbNudoZ2JRTgKJWiPr05RTLcwtqLFDh/5BTZ4tSkZg05wmxHZB NtuHXepIODyESkEEpVbCSTiZ2aTUlNrAb90KPFBlOrYVSLJ53ey4QJeAJMaY 5zMKPcQoLDCGShqrcGNUwMjAFY30wRcTAUETXluI4q86K3XBQ9uMcMZNtUys yMIKpcFdQSWFSvvMwiflhpmZ2to7Oqh02L0mx+qGQGxZfB0pIKObMKuGchh/ KIDKc6+csNZAzjgVnDVwA1r98dNE7NMEPudVRFkTiiZive1Abk1DZEpmaHiI zEwv5ZaYmfDaO15oMTow9pgrqxsZc2pY2dSsVdSEwYWi0hCkHCuqBqYMT5b5 qloseXcsCNUjvmacvKDi33GsRotRZ0GmjRFmOn5nJMLMShKl5tMO3mpveJ6K 7fSS7hoxGT1unktHO8xLgQ9RofrVDy0Bp6JeFiKz9l6xDlXz7hEB00nQ/XZe nLTgsjuBLoGK1xZenOzfrIQ93RAyJLgXhH3D4HUJoEu2gNzVIBCguoTX4wC6 UQAGuldcAA68MBeaWVtoXyptKQMZrcci0AHXQ1ZeVSpGlOwsfzJWYev1UBZo /xhreiGBbxN/HB3PJ695RFdeTjfYOM5beuQJe4YXdSDaKO6Md6WeaBNkps34 81yCFDwkCMSsFfyIQW2m9VhYckiTU+z2IOg1nvUidqKjyGRmvviwVLBD8ScX CQt1pvN0go9jEao5T6ugwicyP0mHtMSKMvTZRh7JSA9JpG+ISb2NPMPNzg76 dJqKovHFqJcK4hv3u4K1q2P3Sq+MeiC2wPGGIeG1oKLQUSE/HRHyqxYh6/kV mRgUiXwHnYgLHFA0pd7bEfT2szaOBeHquQjp2QaJ9ACzZPOGnG43sbaJ3tA1 mXbAK3N+iR79ToVvOwPSOrGK1VNNErGrW24LrN5xoQaGRM0+HTSqijaOphqr sLU4Hyw1FVTqg22agGeH3NZEnLfNoK1mWdPM6R0Q+kGNSldI8n4LFt6vYvPJ XGUzN3qXGoOAhqusUj8TKM9x3dUmbvbp8ERVd+MQpLGK0uE+AKQ/vugCDJow 2pIJo40rrRERbRPCaVBWI5+3X+prnnFQSDk5Q6XlyFX6I4R1O/lXUWAnJrOV SK3uWmxlMg9E1NnOjTYMsfFUz4IKz0WH2DCSFysaWZjyR+psaJsYPmM4Zd6Q z2rHEbPgghqucZyZKzWuoDkrebt9ypQpkbfLmu7POnZjNqs7FceZyANK5xlY zMlIWRo+Zk4ab4lhgdrqQSKfM5+Rzxm29Ww0WQ/Ob5iwm4/4iEybsCouJC1n N0noGVmBivR3p71IVAMyMAtz7JHeyLDHaYi/mYWVWogNF2n38eStycwmjSEA fGmdRGhsjJCghIQsJBNE5s8GopxEBRTkJ6JnnnS3vEp3CziN3qF6YKPLcd+t 8OUCL8KcqmBpt+kMsZ+cuJRhQqSy2Vi2bSl5G9JyIXuoTdkoWyGvlfIiUT50 XuV9Bb7EL1Wv0m5FGXNcabmChaiCpd12UVWwNBS/HipYal5TXurWUJr6QZwu Y2FGBTZqVI453jd8Nlk0Ms2yEegUnUq/taCqT2kob73Tp5TUqbAyYY/nV19R pnwW7pUSWmfisaWi4hUjcVTKjfOUYDoDlS6iQiItNcpqKNA+N5z1UrUkhoWc o9u4G5qdvrRsM6ly/Ul0tAEHOlqOXimRSGel5EnnkbjBHC+VyMuLCJK/LsnG VihIJbYXzDODAz/GRCpGR/rX07jxLoIMpJEgM8nFvltNTKd13D2p0ANWZh/X ZhuzjxV0YyVaSY56ldZuRhdSaRvJMbaQ6EjYoANMmcWBxsJR1XbijHgyWbK8 tcWNcpKRLpOR2mPfWkezY16cXiknL4Oas3JasstEvmRnbaxQiRwaN8TjNmNk jxq1MYGrEtZGY2GpjXw5VA/GOvBxTJC2eUNoXyKNWCB34fxkJCDZt8bpOJjM B1IbUSU0kNoKhuSrZ1A4kHFMNBTzpvqOFBqdWBN5PpmoR/ZdY7omXBtdJSRc W0EH4TrwcdIJN4lIY5asieeThXRkIzN1gdLjyFYJO2ZjYT/H7ETO8XXQiZQa nXhtfJ9U7CP7dh5W6qsjdyQauBkKRwM3K23Fk0CTaof3RLpLBmZOKtaQDy3J IjgxibTwJ8KTSEvBkMAslA1H0kiq7c3tPI8MVBRfbox/+r/Gb8JkUBDfmI9U MkWAH+O9Jn3piUIgmqWfKEkhvPQTPRvyjCb6g51sYeKHmNK37YQJ4QudyRu+ 5BHLumgbhWLaNrvDNzBsmzkg7pvTF5D8uryFyhfanhNSM+d2RbQnC5lvUGML QyImITNWtrwp5c81R10/VxY6Y+/TlvlwmpV0K+urX/Q7lQwvJxeuaDlylf6I DNx2nIR2ML8GIxLJzk4b6K1cXLc4LAgBFRxrqLv32cha/rQoKYTO0baKW8Fc HElVBZVUJQ2pn/60X0GuAmt5WcLA0m/2B11nU+VVNhWtGjbZHpHMctpwxID+ FGT3a85GdC8xm9dJH+25vgYdTUf7ykk1Ja1LcxEV4sQd0wYm21ZgfCnztC3C iMtb9DaG8IT0NnaWvhzBhiUVo1gSnjeK0MAJv3JGyNKDcP6YXwczseM0GI/t 5QoqW06NwrKR7ahJZqf+9Y4r1xe1w14RB+3DRgSQigwbkbNUO4bS4GCsKzNn rU86YX1ZAEU/9LJDifQmm0y3y1xONczMhEU+XGamUPaOZ1iMGmfP2Ze6QdK4 Y0EohyV2lg9sk8q7dPPuSKJYGXJBLdOAor7r+olYbju3S9DtfMvnQX771ClG l5HMSQ0uK6+0NwxMJRzdGpRUm6HF8NWQocXOqoYWfju8A6arM7NEFNkDo/ZF SBMR9TbtVGGYB/pTVBX7oiZquYCd4ppPR9MNUbahdwzVKGbafa5uwWJTMXw7 nIAZPWu2qSRA3WxQJvDelRTga0qJ/IU27Q6i2YvRSs2VFlN25fAOJrGB20LN lT2TlTOs8+7GLUYKqp7GzurCKA4qG9F/nRLaKAYOnIV04ZIDw6Kd25kYVdHA q42rYiIBl7MijTt0Cj1MzaeVfdMWtq9OGZ03Q+EjG59ZGQqHVFWhPwSJ/IcM bAsXJkcqiogfEaXN27FoeOVxLm1eKO6AlWk7ZGXppuLXylDMTuPV0Ra89jEJ bcpBK4jVg1hhfhWF1BHYWR0ZCCSJzJRUfBc3Nk379lHpOElFhzQGuhfU65kb YhBz5oYkcU18uStZXkBv30akJ33fIZS3kyyX+11OsQfmrSC5B+yBeaPVB1Ee XTxmnC0ku0P3wDiM5t/4wwmaK79paKNgQZHl0thp+tZrujGjMvI4iUh17BGT 3iXftcfms00jrMiwl4RSjH7miO35w4b4Bmkz/1KlMnY0VzDIgtLqlqqMZLsB oS50pNIVGowFExZeXwIXTxlZ9by+XZHMJetefwlcxFhCSAIOp1AgLaXy8kE9 NpgG19fQZ0EavVMYO5cemBHONCixkaLYL/U4T/WYlpOGTMuRq/SLLuDJoQ4M yWQ+o6LbRoakSlu1ckMHImpup3vG5k0e+FaIgEoriGOxwhHld8Gmkt4Fy4ZG F9zOIT+yg+mI/otaOuJpjNgpVbegOSvf6c370UQZ9aB4shpuNNKiOr8RauW6 w6CBBKt1zXaESPHO9oKhWCMR2Ul6GXhcPRPxLoc0z46lVfqv+xtcbSraqeDg EsjVWl0QoHQv7qZ+uR0M2my81bBL92fQFiLuPvOGkamJyYZYyAgihWIhY6mQ qSUiP2lNzYSEOWTcdibPtQ1GlpEvm5Pxzu60F8nHwqCsDODMfFt+oSwM4KjN tWGLzkrWd5FrJ9V6/EyZT+sLREIwF5zLPwSzoX8eydBtz0RuQwyWjhhbkAZX stUN7G/jjvIpVhSOhRe3Ny2lVrWwtNxeaWGBB+fauENp1peLG4xLB/OFjEtX IDa5TwbgEvG8DJCld4p7Z9PJ0wKkJhv05L/mVRu01A10lQsxG1QYvOKYB4W3 DcxZ1RjTcnljxpjhld7qeJfpFeMxVpUBAA3lVsbOhheNk/DJRKQzA4LrvHNB hzcKSIsVmwzQkxabUw3QUjfQVY6/3dlC6g0SWL1tYNPywScDvTeU5JKOb63Y XbbXk8foYwZsu6AaZOxsGNbSYtF2HFsEk84ofNIOEmn3b/DH7w0rIen4rZEZ 2ktpLhKdoWXj6qYnySr96U3TLUamY9l29U1Pee4dEp1AI5WKUrYXlNowwI0u gb6aTDplBbX01T6FMehIvLW9Fd5C2wh1k4HlGO+mxHeoq91kY1cm0yHZ5czs ykKsrxKZocZ3tyd1lIFoJ6Pjfn0BGQHv4lCClsgnSQI6xl5BVXQxiOg27TRQ CeOGyJpNNn7JC+NkZiVNUhqdNM64+UmD7QYlZKfptqbHOVeWmya9dD3eEFeS jJ1+Y93czoMZEkKfaQW5nB8tzOKsBNYMm3s4smaCzKwUf95N+3gsxSiPxX8L hERJOjAjRGoWicSMheWuwYmsEha/+fBFMjIznOkmHaVwZOSy6FwgCN6ohiOq 45LyDiUM0jgEZiQTFKTO6Avw6cGkM80iogYuzInMbAbbqn+7uQ5i4udC5Oi4 cCVTJA7B80VgYwHFrh2SVp1zSDOi/jbstN2cAJ0wE2kPHReq5FXE8V6FQKMv EHLW9txJ51TGTC9vdxBnu9BnszhN0Lpu60jQUD8HhIhz+gKSG5oHMw1VUkwz sT53KX2UlYg6aBwy7MinMnTYCyohoCWT0i+hMRXiah8n2o3H6nTRhjbrFuXA wtnsFxpJdZaXk4E7LQeMYRTSTvvLj3kkOdkO3uZgRFezc0sHNBqrxr1WADEa 9xoKxzXXmE3pl8aYArt0SKTsBriZAd7V8UMhyvGUCl3QnJUM0D4xWdWxR9vD 3ZRK2zm+acHoeC34m+J1LaXyak/oszGd0yF9wb5EeLJ7aGAGINTgjX2YmnmV qck89YAol3ANG9mTKknal08rzr0nLM1CZDzoHWk1b5xPaUA6ZTKlOZtnjmlS CzaGHYkWbPSF/+zgZBZwUMQtzsCmMXJJQbPMyaimRJTecA3rRSRXk3rKNjBH twTFUhnDtwgHVWdCXUQLgtT7h+bV6DkbSZGHnunJkkEP2IXhd7krY21vKZcR hdIDg0HqnSlDYs/Gi+NiT8/P2xo8tphT6TnTz00HUu2XqMg/Cy1LzDZTU8N6 yqMqxsaRHvPLcvphBARxBQI+jMgdOCbjQ4YcWuKDhxxuDPGKP+lI0SaqjZYL 2MeQfAYCVjRI6QHxqBiJ6bvPvtJNpruoQbZ99qSWlC2lovtLObCjsrKVpNSy MqiKW6f3o/wnfe+bWVK89xNJV5n4T/Guz8TKMoThTv1vJ5ckkVXcqCcW2en2 WpMyG9CclbIaTOJ/+TO3ZDRkZ4fpepzHDE6sEgVLcqyhMHV99nBxe1+Gnd/i Q83pJhEmyMwE6gb7ApI4Koou2AsqKuDxBoTJZNqOnSDjTerpIZ0mI6WoG9g+ aEHIEPIRO8uxafu2IP77/dvZMb40no5yaTKyhJhkcawAX2VSjMgkRlIIySR2 lsOD9j0wnDeFt3NbPNg3XSHBZCL5dEgWNt5MyBnaaTF2VooHaabz9JX0xBwH EaR3UQ4584lba9v5GL50kU6zN1IRUiwy4DQkHeYfoiHpCsTChOSU6sQ9o/04 Bt6ciG4zElLQMGKhAYYtgLzzrp2hoh45D8lcV0CxvqT0Xfs2zf7wvA+VoNs4 vi97ISZkPI2GcvuEbHzLeMi5xs4qsYYpg9S+y/Pu+JTeAER3HjD2Bbvji//E ZcL6/JiQ/Px6E2rzo+z3CFQbQAwKJEUOeGHaiizyJI76n/C3gVjbyuRW0GpA lbVvqd6C2iL9PlNZl83Khb4dm6xSS1eRjkCtXVsYZ6IZhrmVuuyfiADflBxH h/7bqEyz+mOw2gSpVYXQtzcTpc7BQKEJqwsMl63WYBnPN4NxqG40+NYBXPd2 WFtbnLWFmpMwFuRErNZxNILEY4Ac/rjSoDpUxvEEgsh2uVKByvIycvTLsL7Z kva6w3nappwnLDjzgE/H+XJXtK9PKlMRakvTMDIyohqGEnMEO8ynrct84h2s C5BCIozFtVsa7pOjKg1e8rCxhJ9tCuoAYd3coWdtC3qWoqjFaCQKjY21QDvT 2cE8+SW3AOYZnibQefM66bjxpVoQDk92OHNbmDNHRn/ttEa86ACFxuzPDuy8 hWFnufJRZK51szrDdHoCDYmKBHe4h1uQe4iD7/gEMOCzexbw8D872H/QDew/ zPhVzQv7zTpM48nr9BxMIDMaW6yJMm8q3qYMBoxxwA4jolOMCGUVSTOz62O6 Wl+eQj8PwkoLYJN8H8dDwpuR5aogBHTZTTNM7jBHVDVqF3OEqGpJqiWKDBtr JMYLxhahhY81Vohyjc6tBtuPzRtZlQXTCLHDimHK1mZWDNGvPtXt4anN4ph0 Hov1FqzNHSRl2gPO65xuzsHp7pBxgh6ScQiscpww18yq0CfF7uDUdkg59NMl Uo7c77KoWqfNN+yQapJINUmvE3+L+MZOvVNY25ejtZ4Vp24hB4p4ETgKeZLX n6MyX7EUOZONrihcgPpGDdbXa0h88BZ2uLm5gQ6tQ61Wx4b5cXYlHeTFbnaS /oKD/HCrARvkguTwjZYL8qY1VmfZ8WGYW23wpq3NS7im2oDrAWJIR6RJkQvx JrVqi2IBZbq6eZPmQr/PjmEDqNc3oL7ZEKu49KojsNIEggrhY61mA5Wro3JN NrDieGwV3YZypt5PjiXi6WXWO7gva2vrgFcVW3XUeUhwg6JJcvLInndQqVbf qEOz1YRN3Jq6vtVF3urGJmn1ZrMljuEnpnjQZvDBzrT6Hcy7NGtLwrfjz/D4 AppQUVKB2uIGiKdYE3dW4Y0GPgsrs6PCew+Pz/GVoIBDYtBcicjDDi/3i8ei EerUUhVmUM9MLdcDrkqRedEJqjz4HdXWIjc+MgVrtMHkj/qUoqXQgMWJkdBT js+v8CpBTik3E5JV25/oVH5ZdKs5POKMzQO6KjQ3qnRlhe0OohfYEDIMpGKb dahMDUMwvoi+b0KjRZ+jVl2Cyso6+t2CRm2Zshzm1iRcogjsYu4Ewpgtb/XG Mmv1yAzUmq2ByIMqk4sgJKMSNNfmSM2pxTUaiTRrMIMR8ZkV7YPlRYdswNzE FCxU0QMg619bohjdAnJkqhy5fA607QFOVbqHiGC1IeKqpXHScq12cb+0OjOC wugVZoTMrsixqtFeePdHkMgBdpGVmYMQjE6QlfLRKQyTHMTV+tlpQ5B/fFgS qBiMj8+DNI4WLJGQv6qVRIm3s7XCXbm159va9rdHTHwG3YgLQelgoxBWFCGI aKtZh/UaX8CuczXUmYPwX2a6nfBCK9MTsEw7lXkAe/zNxMKHNmhtwOLMFIwe HAk4HDa9LJfZlafjoApuVW1tBRamx2h3boJWMh/s4FPYBLSSUkCNFWakwyOE kYDrLNWaZgGVdXAF+30Q326A6zUKnDapW6RESnPwzQeExVqLt5/S6bkl4Zqb pI/xTabn5mGpUoVaA7gI1MctMuOA1ppciZxZlYh1VFrdeqS3CvVbJV5udq0p 5Lc2i/p/ZjUiv4Ow2tJ7Oc6jaKzOUL1aXYVqdRXqSiykRmufVbszT9SKqNBa SzShMjWKQ0ptE7hj2qhgdzEKay1V/WV4Nc1kt8oDWxIaNGFtcYaQUHFT+S1o 01H8NDMPq/VWwEnKrfoaVKrI1CaG8ePmQ5qKLrdJI7yNDRLO81r11QrMz07w UDr0vNQc5w7i9kzAEpo6LMzQEGJamFAh2h5+343lBZhfXifWWFua4I/Pa0Fj HRbnZ0lvIndNnmwfvTn5fuDY+/4u/B+ZuJGj59CjchL4veiBvaLCdPSUZeOm k/CsmNQ6WcyPsQkF/Bubeb9VzLJPxrPs/Da9LDk2hGfdbC8O9I2R8/jMXWV4 SqqdZILK1QaFzmfaEq89DSYrB/thfO+74JrTT4fr954JE+eei7wjfw7MUA+f LIsnw3MbzDTADOVV3Db+oIZckX65pqRPOemXi1X6zJV+Sc4ha2bR/BcKY4kC mhSafskyIktD0UQcJbukU13eB5P7zyS4Cx908PL4+P5zS7LXi7rzASnQx7t+ WK62lWTXGzNNyrL3jWkrZSkAYw5MWcrAmFBTlmIwZueUpSSMe5+XOy2MPF+P 3L+XxE8X7TlbABcTZ++DW/edDXfQxTS2COxcnuEBbCmvKZbD2fJpni/3RZb3 eLpLUgqMXELMO6bZSPBVrDIraTtlBUZwSwPKK6vW8bQiKV5OF1RTkjouWGTH k/vPgr865SQYPu4EuOS00+B8Ki/G0zoLLjlOoZeWT4Tr9+3nvwLcwoS6uqrc sRDMbJShIUzsQhVa7FhFpVIn5cj06XJkpEWnTNNhhm7LECpGM4QY/kDvmipD iVV1yY8aEvlRvAXu+3LL9CxW10nVOHa9SfNtyK9+q/qVOXvlP38IR37zbxiU poyeqEoOwUVl3JDj4JJTT4X3lVmXMkLvbWecTM5hXSIqNkjhEdoRu3zrCQba HPWmTA2F8+EaGnI+KOBIkSmjcitTZOyozM4UmUNyONqdJoNJpQynyKJSBzHr Nth9umwusxcs88zcV5aJKVMVJtxGgvD+upBUSo7ldNu8AsyOClOA2aqi1WWe u4MZbUFkLZs9P8u0jcBlfIyQfjOPk3sECbFPQ5l5Fr7w2fND97jykMzTKekt B3/GzuG0931kvsYd8o2n4vMn4+CU/j6lDMHJ7xKW41mPM/gJJCdG6MjYvc6O NSLmkyIjSI3LvBKSqB/1zIVShylFUjwPSyQBh3OweOu0uV+61C8SEvCeXGnI NFmWdSaiApWrnDPbQ4lp+uGfvw7fxkHNM98n4dGf3Fuhml5IKiUnF2VmkDXG 7ltDw8b6Av2+rgad4sW8RytQf/IoVDDL8S//EX2vQEONYMtM2RfOp1eZRlOS DeRjps8nuW7liBWUSJbkZz47BpPPo4nNb5+FuX/9JKk4+e/LdDzRWcAJMC4S P/bDZWWsyXQMuGPf6XAGdk4nnwpXvP0kcqmLztgnLMCzHqMzMFUfDgSLI8/x 6YBN++hfqfzeWUYhXr5/tpM6dqTIuhI9jfHfSWkMLPGLhcLFaNJXxCi0SWe6 nLOcahQ1mTfO092EUTTcjKJPRP4VnrokvPD40ddZZ9ENHqiBuNboixkLXn4b npFxFnaks6uKsQzwnJ6b3wvDNxwiv+Rsu5+5lTlmIdXbAmXbhQE+OPzuEXJ2 7PkfmswAi+CMk98BN+87C655+4mk+Mg7z2SROZtXl1G5IXqja/btF2bgWU8M BHjxH3MxWA5UsMQ5Giy8Go1YQjldng9V4xS5RtIKdvmmO+XU2bw126oYzbYK WYEh04tzxJVELzVi8tjRPdEMsO9/jfiM8+76Phx+hWaPX4xCtEd+rsZMLqXL MfWfJaC0tNhpOozF1X9Fq/4DTP2XRugTrU6oa1VlsVnLMjz6yiNoMnY5GWu/ +h8/MZnBxJnvhPPZTOCUoeOIF8fHr0exzsSeUwDHNbcyj38VJtadIuMhz3rq JI6I/6CcxIViJPyX0/6aijl4J9oo5DPvLJ+cagyeKUaKMbgkOBXUBCd1HpEi w0pahf/29A5hE6Wi4+H1dfgkHVY1YZOuVDxsIqZQlaZA0ThnU+DsbjJXG6bL tuWIKRTQSPCYXKC8b75fYwVkNRS1Z2Lv2wAHRzeeQ0P8ywYxh3QvM3ZrGeY+ 8G1KNPVvnukw1+OKmCLjItrkmrzQ1hJzLYY0HRm2i6cMJ/xI/SuxLDtD6pB0 vSVGODYkI5GzvCCYcpssCkRnmAX4/EfxXP0wfPL9ZEIidcdQIK42cyNKANGi Wj3jHkDwEBsnmvIwjafsV9UQm8cSh38wRvzE3O/0TpSrD1kzGZIjG1aT68/e H1IfQxlFffIyVyiQ7FfCn5cLUGWxF1Qs6SWmQ4YMGqlD/ZpEnLgCGfJ54gpk yBDSK1A04chBgY6sPCXS66/77mtxBYoUiCsQn6LhfcBqS2zqFp+uFaD1vQWo PHgIFq4+EyvSQEyHcHg/epAklkDtGjYi367oUIltl3H4R/fA5350BGdfwKP/ ei3XJ506lQURdz/cimLM8bP2we102hUUpL7pC0SAwgHmaJTUFQ10yLMGlUQY JQ8rnkKTU5ysNgMnp0brEE3gsci4n80qHrj3Sia+NWV00Z2V0uWLUzMjUvem K7HFqQI0H7tf8u5vjkm1COtXqdZC0gyVGKvEYqwjP7olVOqiB78RREYXPULM H4NsmYIc+rdf/bXmIdWz/YqoaH9u1JAr34wuKnPH11yqwCbNHNLMnPBSG15T 2AjNnPjic+W3z8Lh1xfh8G+Wo4vPnQW8A/HyiUDsRqODuZV3wFlgbgmH7zQY xCiC/0qgvV88QgSA7xdPhE5HwHc/7F3HCegXPdIF7D0R/+8cOC/wuUCOcegY gdhLvNcV7L1P9npRh7sH3sC7gR5QlgLoIvDuQgTQp5iQUyGwG9ddUVYRJQAu VDrnXp4B7N2Ay02gf14F/QOZyNRdCN0O51uEg3UX92kcrRZiUMDqnPQ77gh3 TrUODboddBreTscDEPn6WxzjHohi3KnBfI1DRecKwlEy52lzrSfjZ9c4VL5u pEOiCyoSjf/yvTPdSudZD6ZArMVqTUbIOgWmLx35NoasM6L17de3ZNy2oOK2 IW/mXoVrXAqQV4GMPFFeDG5549+Sp7mVkV5XBLugItgdVCAz7Jnng5oEQV0L c6VJAY4qGpARHfWGj1UF2vroaHoEuNP+yAgf5lX4UDojx/L0+iUbziiDk3YD jbvTALHqBGZ7YI1ZANVORVRsSJJoXI4pggWMk+sFMRDPXo8q0KAPehe0Cb7b nQbklCq2PRG8LKBlhxSuxJc59PgYA0qsZRhQ0i74rMR2WzOgenL21isYLRHf 66iodFhUnmJR6rFE4Eou+ZTaCVxx6RlAtbj0uo1h2ZG1DolOtzDd74QDlZU9 lBRgSa5GdRQMsqFQGjAwTpXvF91nJNJHutSVoh/pZj0O4spL7hPN9GIysx7s EU2bbzblRNN26yk7d7UU6SUHpit7tN4Qd0sOxN2Yob6BtwIO2A6DDEHS4UaB wIhsuJHEl2I9rqNFyh42kiYVd9wDpmfZxPTsXT/a+HWliPuxsPBCw1xX6YPc g8fog9G5gT7xtiy6Og4MlkXnY9cTBgV9MMEYTBlKB+40HJgISRp0IkY0K0fU Qc9EC/msrrDmOIE0xpqLr7cb8n9LUgn0OGVJakJRh1EG3iClAUotS83oIkjp ApoaPbBKJot74BjVTBn1O8+M42OYjRkX0RJzknFBRU2FxphR1lh5hsp2A2Nl 0xeP1OpOYaz+eK+GqWulnEmlc+GmhfSvC8Q6roI2Yp3GUfm/FJD7LzOSbHqZ YECaaYGQRXTUfgzZC2bPS++4rQDkDEi5wRj0ZL1yxBIslD7mPDtLPywl0Q+j ij+U6m2EMg3cq54EyL0BbrEYmgnhTsD/8+ZM9G0LbWdE9Y2rJirHM75qEmOA hrS//bzUsjLmhXipcX1P85pEru+e9Xj8qoHXgw7i6ylyxbciyN6GNPFOoV5Y BP7vMORa5FmPe80UeLuiUekBdzOvwJB7vT2A9kxkgk4plneyLvsV+GLv0qSG 0uDuovNTAu/JdARDNvO2AdwzsAo657U8U1/ZpJr2hGc9jtV7wO1B+/B2Ay3B MUd4m0LuGVgGHYOAtSh7TqzlGGB4+ZpRniDfThged4lThm13YXhnfoCFRF+2 vMmsICVietWZ0uHtRM5ZxJCck9pV7NwZ0bf094DmvV4sBU/3wq9ARZUSoXIJ NnUQFrfj8Rq/gE4VhL0zH2DzECeLAM+aALg1L5sTImPg4BH8gsuAba4bkZK6 pa4NEpTQ4U6DBVSoSwOUGa1xOLAsniy+K7AzEpi4MXCnkcBENLJTHW5M/pN7 0xiAt5LseP3GwN6om8sewV1D3VxQwA4JxTUZMCdE5Apt5YTMzHsGtxPa8k+D 7CbcZYfeOmVx3mmD9Bf+1w8qCgKZ8+e5bXB2lCjbzsH92w0sckXFClFUzEnL ePyajYOo1cahNJmGCu7jVU/iPt64jVTHlMBNpi2EtzFwkxGz0hAu3dibRaHH XnxPNiPrEZm15ENmjYdSjimUsgPcICHZilRwkLhXN/cO3hawUAq4S28UCYzd krAFF2qvYgI9YiqXHJjKOijMOxdUDCSe9fhAkgLKCtJhWan3Ed52kFYK2E5v FDrOdb+wBCMjm12sRzTyfhOrMa7vKVJVhb571uP6ngJhk96/ixsGby+cLR2Y qNmLLc6HLwt9N7LllQi/RzR/rvMxkndc5z0TZxnZk4rWsx7X+RTYn4QVMoB/ WTYI3obIX0awU0NSj+cGyDjImDmgWEP3shxcDaDERhUDCKns5G0sw+ZQ7cco E9OYu4tNOoOmxljakDkQj6UTN9/lwUSnMyJcYweuRgZoNaRGhjIhNWon8uq2 G3AXQVdnKNioSAb+f1yREnfgLXc/y6FkyXJwQPtK7tiybX/fTsHKiXi2Qah6 Yns5ItGk3Xd5bmVHqfpcgDqqfhJsrWMzx2dQ+j14hfm1nYHN3VyMgd0tFJ4z knaJue6QqBFKxxWwtdR2mcorIW9uAZ0DtXXosEwZQbeInJR7eaNzEdw5BDsn p7Amwc6Ju+om7subAJ5bkPfOgdoGCFgmrKF2a84H8kVvqIAGZw4DzU5pog5A s0vaqssevS4AeiIQ3zFQOw7eSnHkTGcZWG2HhRMyKIWXdIWF/aFx/8xSf2ic xXDO8Lt9j10rSFqIgqTcZjQ1AkMVakXlJBSXFtsVA3Gd4NRd8STDtABu9i15 M7zsNgtWnhKht2nHUBrAUgGFverxITAdspopHy8zsppxm92Mm/xmhLRTIem6 0eFHL/HRIbadvW6cOBlfIc6K8QD9gtActmSrJpKzlXrks6IsxE1Jt5S0OJch Qc4LmUyd/CebmWI730xQrz+83Cllwp3jDZwJ/+VZLwPAlyFBLhWylzr/T1bP uN1vegjVF7HtnG55QlQsOqK65VmPi1uDpCXrVoYEuTQgWsbNdzNu/ZsKrEwL jXZOtzyRn5BuedbLM4EbUKqEcTB7alx6nCpTRmC2d3emhwQzgZEdUjh1czkF 7pFaVbIU4GxASIaVfDLoJh3hJWcEzTlvMBFBw8/vgMV1SFgCFJV4ilg+KevP xURkRmt8Mu4mHYEbZ3TKMdPQDZtigUEy1NUhOfH91xQ0hDNA4if4Mj+Y0RWX nL9JG8SSiADJZX/bzr4pfZErd51DTDHueu+W/13ZwEXRAV78YcWctgI5mmqh nhydhOwkEEZLkQ5y2AOXvxW1J0TZEiQTZZO6REcGKIt+MFIFQhbdHW4kf1ob NzJmhBwS2IW/5YVhctPTmGMALuZo7McVaz+mecF9Jzh3vC9tnLs4PKgD6SSY jSHA8Em5dWEcOgwnnUJC2moCfmjPmu00dNhWXbC/4b1NjLOQ+A2MszhYaYAI JUElikXS87QAn8Pq0MxwxqtD5qwLoOmSyds1QLOtbtf5be4ZCWXC4VoIZTH0 1A3FzAmdyfnUYChrQnotpMdgWVDukTq8FTFYQ9wTY2f1R+Kddrz9vX3cM65+ Nu5ZHJ7xBFZl2FGyVdPWE+OLEWy2JfH65A6nhJ0HYrBzuiTp7Yo5G+0gQnKL 24Fxw9py1xh7fJ6jY+zFF2RTAMTsbbGDXnV4tkOKLGEh0Ww5yhl3tk2bl719 IXRj7KESI+Oxh37j2n5luG4vmZMvrMTInFLZfSBq6djdy+fYQJCM0xuSev2T iNPj9CmzpLcJWJ9mCc9h5TMZly5EcemCfxXuJFOkxAqdrXUNpvdFrLcrPN8h leJ9bwWkC1FAmmuVpoapSp4N1x7YfBDPO/XOdfUF6NOC1dsRmO+oSrlgz3kV e2ZK1Weqo6vClcoDlA/CeZzpE0gzYvNZ98zdjvB8h3RNpCjq8WxlexxjGTa/ Ss7LhLbi8PgeTnmnXcfhOywqA64dEpWhDANzE9Ieoa1gPAsqXLbU7QUcb2GZ 97PRWIGtI6ltsXNslmXNNoQMSLq60W5bUHPL43cRQsM3FQk8wM3CZioniwRS ezrflrws717mFHaJ4GlIoQToOjpOCdB1dIcabADj5PoBhgHDJ+U+THGIMJTj l7w5bRJOmD7HLztO2KkON8Jdkq4QBd7oeeqf87oCDJkLZfc5bUfrAM61Jbuv XeBch4Siw5GkOHKmswy/8s/0y4J4dT6DrxsoWKesy3FD1DyBUoJQ7FKyVWOT sUG1Hvn4oEyStZ6QCNkuoCm+SW0PUv56iDfp1sohSvcrC80zkgGN2minGWo1 dCgN5KFkOXrV49VSJhpm2kA2KzLUizzD3iJDup04QEOOlBprY08qk4+tRg3l tCYjNTQeNHngKjk1kNLUCYyVfBAm6cyz7RzrDzL1IGWy+1iTDuwHCzu2JGzC hUar2EbvWMGlJFawzgosiFBBRYRUG9DUCAxVkhG1pEzPbFvH+sNk3c3v7C1a ZjQKA4k6bhSJO9HyF922nyLe50MRNwByJtgqr8JWEo2LFw905bn2mdE7WwZq G3aP9Ubxupp32lsoz6jzBrJ7XOcTd6LlOt85Oj9/rV0inT8+W0gBqonZgme9 PNNJK+BoyI/NuH1sln1re5Qd20PM0W4T8QwAg03YNqe120TGtAYe+RjTGuIo GYnUDAgiR8lsZfKszKRToq/LjrTggny2K7u3/YinOZbQ5wdoYomknWntsUSb 8h7KlrwHgxoZAM6QGhnKhNQoMRk5cTNaSEZl25x+3H5A1qhIBqZ/XJESt6Pl EGoX8xm4WunyGSJqRVtXjAK8rM1C7/QF8rL5plzqhI1uwQw9u6VWe6DOxhWq CK09vkJl3KmWy7YrHP1+E0e/dziujigdX5LW74nLHWz7yd28o2Lk7u0Oz4Ng PwBnP0img07Attx9KeAOwvMakFzqR3yjXplIFYfu/fboTcTvO7hHbyJ+30F4 Xg+Ky2HLsEdvSXa8Hr/33qDXBcLv2ga9LhA+Ewp2UPBVfOAtomN1sLbsUt1W u7I/dQB8tq127QB851M6uwHKW4ThBSLnCYgchMJKx/11B9Wq5JMMsbdxc90M KPt221c3K8huU5YEILeoA3JZNqJhf119FdqlGEnyTgcUKzIZd9bN+MbUbbiz bkbEW683Akc1gpsFdTlPHVk9qoi7OEK8GfbFdYR4B1SIl322/n64GcHdWCR2 Iv6Gscq0kVgyGlhQgRFVfTyqiLsY0dGO7ISbCh+V1bfNTrgZkdKYVp2Av5Uy aBV3k1bEzahY5r1wjYplhh/bvw1uFhByO+2BmxGLjGnV8dLfYGkC794gl1nT XFAtwzCYsD2uYSQcSpN8F4jGpt0ZNwvyty23xc0I/MV0MEcOlGF9fkxY9/x6 E2rzo+z3CJI9FMMVMi918NV3DYQlNLHPXoajIW3eZtcBfWtXWl/7ATiDeNHD txpQZSJeqregtki/z1TWAynbfNtlG4GWtLLVlAnJtn378yZBYm3MAuwEKhaT bgFoh64tjLMawzC3Ui+GC2QWKH/hn4LzCEGW9ec4FpdlG18b9OS7g28izGTs 243KNOvbMVhtQkEUKIq+7Rx1n0xo/4k+psmyoQmrC2ymUK3BMg5qgnGobtAR G7gtscYe06ztxP4qI883Lp57fr0OlXF+sYNo/i9BZDgW+byW/umXwSiaRW6s wXKlApXlZahUlmF9s6UMDtuSz2l59HI0Dq8tTaOZ0Ihw2DggUv4cMwS/xLCP GE2J9cIO1iedgzJE5GFjCbuUKaiTX1oF2TZst4RYkShEmXXcDhBJPgYgUmpM XzhmIDqyTiLV8aWazq9uN25bjsVKkThUThV16xs7sGvHYNeBsMJJJUQy2qzO MDlMQA0gF9O+bU6Io7pYjMbtOKSRcD/Tyh0k+dhEkiOzOEX/sT3USYx2cHoO JlBfjy3WFJXYnoxB8nDaaSD3vkoEu4OOv6nQcWkL+XAIi/6tL08Bmfe2ADbJ 93E8JrCRItjSDFAevWvm84KdyILy0LxtB+Y/FmD+XESXkddtrMEEvu/YIrTw scYKcSOjc6tC9lkWQeVSaiR+z6mqVduhAByjFACqAOpgTTWPDr2LY3IMX0Rz 5rW5gzxIWay1+KnswK6cLNKAJhrOq7q4wxo41lgDhNd0QlvcmeK1Smx4jMXF Mg7YIQW8WUgBZHJwYltUzLTog32mIfLcwf2z4/5y09U+2eMlW3y0A8m3BZKX HV9UVd0QHvTRZh976LnsBjWb7l3CpfyDKMROfS9a9llR9hZyQI9HnkgLf5+N UqgPob5Rg/X1Gmw2YZAfbjVgY30dajVy+EZ2QYbwCaHMrzf5Bb9iueeZ7KqN 1VlWdRjmVhv8Zq3aohilpqubNwHE8CF2k5Pa1uoz2U1ok0ZgpQkk1ZDCDE02 C9kMPkiOJSJ+ZXYr3LDa2jrgZaNWHbUEPf2guKyc/USeJ33HnMb8lNo+fqWp +Sr2WcyklGdtAINUcCL7muJpDuJnoQMQ+bfBYDfeD3aUq190Ao2JppaqpP7U cj3gjxQJvE9Q+yEsDQ76NDc3kZHXsUAVIMhbQgOs6trCPKw2gPzSSeY08aA1 4vgnltah0ajDyiJt+Oj8mrZDC+zhW80mNJsNqNdWSP3R+VWBeKodeoB1SAT8 4f20scz6aWQGas3WQKRr1WVY1ofiYVrr5JT00xiJHsWNFH/Uhktp12AqVC8P U4trvIp4aF+t4O1amZmA5VDHx7ThVOUWVLwNMRBTpUfhTsvyCM1VvrrMQulS lISglUEE9KCd3YdafBBNSyZIDD86NcHto5+dNgRjx6viKJH7LYzRa6/UG7BZ W0ZtJCqp1aO8qFeH5cUlWN3YhFarCWtLU6SNC8h56QzUoE/94nJNWF1agIXF RZgePQhTc+j7/AKsbDRjdqsq16maW4nYaHMZzdGG8aMYRFISohyZXUGPsUHS 0sbmlok1W/2MhZ8lNGpaapR4Tku8xiSzi8kPGlWiLciiye2m0aNUNkEnlJJo aZ1cHTljqxAiCiWFgExjtQorqyswNz4Ks8hBrlSrZIxM0Kq3W+TQqi1wLxeT A3dLzbU50poaetA5Zlo6t8S9aQLfi3vTBhqEN6lFUj6Q28IO+8NGXPZfkT0v qlFDdoLGcXRli6/tg0a9hkdYcq1WbYnUnVtrZtWrqqdeUdnsAj4qzaxyl9OE pYlhNB2YQdMBVTYHYbVFyeHoWZZQXx2cqxBeGGqqlIoc4+5UNbcIa4sLsLrZ gCUiFIVBY+inlRka/AyPDFOpjM7iOuZ+cpZ/bXkJmINNI/+3st7dXJ0nRUfG pmB2ZkpAhAtrfADAMRIdK8Zn0ABeb3GiKbdiMtysNPLi8Doszs+S8AlZK+vA QdHETco4I4vcdKAfmamG+5AISRjQKu7DMXRrZL/V1RoJrHSiIg+2T5VXH1Sw EqCBZGZmRsz/Fmotw5Pl1TuOL0K9gQKgjQ2ob3LPH3s89abk+4HOfQ9+7/8D 5Nk3qg==\ \>"], ImageRangeCache->{{{0, 331.25}, {359, 0}} -> {-0.0500105, -0.054644, \ 0.00792462, 0.00792462}, {{7.875, 158.125}, {350.375, 187.625}} -> {-1.56028, \ -0.652703, 0.0611489, 0.0611489}, {{173.125, 323.375}, {350.375, 187.625}} -> \ {-12.1139, -0.910602, 0.0786198, 0.0786198}, {{7.875, 158.125}, {171.375, \ 8.625}} -> {-1.48067, -8.03074, 0.0524198, 0.0524198}, {{173.125, 323.375}, \ {171.375, 8.625}} -> {-12.1139, -12.169, 0.0786198, 0.0786198}}] }, Open ]], Cell["\<\ Here is a visualization of why the following groups are or are not cyclic.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CyclicQ", "[", RowBox[{"someGroups", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input"], Cell[BoxData["\<\"KEY for D[4]: label used \[Rule] element:{g1 \[Rule] 1, g2 \ \[Rule] Rot, g3 \[Rule] Rot^2, g4 \[Rule] Rot^3, g5 \[Rule] Ref, g6 \[Rule] \ Rot**Ref, g7 \[Rule] Rot^2**Ref, g8 \[Rule] Rot^3**Ref}\"\>"], "Print"], Cell[BoxData["\<\"KEY for S[3]: label used \[Rule] element:{g1 \[Rule] {1, 2, \ 3}, g2 \[Rule] {1, 3, 2}, g3 \[Rule] {2, 1, 3}, g4 \[Rule] {2, 3, 1}, g5 \ \[Rule] {3, 1, 2}, g6 \[Rule] {3, 2, 1}}\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.41667 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.47619 0.0337302 0.47619 [ [ 0 0 0 0 ] [ 1 1.41667 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.41667 L 0 1.41667 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.0337302 0.477324 0.676209 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.159864 0.136054 0.304422 0.136054 [ [ 0 0 0 0 ] [ 1 1.35714 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.35714 L 0 1.35714 L closepath clip newpath 1 0 0 r .15986 .98469 m .15986 1.12075 L .29592 1.12075 L .29592 .98469 L F .15986 .84864 m .15986 .98469 L .29592 .98469 L .29592 .84864 L F 1 1 0 r .29592 .84864 m .29592 .98469 L .43197 .98469 L .43197 .84864 L F 1 0 0 r .15986 .71259 m .15986 .84864 L .29592 .84864 L .29592 .71259 L F 1 1 0 r .43197 .71259 m .43197 .84864 L .56803 .84864 L .56803 .71259 L F 1 0 0 r .15986 .57653 m .15986 .71259 L .29592 .71259 L .29592 .57653 L F 1 1 0 r .56803 .57653 m .56803 .71259 L .70408 .71259 L .70408 .57653 L F 0 1 0 r .70408 .57653 m .70408 .71259 L .84014 .71259 L .84014 .57653 L F 1 0 0 r .15986 .44048 m .15986 .57653 L .29592 .57653 L .29592 .44048 L F 1 1 0 r .70408 .44048 m .70408 .57653 L .84014 .57653 L .84014 .44048 L F 0 1 0 r .56803 .44048 m .56803 .57653 L .70408 .57653 L .70408 .44048 L F 1 0 0 r .15986 .30442 m .15986 .44048 L .29592 .44048 L .29592 .30442 L F 1 1 0 r .84014 .30442 m .84014 .44048 L .97619 .44048 L .97619 .30442 L F 1 0 0 r .15986 .03231 m .15986 .16837 L .29592 .16837 L .29592 .03231 L F 1 1 0 r .29592 .03231 m .29592 .16837 L .43197 .16837 L .43197 .03231 L F 0 1 0 r .43197 .03231 m .43197 .16837 L .56803 .16837 L .56803 .03231 L F 0 1 1 r .56803 .03231 m .56803 .16837 L .70408 .16837 L .70408 .03231 L F 0 0 1 r .70408 .03231 m .70408 .16837 L .84014 .16837 L .84014 .03231 L F 1 0 1 r .84014 .03231 m .84014 .16837 L .97619 .16837 L .97619 .03231 L F 0 g [(1)] .22789 .22279 0 0 Mshowa [(2)] .36395 .22279 0 0 Mshowa [(3)] .5 .22279 0 0 Mshowa [(4)] .63605 .22279 0 0 Mshowa [(5)] .77211 .22279 0 0 Mshowa [(6)] .90816 .22279 0 0 Mshowa [(n)] .09184 .22279 0 0 Mshowa [(g^n)] .09184 .10034 0 0 Mshowa 1 Mabswid [ ] 0 setdash .02381 .30442 m .02381 1.2568 L s .02381 .30442 m .97619 .30442 L s .02381 .44048 m .97619 .44048 L s .02381 .57653 m .97619 .57653 L s .02381 .71259 m .97619 .71259 L s .02381 .84864 m .97619 .84864 L s .02381 .98469 m .97619 .98469 L s .02381 1.12075 m .97619 1.12075 L s .02381 1.2568 m .97619 1.2568 L s .15986 .30442 m .15986 1.2568 L s .29592 .30442 m .29592 1.2568 L s .43197 .30442 m .43197 1.2568 L s .56803 .30442 m .56803 1.2568 L s .70408 .30442 m .70408 1.2568 L s .84014 .30442 m .84014 1.2568 L s .97619 .30442 m .97619 1.2568 L s .02381 1.2568 m .15986 1.12075 L s 2.6 Mabswid .15986 .30442 m .15986 1.2568 L s .02381 1.12075 m .97619 1.12075 L s [(g1)] .22789 1.05272 0 0 Mshowa [(g2)] .36395 1.05272 0 0 Mshowa [(g3)] .5 1.05272 0 0 Mshowa [(g4)] .63605 1.05272 0 0 Mshowa [(g5)] .77211 1.05272 0 0 Mshowa [(g6)] .90816 1.05272 0 0 Mshowa [(g2)] .22789 .91667 0 0 Mshowa [(g1)] .36395 .91667 0 0 Mshowa [(g5)] .5 .91667 0 0 Mshowa [(g6)] .63605 .91667 0 0 Mshowa [(g3)] .77211 .91667 0 0 Mshowa [(g4)] .90816 .91667 0 0 Mshowa [(g3)] .22789 .78061 0 0 Mshowa [(g4)] .36395 .78061 0 0 Mshowa [(g1)] .5 .78061 0 0 Mshowa [(g2)] .63605 .78061 0 0 Mshowa [(g6)] .77211 .78061 0 0 Mshowa [(g5)] .90816 .78061 0 0 Mshowa [(g4)] .22789 .64456 0 0 Mshowa [(g3)] .36395 .64456 0 0 Mshowa [(g6)] .5 .64456 0 0 Mshowa [(g5)] .63605 .64456 0 0 Mshowa [(g1)] .77211 .64456 0 0 Mshowa [(g2)] .90816 .64456 0 0 Mshowa [(g5)] .22789 .5085 0 0 Mshowa [(g6)] .36395 .5085 0 0 Mshowa [(g2)] .5 .5085 0 0 Mshowa [(g1)] .63605 .5085 0 0 Mshowa [(g4)] .77211 .5085 0 0 Mshowa [(g3)] .90816 .5085 0 0 Mshowa [(g6)] .22789 .37245 0 0 Mshowa [(g5)] .36395 .37245 0 0 Mshowa [(g4)] .5 .37245 0 0 Mshowa [(g3)] .63605 .37245 0 0 Mshowa [(g2)] .77211 .37245 0 0 Mshowa [(g1)] .90816 .37245 0 0 Mshowa [(g1)] .09184 1.05272 0 0 Mshowa [(g2)] .09184 .91667 0 0 Mshowa [(g3)] .09184 .78061 0 0 Mshowa [(g4)] .09184 .64456 0 0 Mshowa [(g5)] .09184 .5085 0 0 Mshowa [(g6)] .09184 .37245 0 0 Mshowa [(g1)] .22789 1.18878 0 0 Mshowa [(g2)] .36395 1.18878 0 0 Mshowa [(g3)] .5 1.18878 0 0 Mshowa [(g4)] .63605 1.18878 0 0 Mshowa [(g5)] .77211 1.18878 0 0 Mshowa [(g6)] .90816 1.18878 0 0 Mshowa [(S[3])] .02381 1.32483 -1 0 Mshowa gsave .97619 1.32483 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07007 1.16565 0 0 Mshowa [(y)] .12585 1.21599 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0337302 0.97619 0.676209 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.10582 0.242063 0.10582 [ [ 0 0 0 0 ] [ 1 1.27778 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.27778 L 0 1.27778 L closepath clip newpath 1 0 0 r .12963 .9828 m .12963 1.08862 L .23545 1.08862 L .23545 .9828 L F .12963 .87698 m .12963 .9828 L .23545 .9828 L .23545 .87698 L F 1 .75 0 r .23545 .87698 m .23545 .9828 L .34127 .9828 L .34127 .87698 L F .5 1 0 r .34127 .87698 m .34127 .9828 L .44709 .9828 L .44709 .87698 L F 0 1 .25 r .55291 .87698 m .55291 .9828 L .65873 .9828 L .65873 .87698 L F 1 0 0 r .12963 .77116 m .12963 .87698 L .23545 .87698 L .23545 .77116 L F 1 .75 0 r .34127 .77116 m .34127 .87698 L .44709 .87698 L .44709 .77116 L F 1 0 0 r .12963 .66534 m .12963 .77116 L .23545 .77116 L .23545 .66534 L F 1 .75 0 r .44709 .66534 m .44709 .77116 L .55291 .77116 L .55291 .66534 L F .5 1 0 r .34127 .66534 m .34127 .77116 L .44709 .77116 L .44709 .66534 L F 0 1 .25 r .76455 .66534 m .76455 .77116 L .87037 .77116 L .87037 .66534 L F 1 0 0 r .12963 .55952 m .12963 .66534 L .23545 .66534 L .23545 .55952 L F 1 .75 0 r .55291 .55952 m .55291 .66534 L .65873 .66534 L .65873 .55952 L F .5 1 0 r .34127 .55952 m .34127 .66534 L .44709 .66534 L .44709 .55952 L F 0 1 .25 r .23545 .55952 m .23545 .66534 L .34127 .66534 L .34127 .55952 L F 1 0 0 r .12963 .4537 m .12963 .55952 L .23545 .55952 L .23545 .4537 L F 1 .75 0 r .65873 .4537 m .65873 .55952 L .76455 .55952 L .76455 .4537 L F 1 0 0 r .12963 .34788 m .12963 .4537 L .23545 .4537 L .23545 .34788 L F 1 .75 0 r .76455 .34788 m .76455 .4537 L .87037 .4537 L .87037 .34788 L F .5 1 0 r .34127 .34788 m .34127 .4537 L .44709 .4537 L .44709 .34788 L F 0 1 .25 r .44709 .34788 m .44709 .4537 L .55291 .4537 L .55291 .34788 L F 1 0 0 r .12963 .24206 m .12963 .34788 L .23545 .34788 L .23545 .24206 L F 1 .75 0 r .87037 .24206 m .87037 .34788 L .97619 .34788 L .97619 .24206 L F 1 0 0 r .12963 .03042 m .12963 .13624 L .23545 .13624 L .23545 .03042 L F 1 .75 0 r .23545 .03042 m .23545 .13624 L .34127 .13624 L .34127 .03042 L F .5 1 0 r .34127 .03042 m .34127 .13624 L .44709 .13624 L .44709 .03042 L F 0 1 .25 r .44709 .03042 m .44709 .13624 L .55291 .13624 L .55291 .03042 L F 0 1 1 r .55291 .03042 m .55291 .13624 L .65873 .13624 L .65873 .03042 L F 0 .25 1 r .65873 .03042 m .65873 .13624 L .76455 .13624 L .76455 .03042 L F .5 0 1 r .76455 .03042 m .76455 .13624 L .87037 .13624 L .87037 .03042 L F 1 0 .75 r .87037 .03042 m .87037 .13624 L .97619 .13624 L .97619 .03042 L F 0 g [(1)] .18254 .17857 0 0 Mshowa [(2)] .28836 .17857 0 0 Mshowa [(3)] .39418 .17857 0 0 Mshowa [(4)] .5 .17857 0 0 Mshowa [(5)] .60582 .17857 0 0 Mshowa [(6)] .71164 .17857 0 0 Mshowa [(7)] .81746 .17857 0 0 Mshowa [(8)] .92328 .17857 0 0 Mshowa [(n)] .07672 .17857 0 0 Mshowa [(g^n)] .07672 .08333 0 0 Mshowa 1 Mabswid [ ] 0 setdash .02381 .24206 m .02381 1.19444 L s .02381 .24206 m .97619 .24206 L s .02381 .34788 m .97619 .34788 L s .02381 .4537 m .97619 .4537 L s .02381 .55952 m .97619 .55952 L s .02381 .66534 m .97619 .66534 L s .02381 .77116 m .97619 .77116 L s .02381 .87698 m .97619 .87698 L s .02381 .9828 m .97619 .9828 L s .02381 1.08862 m .97619 1.08862 L s .02381 1.19444 m .97619 1.19444 L s .12963 .24206 m .12963 1.19444 L s .23545 .24206 m .23545 1.19444 L s .34127 .24206 m .34127 1.19444 L s .44709 .24206 m .44709 1.19444 L s .55291 .24206 m .55291 1.19444 L s .65873 .24206 m .65873 1.19444 L s .76455 .24206 m .76455 1.19444 L s .87037 .24206 m .87037 1.19444 L s .97619 .24206 m .97619 1.19444 L s .02381 1.19444 m .12963 1.08862 L s 2.6 Mabswid .12963 .24206 m .12963 1.19444 L s .02381 1.08862 m .97619 1.08862 L s [(1)] .18254 1.03571 0 0 Mshowa [(2)] .28836 1.03571 0 0 Mshowa [(4)] .39418 1.03571 0 0 Mshowa [(7)] .5 1.03571 0 0 Mshowa [(8)] .60582 1.03571 0 0 Mshowa [(11)] .71164 1.03571 0 0 Mshowa [(13)] .81746 1.03571 0 0 Mshowa [(14)] .92328 1.03571 0 0 Mshowa [(2)] .18254 .92989 0 0 Mshowa [(4)] .28836 .92989 0 0 Mshowa [(8)] .39418 .92989 0 0 Mshowa [(14)] .5 .92989 0 0 Mshowa [(1)] .60582 .92989 0 0 Mshowa [(7)] .71164 .92989 0 0 Mshowa [(11)] .81746 .92989 0 0 Mshowa [(13)] .92328 .92989 0 0 Mshowa [(4)] .18254 .82407 0 0 Mshowa [(8)] .28836 .82407 0 0 Mshowa [(1)] .39418 .82407 0 0 Mshowa [(13)] .5 .82407 0 0 Mshowa [(2)] .60582 .82407 0 0 Mshowa [(14)] .71164 .82407 0 0 Mshowa [(7)] .81746 .82407 0 0 Mshowa [(11)] .92328 .82407 0 0 Mshowa [(7)] .18254 .71825 0 0 Mshowa [(14)] .28836 .71825 0 0 Mshowa [(13)] .39418 .71825 0 0 Mshowa [(4)] .5 .71825 0 0 Mshowa [(11)] .60582 .71825 0 0 Mshowa [(2)] .71164 .71825 0 0 Mshowa [(1)] .81746 .71825 0 0 Mshowa [(8)] .92328 .71825 0 0 Mshowa [(8)] .18254 .61243 0 0 Mshowa [(1)] .28836 .61243 0 0 Mshowa [(2)] .39418 .61243 0 0 Mshowa [(11)] .5 .61243 0 0 Mshowa [(4)] .60582 .61243 0 0 Mshowa [(13)] .71164 .61243 0 0 Mshowa [(14)] .81746 .61243 0 0 Mshowa [(7)] .92328 .61243 0 0 Mshowa [(11)] .18254 .50661 0 0 Mshowa [(7)] .28836 .50661 0 0 Mshowa [(14)] .39418 .50661 0 0 Mshowa [(2)] .5 .50661 0 0 Mshowa [(13)] .60582 .50661 0 0 Mshowa [(1)] .71164 .50661 0 0 Mshowa [(8)] .81746 .50661 0 0 Mshowa [(4)] .92328 .50661 0 0 Mshowa [(13)] .18254 .40079 0 0 Mshowa [(11)] .28836 .40079 0 0 Mshowa [(7)] .39418 .40079 0 0 Mshowa [(1)] .5 .40079 0 0 Mshowa [(14)] .60582 .40079 0 0 Mshowa [(8)] .71164 .40079 0 0 Mshowa [(4)] .81746 .40079 0 0 Mshowa [(2)] .92328 .40079 0 0 Mshowa [(14)] .18254 .29497 0 0 Mshowa [(13)] .28836 .29497 0 0 Mshowa [(11)] .39418 .29497 0 0 Mshowa [(8)] .5 .29497 0 0 Mshowa [(7)] .60582 .29497 0 0 Mshowa [(4)] .71164 .29497 0 0 Mshowa [(2)] .81746 .29497 0 0 Mshowa [(1)] .92328 .29497 0 0 Mshowa [(1)] .07672 1.03571 0 0 Mshowa [(2)] .07672 .92989 0 0 Mshowa [(4)] .07672 .82407 0 0 Mshowa [(7)] .07672 .71825 0 0 Mshowa [(8)] .07672 .61243 0 0 Mshowa [(11)] .07672 .50661 0 0 Mshowa [(13)] .07672 .40079 0 0 Mshowa [(14)] .07672 .29497 0 0 Mshowa [(1)] .18254 1.14153 0 0 Mshowa [(2)] .28836 1.14153 0 0 Mshowa [(4)] .39418 1.14153 0 0 Mshowa [(7)] .5 1.14153 0 0 Mshowa [(8)] .60582 1.14153 0 0 Mshowa [(11)] .71164 1.14153 0 0 Mshowa [(13)] .81746 1.14153 0 0 Mshowa [(14)] .92328 1.14153 0 0 Mshowa [(U[15])] .02381 1.24735 -1 0 Mshowa gsave .97619 1.24735 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 1.12354 0 0 Mshowa [(y)] .10317 1.1627 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.0238095 0.740457 0.477324 1.38294 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 0.15873 0.35119 0.15873 [ [ 0 0 0 0 ] [ 1 1.41667 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.41667 L 0 1.41667 L closepath clip newpath .8 g .02381 .82738 m .02381 .98611 L .18254 .98611 L .18254 .82738 L F 1 0 0 r .18254 .82738 m .18254 .98611 L .34127 .98611 L .34127 .82738 L F .8 1 0 r .34127 .82738 m .34127 .98611 L .5 .98611 L .5 .82738 L F 0 1 .4 r .5 .82738 m .5 .98611 L .65873 .98611 L .65873 .82738 L F 0 .4 1 r .65873 .82738 m .65873 .98611 L .81746 .98611 L .81746 .82738 L F .8 0 1 r .81746 .82738 m .81746 .98611 L .97619 .98611 L .97619 .82738 L F 1 0 0 r .18254 .03373 m .18254 .19246 L .34127 .19246 L .34127 .03373 L F .8 1 0 r .34127 .03373 m .34127 .19246 L .5 .19246 L .5 .03373 L F 0 1 .4 r .5 .03373 m .5 .19246 L .65873 .19246 L .65873 .03373 L F 0 .4 1 r .65873 .03373 m .65873 .19246 L .81746 .19246 L .81746 .03373 L F .8 0 1 r .81746 .03373 m .81746 .19246 L .97619 .19246 L .97619 .03373 L F 0 g [(1)] .2619 .25595 0 0 Mshowa [(2)] .42063 .25595 0 0 Mshowa [(3)] .57937 .25595 0 0 Mshowa [(4)] .7381 .25595 0 0 Mshowa [(5)] .89683 .25595 0 0 Mshowa [(1)] .2619 .1131 0 0 Mshowa [(2)] .42063 .1131 0 0 Mshowa [(3)] .57937 .1131 0 0 Mshowa [(4)] .7381 .1131 0 0 Mshowa [(0)] .89683 .1131 0 0 Mshowa [(n)] .10317 .25595 0 0 Mshowa [(g^n)] .10317 .1131 0 0 Mshowa [(0)] .2619 1.06548 0 0 Mshowa [(1)] .42063 1.06548 0 0 Mshowa [(2)] .57937 1.06548 0 0 Mshowa [(3)] .7381 1.06548 0 0 Mshowa [(4)] .89683 1.06548 0 0 Mshowa [(1)] .2619 .90675 0 0 Mshowa [(2)] .42063 .90675 0 0 Mshowa [(3)] .57937 .90675 0 0 Mshowa [(4)] .7381 .90675 0 0 Mshowa [(0)] .89683 .90675 0 0 Mshowa [(2)] .2619 .74802 0 0 Mshowa [(3)] .42063 .74802 0 0 Mshowa [(4)] .57937 .74802 0 0 Mshowa [(0)] .7381 .74802 0 0 Mshowa [(1)] .89683 .74802 0 0 Mshowa [(3)] .2619 .58929 0 0 Mshowa [(4)] .42063 .58929 0 0 Mshowa [(0)] .57937 .58929 0 0 Mshowa [(1)] .7381 .58929 0 0 Mshowa [(2)] .89683 .58929 0 0 Mshowa [(4)] .2619 .43056 0 0 Mshowa [(0)] .42063 .43056 0 0 Mshowa [(1)] .57937 .43056 0 0 Mshowa [(2)] .7381 .43056 0 0 Mshowa [(3)] .89683 .43056 0 0 Mshowa [(0)] .10317 1.06548 0 0 Mshowa [(1)] .10317 .90675 0 0 Mshowa [(2)] .10317 .74802 0 0 Mshowa [(3)] .10317 .58929 0 0 Mshowa [(4)] .10317 .43056 0 0 Mshowa [(0)] .2619 1.22421 0 0 Mshowa [(1)] .42063 1.22421 0 0 Mshowa [(2)] .57937 1.22421 0 0 Mshowa [(3)] .7381 1.22421 0 0 Mshowa [(4)] .89683 1.22421 0 0 Mshowa [(Z[5])] .02381 1.38294 -1 0 Mshowa gsave .97619 1.38294 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07778 1.19722 0 0 Mshowa [(y)] .14286 1.25595 0 0 Mshowa 1 Mabswid [ ] 0 setdash .02381 .35119 m .02381 1.30357 L s .02381 .35119 m .97619 .35119 L s .02381 .50992 m .97619 .50992 L s .02381 .66865 m .97619 .66865 L s .02381 .82738 m .97619 .82738 L s .02381 .98611 m .97619 .98611 L s .02381 1.14484 m .97619 1.14484 L s .02381 1.30357 m .97619 1.30357 L s .18254 .35119 m .18254 1.30357 L s .34127 .35119 m .34127 1.30357 L s .5 .35119 m .5 1.30357 L s .65873 .35119 m .65873 1.30357 L s .81746 .35119 m .81746 1.30357 L s .97619 .35119 m .97619 1.30357 L s .02381 1.30357 m .18254 1.14484 L s 2.6 Mabswid .18254 .35119 m .18254 1.30357 L s .02381 1.14484 m .97619 1.14484 L s MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.740457 0.97619 1.38294 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.10582 0.242063 0.10582 [ [ 0 0 0 0 ] [ 1 1.27778 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.27778 L 0 1.27778 L closepath clip newpath 1 0 0 r .12963 .9828 m .12963 1.08862 L .23545 1.08862 L .23545 .9828 L F .12963 .87698 m .12963 .9828 L .23545 .9828 L .23545 .87698 L F 1 .75 0 r .23545 .87698 m .23545 .9828 L .34127 .9828 L .34127 .87698 L F .5 1 0 r .34127 .87698 m .34127 .9828 L .44709 .9828 L .44709 .87698 L F 0 1 .25 r .44709 .87698 m .44709 .9828 L .55291 .9828 L .55291 .87698 L F 1 0 0 r .12963 .77116 m .12963 .87698 L .23545 .87698 L .23545 .77116 L F 1 .75 0 r .34127 .77116 m .34127 .87698 L .44709 .87698 L .44709 .77116 L F 1 0 0 r .12963 .66534 m .12963 .77116 L .23545 .77116 L .23545 .66534 L F 1 .75 0 r .44709 .66534 m .44709 .77116 L .55291 .77116 L .55291 .66534 L F .5 1 0 r .34127 .66534 m .34127 .77116 L .44709 .77116 L .44709 .66534 L F 0 1 .25 r .23545 .66534 m .23545 .77116 L .34127 .77116 L .34127 .66534 L F 1 0 0 r .12963 .55952 m .12963 .66534 L .23545 .66534 L .23545 .55952 L F 1 .75 0 r .55291 .55952 m .55291 .66534 L .65873 .66534 L .65873 .55952 L F 1 0 0 r .12963 .4537 m .12963 .55952 L .23545 .55952 L .23545 .4537 L F 1 .75 0 r .65873 .4537 m .65873 .55952 L .76455 .55952 L .76455 .4537 L F 1 0 0 r .12963 .34788 m .12963 .4537 L .23545 .4537 L .23545 .34788 L F 1 .75 0 r .76455 .34788 m .76455 .4537 L .87037 .4537 L .87037 .34788 L F 1 0 0 r .12963 .24206 m .12963 .34788 L .23545 .34788 L .23545 .24206 L F 1 .75 0 r .87037 .24206 m .87037 .34788 L .97619 .34788 L .97619 .24206 L F 1 0 0 r .12963 .03042 m .12963 .13624 L .23545 .13624 L .23545 .03042 L F 1 .75 0 r .23545 .03042 m .23545 .13624 L .34127 .13624 L .34127 .03042 L F .5 1 0 r .34127 .03042 m .34127 .13624 L .44709 .13624 L .44709 .03042 L F 0 1 .25 r .44709 .03042 m .44709 .13624 L .55291 .13624 L .55291 .03042 L F 0 1 1 r .55291 .03042 m .55291 .13624 L .65873 .13624 L .65873 .03042 L F 0 .25 1 r .65873 .03042 m .65873 .13624 L .76455 .13624 L .76455 .03042 L F .5 0 1 r .76455 .03042 m .76455 .13624 L .87037 .13624 L .87037 .03042 L F 1 0 .75 r .87037 .03042 m .87037 .13624 L .97619 .13624 L .97619 .03042 L F 0 g [(1)] .18254 .17857 0 0 Mshowa [(2)] .28836 .17857 0 0 Mshowa [(3)] .39418 .17857 0 0 Mshowa [(4)] .5 .17857 0 0 Mshowa [(5)] .60582 .17857 0 0 Mshowa [(6)] .71164 .17857 0 0 Mshowa [(7)] .81746 .17857 0 0 Mshowa [(8)] .92328 .17857 0 0 Mshowa [(n)] .07672 .17857 0 0 Mshowa [(g^n)] .07672 .08333 0 0 Mshowa 1 Mabswid [ ] 0 setdash .02381 .24206 m .02381 1.19444 L s .02381 .24206 m .97619 .24206 L s .02381 .34788 m .97619 .34788 L s .02381 .4537 m .97619 .4537 L s .02381 .55952 m .97619 .55952 L s .02381 .66534 m .97619 .66534 L s .02381 .77116 m .97619 .77116 L s .02381 .87698 m .97619 .87698 L s .02381 .9828 m .97619 .9828 L s .02381 1.08862 m .97619 1.08862 L s .02381 1.19444 m .97619 1.19444 L s .12963 .24206 m .12963 1.19444 L s .23545 .24206 m .23545 1.19444 L s .34127 .24206 m .34127 1.19444 L s .44709 .24206 m .44709 1.19444 L s .55291 .24206 m .55291 1.19444 L s .65873 .24206 m .65873 1.19444 L s .76455 .24206 m .76455 1.19444 L s .87037 .24206 m .87037 1.19444 L s .97619 .24206 m .97619 1.19444 L s .02381 1.19444 m .12963 1.08862 L s 2.6 Mabswid .12963 .24206 m .12963 1.19444 L s .02381 1.08862 m .97619 1.08862 L s [(g1)] .18254 1.03571 0 0 Mshowa [(g2)] .28836 1.03571 0 0 Mshowa [(g3)] .39418 1.03571 0 0 Mshowa [(g4)] .5 1.03571 0 0 Mshowa [(g5)] .60582 1.03571 0 0 Mshowa [(g6)] .71164 1.03571 0 0 Mshowa [(g7)] .81746 1.03571 0 0 Mshowa [(g8)] .92328 1.03571 0 0 Mshowa [(g2)] .18254 .92989 0 0 Mshowa [(g3)] .28836 .92989 0 0 Mshowa [(g4)] .39418 .92989 0 0 Mshowa [(g1)] .5 .92989 0 0 Mshowa [(g6)] .60582 .92989 0 0 Mshowa [(g7)] .71164 .92989 0 0 Mshowa [(g8)] .81746 .92989 0 0 Mshowa [(g5)] .92328 .92989 0 0 Mshowa [(g3)] .18254 .82407 0 0 Mshowa [(g4)] .28836 .82407 0 0 Mshowa [(g1)] .39418 .82407 0 0 Mshowa [(g2)] .5 .82407 0 0 Mshowa [(g7)] .60582 .82407 0 0 Mshowa [(g8)] .71164 .82407 0 0 Mshowa [(g5)] .81746 .82407 0 0 Mshowa [(g6)] .92328 .82407 0 0 Mshowa [(g4)] .18254 .71825 0 0 Mshowa [(g1)] .28836 .71825 0 0 Mshowa [(g2)] .39418 .71825 0 0 Mshowa [(g3)] .5 .71825 0 0 Mshowa [(g8)] .60582 .71825 0 0 Mshowa [(g5)] .71164 .71825 0 0 Mshowa [(g6)] .81746 .71825 0 0 Mshowa [(g7)] .92328 .71825 0 0 Mshowa [(g5)] .18254 .61243 0 0 Mshowa [(g8)] .28836 .61243 0 0 Mshowa [(g7)] .39418 .61243 0 0 Mshowa [(g6)] .5 .61243 0 0 Mshowa [(g1)] .60582 .61243 0 0 Mshowa [(g4)] .71164 .61243 0 0 Mshowa [(g3)] .81746 .61243 0 0 Mshowa [(g2)] .92328 .61243 0 0 Mshowa [(g6)] .18254 .50661 0 0 Mshowa [(g5)] .28836 .50661 0 0 Mshowa [(g8)] .39418 .50661 0 0 Mshowa [(g7)] .5 .50661 0 0 Mshowa [(g2)] .60582 .50661 0 0 Mshowa [(g1)] .71164 .50661 0 0 Mshowa [(g4)] .81746 .50661 0 0 Mshowa [(g3)] .92328 .50661 0 0 Mshowa [(g7)] .18254 .40079 0 0 Mshowa [(g6)] .28836 .40079 0 0 Mshowa [(g5)] .39418 .40079 0 0 Mshowa [(g8)] .5 .40079 0 0 Mshowa [(g3)] .60582 .40079 0 0 Mshowa [(g2)] .71164 .40079 0 0 Mshowa [(g1)] .81746 .40079 0 0 Mshowa [(g4)] .92328 .40079 0 0 Mshowa [(g8)] .18254 .29497 0 0 Mshowa [(g7)] .28836 .29497 0 0 Mshowa [(g6)] .39418 .29497 0 0 Mshowa [(g5)] .5 .29497 0 0 Mshowa [(g4)] .60582 .29497 0 0 Mshowa [(g3)] .71164 .29497 0 0 Mshowa [(g2)] .81746 .29497 0 0 Mshowa [(g1)] .92328 .29497 0 0 Mshowa [(g1)] .07672 1.03571 0 0 Mshowa [(g2)] .07672 .92989 0 0 Mshowa [(g3)] .07672 .82407 0 0 Mshowa [(g4)] .07672 .71825 0 0 Mshowa [(g5)] .07672 .61243 0 0 Mshowa [(g6)] .07672 .50661 0 0 Mshowa [(g7)] .07672 .40079 0 0 Mshowa [(g8)] .07672 .29497 0 0 Mshowa [(g1)] .18254 1.14153 0 0 Mshowa [(g2)] .28836 1.14153 0 0 Mshowa [(g3)] .39418 1.14153 0 0 Mshowa [(g4)] .5 1.14153 0 0 Mshowa [(g5)] .60582 1.14153 0 0 Mshowa [(g6)] .71164 1.14153 0 0 Mshowa [(g7)] .81746 1.14153 0 0 Mshowa [(g8)] .92328 1.14153 0 0 Mshowa [(D[4])] .02381 1.24735 -1 0 Mshowa gsave .97619 1.24735 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 1.12354 0 0 Mshowa [(y)] .10317 1.1627 0 0 Mshowa MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{203.25, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXU2Ia8l1Lrf+ut+8fv4JHtvBJpNkE0KijSEEbOMRmGQINg1ODAE3gcGk 4yE27kwGhsYeBrRI0nilTdJeiSwEAS1CZ2HFYPGgIaCNNtoIghZ3o81daHE3 Wlxwpf5O1am6VXXrSq/H49Dv0Wr1vbf+Tp06dep855z7rbff+/7f/vDt9975 3ttv/Pm7b19//53v/eMbf/ajd9ml1icIIb8i5BPff4Pw75T9qT5+Rdk/dvOj +vV5/utT/Nsn+d+foqwfn2Qf7BrrzafZJfrPj/dkV/zqsI+SZqsFnc/ndLHa 0IJdPW9YC/ssN/RaElL+9G9pVtLnyRWdiV8tSvdresnu3S53JKH0F/kjz/kj 7OMl+/iQsg9C3+Qf9JySN9ndDwn7RsnLM6fP+4xOb2/o5eUVHU0m9Eo2e6oI s53d6OHcrQu6Zl9OBKe06IJdo/KHPIt28FyNC5P3+RGdvu3zHl3S0XhMr/uq d8tCdrrHPvZ0PuxTcn3PvomSdMh+2NzwWa3rKIxPTZ+o4NkRvSXkgi4Lqv7l oiuMxGfq9mo0oP3bpbzLB8Jv13X0hYdTXjuqj1c0gy4yot31eZ2F1cfRyurj MImYpJ3EWuwnxFqdw0bEqTIYTulmm9H53bVoZjjbGB4pGI8MxMAfsh3NVU/u 03iEDSuF+dQwgPlODxnKGS02M3qlWupfXNKB6OsFXXCmKnd0vdkxyslelfmG bnaSa7P767YiaJ8VyRVBn6dxluFUUmFVNS7Fqg2Hda5Fz0oM5W65Y409iD7e rfdt6EC5pzvV5ReJXdaMSyqci7o8bNzlF4q6u+Wd5tnLybpbL5uBW1LYUM0R sGHDPn5SUWE1YdJ8OOOSjyR3sPeqmKvXrNMJW/VnEtmF/QnscvbKO/Fbfgbo HCByf+qZp0PqUQrU11R1ZcGEWJ7T3b4kX1TX9ju4Rgkskh37O9/JbfHrnrKv e8o+85Q91YuupPt9qUSVWYi5fFaxpdzuWaGKQjG+UH8LloMa1pNLeExvCiOz iYqVI/e/pZD0+DmuGahHzXNsnd3fDKznridLXZ8cIZuGci32KdQlNNKMDvt2 W8P7ta4DRA6lW3p3adTAi1sxyZ9Po0AnkQKtRAro9VFDAa0KeyjQTaRAJ04B mIz9ii+iAe+iIm6X7XH39ALpzoObe64mnmPu8Wh2THsVm+tso6awy7YNxri7 XD+XM0YuSsVZUuJOr2Qjt/MV3WZLent1gzrTE/0f3wzpdMF01T2botmteH66 2WtOKfd7xvcFzVn5GyENVsS0kdOH+xldbXe0ZNvYejZ0ynfVtF/TFevbbjWR Un9bfj5hpN34SDsJI+0kjLQbGWkvYaTd+EjN0szEqelmnqNqSzrlDHQ9pTs+ EMYdvNiEVatYArQIS31mI1YKwHNVO7otFWSxINigr+QRYrEz6kO5lLRa7NBJ bAVsKdYV/2Sd0BwPkpHT4cYq29O9Mb3bSF2dPfOFeO9B5ODe9/y9f83Te5Ah db03ks30HnNPqPdQbsm6Ry6nbLJARvByOzpiz13db1W5rah7yMr5pg5OFao5 9thzVDsM/rke/J7OOLuzwa8KNfiOuJytl+wkeyWF1o5WpmFwt2QsuhWHx6vx g9jYQGQXeUYzpdiU2UwQcrzeW1VcMDoOhnTNuDhfjsUjs21pz2R1MKeewZz6 B3MaGYw7K77B9OKD6SQMBnpbZlMtoaHa9ZRrr312lJvS0bVUWVmvKxLaOVeZ BU98E3uuaZHLY/3lhMv9Z3AZ70ajFcz3fj2m8si6p2Ol8YNgFUzJldlBXxa7 vGN1U6ObFHR8Ye9hF7dzqlYF+VzCQHyTeuYfSM8/kF5kIKfxgXQSB2Lkq1yQ Rr52VbOMjS6Vwn8xruy2La7iV1SQ/tWEd0I8AaKnKmP53lRS+FcsR4KbmCoB VW/nQ8H269KI5RkTahfjuRgUO3XCRstrJ6zV1WpBF6tMCBsosrhl9y7u6LYo 6G63/+3Ejvc8He/FO37m6XjP3/HTSMd7/o4DJbPplRaoZr3u6YTP8/BB9QrO PgUIVDj6iSPzrkATwc9sazpfMGly0+djfQ2xNxckl+Mlb41mYlwXdIWk4vZh SicPG3lfaK1i3HobLRZaZWOaqTVfXBvhh4rtVhwCdJGd7PvFaM757Uuefvf8 /e4l9Lsb73fP3+/TSL97/n6bzuzp/XBI5xv2eA4y4oIu93j6Sjq7Zq1d3YsO lVspkadZCdP3JdXKnglr6NhgtHyuOra5H2q1mP9cjZdaC80fRta9y7sFAWvr Rp0gRsudFo6ru0vreTK44wMCucotTUYLH4g94Q1+Tx71xZjcbpLTSD97kX6e efp5Gu9nL9JPn1wEpeduZQ5ObdVEsZ4qY4eyrN1MkQz8HVXbnnHDTh1vQXix szFTpjO6ZRxirhXyWr4n2B6Vb3Nxwv+ibnsvnttkW379s/zyj3j76lT/T+6F 1zX5f+DeOtUXhAA40bfa6puSfmLyW/puS187Sfr2kpwc0GgXBszXtrAFFJ5u nGBSKYtBR9erz7jIxtA+oLviwnPdyXPdyRf6rrH8O9da8E2WEIPuqNWAzuPi 32p0IS1p/B7RJmzxsyJE3TPn+O3DSLMo391hz2qrT10/O+Nf8EoJEAXOy3p7 U+dlKjvqEhCfuNvOXf+R39ShGlR2BtXfNkU2Bv3oCac+t138RC8rY7v4GeF3 xRP+CQrgcD09b6zVjNU6Zz8cICgwuwUKn5na2+7Ns7qWax841Qwiamddm7Ou sd+FLIxYRlZz5p7V5b+SH7D3tNhldHIF89wTNtUCsdBe/T3R0/DMW99mNqJD po9sC7b0sgc+ba1Y82xkO7Z7bcRWOlTPxg/hLc8aNcd4w2InisV8NgRThyQk jRgsTnCNL7l0KX9BaP5fjORvswJ/Jb8Xv5S3A/wVRGi7hsU69n32kxFliq+p xGJkz/2knqQ80zNc5zbEelvKIVdYz9Z2Qe6u7sD4CGzXEYqOK7m6njpA3VoM bYKpZ2A/3q/41j9CwiBuJDBsAaZLbGZo4RFJuSRsHATACGzfQCxYsZu0cTNC aq1+wJSAvyPqryAbGcOrgV7hWlnkQhEsRYvyYfEpHpT05B0S19hMiSVewrVg 9TBbJV9Bapc0hDjxlIh3V5cwe7NvRaMShudOBDn4XaLuBhluWWG4Nt1MuWJ3 S7elsG+21fJ3eW6jeGkr5X3LUyNwR7Hd0If7Ea8i/pyXD2nIruHhQ2wV8Qqv gGXG3Y8rlh+rKcF9yzReDDtwAL1XU30UZvLhBoTclMjZE4tQ8qbiyy5f7/Z6 lnOiB+tvUJBgeXcJU9C/HuvzNkhFTzGthDDdSbd4NVmjcvEmmQ6FVahtSROL 7tleo/jvOb2ebqwxT28ZfdjeN5oo+iwJr1Vw/YVRggYjeVkVq+V+2CQ57rMZ DzCASi3p0JaPqZXQN2oUrtVwEztiSmiH/dwcsggCBiHPIsDmJFcG+e1Zbh0V G9kJfqAR+z8PuQJJxtveq78ZIxZrTtKOmjg+Atg67wzrqz/FZPDbF5j1X0Qb yxYzOl8yvbAsaSGVLnoxXpu+nof7aet/UuGy+DjetEffoxd3K9x0rLg0ackD cLbN6Gx0RW/uN+YUMiaojNoAumzjYMw5l5fX7DvbQ/zbwKrCsi26W9wKdeae nZhiq2Cn5uie86ZZBbhKfe4vVnCK8T4HDOzXR8I2NsO+0BK20lVlu2MNdNdI 0MJYXQWJCgn3FPC7mEnu4L0lQxDGnCZtxRVLtOMOjYaid9/caIDib0qMFhxo UsPXgvILxMO9YA+ZEqqY4BntjyTcZIRxtBmue9rNBHsGSs96KvH323kmpwRU 6WWhZDxV1FjKSSWCaWR3Cqo0oCqbK0OlxeZyl8GHepvNQT2cqtEOEO/i+vQx areik8mMbrmOuxNmTK3zVJ/nxpecLuYP9GHCtID+CJ/sQjZJj2ITNHJ6FBvb thrUkjzmW/eI16blfzLl719Zt74r1kG7Zgl4PRjFX0ulW4w5wzExcQ2zcS4M CrAE7tASWKpBjKu7gZbJsSbpPqebDNZcTkcDArwNMjlU1FGR2XYwYQK2cHjc 2zQoU0gnptf3m/SibZovpB3q9iHHiyOjZnHIEmZxFOHFAcw5GBlPE7048hks c83EA7Q42mpxEKkBIYHdxfUptlpy4Q9rhwxuddXAfpUiZUZHlwpa62slUlQm TcMGO5KmYUVGatY8sDST9Xp9Y1uzpTlhO3dVc/JZz62nxJLY/wcxtvcfRJfE acgFVnQtm2k9kQPBNrF6Yh428uwli6l5ybQg+wx32BXXoMex5uQ+xwk9UHM5 oLNsb3r7WrCoozNzGYcnIejpC9utox3DPlhTGiZNGkgG9GFHCayFAdt0NltG nDtFnFnSWqiY7kF0xfx7yw2Xtn062+yYfigsC21FMDDZ9uXGIb5zu2ipvs+I NBfa9oWa9uQB4ZouViu6WKxojgUzbzTkh0wpVurowJ6lXqxRtHus8NkOBGXU /5lRxKhT0l52fZ+pueqicohIhbZiRPZ1/3QBAqVRpv6QrncATRDlAMtqHqvG 1kRt86h4T60HXlR6WW63OQwDPygtBWATHdwtT5yO9HwqAZcwbk1dKX4GI5qp BznjDx9yQaiuGCVHAhh1mE7/MJHWxJC6U4cyfagWyzPuw2ruVr+9JM61CsG1 jxIT13dXfbUEibLJsq93WGjiHRootN9MLcmq9G1DId2E2pDYPk2qhFZbjKlm YMJDLEKX2wfwyJQ/FyP+YIXQI/CQZITeBQitPS+Rpa6tbgjG2hk13Z2GFp8G 9vnjPeHf1F+xqcFqK9gZLbytfrrAIY47IW02GVVbjGIUVluhdhbVaVHohVMf eyrfAuzqcII0d+RMWmeZWDMnzgPSgUo8gBZVCx4Qo2TUz3OhzLhUB4wNQ3Rn cE1teFvRUUI8EF1XzoMivBIuVwV/EgjPP+mblEw+Z4jD53T5NXld/sQgxrZs RHJbwHHWUs1fCpb7JbH4d/FzgtASUGYSUL7HRFZlX/w4lWPmULacUwsm2yhd hduNd1InkVX6kTIH+mJqdm4tnT9lVXx17i4djuPyWdp/lZLdVygZvsYq/mP2 nf1dvinnN9pq1d5jn5GCuJt7RuoIGGzPoTCmGApg7SfYVtAEWIvg+8QD/PiO sx31uUBspgoSFw4qYFECra9G3CBI6AcWrQUx+efoU5Tcfln81TYErke12hYd grCTrdZznPoXxMaVJg5+XYsrxQkagzKMXPCbCzi3P0jNz2sYdq29FVp/kBnJ 1IDWVZN2x3daxfQJ+o1WEd2732PS612mrzJBdcu+X73P1vAvkIyqRU+OkExE SaFzCrQyd4Pzhv1T1BEjauaZmXXRbN7aat7eQvLo5Lh58x+r0LwFIIGqCNr/ uxxVxlbHmM3b7c+wCKq1+X+c/EA41dh/vm/Pxe9nmjFExcT18pAqRauu4qAo xcZrlzN8kvWqiWQFrrmeGsnagGuqdvu2e8Rz7YQBG7qrjLTp7FtMurL1Pf6K 4BfDLslG8o+3ewcp7Va4jk+44zihqCHic9/oGY6qayhof9YBm/bhUNLgrIK2 c4vBRGlN/G/sWOYzQztmZcNxrPP8pPHXQ0L/ZkPoe0zHfg+U4D1mPq68cRUq /xNKFoz3bl7jPCiv+lrGot86DmP+Cxq1q/xHf27saCPMf03s1EmuIXoqjO+G ZseWWtXIOwTmg5XLseEg1evEEs+VErirRMgGslfMJdw4gDvBmoWdPAxf+mqO u5QgW3DQdgsuRtgEDK4ySOwRYOIaey5XnbUSxZnywvEJ/uYKH4sRT2Z9s+RG iidT7NjSbIBkWMDDuAr0bX6iObEiCusswz7DbwMXDXvT6fkcQ8RsLBHlcLy3 FmYxN5Su64ZClY1ctxr20CDYRUOOVVXDOfdW7mxkorlY7uB7DSiSkbqkinGW 9nh3SI5vs00PEXqipVrE+8Sc6l33k7jVt6EzATiFOp4LYnIyqQ2xVgvRk0tS BasaOkrQi7HlQNDQecAQga9rVYaMifku1goVt3OlbvHL/HtBzDYJrgvEdUPg DYgtdM8mtNgRdZJmR4YSODXc64jHRP3UJWHf9rrq+KB2pdS1BJDSd6arIaLP VsLC9LDjK6pFNAbAhRzR0q9QS4XqOTL7hNrGidyQzH7vQc3F99WdEdV9tKj4 j693QUT/lcU2VIyXETNmDaDsQXdBv8zQRCtAmYB70QbdG5lJN3PeCMK2l2jH V1TvUQjVJcbpQU9uX4tOtSqDE/7chwSL75upLLBla3I+lGtxneutNdy7CFwd n/tgeEiQHwJBKQ6H1JrBI1zTEARtq1UUwlsLLRLagIELK4LmmkYo7xqjHgLI rBTT53UEfGpCchnBZ3bLfhT2SWYRGQHyUnaxAppKEK6jzBDs9pgvfWmWb0W6 mILsImN+xUh/CpfRcoTwmmDETFd1KGiQFwpxPBfHielUfRBQo2CaJmgArY/5 aYpSe1BjsLuGUOpCfj/hf3ABZeYiCaf24OLIhHveFC9Gy4J1fIP0lAu9Wqzt caUPE0ZTKVi5AN4sJORuIeu9Z9vhwOLzbqi/MWS8Pq7ICezxASb8Z0eMy9+6 IludsJ5oJJETyGT8zcKZSJCLWHI0k2U2rg0Eagir0Pp4paBXgAfWx3BtD7he qHx8GrjFpcRsb3B/y7/AtA15NgJwvmHknpDDbWmKmqszUh9xrIhQYw8Yewqh cGaGVmq9C4KWTZ+7bQzT2CvK6B0vGP3T8rQWRn46avItkAbFmBJfUFMLBzXV +OM2xZb4v7qYpSCDeXwZbH+Avbmp5RlkU1TXIcYaeVSIHxV1YXFZwJchwGXG oaHKZTRXAm5U5bJa14p65CyRy4oQl1Vie3xRFIEgJmQUq4BT7dqeo/Alyyjk j4FIRtWahCUl4WaQkgU8O3IpoB2pZXle4BaUiliqMz7FKuIzKrfCgocR7NHG aOoNuHw8PmNU4l1ijOGAai2zk1YAsFao54Gonga8kYLc0fponXSHgKNlfTCy wifrfTEkRtOgIeiItELd78AgTAQJJnaN2E9DvWg0NCRO6gTP/lgMDRf/D4bi bu9jvv2+2AJfbANW9ELZWVrxIfmDG5CmF4kHaIgA0WikwlHuTeBEAPYSx4mg pXpbg13AbFahEHlohX1yZ06EivmCnui6yhpHfFyfAh70tauxKYvYo6E3fo0j exPwhIbd6h9zFgN24V9v+oqqa4LJQFH1azgzFr06t4WgFfzjg7YHkHQTlh5G 5HuGEOlou98QDTAhdn+GEnHzc8Sk6MN9DYVhQ8XpBXq6S2E4OoTT+pDdOMrs Q4rBub7cSzfbfKeeUyWUKoiQZzMLcdT61zIFYXQTSINi1/Wp0xdhD3g/jrC3 XNaPiXX3h9cnAbCnIVRUyJXlnVHm2O6aU3CclkWTcNjXJA6Lxl0P+bZdyNfM vs9C37JXhfCfaDfmjRqEoNK+LzFV4zj1qj9wTZw6ygQkbqnE57Kxo4PFD4CJ nab9aG22YBsU+14wUVxkRIXIm6jxOqi444OKSR3WW4tQG7aSi6UXsqKraSbA YmIKjK9UW+gryLCq6lRudtLfXzypFSPj86+X2Id7E+0I164K46rSBc7w5Aar dfVPxR5gQwyCHUGYJLAAOOQSBrRXdxcSk+kFQ9JXWrQ+04ccI04axoifHwKt a6L44sSFBkY49F+FsMKwehtDZlgRaQTfu4aQM1U0aO5GfCyUBR1+viMalxFJ xk4cLu6GYh5OjI+U9AD8jrIpf4Mt1nfZUv/GlXQ2Rx6AyREZ6AxYG+/QDEJo GJ8RxESCUj+G6Hsc5+uC0p2sSOL72tIfjogMDwekR3wPCJxos4BXAFcsNplW CWUYPFofYReE4OJo5OcQWhxBYz1aHFLIKwVOH8BviIHnYXm0Pb7ULb0mIB7s Qi2K7+2ceLCYLa3QE5QYl0J8gEbHytIGnuNaf3VRk3jmtaZ+D55QA9CSPX4P mtCVDEjUcPkxMd+9mLuE2Q4r/hIvQn4MgtGLpTlXak+NzGAdUd+JIK838NAI 6DIBoKDC5mutm4yACyDzVyKbQ3DRdxWnvWMFF5H6UBck6BOigUIVungKaRi3 FM/21tQzQsgaO2iiLn6fqp2Y/63yHmHmPyKUPhy+73GnQPJTjDHs2wA5D7jh acF0/HxPTFRtM3+KE8P8R/hwVFdBABKprIK9XgUDvQpcjT6+CiDo5ht9eSS+ oZbW02gV1MVWkXTkKLAKglFg8XRvgSj9SnxGW90T7dtJjoCayXkM9Mk85Bkh AhREbgWlGe2k+WnLRG6JjRYBzwjDe8k+Fh7FIggHVXhtonlNErxPjEd3Gq8p ZfsDE+BPb9Tgv1c4bJekY9SGZxEfctZ1kTN4BnYqX9RYPJlahcH06ztQsIUx /6mV2neo1zh1Q8wlQrIXI9pGV6QlHHh4qesBp4gqg9W6V3iPdQGMq8JgM93L UpNo6pBIHuzabiRW2+Wxb3K1ZixiCOm1ssC8s3d4LDVWzOK1cChWQ5iQHBAy lpDaLJLiQuaokE0jViyItshpOtcmrzCZL6ruFQaTOsOcldvqYq0Thh/O+VHK rYjNnXqyvsQt7dXEIwegdV4Ez4fWfdRd/whwwECi+frCSWnsa2OYfdZvx/pO Wvrlt/qaQ/QuZNVgrPw+DxTdkWZzEHfT/xghlm5W9kdL/x5GLH32WjNlJ2jK eE1LoqCTWBaaUyX43lpKzePdB53+JmyFbhkrdPT1Fmlvm0izrKODQIKDfKOg Xgclqk35bmdrAqbytXCKhin1Dn/C9XhZ313YFxGeqzkqFtnrTz7vkwrGOlqV CuJORSqkG2LB/fxvVIQRkxr0ppQc+MMZm0+mo7zLtLH3M2CerjCPeezG7Tqz ccgW3ex1FfWGc7vSBC/1pjG/Dm5sL5ZwzO+WGMwFUgPAuoki4vFs7km51Z+7 udXTMrk/q4QJRwOTOz5cnIDeGwmh1ipvJc29WRA+I+pJZUFAotnSXhCpr+to 0XcYnT53C+Ag0saVpRgmXvQIWYtDZ7rg4bA24VHwsGozeIKffFME3QPwdFQx X7y0J0tYk1TvkXztQOcDcqbXNBqBsWXxeJL3AHavbW0HpLUP8Ts2nFb5HbKT Ll1+TzXSalAc8T0Y3W62hL59b0s3zuoBY3LYlBY0zOFTZeANHrFFkOy+f0DY OQ5ZAUU0FnbODx922HktSg9KspulfVkYPQUFgetr/jSrzXK1I//h82g/Axg+ iYHrwbT1VfbGFlHD3pCseoT0m5M69vZZX2Ps/d0bd4alcuOxErcbc3bCyzlS OLs2+MDP2RHQ2sZ0YnH24F+H8uMJ+hoOjwfZRzKvw4LKqjg3AR9If+7n+uH5 QWvB5Y0TAmiBHioXSUzvcjzERSATbYXfM6S+WPyekD0MWB1rMB1g+MI6hp/4 DdPtA5WYpJdwJCkzCdEfPoaP4tcVBCeGlgPPo9yCTnKexuA84sFDkp3XJVX3 I9fNMxkYKXh+SN75CIITsAmr3hOgukBnZd6dHCQT3nGBMROs0jC279yYpXCi lsIH7Ij7baa3v8thnh2Bg/pLj/G8XWc8D1rjm72fI4wZuGfZ2nic6upIAbhb 1ut+4KAfQNRBVqGzrV4aDbF7tDQOzC3PtqAD8tmbZuPp8D04vqIXLxvG/z0J HNBWlJAP34fKWJHvnhyDkIDDRUgCGe/TktQD5pcQHw/tWXiyCWwCkK42V3/K 6wKqCCRBrwvo2jcJAfUGLZFWID99Wkp5DbPXIY46iXoVCiUWWWrT6jdI3PRS W/4jgRlJwRoBnM1yRMgVfW2dxcQ3+1PPC6HvTRyPOdcLvLlJ8fOiJAdDVa+Q WB8FyhZEaZzhpAVepIZg+Aft4Jmyiq4vF44eiFSv2jaQYXtGy0piwIK2yLHz mUrno895OJUPpMCsuud3seFWMqZESAIASe3rA4IO/DFwJkLLWOIUc0qWu4HY C/ZKTxUPWaagNEO4DjlWxn1PChipJcW8zYOO4Q0s/K/UibwhEpG8oolZvY1W NAE4zp+wBDMyJa65uSU2fEpsE5P8FzcCK3/SQPy9z6XJl7el1mCdYGVPcIdO PXo+gqdATdDvY7/wvj7bOZypgklIFMnUWla2nIGSEVxZ54J3R3wSN2ZDtRio ki0j6orp+g/XWnwb2K4tQ2LgddKJ5rpH9G+oC6b+tb3ePuzfEMtoUtl+9mbo 4jVdt3j7SbFjNueumGtureG1gfXYYjC/7+7BDOZzJmgSih52YmjudhB2bIgF qqcEw5sJTg1Fh7l1srsYtgMH35naISs8l2hNbL4rBjLbJBtB0+y44tG4P+/h e2TMs0EA/xA5GvJimMIuzhQcBQZokRILe1fuCNp04vojHOQdcGSm9MbpAQgx 6oIvPUCtv0aVzZ3EOVWEV98kXh6P2wRB8Au13s73I62bMV/jsGtwA+tmmsHW Xbe1bsRNDbJNXSA8/gExF4gtMaZSvg/OiMYtgVEDofxJvgxHOBQcn6v+gPQH pM4PIuLzUWsErMO52xjn1sspgN6DK6GK1zO4Zyw8HbbfgEm6ISZ+bHr6JE8G 3qKRXikvj2+7bgl1U5IMytZjztKoSPAcmXDlxojxEejtsWnka98P7gSQ18HN tS8zj09S4tuZ1aZHQiBpW2lgkHjnwZZ0gbje2lk6GHU8Jm17DXgsD+5O8LNR Yg56yXatcVpty/7UOjWvAI64/DUEyupSjvNlW2pLwrVsHmmDkRjXGkzvUGDt qCTnzXBSqe3FO8v/hV/incoFEAf+ngzqcF6eGo/kiNvyYxhBEHrzAIE2MglZ NUC6XxKd4MFgZ/XAYzJcWJviW79I2h8SWwn28qKlHhsuDqngn+bFBNipAV5g oM0YZtPTZ/mX0SxDUPJDHo/K1tQfQEnWzhs3IiQa4lVr36pw0iTIoymoASEs demQwqh3FU3FvCW9Xe03QrQ1n6lCmLvC+G0y6pqS3VuHu/rjYlumnhDo7DXx BqASxGF2uiF+Qt+q30vimHhfRrP94NDU7wiUiND3Fbvxqr+9sUJTm0E0J6kx G68Uy2kIUUVD8BEKnYB8yxTtIXTbwEKxDODabcDG3RWBdH/98Lprx61ANtVQ tbHZ14nJ8ieZI5ojBwsn/jrdL98bT6uvciG60MLJZ1GLYEQxf8FXgyCResyr Fu6uABlVAw64Eq7gGlqT8cQseFn+vXof1FuM+G9dy+/vuFkJGgInKSQ+DlYJ PeeiQhE6t/VSsOz5RgyCP9ot6J1e2RdM/YGJ/OO1fOgNJgPfEBtQTcaRBPAg hcjHQQskHRw5Ko9zCsItCdIL2cLNrKnNq0Q2gAIJITOBrUgSDTx33xamfiVt CkI/x2r65tqZu1Tze3zaXo1xniSBC48+Yw6o7DHmVibtTqlhpdr/QLpVJ82X jQJP2neF7VrmwfhgK5/7TuZMWqr9+CTZkfYRDMxNbegft4Tnj+u+8BuR9fwj w9j91DgWEI7HvKeAtXFAOCWG3waY4+BvHGCOsc1ZFLdTp1GeNoiEUodLvbdr uRgKUUKQJbMWK4XUc26Q9EGvN67Lix6PAm/wjupc9jQKZKbAp6/sTbINzZhR OKt6GqzJ/e28ra9J7u+EGOKD35h8eMw0NN3whdgcNSS1sF1dyvLmPKElAzJW mtfJBd2dG5gy4+8iCGBnxvZltLYYjgji2X4XE9qjDgvNjUOJ1VTciSHHzyoh xwnv4LYhxMOSfntPC6x69dIZU72xIipxCTTWmVW1xzdxDKpeA23FpRsxX+T1 rRaLYjtoxxlD3GP9SIMpqBZBs+4hQcAexs5IGJAtwox9SDTugW+wPjbiOB4E HICDtVg8AAb2czw/H7Nzxy732Sgr5+OcGPg1r05BmnM9BD7wf56oglaF27EV Fr3fs0Fence12Da0QjeAw2NLJBwzHFkih8TvHv6u7qMilM+bvnKdI/H6SH9Q JvBqToiKhdg6AXGvA0i04Toa+6MT9PYh4y6s7QO/LBY8QqlrW0YoRIO0O0fZ oRummG8a93vi6Qw4dQcAf8AKAirOkYG4B72z+6iI43jor8fTwPDIwam//ems wry+9PJ6LIZCB3KFg0SQaqPP4MjKb5g9JTTkUeCAplBGOFDYY65DgcKet3kC jZMDn5Pf7V0bkQ04csDlwY7rDHk7vBoOiwVRYE3CEyBiuNAc3gy6UWWu2gw3 jwCDNEVxIvxlvWmU60I2f1XeL+ryV20EefJbveNx7cBcAY+HFn4m5uzwKnfr eMgE0kb97/pt4V5gLAYdoBskljkKtzkoabtiK0H2f6AEYzYw7jJf0/liCdiC Qe5l3jFxPuC66FSSGYP3aU76FpV9b/E1G0oQNfERPCFXyWNDLA2go8pMnOtv p8fcsiJvNpMrzR1c7cy01cMwPbyP7giw5teG9LyIjJ7RqCzoQlFglrM27uX3 0Vwda8Be/wqQmo8X3APVBUbf0wz48TSSmqgKwAL6dLzMxeVTq3fJYNH/A2jK LBdqUebf/vt/tF1P3JOL3JgrjQ3vyVxpd6pDt3N4tfmVcDwotmvjTCvKYBvx aR0EKDvyXL9QHcb6BOslwXpSiOBJwQkr7LkQMjFk1cSG3ydr5aHWSs6dK4CJ Fhl9EPah63ASkQiOVx0U3ck+PSGfxyKf/HxgpknLL4DE9PxoW557aH2yZ/rd o7J7I7UmGyZldJCSoS6lCKf1QKc+XBeN8AmndXFa2PSXxUZsI9czxdKYr6rs +2SirDNRiprBsY+bxBV1zeX4u3mLMAc/AbLpgKxXs5SKz26h0C6VMjjO8U8m 07jJ1DZd2eTlE2kgVg/uWcv0TxBrLcTaRbQXTMoXxe2Y3vSJLdFjCsmTydZh a2PxVuvbIS1TqTINrPoxQx8Wi8b4BKymAqsdzH75gzR0L9mDu4chljyOUd2n Dj8ZzZON5qe4b/IS2kuhQWc6OAvo2N7ICKDq32g4to0JwU+P/GgFs8xfsIyZ c5/NNDsNRsvK9s90zPuhFln852qsDlKWCrFR6MIITj361Ah9JcbaeLeyTHW2 pXA91W4gRB36bcXmTFvY9D8PLgpKUOVZCWzCnsxxTTw6TgM43tjQpsOCXdxp D5U5rzgcV+1kleN+IwHaSuBExyIOl0pXpon7vKTr8UXHLIuWgGtynVkGKq/N zW0SKQRezBvLC24C1WKv7428XPcLqvPFynkt32dUfeuJsdQzon5dcUI2u6WD wUATZLLZy2bUgK5NHQCzbAUs0bYaHAi5/lxdw3ADxBbTcsXWkphQ9imvbWfX VJ3DoVEzok8DVyCpIHhHmjJP3PYLowXFnKpDWfUMfLLU/fxdca0WvsQh69l6 Q7ncLfMNzXYl29WhcmNEUEN9nf8Sy/LbqoJiu6YP8zmdPzzQOdsQNqyC12GN cdk14Mt6QhnT0v0WJHtBwrQ4j7nbBk2C7SAt4mDmmSaEVASHswUd9cU2pQjR ds8+LyQtPu0sHs75uz2FQrzR7YZRNBOX34ow7+uo74I+K6BPT6gYfSSDMb2A T31x8ThxmY9Pfh/WmI0TQu+3D2rIYvcunzlUQuoycchhVjOrcFVAhWV2r/el 28XuLzzL6XWrm3IvBDKgIQbJUD3xdkM2CR+3AEUcWOuZqklYKS5vhMZ7Obyh StM9U7c9GhPnlXNJHDtDRE73AJbmfqkEW2hZSC2GyV6zrWrzyY784eOs9thM LA+cicBRObpu/RgKXWwL3e3l7Q19UKfnMyjnVyfYAWFFrAkxIzRit4cP5JUR GpNPQe+lvUGL6+uJpgpCugohTsxkvXJx9FloqpT4wt16rydrfceIPVo5Q2FH o9IvPUBp9WXu6qB23N3GY+xXfwsDuH4HCBOTkDhS5+rxqzdA1PtMax1KG1El e9qwNrxfy2neZ9rm6NteWpqttnR8M6TTBdtG2La/nskFP93srfmFefsjRffj RaWcqnO6AsVGcNqeru9H9LIvmRt0ezkFbD2OJnSVl/ps5/Mxi517ZKl8NaeT uxtQpf7SpiSTXvT6WmfqoNKaJmAQLyV7mhWWINCjlHulIvWnsu9aPy+39H40 pJcXA43h3z7keiSo3x09NUxCrhkJb69kmzvq7b5esI8gh36KZ4Cvgp1olnfn djyhs/mCZmD1sYmvU09gv5LRqh0cwEe1PP8FD6klRis2j3Wp5dF8eMmVAmdy pDwCppJw9SVdl3hWzJ73v7KZXz39evr19Ovp19OvZr/IJ/4PFUZBww==\ \>"], ImageRangeCache->{{{0, 253.062}, {359, 0}} -> {-0.0500105, -0.0728979, \ 0.010373, 0.010373}, {{6, 120.812}, {350.188, 187.625}} -> {-1.55915, \ -3.01765, 0.0800228, 0.0800228}, {{132.25, 247.062}, {350.188, 187.625}} -> \ {-12.1104, -3.66551, 0.102886, 0.102886}, {{6, 120.812}, {171.375, 8.8125}} -> \ {-1.48117, -12.5137, 0.0686284, 0.0686284}, {{132.25, 247.062}, {171.375, \ 8.8125}} -> {-12.1104, -18.3834, 0.102886, 0.102886}}], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output"] }, Open ]], Cell[TextData[{ "Here is a animation indicating the subgroup generated by 6 in the group ", Cell[BoxData[ FormBox[ SubscriptBox["\[DoubleStruckCapitalZ]", "8"], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SubgroupGenerated", "[", RowBox[{ RowBox[{"Z", "[", "8", "]"}], ",", " ", "6", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}]], "Input", CellTags->"Subgroups"], Cell[CellGroupData[{ 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.333333 0.5 0.333333 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 1 1 r .06667 .06667 m .06667 .93333 L .93333 .93333 L .93333 .06667 L F .628 .126 .941 r .5 Mabswid [ ] 0 setdash newpath .5 .5 .33333 0 365.73 arc s 0 0 1 r .055 w .5 .83333 Mdot .7357 .7357 Mdot .83333 .5 Mdot .7357 .2643 Mdot .5 .16667 Mdot .2643 .2643 Mdot .16667 .5 Mdot .2643 .7357 Mdot 0 g [(0)] .5 .75 0 0 Mshowa [(1)] .67678 .67678 0 0 Mshowa [(2)] .75 .5 0 0 Mshowa [(3)] .67678 .32322 0 0 Mshowa [(4)] .5 .25 0 0 Mshowa [(5)] .32322 .32322 0 0 Mshowa [(6)] .25 .5 0 0 Mshowa [(7)] .32322 .67678 0 0 Mshowa 1 0 0 r .03 w .16667 .5 Mdot 0 g gsave .08333 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (1) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"animation", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztW2uwW1UVPu19lHIvekupow7CbQVfP+4fHuoIlLT0ZSkpUApoZrTTIbY8 5NIWa6Q8GlCMgBCdYoCB4AzRGdLW3l/xdQe9jjP5k1HjIz6CBDGix5kzTv6c H+fHcq+99lnnJFkn7blzr63aO3Ozd7717bXXfpyz99p7ZduuA3vuuGfXgb27 d01u2rdres/e3fsnN967T0FDSyxryR78n7QwD5blf+i/vfhhvpzNn80vcP4E JucgeIKA45iMI3CcgGOYvAOBYwQcxWQCgaMElDE5H4FyBPAqJhcg8Oq8gVcw GYWXJ/+l0RHMlUj0EotGudQI5pYh9hKRnsNElxpnks4NI/Y8kY4wsIJJE1zw CJHyTHoXN1TnhhD7BpG+zsB7mfQexp4m0hMMXMSd+j7GniTSVxlYw0OxmrEc kb6CyVIEPsADeCljjxPpMQY+wsP+Ydb0GJEOM/BZpmdJ9DADd3DuERI9yMBe zj1EogcYuIdzh0j0JZ3oysD8WfcyiaTWFxk4INAPEukLTDrYnbOsAwwEltxP ov2CwgcFbB/R7+PyhzlnRNNCqUejWmeZpFv0ZdZpSEF3fU2g302kuwXRE1zQ kO5k4BmBbl4Fn8ZEz4lRgZQXsGEukSIVt2Oi596QQP+mKRTCmP8pUnAbJnqG W1qDz7U260/1UHsNSNMCqf6TUO2AtYVbp0veTqpuxUQ/UVtMWc91wXU7YLdq kEGjS3VrK7Nuo2I7MdFP6ybTBHDrkDRr8pD5LDVdbtYmLnGrrGKZ+uhAYcqC RKEGnteGnMqni3PguMb6cPFbMLkgKD4CbqOovqahBS4UVdFcrUPFNGtnb7HN pp8raQuSxVkoJrGIcwoloFP1mwr5WmdAiS2mc5qllGE7g0zy6aozwW7b6hMG 0Y8sjCgYiG9Fj1GfKJg4z/VOjmB6vhCeqOFJvjOkJCRC4hh+vojfxoUZHjas R+dS/NTP2bc5Nyzwbgn1SI/oBwK2I5r+QwG7meg7BNGPBewmot8siGaj6TcJ otcE7MZo+k8EbDvRbxREP42mbxdEPxOwZDT9YoO5jgO2besn/pDBvI6Pedb7 hbI3kNqkILrIYKDeCdkpejctNe+m7EyDeQeZ14GZTKKLN12qMW8yuvobIluF 7zUb5mYqUG876r3mQqOS1W+DctOlZVtz2lDMZKFcbUJHvX0blRxz1gi6t0VX 63cSVosv8FzV4c4Er6bVIiZ15vWkdpsg0pspaxQ6dgtajqdBr1XR6ooNl7Yh uJ90odWoQTmXpqXHgUE1XS+I1piaank9FDCVmKKVLFVQTQKqabh7kcvXLxU0 bT1ZJSNQx0rSJajXq1Ctt0A1jDc37VkcqBQ0PLAuiVa/NXIQjPrpGbBxFrfb YDuu2c+NQnuuDKW5JlYJrUrGr0pqyCdPVtMo1Asps96b/0RBTWfIGEPsuXyX OFWoWh8U1NEaZCrsFr1iMFDzs91qQdt2rQ/FU/FLAaNl1doiiH4Vj14XMNod mFLdol/Ho/9GwDYSfZMg+m08+u8EbAPRNwqiRjz67wXsOqJvEER/WDD6dYLo TwK2fsHoTQFbR/T1guj1RaX/WcASRF8niN5YVHpLwK4lekIQvbmo9L8I2Fqi XyuI3lpU+l8F7BqirxVE7f9i+t8E7GqiXyOI3j6T6H8XsKvmRb9aEP3j/4du C9gn5kW/ShD983TRP4aJ9vve5tzHSXQlJtqhfItzHyXRFZhoJ/VNzl1Jossx 0a7tG5y7gkSXYaId4tc5d3lINAp0vGqpzb1E8veTjnJt1KZQfxvDzxEkLUeK VqFXP+2uX0YFV5qCjRLv94yzcg6eRkDw56mNeBMPEcCzm7hn1x6yhedWbSik gr1gMldB2rlC9SsFM38umzQKnqs2uY4Ns9kp2vQqd67jAVWLroENOVUqW6lC Xrlj2Tnb8k1qFJOA54N1xXfqJW3WTNvTJg1jVWNYkTZuxeBWHDUWg1uDlNXt 9OEO23SRNdHbilWmIG7Zp3La66OzO2tcbdXN7jmRh5brmQ6m4yrDVX9NXaHy rQaZHdFSMpsOwcppalFutq422jXIpTNotrUiyuRayGQ6UzxPYaqeVAbSysRU NgPmHJDMTmJTstBQNti1oq6s0vYsye6JkGERzaXbD91ZyovVxqfQ8Vt5KvaO mH6p5TIwF56+qr5i0vLPEpO5WTCnidbyk5kZ0bzjbKYLFZyjysx6Rz2WpzAT RgzWabfAeL9m8g5DNaecvGQB2p0OOI47HmnekN+qrlkZblpgoq3PP61UCb24 vpFfaXie3YDZqnK3M1No6phf3JmDKXwm8rNYXFvU82SvkI3/nhkOj2e5MrmW 17s4NX0iDXFbFT4UTeRr46bTOs0ARhU4DGPcP8u5f86XDT/eM/lSxRq5y9oz T0LdBUsXDb9a/eFzlc/tUDOs8dDQo+/abLWxz7UpPa/qlQNMP2ZkzZkshL3p dLFGPRG2I1g9Vsm1H/cnhXpvaofaccn48EIzYHkasKgNWArPqCU7Jn1xNzNn /L5t4egLsL0+o1yDAfS1gmiAFyTRT5sHF9NZ/c97zgPoMb3+xT2CiHkesriH MzFPihb32CrmGVrMEzrpuPCP8egLdxi5AAepA+gxT3VjnhnHPJGOed4d8zQ9 5ll9zJsAif4LATP3DNKlSE3ABtyhDKBLd0fBDZsHrtlglgSeuR+SbtP8Oz23 XtAvM3TvHjBYv2c/FPbsxfvAU6gKb0GnldrMrG2qivTYB1zYSTeOfg36wi5V 1ndo/o1j2IeS7tBOQa3XKnMfHQpV5auVrDX3o9Kt8GruDwfypj8ktVI3m9ve 7QPUtspp7gR/ROvzV6sD3bQH5MJMNguzzTbYtho1fXSQhJrygOiOr88ZlGoy l/DSFf+F3C+Bi+p734V6MP0Omtp6PL7VgkpqkBh/8KLBwk7axQJvQAjDa9H0 mPEUUrTGjwTMBHfEjAWRglW+L2A7oukxY1vmHVcjhe70RYr1BfzML4JowQOZ FlHkL6f4xnfsNjgdjxYIme6HpOEpTviIslC1+wO6gi6iWkahNYOxE9PQUM9F szwNGNXW9KAvBk4OocNndypfpxnh1iGBFdc7/SF0wYhuDhUv0MmsmVGOPrHN 1Rxqrhzm1TOXNvZqqzqsLT9F2np3EKjlvNBs64mR1HGLG8KNTIQa6VEj86qR foxe6KFgTSZ6MojgXNZjBH5bb8agWcZFOAMtD4MzOA5kI1szympMWOddgrZ1 PBHakE8EEyE32xa3l3eSKilc1fcx6AypqQ+LJBVkRigsNse5z5MoMqy2BzP0 aS7/KOfuI9E+odTDAmbo+7l8EAhN0crW/QxI0c6GdFAQBQVNIHMQCB1URwsk Bd4EscNBtLNFGwAN3NVtpGU9xMDnOEeNtB5hYDfnDpMoy8BnuvvPBJjrVuiw 8iDAXJNoJKzHGdDxQHoCX8IFTah6jgG9+uqHcZIxioe2nmRA7yX0I3whY08R 6WkGdPi9fk28m7FniKSD9vWztYpJq5hEgcvWs0yawJx+070Tc/rHAc8S6XkG xph0LmMvEKmIif5xwjCThhh7mUjf4eqMXOW+S6KF+D3FyX+10fdDj76fgvT9 WOQED/sJAvDzdP/G5Wz+fy9vLfk3Wtba8w==\ \>"], ImageRangeCache->{{{0, 359}, {359, 0}} -> {-1.50002, -1.50002, 0.0104458, \ 0.0104458}}], 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.333333 0.5 0.333333 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 1 1 r .06667 .06667 m .06667 .93333 L .93333 .93333 L .93333 .06667 L F .628 .126 .941 r .5 Mabswid [ ] 0 setdash newpath .5 .5 .33333 0 365.73 arc s 0 0 1 r .055 w .5 .83333 Mdot .7357 .7357 Mdot .83333 .5 Mdot .7357 .2643 Mdot .5 .16667 Mdot .2643 .2643 Mdot .16667 .5 Mdot .2643 .7357 Mdot 0 g [(0)] .5 .75 0 0 Mshowa [(1)] .67678 .67678 0 0 Mshowa [(2)] .75 .5 0 0 Mshowa [(3)] .67678 .32322 0 0 Mshowa [(4)] .5 .25 0 0 Mshowa [(5)] .32322 .32322 0 0 Mshowa [(6)] .25 .5 0 0 Mshowa [(7)] .32322 .67678 0 0 Mshowa .5 .165 .165 r .5 Mabswid .5 .16667 m .16667 .5 L s 1 0 0 r .03 w .16667 .5 Mdot .0425 w .5 .16667 Mdot 0 g gsave .08333 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (1) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .5 .08333 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (2) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"animation", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztW2uQHFUVbjKbTcJuQh6El0ASHgqo6w8eSgmECSThFRZ5o1NFpVKuvLMJ ARxBHiMKIwgMVnCBksEqVyGTxGyptRa6Yq2vKXUUx8f4GGEQR3Ss6rLmT/+Y H8d777l9unfm6840pYIWW7Xdd8757nfOfXTf1+lNm3dc99GbN++4fsvm1Ru3 bx6/7vott67esHW7EqUOcJwDrtP/qx2dJsfxL+bven2xP95OJ06/YG4pclst arme+VVi1XNWRV6FMrbO55nrQnXNUKVN9q9DjVqddOZOq04Nt5MyWQfVpUkT GZPV/I/mpzVsV9jAYnVpU2mMEfmZKjUbFcqPZUMGWpRXutx0mQoj6j7bcnwL teKoyjdO1XaH3Oqk4ZhqdqyF581twPhRNBYyVHZpwIqbswV2LV2ghteZZ8QL jD8Tys5IvmLt100F5MuuY4l3CbFH07kRQ1xtEzMsoUpBeZXJ0phiyeSySj1K ZSmNYh/VRnNUU163KkXjxLR4XRJyVW7F4GQmVR5K2fao5LM0y2TOPL+NFKA4 Gm6jlKrsGdMmGvF8uD4GqeN1SLyp6EpIa/98C+1mg1xG2IoeoHI+Tc7oBDXb bXJdb3e4CYMqyxQrpDM2ZnKm0FWPnEV+cdxZGtGdoDCji7M77NJ8qk/lpJvo /7FixRmyunZ9mkZFl9ZVNbchdCd1Vb9pUNP1TI/yG0fL6o1mqNdFPQlvtfQ+ fdNPGu1jwV59G9CClP45X6f2smqPvul2p0X6Z0qn9rBqt6iGRGWrviSqxaIq dauW6J/zQqpdojpIcu1KoFoqhPtXfVnfBunZ1f/s0s/XskkGPSOgQWB/vpYt 0NpnGP6kvpn8wwA+zJWstE8xfKcIlulUSuokZT2yZDsZXhD4IQIfFriVKe3j DH9EBEeIMwp6z0kncW9QPd60qGn2wwX8KOd+SARHG8GAZLT/C6SjHCXQhznv gyJYbQRs1HZD9Qip6xqB5Fn+GfZRCY4J2Qv9DetsxwvqAc52vwiO7TJF9jnl fn6i2LufM94nguNAxtOFNsfwe0TwTgA/Q7T3MvyTIngXgK8V7d0Mv1MEJwD4 OtHexfBPWJCSCAjZWS8ZOYfzcRGcCODnAdo7OOPtkvEkkPEC0Vr4DhG8G8A3 ifY2ht8KDCM7lwDcdqbYJpzvARkvFa2FjwMm5OoVALeVKbb2SXGV2LYZbxbB ewH8w4D2Js54E1Ch0mbEgM14gwhGAPxaQGvHiY/om3l+BgEIub8Z4IKnMMO0 1+jbsB1t+qLdYolCOOHgGnOu1rcl9iWn/yzWQWU+1FzV+7tTozEZ/c1Eyjlf asuwXcP0phmXasH7Yvg6nkee16aWmmZmdYEnq86FkvNqprpS35ZrASrqoVZG XtWfmJgXvL5O1j3BbRSWq7ppUac4zFyD2VR6Qs2mOk0zCRwrzpKan3PJw5Sm +x+sBehxPMIW2qsVFWSMGmomVFR0+UqbqUzOK7up0KvnSNu+02oiPVqcMfPN fMWNYUEvyqMsC7XLMqcrVNoxLOitucrK6pMZy+DGFQeNB/6wp2eJrWZLzxDj KI4HFDdHw9GAdUs0HA2MW7vhQedB8G2i7elrxwD49m548PAg+A7R2gckeJQR /HbRdr04rgwZC6k0cCiKzIyIw+CtES5olx2zMFoYVVd3inYA5L0i1Dp9vPfy AHd5NAV68B8CuMuY4vI+KT4HcJcyxWV9UjwSTXFpnxSPAdyHoinQWPw4wPGk wjLtn+Lz0RRoeoIodgLcaDTFKivzXJdarZZ5Uy8EtNusrNP2cR3nWMB3MZsa BaqjrUwtsik3MnfJn5uqCc7v2WHz45K3TVPZ9Jy845MVwfnvRuDSxZGl1+NW i2anpqnadNW45VFtmtf0pboH3dkm+ZpUzOaoVK5TW43Mtem85DsG2NsU7Ypf mdqVrN2zSQHTt/u4TsWY0jjUEBexqU1AZZZHziC1Ww2952WEnca0oSvWPH9r JmyV59J6SepRo1ahUn6MpzQuxVm/CKi4XhZSpWCakUbSIzxDykyoovOfMm3e nbryw5OoQvV4wHjh/owtoKo2NjZJ1WqZytUGdQJD/E5V+Zpm6ydDtQ45x0Wb uTCy8QbZzPgUtfRT0myajUllImvVzdkSTc7WeaNpOutbQ2W6oA9jExkKbzzp 9moTZW1Ttfw9QvufmSjLOi5Mdz5bugCo0ATGXx6S6u5m36rlOScko0WTmq8C HC8ZLdP+KZ5LRoHmRbsAbiNToPUroiglo0DTrT0At4EpNvZJsTcZBZpq7AO4 9UyxoU+KqWQUaAr1dYA7lynW90nxjWQUawDFN6Mpzu2TYhrgzomm6N7b0r++ lYxiFaB4AeDWMcU5fVJ8OxnF0YDiO8kojgIU3wW4NFOs65PixWQURwKK7yWj eAegmAW4s5ki3SfF95NRHAEofpCM4nBA8SOAW8sUZ/dJ8eNkFIcBinIyikMB xU8A7iymWNsnxU+TURwCKH6WjGIloKgkozgYUPw8GcUKQPESwJ3JFGf1SfHL ZBTLAUU1GcUyQPGrZBRLAcVvAO6MaIqDAMVvoynO7JOiloxiCaD4XTKKxYDi 98kohgHFH5JRDAGKPyajOBBQ/AngPhhNsQhQvBxNcUafFK8ko0Br/EYyigWA 4tVoig/om9m6mh/lvtGezvDT9M3snaH16MuifT/DT9U3f9+uB2kUpzHylG6k Pb1mpNkpPJWRJwfIngNK0+hmF/KUEHjQFs8e9oYM6F/zYEZ/+h4OZDE91Rx/ mkNUQ2t6qtlVPZkz+m/K2qSsAyXMpRCEoBAIc+EqjQxzORCYXwHc/CF2SYdp qPWv26IZHWGi18OuS+2ObUnd/L1xMb5LEXExxiVzmGyiAYxzy+JLsdt63BsG lKJQGBC/qMOl8MdSvZq3oTR2F2i4O/LGVnBk2E2c2xElZbf5LCUiuIiHJ+Ry JeQy7x4tjonpiYzncZDfS0OORUUZ7ZHKmhO3tKIff+fbegmFCUn1Fkcd/5gq HB20aH9uRhRvr7g5JwpqeT89wX97hWON5lm+rlij4Uj39h/4FLg4J5aqp+VX WFynVaOZcoVK2RHt6pCffW7skvGo68lehp3/mm2OiJCrSEe8RhDzlC5Uhm2l oVCoIamfRVI/y7Hje7s6H4rXMlnDr1a/+by2qzesza/hUNOHYqyMK8Hre0Hw ysOu77E6FP21otsPczMjy0ps3d+uCQeDrZRMdjgKhrhXJWXHtGCwfE1SdmAM ht3XJWWHWDSo/wPIYuYAbxoczaxa/1H434EsZqb4vwJH646/JYO/DmQxC6M3 Db4WqP6aDN4Espj18L8PjjYv/pIM/hqQrf1vwNEO0p+TwdG6ImZ/KgaO9uXQ wicG/gqQxez6xcDRbidaC8bA0eozZi81Bo72kOvJ4Gg1bXeo0VY7Wr/HwNGO QcxGfgwcnT6gXZGYw4oYODphQds2MXC0UWTPb9Ap0q+TwdFOlj2jQidlaO8s Bo526+w5HDoNfCkZ/BdAZs8a0WEp2gONOVuNgaPj5eDQvkOenWBOApw9OkaH 8f6JlVedMC8zvbzzT6R7V/ap8Moehhj0YUoHYIwr2uxMy5qKXLHHnO2jIAbf gjnbz5T0DN25y8rCayh0vN4HbadRkjq6K2TKp0Xe2pALFJDiH9OptQYVbH0g WlTNNqjkkhjaRmlMKsFv0eobp+UjLL0C8mgql6OZepNaLdVqZutglCpqBcRn /z2LQWTJxgShyCT/pCu8RPVX3xPVoPvdYa11rfjWAEouEAyl+qKVhRdpqwAu JhrrxWg4CiGbATIbLoaC1tCBp41xQ2Fy6IjVwlG8HzrUvTwaHoQHfklSMaGA keGKptZjQhODKMmnJdUTrPykpHqCj78gqZ6gzh5VEE26U1I9gaZvEZU/nOo3 vttqktvu8ACB4TxM8o5neItyotzqjdkNqoitDFJjSodZjVNNPRf10jjpQOh6 h3pCqYOcbJD3SfSzO1Koco/wqpTWhqvt3kjsoEXPC2Wf4J1Z26Ncs2Obr7hc XBxR29WXNnSzlV1hK4wwW/cMwvE/4rG9rSuc34TOrw8XMh0qZIcLWVCF5JLE BvUHHyD4Rxm9E9FBVe96EM5So6ODtiREbIN4Myg09guEGwHbOukITSqkg46Q n2nC6eUNTIW+yvDXGLyHVDebRYiC3Qh9EZKX1C2sQl+ZfBrILHxc8n9KUhwJ aT+UmZvrHiCz8Fslf/At0w5W3SYC9CGSBd0BVEFG+51Q8D1SYI4HSA5iCz6b MSkeonkCYAQ3znXSce4WwcckxYV07hXBFkndx6qcCK6dW3/2+zJTCvPZQvAt mQFxSzgPiMCEm5kOfJxktF+q5UVgRl/zMK4W2WcZ9LAIzFzCPMJHiozjsJ1H RWAiNMxr4jCRPcYgE+psnq2VAlopII5idp4Q0FKdMm86cxxtPjt8gkFPiWBI QAeK7GkGFfXNfAo5IKCUyJ5l0FfEnNWrFEcVclifke56w4KSFLQUIdgtlWo/ U90jTWE/ad0rDWg/f90nzb6PBfr6Zn+/+3b6/y/tHPAv0EhOgg==\ \>"], ImageRangeCache->{{{0, 359}, {359, 0}} -> {-1.50002, -1.50002, 0.0104458, \ 0.0104458}}], 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.333333 0.5 0.333333 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 1 1 r .06667 .06667 m .06667 .93333 L .93333 .93333 L .93333 .06667 L F .628 .126 .941 r .5 Mabswid [ ] 0 setdash newpath .5 .5 .33333 0 365.73 arc s 0 0 1 r .055 w .5 .83333 Mdot .7357 .7357 Mdot .83333 .5 Mdot .7357 .2643 Mdot .5 .16667 Mdot .2643 .2643 Mdot .16667 .5 Mdot .2643 .7357 Mdot 0 g [(0)] .5 .75 0 0 Mshowa [(1)] .67678 .67678 0 0 Mshowa [(2)] .75 .5 0 0 Mshowa [(3)] .67678 .32322 0 0 Mshowa [(4)] .5 .25 0 0 Mshowa [(5)] .32322 .32322 0 0 Mshowa [(6)] .25 .5 0 0 Mshowa [(7)] .32322 .67678 0 0 Mshowa .5 .165 .165 r .5 Mabswid .5 .16667 m .16667 .5 L s .83333 .5 m .5 .16667 L s 1 0 0 r .03 w .16667 .5 Mdot .0425 w .5 .16667 Mdot .055 w .83333 .5 Mdot 0 g gsave .08333 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (1) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .5 .08333 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (2) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .91667 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (3) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"animation", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXHtwXFUZv2TTpGnSkqYNlPJoSkuRFuI4KuoIlBQoIJTwfsg6TKdDoDxs hCJGHoXwcgXF1SkEGAmMRqXblmYcJwqTYYzDGMfZQRZxB1lwEVf0OrPj7D/7 x/5xPOd85373ZPd3T+4WFXTITPbe/Z3v+33fedzzut/ZLVt3Xn/tzVt3bt+2 te/sW7YOX7992619m3fcIqHEIZ53yPXqv89T98Lzgg/9t119mC8f3Td9/4K+ JETZ94VfrupvGUr6iUkS1axImjJv0Z8L5WdSZCvC/NVEMV8QSrnmF0SxXEto 1Tb5URJjSa2q/wdTU0psj21gsfyoiMwQSaSmc6JUzIrU0IhlwBcpmTY6NSvS /fI643uBhfz4oNQbFrlKTZRzE5pjslQzFp7Tl1btx7i2kBSzZdFq4NJMmlwb SItitdai4Xbtz5i005/KGvsFXQCp2bJniPcwcVVMjfZr4lxFEMMSkU1Lr5Ij YkiyJEdHZPKgmOXcSPZBZXRU5KXXfnZcOzHFXmeYXOZbMnjJCakjEqY+sqkR MUNkXktQR1JgfNCuo4Qs7GldJ0riObs82kStWhPsTVYVwoDyL7BQKRVFmSRM QbeK2dSA8AbHRKlSEeVyda9dhWGRJcezQikWp0d1pnNV4XUE2SnPiH7VCNLT Kjt7bZcWiMLkKDcT9T80nvU6TVqlMCUGOW1AFdXcilCNtCzbTVGUylXdooLK UVihWLJaXdST8GG7P6Au6kkTBwjYry6tCkiorwvU3X5K2qcuqt5Fh/qaUHf7 KGkvJ3Vykin6DCct5qRMfdIS9bXFStrDSYey1p4mkrqZcP6kH6pLm3im7591 6QsUNkFCT7NQG7C/QGHtKvVpEn9CXbR+FxDvokKWqU+S+G4Glqq7BJdJwnhk yHaTeJrFD2PxLhY3mEz9Lol/m4GV7IwU3bV+PbUG2eJ1jcrWHGDm/wjWfJSo HmbgGA00aLSzG7YFCR7Fmo8Q1TcY6NMAiZsmKh+vkML8ecewRorEHqTsSOBY yxvrr0uxtNTRq299rPkQUd3PwBogrvvyhVzTdamr2a/7iexeBtYC8WUAW8Pm R4liFwPrgHgvwNayxj1EcRcDxwPxwwF2HGvcTRR3MPAxIH4EwNaxxp1E8XUj JBEWQv4cCbDjmYxYvK8xcAIQPxpggd+2+duJ7KtMth4orooi0xqGYicDG4D4 aoCdwBq3EcWtwEHkD2qW64HuLUT7FbZzIlA8LopMaxiKYcCOsolqcwPQ3UG0 O2LSohrewD4aspsZOMnhhY0FxWGbv4nIbgJJqPSQqRPZEUN2AwP9QPzjDlrb vBmmr1YX3f+0ASHkzydiGgh7tiSZukpduswEIJapT0aaarV1mfeLZOhKdVli unn1Z2Q9VF7UW8nOt5YXQzxJ0/Nd2A1p+7r0tYWryOQV6tKtAFT+gY1atSqq 1Yrw5QphRBXMRA72Ticx25VEf7m69CgAFVPQ4YpqLphn6oFSfU4UqiyHsrOB ma+oN4Ua6Ar9GU6YB8bkhLlW0vP8ofEZIZdgNB6jLsA2c5m6LFcA6pJWmgKr 5selyJAoygnwuDSRylZorEbdp2a7vJ4ePezkYauYkmuqwfFpvfRIZcurgOjx 0cxo4DraMIvKLE/509lK/TxEfVsXzYz6vcC5wkTSsJbhMHBcNC0a7wPP1GLD L/lqoeEdC+TWRtOiLv9sgK2JpkCTmXMBdmw0BRrFzgPY6nqKsMEjii1RFPiZ QUU3GFXsNkXYgSCKi6Io7E4i7PYQxSVRFEFHaXfGl1tOWUlKsDPKwGVRBrpA T2wXXJ1tPaleGFUfVwBsNWu0Aj7yi92bb8y5CmBoeLs0mhZ1nFfHpKVqMuzz 034pJu3FRHsJSEK01wAMTW8M7cUxabfGpL0omhZNvLbFpL2QaC8CSYj2WoCh 2aehvTAm7XUxaQejaVcZrFouC9/39ai7ENBuB1iwzKxVAt0arwBsGxeQ+UGQ FIzAQo7Lo/1zd+1GJ/MsFzyNtvkbAWbvAk6ODMzhG57IslwwVgE3L4gsJTVX 8cXM5JTIlcpyrlIV+SnaqssUqtBFPfOX/Vzdil/oXdiRUZGZLYiKnMXlp1LM E3SItv0t0a4FBa5cGzFbs8Gk2HZlB8ACl0Utq80rXVSB55P5LSCJ5g1touIX 1Xa3BmvFKU03nq+ibQ296vM6QKFURTGfFZnUEE2by8LlzfkgicpuocimddWL /oF+moUnx2Tx0J80S6va9rke2JP2dI5Xnzb9efNZbhc5ZXloQuRys2I2VxTB 7rI0ZZb07Q0ZL+kt4qTI18zkCJs9DyStMcWvzQ5PCl89iqWSfoEhzYyYZGVx YqZAG9JTI4E1lMcvxDA2lhT2BrVirwhBxhYIfyZtNtUoOTk2y8tvm45mZcbg /HsvwR6NkM+Lwkt+FW6cOGjRrPUugCFvzyHac0ESot0FsHVA10GLJsP3xqSl SbNhn5/2PoChxuGgRfPuB2LSbibas0ESon0IYOi5cdCi+WAqJu1ZRLs5Ju3D AEPdmoMWzZG/FZP2TKI9KybtowBDI5KDFi0l0wBbDXQN7Zkxab8Xk/aMaFq0 nt4NMDRjcNCuAhSPx6TdRLRnxKR9AmCrgK6DFm2EPAWwY4CugxbtdX8/Ju0A 0W6KSTsOsKOBroMWbTY9C7CjgK6DFu3K/SAm7elEOxCTdgJgRwJdB+1KQPFj gK0Eug5atF/4XEzajUR7ekzaDMCOALoO2hWAYh/AVgBdBy16m/V8TNrTiHZj TNpJgB0OdB20hwGKnwLsMKDroEVvBX8GsF6g66BdDiimALYc6Dpo0WvQX8Sk PZVoT4tJ+yLAlgFdB20PoJgGWA/QddAuBRQvAWwp0HXQdgOKX8akPSWa9lBA 8SuAdQNdQ3tqTNqXAXYo0HXQLgEUvwbYEqDroF0MKH4DsMVA10HbBSh+C7Au oOug7QQUWYB1Al0H7SJA8UpM2s9H03YAilcBtgjoGtpTYtK+BrAOoOugRZt5 rwNsIdB10LYDijzA2oGuof2sukTGq7wBsARpSJXPEcXJ6hIZP/MmwHQE0mdI +9PqEryzsIXeshUpZogUTybFT9UrBvFDb6vPbub26LUzSTZEIWkrPcxnhNtM gZjwLsuA+tYCFYNVqh26qhu1jozTYVOaVhfIcvU1aJv21u1iwEKDO49D+Qne +eEA2HQYnCpAACxVTGQA7CLg5jLgyMvsetBQG7d4O+wt3ih/vHkc6rVzrOJD ZQGVfTGtQlvVBlu5LCo109xUu20MyA0MRATk6hzr4EUdhqjzvtTt094gyw3x xwlhxR/TkGYVUrtwbTS/jzyYQgrmaGr30YQImz3lrvqIYlMdkeHErlKJcGIv 5zEyaJrmDrpEgiHJ3utOHJyvdbnPWrknxsWOsOfIkGcPFUG3lceoQOx9XO5z QruXcdYXcUU3brC3vA+HHeWwwFSdFaHNpTo+6AUhJXZgdsd82Y/wYj9nf04A ek9d9lvrd/gPwsXl0c0+GMLsgPEWY7guYLwrMqPzR6+HmZ0TEN/YzO13Cq3x faM1oun9WmWfmRfTs7LFjPSrnHYG1ufGr2ubdX34Usz/vCn0iLD7MB8dRrA0 k0FvLiIi6evcrxbDaPmBdLbL1BQKou/kSungSunBRvbbjTIi0l+r9tgPnx/0 MdZbEVdUf93DVZUDdZkKzdRxQ1S/ZgunD+3hUIot7DNp6LzBMvY/mByr1y76 WIEfeazAuKwnJTqapBfL7WfK8KRCLymFM6dwcvYO3QmefoWzvnfpTvCULpxT vkd3gueKaBb7D4A5Jr0fmDhahvj/UfG/A8yx1PpfEUcbBn9rTvw9gDl2OT4w 8Y0g6a/NiZcA5tgs+/eJo93TvzQn/i7ANv43xNH295+bE38HYI7NdYc4eiFR bE78TwBzvO5wiKNXRG83J/4WwBwvoBzi6KVdoTnxNwFmXgmi96J/bE78DYA5 3ro6xNEr5TzAHG+gHeLo9fofmhN/HWDm5T0KNfh9c+KvAcwEMqCwi1xz4q8C zAR1oBCU3zUn/grATIALitDJAswR0OMQRzFOYahZTVTNXHQCyJl4JRQuFoQS VHNjujNTa/Q7DNa4uZSwN5dgGEIMUyq0cFjSjkz7xlTkro4j2gyF3gUWdLRZ MqMWAd6dBrPXhiiIJAZtrZjhMrrTMhXQIm9NoCAKtQziIuRyRqRNeSBaVMwm NPJCB20xM8SFENRo7uBp6d29WmRVxeToqJgulITvy1rT+z+DIisXWRRw1rBK RZZMBCyK1w3eu9tL72DxP5YLm9/txlrdohKFm1CGYNBxEP5gr+dWATlH3PJL 0eIoKHsaYCbYGoWGvwgwE0mOAtRfiBZHEfk/B9il0eJhAP+zfOcIzI88ZKBL 3XF4IDzv8BTfNRzHeoLvGo5SPc53Dcc4GpLCcya7+a7hCMqHJCkYTlWPX/ZL olyp0QCBxWmYpB1lext7bNanUQsfliErbaI4qfYlh0VePheFzLBQx7UKNXFu dOGSQdqKUc9ufzpHLaKaEwPKcK7iNaiHNXqOpT5GO9+mRZX1jngqW6bs4rMx dW1pcz3bbJnZ0v3EVj+D8IJT5Ka11R1s1IcDz7IzOWBlskaZTMtMUk6cRxnD 45nondwZpg4KGTUIj4hiTe238R7iZvamjWnMWcwbAdsmbgglkR4IG0JqugSn lzcQFTrbGqwxaA+poDeLEAW5YZ21TfHdlykJnel9AGBGfJj17+M7Cl03x5fn au0CmBG/lfXD0+47Kek2BtARdCN0O0gKFc0p7/DUeWiOBkiKnA4PJOs7GqJp AqCBG+c66Xl3M3Ad31EmvXsY2MZ3FJnsjTJwzdzyM79eoHOhD1LqNhSeNKea oNheDehAYd2A17Ki+R2EFAN69NUPYx9j3yShRxjQcwn9CIe/70DhsxTuqgEd Iqa7iRWMfYeE9C9U6Gerl4V6WYhiUL3HWKhb3emeTseC6N/EeIyEnmSgk4UW MUYRlxTKqH+no5WFEow9Q0I/YnMmXd5RnB79iohG9xw0kOGMZiKAvVyo5jdU 9nFVmN9b2c8VaH6b5QBX+wEC1OcH/eMyH93//917h/wL/fyLig==\ \>"], ImageRangeCache->{{{0, 359}, {359, 0}} -> {-1.50002, -1.50002, 0.0104458, \ 0.0104458}}], 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.333333 0.5 0.333333 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 1 1 1 r .06667 .06667 m .06667 .93333 L .93333 .93333 L .93333 .06667 L F .628 .126 .941 r .5 Mabswid [ ] 0 setdash newpath .5 .5 .33333 0 365.73 arc s 0 0 1 r .055 w .5 .83333 Mdot .7357 .7357 Mdot .83333 .5 Mdot .7357 .2643 Mdot .5 .16667 Mdot .2643 .2643 Mdot .16667 .5 Mdot .2643 .7357 Mdot 0 g [(0)] .5 .75 0 0 Mshowa [(1)] .67678 .67678 0 0 Mshowa [(2)] .75 .5 0 0 Mshowa [(3)] .67678 .32322 0 0 Mshowa [(4)] .5 .25 0 0 Mshowa [(5)] .32322 .32322 0 0 Mshowa [(6)] .25 .5 0 0 Mshowa [(7)] .32322 .67678 0 0 Mshowa .5 .165 .165 r .5 Mabswid .5 .16667 m .16667 .5 L s .83333 .5 m .5 .16667 L s .5 .83333 m .83333 .5 L s .16667 .5 m .5 .83333 L s 1 0 0 r .03 w .16667 .5 Mdot .0425 w .5 .16667 Mdot .055 w .83333 .5 Mdot .0675 w .5 .83333 Mdot 0 g gsave .08333 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (1) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .5 .08333 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (2) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .91667 .5 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (3) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore gsave .5 .91667 -72 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (4) show 69.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 75.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (6) show 81.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"animation", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXGtsXEcVvvXbsZ06dt5t6rya0qQ1QtACom3qPukjdR/0RRehqKpp+iCm SSlLH2nNoywtlC1qcYuoi8DQZJO0FkIWIAthVGGEVohFaIVYYP/sn/1xhfbP /bE/hpk5M3PHd797PY69AQlW8t71mTnfOfO4c889c+YcOHj04YceP3j00IMH t9/4xMHxhw89eGT7DYef4KTWczzvnIfF33ZP/Gaep7/k55D4Uv/8//eyf/9S XlqZX62yqh/I/3JU9I4qYkGepVSft8jvLv6dYvkaU586KxdLTDDXqyVW9uut krWDf1XYZEqyyr/RzKyodsIW0Me/aiw3RjUycwVWKedZZixtCaiyDC+bmF1g 2WF+na96WkJxapTzjbNCrc78wrTEmKnUlYTj8tIm9ZiSElJswWdtilyZz5Jq I1lWDuotktwp9ZnkcoYzeSW/JDsgs+B7CviEAQ7Y7MSwBC7UGCGsZfks1yqV ZmMcJTWR5sWjbMG0hqOPCqETrMi1ruanpBKzRuucAeft5gheaprzsFY1HvlM ms0TmNeix4hXmBq1x6iVd/acHBNR47jdHx2sHtSZ0SYvOmFE6Kcl1Cpl5lMN 1dFtbCEzwrzRSVap1ZjvByftIQy7LDWVZ4KxPDchG10ImNetm+PPs2ExCbJz ojknbZXaWWlmwkwT8Tc2lfd6VFmtNMtGTdmI6KrFAyEmqc/nTZlV/EDOKD04 glYqV6xZF3cn/Lf9fk9cxJ3G3iPCaXFpE4RW8W+7+HWaik6Jixh31i3+bRW/ TlHRSVPUY4pU1+dMUZ8pykWL1op/W6yiE6boXMN1YhlF/QZw6aIfi0sHe3v7 vyLl7YI2TZXeMpU6gPx2QesUpW9R9TfERfL3guq91Mm89E2q/pohrBO/Wk2f tCqNFNhrVD1rqm801XtNdUXjpa9S9W8bwlajDK96bO9emg18xssR5bNZ09Tf FsP5CkG9ZAgXSEIDR6dRw5bAiecbzpcJ6huGsF0SqLqaovz2CiHUx7vAcGSo 2tepOZyw09LG+vQKlJYIvPhvu+F8kaC+agi7QHW5lneZkY6U7jB6fZXAXjCE 3aD6IKDtMuInCOKYIewB1TcA2m7D8TxBPGsIF4HqmwDtQsPxHEE8bQgfANW3 ANoew/EMQXxZVeIUUwnpcx6gXWTACMX7kiFcDKpvAzStty3+KQL7ogHbCxiH 4sAkh4I4agj7QPUdgHax4XiSII4ABZE+aFruBbxPEOwXjJxLAOOFcWCSQ0GM A3TUTDSa+wDvYYI97AiLRnif0VGBPW4IlyZoYdN0d9jiHyOwx0AR6j0k6hKj iAJ7xBCGQfUPJsDa4tVj+gFxketPB6iE9PmQo4BwZUuRqPvFpVcZAE6iPhwr qs3mNbifJkH3ictatcyLj6rrof6i1YovvvUiGzNGmrR34TIk5cvelxLuJ5H3 iku/IKD+1zLqQcCCoMaq/A0hLTpmugBXp0sN2n0Ef4+4DAgC6ia94LKgoO1M +aAU39OlwNRDzdlnkO+NikITdLP8Dg3mkUluMNcr0s4fm5pn/BWMnsdoCbDF 3C0u6wUBLUlbVYcFxSleZYyVuQE8xUVk8jV6VqPlU6LdE4VHNztp2MZm+TvV 6NScfPXI5P0hUPWieGT04NqmkFltwZj82XwtaoeI//bEI6N1TytXmk4pVB8+ Bi6Mh0XPe62ZeNmoVqriRcPbCertjodFS/6NgLYrHgIZMzcB2s54CPQUuwXQ dkQhwgmPIA7EQeB7BnXdaFy32xDhAoIg7oiDsBeJcNlDEHfFQeiF0l6M77GU sopExZ44AXfHCegFK7HdcRHZ0qjuihuPewFth+FoA3ikl1FvqWfO/YCGHm+f iodFC+cDjrA0TAp9adjPOMLeSbB3gSIE+1lAQ+aNgr3TEfagI+wd8bDI8HrQ EfZ2gr0DFCHYhwANWZ8K9nZH2M85wo7Gww4pWuD7rFqtyqduF4A9BGj6NbNe 07x18wZgy7iNxI+CIv0EZvy5PDG82Gs3MVM09fTdaIt/FNBsL+BMemQR3vh0 3tTTzyqg5m2xvSRslSqbn5llhYrPbZWAFWfJVZcrBVBFafnzdS7yxs+kFzY9 wXILJVbjVlxxNmNw9IJoyz8Qr5rucKFaWrlmtVFsq3IY0LTKrJ6X4gUvGsBb SfwBUER2QwerVcvC3S2J9fKshJsqBsitId/6vG7QKQErF/Mslxkjs9lnSdrc Coqo77pYPiuHng2PDJMVnprk3UMfLpbeajsXa2Ab7dmCefu04W9ZSnInKwjJ Y9OsUFhgC4Uy095lLkq90nc2NLwiXcQpVqwr4wiLvQUU7VLdL8WOz7CquBUr FbmBwcWkVbGQOD1fIof0bFpLQ2282UHYZIrZDmqBXmOMhLWz6nxWOdWoODW5 YF6/bTiyypTApX0v2kfD+P0i6JVqAB0nCbDIan0W0JC2nyTYm0ARgj0GaHsA bwIsMoZfcIQlo1mhLw37FUBDkyMBFtndX3OEvYFgbwRFCPZFQEP3TQIssgcz jrDXE+wNjrAvARpa1hJgkY38LUfY6wj2ekfYVwANPZESYNGrZBbQdgBeBXud I+x3HWGvjYdF79OvARqyGBJghwDE9xxhryHYax1h3wC0IcCbAIscId8HtAsA bwIs8nX/wBF2hGCvcYSdArRtgDcBFjmbfgho5wPeBFjklfuRI+zVBDviCDsN aOcB3gTYrQDip4C2FfAmwCJ/4XFH2P0Ee7UjbA7QtgDeBNjNAOIUoG0GvAmw aDfrXUfYqwh2vyPsDKBtArwJsBsBxM8AbSPgTYBFu4I/B7QNgDcBdj2AmAW0 9YA3ARZtg/7CEfZKgr3KEfZXgDYIeBNgBwDEHKANAN4E2HUA4teAtg7wJsD2 A4jfOMJeEQ97LoD4LaD1A14Fe6Uj7PuAdi7gTYBdCyB+B2hrAW8CbB+A+D2g 9QHeBNheAPEHQOsFvAmwPQAiD2g9gDcBdg2A+KMj7CfiYbsBxJ8AbQ3gVbBX OML+GdC6AW8CLHLm/QXQugBvAmwngCgCWifgVbAfE5fYeJW/AlorcXCWjxPE 5eISGz/zN0CTEUgfJe7LxEXvWdiV/m4zUswQMV5OjB+JMur4oX+I736D7dG2 M9VsiEKSUgYMnqrcoTpEhXdZAsR/LZBRv6XaoatyUsvIOBk2JWFlh6wX/+q5 abtu+wAKPdzNc6g4bTw/JgA2GwanMhAASwMTGwC7Bqg5CBR536iuJ2qji7fb dvHG6eMtodAGu8UiPpR3kF9lcyK0VTjYfJ/V6mq6iXnbGJCrBcQE5MoWy+BF GYYo274uWaeTuskN8cetzIo/pkea1UmdLMnRvII2qE7SNprwPqoQYeVT7o1G FKvhiA0nTuqVGCVOmjbGBk2T7SB7RD+SbF9365npGml93mo9IfYlhD3Hhjx7 qAv6rTbGBWKfMv2+KLR70DR9jRnoRgd7ywoUTuiHdjV0VoS26dWpUU+HlNiB 2d1LNT9Gi9Om+YsC0AcizW+LevjPQMX18dNeP8LsgPEWJTgSMN4b29Clo9fD xi4KiG+c5vaeQpu7bvSOqFa/Nr5mFtncAp8x6WHR0h4tfXH8upQZWcPXYfx3 VafHhN2H7ehWFSvzObRzERNJH1E/KIfR8iPZfK8aKRRE32MGpdsMygAWctqe lDGR/pJ1wL75qnqNsXZFkqL6IzdXwB/UPnWaGuOGqH6J5mA+DCZIPaXK0BmE QdMmbTCLrRh51KAae9RANUMaKn1Aow2Y7bSREB5mkFVt4+qyKKj6eP8U32st gy20E2mF1rXJYLO5Pdk6YyKGNira3kUGpoo5YcZGRdZzB2BEBi8KpGyuUX4W XyFW4YWnSa9nZ/Flskmvvk16UW+SW6FJTpBVcNk0ycG0EncYgj37zrsmuRpX wTG63xF2mW5cBNskp3OTXOSr4NBHuxoIdpnbDyvZLEGw++Nhm7S1swobUU3a NjuLm3yrsCXZpA3Us7jduwqb003aSj+LG/9DAGKZYQpNCqpoUggIioNBsMsM WGlSeE2TgoFWErqEYJsbaNWksLAmBbE1KeSuSQGCTQpnbFLw5c2OsMsMFUWw KLD1aUdYFdiKInMRbNoR9uZ4WHQs7SlAQ2G4ChbFSoch63UWKJ8W2r970lGU io9G4el6WQkKk9JoEXsCKDr+SIRWnE55bcr/am1wwWXKQbw43jDueSw9V4Xn BFBIfMzOU1JIPDofoFWQIfGpnPBUQhXQ+QDdU7ajG61RDuLr5ZwZALTd+zig aTXtjQXUenU6Ap0v0Q9BxnyWVQOAnG/oLIlW0xaPxl+dG7k9QXw5N2Y6H4lH p2t0vcKZiyejUXj7AjYzMcHmShVWrfJpJTfRRlk+wD5DdK6oXQ1JZEsAaaSO G6HDUdqYtvc59E7LZCG8z1AnoUNUHUqriKcf2T7UQSs6CaZdi7YzfgjgJRw6 W4WzbE06ebeSc4IIVh0/bNKpRnTcE8Eu8wzmWTxF2vQTsSs5xNuQi+CMjxKv woHmVThWvQqHu1f1iPkqHHRHFur1gJZw3B6ZjdcCWkIiAGQijgBaQoqC+LQK ZCL61Qrza3X4Pp2QU2EvqK6TQYjtczvOZnKh6pYMIjmlBbnrOlh5RgRYjLMi f0aUcuNM5J0o1ZlTNguX/By09yyen8PZApUEBTYiGlKoQX9ZQ26O5CwjGy0x kxQSpIp8GSqUyfvQidiQbWRZ+VM2RKUu+EZqdpikxuZRiaykfdYqFskWE5vv Zr3duSNW59apc7O8c5H/2CGPTJgbB+29orlEynTw+SNC7tKsXBcBECaoA7nH w/Q+HUacSpjzqKNUHRsgYomyI+ENkpmrQI88evA/QiJdExXpvRmKACjJrX5X UdSsM0iwFOZo+jxBrDjhU4RXwY4bOajpaP3dazjopVDlylqMjta22HRZEV4F e8TIQc1ET8kwK9hRgnjSEJA+sYnFIvoosKdAEXq4DAFaQ8qz5adgC7O4kd+E jhvHZpVDa2yYVY48Ot4zhoAGGq1kYW478jV5zxkCetzLgIs2UQ+FEYS59o4R 2POGgOaKNFVl7At6+Qpz/5HPzpswhN2K3XZe8I/KJNkItdNwkleR0hrKkW8w Efna0y+/F4fthBDk7yRvqiTIaTcoaGHGQ5U+MWMIcgZsELRthvZNqvSyIcgB 2ihoWw2NXNfkGJcE+aTcJGhhRsvvUKVXaXTeVvkyNwvaoKlEOwHe66ZSn6kk wxxkKs3XqdKbhtBlKnUbGu3X0CaTTO+pOotRjJW3yepAcXeJGpLxbar0E9Xp 8s6L8Nh3o0oyKjcKt4hf7yQRpJLHYwjvmF6zCbKvTxDhuBkhmyBDA+3sqzIc zU7iKmeLSvgqLzKhq0oOK/ePZXzfe7p/2H88u63L74Tc1NQ9PSjpnPo0hsC7 JaXW+YhRqrmk2HG3hNRhTu1oprlOO9NcNDbbW0ZqahKxkSVkmJOfleWo1t2E EswZD+aZJ6omKQ0J5lBMb3KCag0UySe3RpNhTmodw2CninPIRZ0z+oSp4GKi Vk+43wX/y7+9c/4NgXtS9g==\ \>"], ImageRangeCache->{{{0, 359}, {359, 0}} -> {-1.50002, -1.50002, 0.0104458, \ 0.0104458}}] }, Open ]], Cell[BoxData[ RowBox[{"Groupoid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"#1", "+", "#2"}], ",", "8"}], "]"}], "&"}]}], "]"}]], "Output"] }, Open ]], Cell["\<\ This illustrates how an operation makes sense on the following right cosets. \ This also shows a quotient group.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gr1", " ", "=", " ", RowBox[{"RightCosets", "[", RowBox[{ RowBox[{"Z", "[", "8", "]"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "4"}], "}"}], ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}], ",", " ", RowBox[{"Output", " ", "\[Rule]", " ", "Graphics"}]}], "]"}]}], ";"}]], "Input", CellTags->{"Quotients", "OutputGraphics"}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.05556 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.12963 0.10582 0.0251323 0.10582 [ [ 0 0 0 0 ] [ 1 1.05556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.05556 L 0 1.05556 L closepath clip newpath 1 1 0 r .12963 .76587 m .12963 .87169 L .23545 .87169 L .23545 .76587 L F .23545 .66005 m .23545 .76587 L .34127 .76587 L .34127 .66005 L F .87037 .55423 m .87037 .66005 L .97619 .66005 L .97619 .55423 L F .76455 .44841 m .76455 .55423 L .87037 .55423 L .87037 .44841 L F .65873 .34259 m .65873 .44841 L .76455 .44841 L .76455 .34259 L F .55291 .23677 m .55291 .34259 L .65873 .34259 L .65873 .23677 L F .44709 .13095 m .44709 .23677 L .55291 .23677 L .55291 .13095 L F .34127 .02513 m .34127 .13095 L .44709 .13095 L .44709 .02513 L F .23545 .76587 m .23545 .87169 L .34127 .87169 L .34127 .76587 L F .12963 .66005 m .12963 .76587 L .23545 .76587 L .23545 .66005 L F .76455 .55423 m .76455 .66005 L .87037 .66005 L .87037 .55423 L F .87037 .44841 m .87037 .55423 L .97619 .55423 L .97619 .44841 L F .55291 .34259 m .55291 .44841 L .65873 .44841 L .65873 .34259 L F .65873 .23677 m .65873 .34259 L .76455 .34259 L .76455 .23677 L F .34127 .13095 m .34127 .23677 L .44709 .23677 L .44709 .13095 L F .44709 .02513 m .44709 .13095 L .55291 .13095 L .55291 .02513 L F 1 .753 .796 r .34127 .76587 m .34127 .87169 L .44709 .87169 L .44709 .76587 L F .44709 .66005 m .44709 .76587 L .55291 .76587 L .55291 .66005 L F .12963 .55423 m .12963 .66005 L .23545 .66005 L .23545 .55423 L F .23545 .44841 m .23545 .55423 L .34127 .55423 L .34127 .44841 L F .87037 .34259 m .87037 .44841 L .97619 .44841 L .97619 .34259 L F .76455 .23677 m .76455 .34259 L .87037 .34259 L .87037 .23677 L F .65873 .13095 m .65873 .23677 L .76455 .23677 L .76455 .13095 L F .55291 .02513 m .55291 .13095 L .65873 .13095 L .65873 .02513 L F .44709 .76587 m .44709 .87169 L .55291 .87169 L .55291 .76587 L F .34127 .66005 m .34127 .76587 L .44709 .76587 L .44709 .66005 L F .23545 .55423 m .23545 .66005 L .34127 .66005 L .34127 .55423 L F .12963 .44841 m .12963 .55423 L .23545 .55423 L .23545 .44841 L F .76455 .34259 m .76455 .44841 L .87037 .44841 L .87037 .34259 L F .87037 .23677 m .87037 .34259 L .97619 .34259 L .97619 .23677 L F .55291 .13095 m .55291 .23677 L .65873 .23677 L .65873 .13095 L F .65873 .02513 m .65873 .13095 L .76455 .13095 L .76455 .02513 L F 1 .5 0 r .55291 .76587 m .55291 .87169 L .65873 .87169 L .65873 .76587 L F .65873 .66005 m .65873 .76587 L .76455 .76587 L .76455 .66005 L F .34127 .55423 m .34127 .66005 L .44709 .66005 L .44709 .55423 L F .44709 .44841 m .44709 .55423 L .55291 .55423 L .55291 .44841 L F .12963 .34259 m .12963 .44841 L .23545 .44841 L .23545 .34259 L F .23545 .23677 m .23545 .34259 L .34127 .34259 L .34127 .23677 L F .87037 .13095 m .87037 .23677 L .97619 .23677 L .97619 .13095 L F .76455 .02513 m .76455 .13095 L .87037 .13095 L .87037 .02513 L F .65873 .76587 m .65873 .87169 L .76455 .87169 L .76455 .76587 L F .55291 .66005 m .55291 .76587 L .65873 .76587 L .65873 .66005 L F .44709 .55423 m .44709 .66005 L .55291 .66005 L .55291 .55423 L F .34127 .44841 m .34127 .55423 L .44709 .55423 L .44709 .44841 L F .23545 .34259 m .23545 .44841 L .34127 .44841 L .34127 .34259 L F .12963 .23677 m .12963 .34259 L .23545 .34259 L .23545 .23677 L F .76455 .13095 m .76455 .23677 L .87037 .23677 L .87037 .13095 L F .87037 .02513 m .87037 .13095 L .97619 .13095 L .97619 .02513 L F .74 .99 .79 r .76455 .76587 m .76455 .87169 L .87037 .87169 L .87037 .76587 L F .87037 .66005 m .87037 .76587 L .97619 .76587 L .97619 .66005 L F .55291 .55423 m .55291 .66005 L .65873 .66005 L .65873 .55423 L F .65873 .44841 m .65873 .55423 L .76455 .55423 L .76455 .44841 L F .34127 .34259 m .34127 .44841 L .44709 .44841 L .44709 .34259 L F .44709 .23677 m .44709 .34259 L .55291 .34259 L .55291 .23677 L F .12963 .13095 m .12963 .23677 L .23545 .23677 L .23545 .13095 L F .23545 .02513 m .23545 .13095 L .34127 .13095 L .34127 .02513 L F .87037 .76587 m .87037 .87169 L .97619 .87169 L .97619 .76587 L F .76455 .66005 m .76455 .76587 L .87037 .76587 L .87037 .66005 L F .65873 .55423 m .65873 .66005 L .76455 .66005 L .76455 .55423 L F .55291 .44841 m .55291 .55423 L .65873 .55423 L .65873 .44841 L F .44709 .34259 m .44709 .44841 L .55291 .44841 L .55291 .34259 L F .34127 .23677 m .34127 .34259 L .44709 .34259 L .44709 .23677 L F .23545 .13095 m .23545 .23677 L .34127 .23677 L .34127 .13095 L F .12963 .02513 m .12963 .13095 L .23545 .13095 L .23545 .02513 L F 1 1 0 r .12963 .87169 m .12963 .97751 L .23545 .97751 L .23545 .87169 L F .23545 .87169 m .23545 .97751 L .34127 .97751 L .34127 .87169 L F 1 .753 .796 r .34127 .87169 m .34127 .97751 L .44709 .97751 L .44709 .87169 L F .44709 .87169 m .44709 .97751 L .55291 .97751 L .55291 .87169 L F 1 .5 0 r .55291 .87169 m .55291 .97751 L .65873 .97751 L .65873 .87169 L F .65873 .87169 m .65873 .97751 L .76455 .97751 L .76455 .87169 L F .74 .99 .79 r .76455 .87169 m .76455 .97751 L .87037 .97751 L .87037 .87169 L F .87037 .87169 m .87037 .97751 L .97619 .97751 L .97619 .87169 L F 1 1 0 r .02381 .76587 m .02381 .87169 L .12963 .87169 L .12963 .76587 L F .02381 .66005 m .02381 .76587 L .12963 .76587 L .12963 .66005 L F 1 .753 .796 r .02381 .55423 m .02381 .66005 L .12963 .66005 L .12963 .55423 L F .02381 .44841 m .02381 .55423 L .12963 .55423 L .12963 .44841 L F 1 .5 0 r .02381 .34259 m .02381 .44841 L .12963 .44841 L .12963 .34259 L F .02381 .23677 m .02381 .34259 L .12963 .34259 L .12963 .23677 L F .74 .99 .79 r .02381 .13095 m .02381 .23677 L .12963 .23677 L .12963 .13095 L F .02381 .02513 m .02381 .13095 L .12963 .13095 L .12963 .02513 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02513 m .02381 .97751 L s .02381 .02513 m .97619 .02513 L s .02381 .13095 m .97619 .13095 L s .02381 .23677 m .97619 .23677 L s .02381 .34259 m .97619 .34259 L s .02381 .44841 m .97619 .44841 L s .02381 .55423 m .97619 .55423 L s .02381 .66005 m .97619 .66005 L s .02381 .76587 m .97619 .76587 L s .02381 .87169 m .97619 .87169 L s .02381 .97751 m .97619 .97751 L s .12963 .02513 m .12963 .97751 L s .23545 .02513 m .23545 .97751 L s .34127 .02513 m .34127 .97751 L s .44709 .02513 m .44709 .97751 L s .55291 .02513 m .55291 .97751 L s .65873 .02513 m .65873 .97751 L s .76455 .02513 m .76455 .97751 L s .87037 .02513 m .87037 .97751 L s .97619 .02513 m .97619 .97751 L s .02381 .97751 m .12963 .87169 L s 2.6 Mabswid .12963 .02513 m .12963 .97751 L s .02381 .87169 m .97619 .87169 L s [(0)] .18254 .81878 0 0 Mshowa [(4)] .28836 .81878 0 0 Mshowa [(1)] .39418 .81878 0 0 Mshowa [(5)] .5 .81878 0 0 Mshowa [(2)] .60582 .81878 0 0 Mshowa [(6)] .71164 .81878 0 0 Mshowa [(3)] .81746 .81878 0 0 Mshowa [(7)] .92328 .81878 0 0 Mshowa [(4)] .18254 .71296 0 0 Mshowa [(0)] .28836 .71296 0 0 Mshowa [(5)] .39418 .71296 0 0 Mshowa [(1)] .5 .71296 0 0 Mshowa [(6)] .60582 .71296 0 0 Mshowa [(2)] .71164 .71296 0 0 Mshowa [(7)] .81746 .71296 0 0 Mshowa [(3)] .92328 .71296 0 0 Mshowa [(1)] .18254 .60714 0 0 Mshowa [(5)] .28836 .60714 0 0 Mshowa [(2)] .39418 .60714 0 0 Mshowa [(6)] .5 .60714 0 0 Mshowa [(3)] .60582 .60714 0 0 Mshowa [(7)] .71164 .60714 0 0 Mshowa [(4)] .81746 .60714 0 0 Mshowa [(0)] .92328 .60714 0 0 Mshowa [(5)] .18254 .50132 0 0 Mshowa [(1)] .28836 .50132 0 0 Mshowa [(6)] .39418 .50132 0 0 Mshowa [(2)] .5 .50132 0 0 Mshowa [(7)] .60582 .50132 0 0 Mshowa [(3)] .71164 .50132 0 0 Mshowa [(0)] .81746 .50132 0 0 Mshowa [(4)] .92328 .50132 0 0 Mshowa [(2)] .18254 .3955 0 0 Mshowa [(6)] .28836 .3955 0 0 Mshowa [(3)] .39418 .3955 0 0 Mshowa [(7)] .5 .3955 0 0 Mshowa [(4)] .60582 .3955 0 0 Mshowa [(0)] .71164 .3955 0 0 Mshowa [(5)] .81746 .3955 0 0 Mshowa [(1)] .92328 .3955 0 0 Mshowa [(6)] .18254 .28968 0 0 Mshowa [(2)] .28836 .28968 0 0 Mshowa [(7)] .39418 .28968 0 0 Mshowa [(3)] .5 .28968 0 0 Mshowa [(0)] .60582 .28968 0 0 Mshowa [(4)] .71164 .28968 0 0 Mshowa [(1)] .81746 .28968 0 0 Mshowa [(5)] .92328 .28968 0 0 Mshowa [(3)] .18254 .18386 0 0 Mshowa [(7)] .28836 .18386 0 0 Mshowa [(4)] .39418 .18386 0 0 Mshowa [(0)] .5 .18386 0 0 Mshowa [(5)] .60582 .18386 0 0 Mshowa [(1)] .71164 .18386 0 0 Mshowa [(6)] .81746 .18386 0 0 Mshowa [(2)] .92328 .18386 0 0 Mshowa [(7)] .18254 .07804 0 0 Mshowa [(3)] .28836 .07804 0 0 Mshowa [(0)] .39418 .07804 0 0 Mshowa [(4)] .5 .07804 0 0 Mshowa [(1)] .60582 .07804 0 0 Mshowa [(5)] .71164 .07804 0 0 Mshowa [(2)] .81746 .07804 0 0 Mshowa [(6)] .92328 .07804 0 0 Mshowa [(0)] .07672 .81878 0 0 Mshowa [(4)] .07672 .71296 0 0 Mshowa [(1)] .07672 .60714 0 0 Mshowa [(5)] .07672 .50132 0 0 Mshowa [(2)] .07672 .3955 0 0 Mshowa [(6)] .07672 .28968 0 0 Mshowa [(3)] .07672 .18386 0 0 Mshowa [(7)] .07672 .07804 0 0 Mshowa [(0)] .18254 .9246 0 0 Mshowa [(4)] .28836 .9246 0 0 Mshowa [(1)] .39418 .9246 0 0 Mshowa [(5)] .5 .9246 0 0 Mshowa [(2)] .60582 .9246 0 0 Mshowa [(6)] .71164 .9246 0 0 Mshowa [(3)] .81746 .9246 0 0 Mshowa [(7)] .92328 .9246 0 0 Mshowa [(Z[8])] .02381 1.03042 -1 0 Mshowa gsave .97619 1.03042 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 .90661 0 0 Mshowa [(y)] .10317 .94577 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{272.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"OutputGraphics", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnV+IJMUdx9vbP7fn7czsPSX+5bL4cPiwYMxTXsIEExViFjGREAfJRTIq yZHNRdSNgQ0raCYkyEiQIRAHIyt448ENpxlZb3AznDJyDMIQGIRB+mUQJjBI czBCC79UVXdX93T9mZqd2d7uvVrYuZqu7v5VfavqV1Wf/V33Q2efeepX584+ 8/QTZ0/ff/7sxlNPP/H70z/87Xl0aO4mw7jpp+j3qdMGToNheB/k51H84X6Z cfpu/M88eKbOOEePO3bR0fvxx9LYo8fwgW9B/etP5mmKHFsNpNDZbGrvGpva MkIpbUqb0qa0KW0qYCqDb2vMoc+PoXb9Y/ItQ82nObkrtCDetbtfXoGLX7wP l65/HMhdIZbmYNA3YGAZ5FtGWvQMTqErhpfr0L+0C4Pda/guTHVWcArf+RkD +s8Z5FtmfBVrnz6Pvt4LpS95VQzm+pVIUQE+hBefvxcfcqygY4+8+QbOJWek AqJg6/NQypHJl/yWmoGaOycsANgG5A3/pKaFC+OdlXa16PzxQe8Marj4j//g XHLGMtUn5V4Be5dhe3X0iu2XKvSKVPAKoiO8YEDOtTHnfrY2ia7kjGWqLVEZ lb205pd7/T4DhlukxOM7WRUeQZf8/IP3uZ3Mzw23wHH0+S48+3wetj66CO9e /xDK7/2GmN/6rOHcwZMN/bMIZtUpXGdoQLfipLv2qL6kFWx0whD99k0DNtFJ uZ1gL3VaYRHsXdQjL+9C/Zd3gfGTv6F0Haz6tXRIfFTjvV1ovPQqtN+pg12/ Cp2/PElsV3auGv7ZRCp028q9TskKjxvQ20D/ou9IeF9J78TOunNiG7XK4Gkn XT0vk3zFFbX0Cuq0j70Mu+hbmkqe4eRmqIinvAb56g1iKf/RFY7EZVSmtSIZ 1wBIwSzu6O2AxCnXAeDM9VD32um6FwLpXkAHNunC7XPfgbUn3yTfMlS1U7SD 75KmKrxWD2iacTtz2dW0+ZzrKEaELH0DFfo+2rVJty88oSLk7ucvU//AChnM zYQc5AL6bMBb/30Dtv78MDr8Pfj7/z7hCIoH1XaD6gIFXLYW02edE7MlA2zk QQoonS+jXjEMnOjp2OLq6HVq69JlMC83iWOw336VqFb+11VfUs/P1rK09wX8 LJX0DMo9jYYa6pv9vHNmTalv1r++Ar92BzwraTA3LOk86ptvw4887/nKToav ZtNXs7jGVXMBhh3nLiY6qeycFPAAalLiXHyPtXvuckr0g03o7wX8wylXygLq fwYyYo04TE/K8hnfrQZcq0RKb6i+9fbDdCCnqJQrnNw0M8wvfJBHXx+A8le8 XlnOBoa57QzzYnCYexNeDbX9OuqJ2C8gDVkJ+aPakXCB5BoPvQjt18vQfP0y 2OGziEL2C/7YtdzO1mQ95jw0kXQGkrOHPeZzAU/ASOhPMA148U95+Otn76LV DFrRfLpNBmvpelDSZYWzgyLisxfhwt7L8Ie9i7gB4K33fuHJzartzVUmUtqs uXOYzVEbLOpUodhipqx5sC9VoP7am1B57C6s+gpfcDyX1dDc9s6/0Zx2lSM4 dpg51KI2Etx83PUDL3AEB7QQW8N99gHSu8cK7qypnv3x6Lzwu08/pGuqkyHR x1+xHBJ+AS7unR8ZUfe99s8RZ+KIWcz6ZxTqo12XTGHdHao0R+ohcp5eW2TP MVIvQvv8gyOlMO7ZBCvoHtLuuqr7s1EHkF8Pelxv9WWd89ve9bYyH8HbTVAn i1ZSFz6vwoUvGpylew8tinqD8NL9lJvb7yHv5M7h7NwzRN1qsNsMjfZVZr7G i0+89umNzNeev8Q53Y2xC8yjuTfTprQpbWqmpnBCFUfzjx5NXbQpbUqb0qbi aYoHmll+yMfQPMC9wimmHFePRdMhZMJH05IqqoLmZe6mSBVN1yWoW41Lj8Xb k2PoyVG3GoaeHG9L2IAYPvPYgAqq5kFxvzWU+TQo4e6J+bQa9lbm08rEW0i4 gjCaJVx8VM2D4P7uf3I+rYy+5ah6LBDbUkLVcuItcKJ8GO0LmpacxQrLx97K nHoS8q2MrOW4dksJWcvJt0BaBkqnQ6pKqDUPiYcFHYeqJyHfatRaTc2x1FoO v4UjPsil2RHPp9Y8Hh50uc7kJUTVytBbjVqrDHQJqlaG3oyEY7izr2ZKfmI6 4Cy9uU2Fe6tQalDi3cq0eiz03pJSamXeLdCaj5rTIaHHAWlVNL4ccBzOJMYn 1GMB9ySEWs661eC0GugWBxAEcDUngIALs1cDzsHRSgiuQQy9V5lBzQfccnAt h943yG5Om9KmtKmZmsKJmWBtdPN5mmJM778C2pQ2pU1pU9rUSBwcC4vT1HyG k8tDyXLAHW2MNmfhLia1KVrVtOSsaXiuHHgf6dhuzjZVimr9xkjNnOnKSfdR DPAWqi+Auqz6U9JfOflOZIC3WFM+zeVoOh32lUPvhMd6C9UV0F1W3SkxsJyA JzTsW6Aqw3wzITVnAYXlKDxJwd9CFUM0l1Vxetw7GfdObry3cOXG47nsym0W 1Hdy+J2wKG/OX7pYWOxru8LJVUXJqyHPeZiR3jfIbk6b0qa0qZmawgmNtbUp bUqb0qaSbEoeFy2H1NFGcHNigP2Ftgw7n6TVXla8YtLnauwHWMsAeIIivoV4 SgCfWTw1u2dtTAasj0KYtwAOjMJnn76kObn7eBSHnFInMrZb+CfAIHFm/wQ4 5QM41NB0QmO6hVAliJlZqDLlgzjG8ugkBnQLnayANbNOdvrHc8i5dJLCu6V/ A+QwZ/7fAKd79oYyj054eLdAaz5xToeEns1jN9RYdIIDvIWLgCCBZhcB+3m+ h5xZRxvQHbedlDalTWlTSTCFE7Oh13vX5mmKNb3vCmhT2pQ2pU1pU6OrWoYT Z6j5NCd3mueARBG8zSPaSsB2mVZ7OQLEe1AP9YhpELigVeTsNhVqkQQ80CPG wd88dMigXV/yFU6uKvhVht6JDOvm4RcZ2/U1Tc0GAiuj8CRGeAvVFeBeVt14 POgjXhHeAlX5zDcdkjQuD/6IR4y3XMoQ1RVIGYdHe8Q+1lvoCQR0l/UE8XrO R0wjvpW2Hwf3GJAoYrdvkM2cNqVNaVMzNYUTmmprU9qUNqVNJdnU2IjoEDM5 vNhtwb5nPF0+GdoAJfN9ijGN+xbuRgWUmd2Nxv61ijEO9eaFEjPMyYctGU6u 6pM35Ew66fHcQiFbUiHj8W7FeIZ2H4ikUb1jMV6h3TMd5mphzcr0OSHB3IJ5 ikHK/l/5U/wTDu8dirGP4xZqHOLIrMbxenliTKO4hV4gSJ9ZL3CQ72CMIkY7 bjsmbUqb0qaSYAonZkOpgQaKMwZXp6iANqVNaVPalDY1xlS072WcJh6bF0oO Is6aolVNS86agMYm+b2Lsw7R5u1GQcRe07QlUpKz4vMwjniHaPPC2kGF3J6k zbCseEUy38s4TQi3oF8L0W0q1LVj+PiOGEVuC70GD+WyXiNez/KIR8y2YEpk qK6vZpp/wiE9wyMekdpCFUPcllUxNg/oiH2QNo+wQpjY+gJnOLmH8lSOJIRj 8/6fFYSZsD9XrXByVYnxKjOwDy8+O247KW1Km9KmkmAKJzS91qa0KW1Km0qK KR6pZncMs3rVol+4g4vPFm48QxSa3Xgm4A2JSYnWFkI/AYBmoV+835UY76ht ofoC1syqH7PXKMYgmFuKsTnQmY+xY/X6xBiFc8vVZdGzQN3YvEMxHmHdYj/A 59AcPxCLdynGI7hbqKaAR7NqxubFibEP8hYu4kJ0ml3EHfoLE5MQ2S3cBgQB NbsNOMgXLkYR1n2D7Om0KW3qiJtaBHASBvHGxw/2qF+xO3HqeCQa3oFTS5GY uh2nSHNhB+zUn3w7Fon526j5YzR14EZvpabmojN6CzU1H53Rb1JTC9EZdUbO Elpt5b3eBDvdIZg7Ofd7FpoWLNESLUZdNvRpW9B0y1fr22BWnXSx3jX8gh2P rmAnyIF56FQ2XJHWoNzq+2VZir4svXrBLUse2kPw1ThxCA2G1pftyiYpT6Fp QmMbl2sDmj0r0Ldvjr6Xm1WvwXAv70N9w1urr0PLAt/DnKSpI4HWT9HqLNOU pukHT9NXqNqpkZQG5zMG55mRbj0qtGbkSozcd3ej8mkcPgEO94c5mecwOOp1 oFGvQ73RgHq9Ad2BHVhDaSo+ARX3565FV1yzVoBsNkuLgFauHHE1HJcAW3+l 46wk56BXw4ukbeijb6yYmo3vm437C96bXakBumRptVEzA1JrRD4NIvf3O6Rr IyEGzaJrbhP5TfB3IEeWly+FNMBV7pOZe71Qhk08OVfNyDGDvwFBna/fwGMG bbtsgAFJb+DGiZC3LIbKhHKsDlmwGfkq2PiY1SILr1y5HSUIWmDEwhvqat4f NNW+DZ3yurNXmYeqSUrr/URTSl+QW6Iz6u/Qb43OqE87b4vOKI/w3h6J+UV8 4I5ITC3gA3dGYopIud+w97tpEUnuGecoST8aYfr7JM3fU2Sc8wjpIWPTRhOX Cd2uiTZh4E2FGKX2ul0wTXKY/Nzp3pW3mA7d1WqX3Ow1KLct7662WSWLaoPw vgG562mSN7qaHLnbnHu3LLSG4G6XcJ8fQr/fhz7aOQaPlcheZ+DoMJ5Xewus TmUH2pZz0Ul6O3/R5ZZoycuyu2R2pCPOwH9DymE2SH9oqS1HZ+yfrW51ZOmT 3awCumSOWrTcHZ1XATnU9kraKm5CY6T0zGImHazAcWKpkncocKtvwcBsoIIR SRw3FpTdcsrmXGdDBYPAjQrg9sMV8vqAsBbH3CKFMPgJes8htGsVqFSrUMit w3YZpXcq0OoN3b0Gf1niVumEqy1YTaJtbqdDbllAVuoDkNdmAEW8Tq323Ebr kXl9uzkYX5sQSPdrg9qo3YRWuwXljRyUaijdbJKx5xVVsKZJORW62a2zk4Mm cRO1DxqLA5vfNl7ncuRdgyLSrriRdQpmyTuXBMB7natZ8DsXraRkAZQKNssC dKoVaA8sqBGE7ozvOUkthp2yMzRyOcdXrJflQ2QsrffGuNmoQXfoXQTjF0xz wQWT2yyBKwcO4mrjAyaRI1tsjlZtHdp2sLsNYQfjz+2Gc0+rQTaapY4V6G4h H/bt0V5e31wDI7cJxWLRQ9xQMW2vU1ptZ9RvFJE/67uHnU5JGsBtL7tX8640 vEvRWIbqTomI7jnnkPF+q0oM499SqYx+K9C16IiAoQmVUgmKhSI0zOGce5XV qVCvj3/XNiu4Rb2r7EEbSoUCumkZ9bth0O4tnih4NkIzUa9vOaJ818knac4k aNz0f/ZnT6M=\ \>"], ImageRangeCache->{{{0, 340}, {359, 0}} -> {-1.22505, -0.239073, 0.034743, \ 0.034743}}] }, Open ]], Cell["\<\ By specifying Output \[Rule] Graphics, we indicate that we want the graphic \ as the output, not the actual Cayley table.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gr2", " ", "=", " ", RowBox[{"CayleyTable", "[", RowBox[{ RowBox[{"Z", "[", "4", "]"}], ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}], ",", " ", RowBox[{"Output", " ", "\[Rule]", " ", "Graphics"}]}], "]"}]}], ";"}]], "Input", CellTags->"Quotients"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.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.214286 0.190476 0.0261905 0.190476 [ [ 0 0 0 0 ] [ 1 1.1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1 L 0 1.1 L closepath clip newpath 1 1 0 r .21429 .59762 m .21429 .7881 L .40476 .7881 L .40476 .59762 L F .78571 .40714 m .78571 .59762 L .97619 .59762 L .97619 .40714 L F .59524 .21667 m .59524 .40714 L .78571 .40714 L .78571 .21667 L F .40476 .02619 m .40476 .21667 L .59524 .21667 L .59524 .02619 L F 1 .753 .796 r .40476 .59762 m .40476 .7881 L .59524 .7881 L .59524 .59762 L F .21429 .40714 m .21429 .59762 L .40476 .59762 L .40476 .40714 L F .78571 .21667 m .78571 .40714 L .97619 .40714 L .97619 .21667 L F .59524 .02619 m .59524 .21667 L .78571 .21667 L .78571 .02619 L F 1 .5 0 r .59524 .59762 m .59524 .7881 L .78571 .7881 L .78571 .59762 L F .40476 .40714 m .40476 .59762 L .59524 .59762 L .59524 .40714 L F .21429 .21667 m .21429 .40714 L .40476 .40714 L .40476 .21667 L F .78571 .02619 m .78571 .21667 L .97619 .21667 L .97619 .02619 L F .74 .99 .79 r .78571 .59762 m .78571 .7881 L .97619 .7881 L .97619 .59762 L F .59524 .40714 m .59524 .59762 L .78571 .59762 L .78571 .40714 L F .40476 .21667 m .40476 .40714 L .59524 .40714 L .59524 .21667 L F .21429 .02619 m .21429 .21667 L .40476 .21667 L .40476 .02619 L F 1 1 0 r .21429 .7881 m .21429 .97857 L .40476 .97857 L .40476 .7881 L F 1 .753 .796 r .40476 .7881 m .40476 .97857 L .59524 .97857 L .59524 .7881 L F 1 .5 0 r .59524 .7881 m .59524 .97857 L .78571 .97857 L .78571 .7881 L F .74 .99 .79 r .78571 .7881 m .78571 .97857 L .97619 .97857 L .97619 .7881 L F 1 1 0 r .02381 .59762 m .02381 .7881 L .21429 .7881 L .21429 .59762 L F 1 .753 .796 r .02381 .40714 m .02381 .59762 L .21429 .59762 L .21429 .40714 L F 1 .5 0 r .02381 .21667 m .02381 .40714 L .21429 .40714 L .21429 .21667 L F .74 .99 .79 r .02381 .02619 m .02381 .21667 L .21429 .21667 L .21429 .02619 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02619 m .02381 .97857 L s .02381 .02619 m .97619 .02619 L s .02381 .21667 m .97619 .21667 L s .02381 .40714 m .97619 .40714 L s .02381 .59762 m .97619 .59762 L s .02381 .7881 m .97619 .7881 L s .02381 .97857 m .97619 .97857 L s .21429 .02619 m .21429 .97857 L s .40476 .02619 m .40476 .97857 L s .59524 .02619 m .59524 .97857 L s .78571 .02619 m .78571 .97857 L s .97619 .02619 m .97619 .97857 L s .02381 .97857 m .21429 .7881 L s 2.6 Mabswid .21429 .02619 m .21429 .97857 L s .02381 .7881 m .97619 .7881 L s [(0)] .30952 .69286 0 0 Mshowa [(1)] .5 .69286 0 0 Mshowa [(2)] .69048 .69286 0 0 Mshowa [(3)] .88095 .69286 0 0 Mshowa [(1)] .30952 .50238 0 0 Mshowa [(2)] .5 .50238 0 0 Mshowa [(3)] .69048 .50238 0 0 Mshowa [(0)] .88095 .50238 0 0 Mshowa [(2)] .30952 .3119 0 0 Mshowa [(3)] .5 .3119 0 0 Mshowa [(0)] .69048 .3119 0 0 Mshowa [(1)] .88095 .3119 0 0 Mshowa [(3)] .30952 .12143 0 0 Mshowa [(0)] .5 .12143 0 0 Mshowa [(1)] .69048 .12143 0 0 Mshowa [(2)] .88095 .12143 0 0 Mshowa [(0)] .11905 .69286 0 0 Mshowa [(1)] .11905 .50238 0 0 Mshowa [(2)] .11905 .3119 0 0 Mshowa [(3)] .11905 .12143 0 0 Mshowa [(0)] .30952 .88333 0 0 Mshowa [(1)] .5 .88333 0 0 Mshowa [(2)] .69048 .88333 0 0 Mshowa [(3)] .88095 .88333 0 0 Mshowa [(Z[4])] .02381 1.07381 -1 0 Mshowa gsave .97619 1.07381 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .08857 .85095 0 0 Mshowa [(y)] .16667 .92143 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{261.812, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXV2IG9cVHq+0u17Hdhwnsb0aydmk6UvrbH7spElTKILQpNCylPShUBHq hqoO1HRxQ5utCwvbh1YPpaiUIApFGLOBWBgimqCwzZCtIEHG6GUoiIIo8yIC KogyTZnABE7vvXPnaDR/K/mOvNpyBZq9c3++c7475/59HuFvX3z90o8uX3z9 tVcvrrx45eL6pdde/dnKN356hWSlDinKoRfJ99KKQtOgKO6FfV6iF36TcPoF +icNrilFWQSeUL5KL4t75s7RjOdB+/xWGlMs72u0jpvave2mNpWUhJAQEkJC SAgJMYsQWdqQlO38+wO4+cn78M6nHzt5DFYNKc2hqRzDSsGgr8DAVNhddjLz GW5A+/xD+PUb52mW05rkvXz9Gi1lNZbRpeUxW2TQTeaSkoZKgW002LfS8niq Uk9J886vvulWQMjyn/5GS1mNZWSUoYxIKVxVoMBbpPi1vaHQUlZjeS/mi+T6 Lvz8jSJsfnQT3v30Q6i+9xPmxOY/mk4dD+v42ioyVpmtBTDqDtuOpUC35qS7 tlPsYb4A9o4G/b/sgPbDR0H57u9IWgNTu60iYZXRWYDaeQel9IoCvXXyl9wT wmo0z7Pu8/rsGmtZ/OgDD69cSGmQR3VNgdUyCzAAwiVPn6Du4ZHjT1C/fAFW f3yd3WXR+Sx/WlXufOsXrEX8kJgn1ya89fdrsPnb75Dsr8Mf/3XL47kaUyvI oLKqwFaTMyDfEu3DdgiDdiiDHGfQyDsM9A3OKo5BmvTq2/AtHvHK77dVn/OB Ctlwv1tDv8urE/l9lvtdOk3wSVNzUxknVm78tUhuX4LqZ7dCYsVbGhIreU+s 2E6slMePFTfQ7as4isEs8riJDXSnTxfgxu5v4Je7N2GHTERvvfcD19Uhj0x8 xSAld+gahI7R4EM6OIzTYL9TA+3N61D7/qOUWi7AqkKeQ4EMJpuwMl7hsXR1 b1bzcHP3Ck6e9PvCm39WVB+l8FrZwERczg9rlLTARJwG6+0/wBqvkL8c4DEP 3e8pI3aKa2OMBzLLkBnzxj/rcOOTZsgi5y0NLnI9g8x4A/8i5waT1dBgsNOK mHjoMkFny178xDMbOwIJISEkhISQEAcQgiYmVDMJTBpTHDrCcJTHEkJCSAgJ ISEkxMxBhCmcE2mYUfrdeBLgGXRpeRLRkNvYX60zShKI1QIzSDgzhmjo4bkv 6maUYBBUDLPIS43SE1nbMMEzSUkz3OMwhVBFj7MhpVnfCJm+lBkl+gU1wmEM 5UJKVZ/nU9Ux48dAhEwYHANxeuJI2ExL3YznESEMBnnEKYgc8W6qm3GswmVC 1UcpRkz08JmqtBk/B3nFw+AcFJAWR9a8RCXNg7bwSwgJISEkhISYcQiamFS0 3L2dxpQLHW440mMJISEkhISQEBJidiHuUL6MPBiPpf6dQZcyk+iFc7zF5n7K nHHMI7XAjI9wQq9EeuglqW5GSoAB6UdFXtkoYcjt0M1pSprxHrdjPZ7wlUjP qElC0kze88iXIj2eC0qayQeIG+13QceMG8ABFTDrG7iCL0HyiglKmPFsfHJg kM2dvwrpoSKiXsaHklckDIbShG9Fjqx3E0qXB3eBlxASQkJICAkxkxA0Mak4 CaiFenXPMMORHksICSEhJISEkBAHHCJMo1QRNhtSmo01FamIRr5HAyFa4dAD NbzC0Al11jTQSE0BYpTDDBLOxFdUfcT3RQuNpxghNQYpTuuX46w0UhaNdz5C bQw6P60fjXtGUYxCOgaJoPoYQWIKvyD3kAgXS/eIoHABMiSCpv978pFgCuim 8TwipMcgj7vzI3JecW/9NH6u9gmRwbl6ij8h91CI0U3jlzqvPBlc6hL9KfnI khgQTWd5XyAhJISEkBASYlyIBQAnQYoUfptE7tC152hqQYjdszS1KATxFZo6 LATxDE2xPqaLpkOZ3c0JwT5NU6wohQbuGOwCgqXFwc4j2Lw42FMItiAO9iSC LYqDPYFgh8XBHkewJXGwVQQ7Ig72GILdIw52DsGOioN9GcGOiYN9CcGOi4Od YBmHobtddEc7bHctMLYL/D4PLRPuQ5v3JmWT3NsmtLjdRt8Go+6ky1pXGRo8 IW7wJMtIQ6e2zkmtQrXdH9q4LzkbPa3EbRRBt+AE2jiZYMeBBXptg9kptQxo blF769DqmU5MsOb3JxcdRt3tOBodfdDW3dPdGrRNOIo2HxC3+QUEe1Ac7BEE OyUO9jCCnRYHW0GwM+JgDyHYMoJNXSM+i0YzaPT/RRbOITcVuR1cBTiLbLIB NrMm9jp+5gJ+zqKum0F/z4b7OzsS7jK6+lAwBGZTrT2DLq8EXD4QwuxpJPBw YIKcUS32FLr8SGAh2XcF9kF0ju3XCDuz14GmpoHWbIKmNaE7sJPYYT+Ahk5y Q0ajBPl8HruRbJGTMHQ/GmLcaCc36E5rC/rkLgEDJ9HAKW4AoAtFwmC9YSRh YLiHZtFOAnfQKvNu2gADIIHT0wmfDXpW77MFYK1UhQ0yOxbrRhLHtHvREJt7 yKDvN7eAbXJtgAFLr1NSCZwvj/tskRKzAxu044p1sGme2WYbnkJVT+JAeyxA jh4j6sXh3FAnZ7BOdc3dKtUN5gWrnIBuMDwknBMHuwfBHhMHO4Jgq+JgSwj2 uDjYYQR7QhxsEcGeFAdbQLCnxMHmEey8OFgawS6Ig6UQ7GlxsDkEe0YczOGJ Y1fhAvAdg87TjGeFIFjD54QgGCHvK8JD7f15f13nFAj8Q1q5hnkL9meK/zXW gU2zUI7YPR136jnCDw0xG/o9A7pdAwaWs+7RbNuEXrcLhsGy2Sduq+RDNfUK L16Fqm66qLZRZ2cPhclaA4bKtmK+fdEIWoqj5aFt8S0TG7UWO4GV2gPlPyxv T4nzCG/aqW2DbjLjzjLj2zRx624Igt1lWxBFcUUG+s84BSqL4Qc9NJ3NC7va HQapcBmNeODMNuxq8vOi6328WOq62S5vQHPE9cB27JjX+0VmqVZ01Mp234SB 0SSnDtYfznTl7V/TiQjqvW1ZYFkm9I0227MUtnVeNur9f7kXPuV1Cc1boDdq UKvXoVRYg60qSW/XoN2znIU0Yq/HWbDlkU4RZoudlQrbHQZZIla0AYQRwC62 dPd4xdWkRRYUo58gEZ+8OyRCnojegrbehup6ASoNkm612JBa4l5G7CWPOlxc uk4J2YwZ5GmQITaww59EyvMEaaTnK22w7R6UaBdVm3RYxsdTjIbsxlOrNIwn ZBqzSz3qfSzz0KnXQB+Y0GBqsTN2UyFU3KCyOlXWrwZxrcrcNUODyh3Qe6jS 7oA2mg3gT3YYMeNvfZe8I4a2HDjak04zDNYX+XJrlNca6LY71NPQIIbWqhqT 2oj/Q0rDOYqZ+uJoVGsbq6AUNqBcLrvCJ9QMe46jmrozsNfLZL7q22me7Y4F Nje0zRRmd6G+XWHzqzu3+uz123Vmi34rlSr51qBrgmsPLANqlQqUS2VoGtY8 Z9Hls2iZsHCN2QMdKqUSQaqSeLK8xpY95Pu9PrmCQ/6cU87SIQuXcuh/LsvF KQ==\ \>"], ImageRangeCache->{{{0, 326.25}, {359, 0}} -> {-1.12503, -0.138535, \ 0.0201152, 0.0201152}}] }, Open ]], Cell[TextData[{ "Putting the two side-by-side makes it clear to what group this quotient \ group ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalZ]", "8"], "/", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], TraditionalForm]]], " is isomorphic." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"gr1", ",", " ", "gr2"}], "}"}], "]"}], "]"}], ";"}]], "Input", CellTags->"Quotients"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .50265 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.47619 0.0119678 0.47619 [ [ 0 0 0 0 ] [ 1 .50265 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .50265 L 0 .50265 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.0119678 0.477324 0.490678 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.12963 0.10582 0.0251323 0.10582 [ [ 0 0 0 0 ] [ 1 1.05556 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.05556 L 0 1.05556 L closepath clip newpath 1 1 0 r .12963 .76587 m .12963 .87169 L .23545 .87169 L .23545 .76587 L F .23545 .66005 m .23545 .76587 L .34127 .76587 L .34127 .66005 L F .87037 .55423 m .87037 .66005 L .97619 .66005 L .97619 .55423 L F .76455 .44841 m .76455 .55423 L .87037 .55423 L .87037 .44841 L F .65873 .34259 m .65873 .44841 L .76455 .44841 L .76455 .34259 L F .55291 .23677 m .55291 .34259 L .65873 .34259 L .65873 .23677 L F .44709 .13095 m .44709 .23677 L .55291 .23677 L .55291 .13095 L F .34127 .02513 m .34127 .13095 L .44709 .13095 L .44709 .02513 L F .23545 .76587 m .23545 .87169 L .34127 .87169 L .34127 .76587 L F .12963 .66005 m .12963 .76587 L .23545 .76587 L .23545 .66005 L F .76455 .55423 m .76455 .66005 L .87037 .66005 L .87037 .55423 L F .87037 .44841 m .87037 .55423 L .97619 .55423 L .97619 .44841 L F .55291 .34259 m .55291 .44841 L .65873 .44841 L .65873 .34259 L F .65873 .23677 m .65873 .34259 L .76455 .34259 L .76455 .23677 L F .34127 .13095 m .34127 .23677 L .44709 .23677 L .44709 .13095 L F .44709 .02513 m .44709 .13095 L .55291 .13095 L .55291 .02513 L F 1 .753 .796 r .34127 .76587 m .34127 .87169 L .44709 .87169 L .44709 .76587 L F .44709 .66005 m .44709 .76587 L .55291 .76587 L .55291 .66005 L F .12963 .55423 m .12963 .66005 L .23545 .66005 L .23545 .55423 L F .23545 .44841 m .23545 .55423 L .34127 .55423 L .34127 .44841 L F .87037 .34259 m .87037 .44841 L .97619 .44841 L .97619 .34259 L F .76455 .23677 m .76455 .34259 L .87037 .34259 L .87037 .23677 L F .65873 .13095 m .65873 .23677 L .76455 .23677 L .76455 .13095 L F .55291 .02513 m .55291 .13095 L .65873 .13095 L .65873 .02513 L F .44709 .76587 m .44709 .87169 L .55291 .87169 L .55291 .76587 L F .34127 .66005 m .34127 .76587 L .44709 .76587 L .44709 .66005 L F .23545 .55423 m .23545 .66005 L .34127 .66005 L .34127 .55423 L F .12963 .44841 m .12963 .55423 L .23545 .55423 L .23545 .44841 L F .76455 .34259 m .76455 .44841 L .87037 .44841 L .87037 .34259 L F .87037 .23677 m .87037 .34259 L .97619 .34259 L .97619 .23677 L F .55291 .13095 m .55291 .23677 L .65873 .23677 L .65873 .13095 L F .65873 .02513 m .65873 .13095 L .76455 .13095 L .76455 .02513 L F 1 .5 0 r .55291 .76587 m .55291 .87169 L .65873 .87169 L .65873 .76587 L F .65873 .66005 m .65873 .76587 L .76455 .76587 L .76455 .66005 L F .34127 .55423 m .34127 .66005 L .44709 .66005 L .44709 .55423 L F .44709 .44841 m .44709 .55423 L .55291 .55423 L .55291 .44841 L F .12963 .34259 m .12963 .44841 L .23545 .44841 L .23545 .34259 L F .23545 .23677 m .23545 .34259 L .34127 .34259 L .34127 .23677 L F .87037 .13095 m .87037 .23677 L .97619 .23677 L .97619 .13095 L F .76455 .02513 m .76455 .13095 L .87037 .13095 L .87037 .02513 L F .65873 .76587 m .65873 .87169 L .76455 .87169 L .76455 .76587 L F .55291 .66005 m .55291 .76587 L .65873 .76587 L .65873 .66005 L F .44709 .55423 m .44709 .66005 L .55291 .66005 L .55291 .55423 L F .34127 .44841 m .34127 .55423 L .44709 .55423 L .44709 .44841 L F .23545 .34259 m .23545 .44841 L .34127 .44841 L .34127 .34259 L F .12963 .23677 m .12963 .34259 L .23545 .34259 L .23545 .23677 L F .76455 .13095 m .76455 .23677 L .87037 .23677 L .87037 .13095 L F .87037 .02513 m .87037 .13095 L .97619 .13095 L .97619 .02513 L F .74 .99 .79 r .76455 .76587 m .76455 .87169 L .87037 .87169 L .87037 .76587 L F .87037 .66005 m .87037 .76587 L .97619 .76587 L .97619 .66005 L F .55291 .55423 m .55291 .66005 L .65873 .66005 L .65873 .55423 L F .65873 .44841 m .65873 .55423 L .76455 .55423 L .76455 .44841 L F .34127 .34259 m .34127 .44841 L .44709 .44841 L .44709 .34259 L F .44709 .23677 m .44709 .34259 L .55291 .34259 L .55291 .23677 L F .12963 .13095 m .12963 .23677 L .23545 .23677 L .23545 .13095 L F .23545 .02513 m .23545 .13095 L .34127 .13095 L .34127 .02513 L F .87037 .76587 m .87037 .87169 L .97619 .87169 L .97619 .76587 L F .76455 .66005 m .76455 .76587 L .87037 .76587 L .87037 .66005 L F .65873 .55423 m .65873 .66005 L .76455 .66005 L .76455 .55423 L F .55291 .44841 m .55291 .55423 L .65873 .55423 L .65873 .44841 L F .44709 .34259 m .44709 .44841 L .55291 .44841 L .55291 .34259 L F .34127 .23677 m .34127 .34259 L .44709 .34259 L .44709 .23677 L F .23545 .13095 m .23545 .23677 L .34127 .23677 L .34127 .13095 L F .12963 .02513 m .12963 .13095 L .23545 .13095 L .23545 .02513 L F 1 1 0 r .12963 .87169 m .12963 .97751 L .23545 .97751 L .23545 .87169 L F .23545 .87169 m .23545 .97751 L .34127 .97751 L .34127 .87169 L F 1 .753 .796 r .34127 .87169 m .34127 .97751 L .44709 .97751 L .44709 .87169 L F .44709 .87169 m .44709 .97751 L .55291 .97751 L .55291 .87169 L F 1 .5 0 r .55291 .87169 m .55291 .97751 L .65873 .97751 L .65873 .87169 L F .65873 .87169 m .65873 .97751 L .76455 .97751 L .76455 .87169 L F .74 .99 .79 r .76455 .87169 m .76455 .97751 L .87037 .97751 L .87037 .87169 L F .87037 .87169 m .87037 .97751 L .97619 .97751 L .97619 .87169 L F 1 1 0 r .02381 .76587 m .02381 .87169 L .12963 .87169 L .12963 .76587 L F .02381 .66005 m .02381 .76587 L .12963 .76587 L .12963 .66005 L F 1 .753 .796 r .02381 .55423 m .02381 .66005 L .12963 .66005 L .12963 .55423 L F .02381 .44841 m .02381 .55423 L .12963 .55423 L .12963 .44841 L F 1 .5 0 r .02381 .34259 m .02381 .44841 L .12963 .44841 L .12963 .34259 L F .02381 .23677 m .02381 .34259 L .12963 .34259 L .12963 .23677 L F .74 .99 .79 r .02381 .13095 m .02381 .23677 L .12963 .23677 L .12963 .13095 L F .02381 .02513 m .02381 .13095 L .12963 .13095 L .12963 .02513 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02513 m .02381 .97751 L s .02381 .02513 m .97619 .02513 L s .02381 .13095 m .97619 .13095 L s .02381 .23677 m .97619 .23677 L s .02381 .34259 m .97619 .34259 L s .02381 .44841 m .97619 .44841 L s .02381 .55423 m .97619 .55423 L s .02381 .66005 m .97619 .66005 L s .02381 .76587 m .97619 .76587 L s .02381 .87169 m .97619 .87169 L s .02381 .97751 m .97619 .97751 L s .12963 .02513 m .12963 .97751 L s .23545 .02513 m .23545 .97751 L s .34127 .02513 m .34127 .97751 L s .44709 .02513 m .44709 .97751 L s .55291 .02513 m .55291 .97751 L s .65873 .02513 m .65873 .97751 L s .76455 .02513 m .76455 .97751 L s .87037 .02513 m .87037 .97751 L s .97619 .02513 m .97619 .97751 L s .02381 .97751 m .12963 .87169 L s 2.6 Mabswid .12963 .02513 m .12963 .97751 L s .02381 .87169 m .97619 .87169 L s [(0)] .18254 .81878 0 0 Mshowa [(4)] .28836 .81878 0 0 Mshowa [(1)] .39418 .81878 0 0 Mshowa [(5)] .5 .81878 0 0 Mshowa [(2)] .60582 .81878 0 0 Mshowa [(6)] .71164 .81878 0 0 Mshowa [(3)] .81746 .81878 0 0 Mshowa [(7)] .92328 .81878 0 0 Mshowa [(4)] .18254 .71296 0 0 Mshowa [(0)] .28836 .71296 0 0 Mshowa [(5)] .39418 .71296 0 0 Mshowa [(1)] .5 .71296 0 0 Mshowa [(6)] .60582 .71296 0 0 Mshowa [(2)] .71164 .71296 0 0 Mshowa [(7)] .81746 .71296 0 0 Mshowa [(3)] .92328 .71296 0 0 Mshowa [(1)] .18254 .60714 0 0 Mshowa [(5)] .28836 .60714 0 0 Mshowa [(2)] .39418 .60714 0 0 Mshowa [(6)] .5 .60714 0 0 Mshowa [(3)] .60582 .60714 0 0 Mshowa [(7)] .71164 .60714 0 0 Mshowa [(4)] .81746 .60714 0 0 Mshowa [(0)] .92328 .60714 0 0 Mshowa [(5)] .18254 .50132 0 0 Mshowa [(1)] .28836 .50132 0 0 Mshowa [(6)] .39418 .50132 0 0 Mshowa [(2)] .5 .50132 0 0 Mshowa [(7)] .60582 .50132 0 0 Mshowa [(3)] .71164 .50132 0 0 Mshowa [(0)] .81746 .50132 0 0 Mshowa [(4)] .92328 .50132 0 0 Mshowa [(2)] .18254 .3955 0 0 Mshowa [(6)] .28836 .3955 0 0 Mshowa [(3)] .39418 .3955 0 0 Mshowa [(7)] .5 .3955 0 0 Mshowa [(4)] .60582 .3955 0 0 Mshowa [(0)] .71164 .3955 0 0 Mshowa [(5)] .81746 .3955 0 0 Mshowa [(1)] .92328 .3955 0 0 Mshowa [(6)] .18254 .28968 0 0 Mshowa [(2)] .28836 .28968 0 0 Mshowa [(7)] .39418 .28968 0 0 Mshowa [(3)] .5 .28968 0 0 Mshowa [(0)] .60582 .28968 0 0 Mshowa [(4)] .71164 .28968 0 0 Mshowa [(1)] .81746 .28968 0 0 Mshowa [(5)] .92328 .28968 0 0 Mshowa [(3)] .18254 .18386 0 0 Mshowa [(7)] .28836 .18386 0 0 Mshowa [(4)] .39418 .18386 0 0 Mshowa [(0)] .5 .18386 0 0 Mshowa [(5)] .60582 .18386 0 0 Mshowa [(1)] .71164 .18386 0 0 Mshowa [(6)] .81746 .18386 0 0 Mshowa [(2)] .92328 .18386 0 0 Mshowa [(7)] .18254 .07804 0 0 Mshowa [(3)] .28836 .07804 0 0 Mshowa [(0)] .39418 .07804 0 0 Mshowa [(4)] .5 .07804 0 0 Mshowa [(1)] .60582 .07804 0 0 Mshowa [(5)] .71164 .07804 0 0 Mshowa [(2)] .81746 .07804 0 0 Mshowa [(6)] .92328 .07804 0 0 Mshowa [(0)] .07672 .81878 0 0 Mshowa [(4)] .07672 .71296 0 0 Mshowa [(1)] .07672 .60714 0 0 Mshowa [(5)] .07672 .50132 0 0 Mshowa [(2)] .07672 .3955 0 0 Mshowa [(6)] .07672 .28968 0 0 Mshowa [(3)] .07672 .18386 0 0 Mshowa [(7)] .07672 .07804 0 0 Mshowa [(0)] .18254 .9246 0 0 Mshowa [(4)] .28836 .9246 0 0 Mshowa [(1)] .39418 .9246 0 0 Mshowa [(5)] .5 .9246 0 0 Mshowa [(2)] .60582 .9246 0 0 Mshowa [(6)] .71164 .9246 0 0 Mshowa [(3)] .81746 .9246 0 0 Mshowa [(7)] .92328 .9246 0 0 Mshowa [(Z[8])] .02381 1.03042 -1 0 Mshowa gsave .97619 1.03042 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .05979 .90661 0 0 Mshowa [(y)] .10317 .94577 0 0 Mshowa MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0119678 0.97619 0.490678 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.214286 0.190476 0.0261905 0.190476 [ [ 0 0 0 0 ] [ 1 1.1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1 L 0 1.1 L closepath clip newpath 1 1 0 r .21429 .59762 m .21429 .7881 L .40476 .7881 L .40476 .59762 L F .78571 .40714 m .78571 .59762 L .97619 .59762 L .97619 .40714 L F .59524 .21667 m .59524 .40714 L .78571 .40714 L .78571 .21667 L F .40476 .02619 m .40476 .21667 L .59524 .21667 L .59524 .02619 L F 1 .753 .796 r .40476 .59762 m .40476 .7881 L .59524 .7881 L .59524 .59762 L F .21429 .40714 m .21429 .59762 L .40476 .59762 L .40476 .40714 L F .78571 .21667 m .78571 .40714 L .97619 .40714 L .97619 .21667 L F .59524 .02619 m .59524 .21667 L .78571 .21667 L .78571 .02619 L F 1 .5 0 r .59524 .59762 m .59524 .7881 L .78571 .7881 L .78571 .59762 L F .40476 .40714 m .40476 .59762 L .59524 .59762 L .59524 .40714 L F .21429 .21667 m .21429 .40714 L .40476 .40714 L .40476 .21667 L F .78571 .02619 m .78571 .21667 L .97619 .21667 L .97619 .02619 L F .74 .99 .79 r .78571 .59762 m .78571 .7881 L .97619 .7881 L .97619 .59762 L F .59524 .40714 m .59524 .59762 L .78571 .59762 L .78571 .40714 L F .40476 .21667 m .40476 .40714 L .59524 .40714 L .59524 .21667 L F .21429 .02619 m .21429 .21667 L .40476 .21667 L .40476 .02619 L F 1 1 0 r .21429 .7881 m .21429 .97857 L .40476 .97857 L .40476 .7881 L F 1 .753 .796 r .40476 .7881 m .40476 .97857 L .59524 .97857 L .59524 .7881 L F 1 .5 0 r .59524 .7881 m .59524 .97857 L .78571 .97857 L .78571 .7881 L F .74 .99 .79 r .78571 .7881 m .78571 .97857 L .97619 .97857 L .97619 .7881 L F 1 1 0 r .02381 .59762 m .02381 .7881 L .21429 .7881 L .21429 .59762 L F 1 .753 .796 r .02381 .40714 m .02381 .59762 L .21429 .59762 L .21429 .40714 L F 1 .5 0 r .02381 .21667 m .02381 .40714 L .21429 .40714 L .21429 .21667 L F .74 .99 .79 r .02381 .02619 m .02381 .21667 L .21429 .21667 L .21429 .02619 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02619 m .02381 .97857 L s .02381 .02619 m .97619 .02619 L s .02381 .21667 m .97619 .21667 L s .02381 .40714 m .97619 .40714 L s .02381 .59762 m .97619 .59762 L s .02381 .7881 m .97619 .7881 L s .02381 .97857 m .97619 .97857 L s .21429 .02619 m .21429 .97857 L s .40476 .02619 m .40476 .97857 L s .59524 .02619 m .59524 .97857 L s .78571 .02619 m .78571 .97857 L s .97619 .02619 m .97619 .97857 L s .02381 .97857 m .21429 .7881 L s 2.6 Mabswid .21429 .02619 m .21429 .97857 L s .02381 .7881 m .97619 .7881 L s [(0)] .30952 .69286 0 0 Mshowa [(1)] .5 .69286 0 0 Mshowa [(2)] .69048 .69286 0 0 Mshowa [(3)] .88095 .69286 0 0 Mshowa [(1)] .30952 .50238 0 0 Mshowa [(2)] .5 .50238 0 0 Mshowa [(3)] .69048 .50238 0 0 Mshowa [(0)] .88095 .50238 0 0 Mshowa [(2)] .30952 .3119 0 0 Mshowa [(3)] .5 .3119 0 0 Mshowa [(0)] .69048 .3119 0 0 Mshowa [(1)] .88095 .3119 0 0 Mshowa [(3)] .30952 .12143 0 0 Mshowa [(0)] .5 .12143 0 0 Mshowa [(1)] .69048 .12143 0 0 Mshowa [(2)] .88095 .12143 0 0 Mshowa [(0)] .11905 .69286 0 0 Mshowa [(1)] .11905 .50238 0 0 Mshowa [(2)] .11905 .3119 0 0 Mshowa [(3)] .11905 .12143 0 0 Mshowa [(0)] .30952 .88333 0 0 Mshowa [(1)] .5 .88333 0 0 Mshowa [(2)] .69048 .88333 0 0 Mshowa [(3)] .88095 .88333 0 0 Mshowa [(Z[4])] .02381 1.07381 -1 0 Mshowa gsave .97619 1.07381 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (+) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .08857 .85095 0 0 Mshowa [(y)] .16667 .92143 0 0 Mshowa MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 144.75}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnW9oZNd1wMeaP9rVjHZLqb1uveCl+EP8RRDcfi4Ct42hqZym0D8Roa6p 4qV1q27d2KoLKmuwq9ASFIorUjaDa2TwKgaLdaqgeOqtcMwEIwxDQQREmC8i oMIQBsMYxnB633v3/z333Ps072nlRAbbT3PvvHfvOeeee+7vnrnvi08998xf PPvUc9effura7954avmZ60//3bXf+Zsb7KPqfZXKfc9UKpV3rlWSa2CX/D/p P9eT//A/Tnh9NflfLbnnf8url7OiVvK/W8kHv5pcvZpc/dLERVPJB5eg8+mP avIq/exyclXNrljtKefq7ofu1WpFXVXlQ9PPfk0+4yH5jKvyfg/Ju1yVdzlv 5nkzK5V68kV2386nH8DOxx+kfzXkbWtI6bR8VIOX7v7sXXjrp9+Htz/+IPus mpUmT6rC4LgCg2El/atBdrueXLFvjO504PjtXRjsfsie5opiOrlK7vxcBY6f r6R/1csVz85HL7A/H4ONn2Hi0UuVeJTw3oOXXngs9WRpAfvsy6+/lpTKGpnI 6unTa7CxmPq99N+Nria1rAL777gCSxVVqTvkZfzBmRwP/vEJUUM+eP3b/5OU 8hpCAlX59x24+evmN26+vCW/UZPfqHEdwIsVWOTPqPL/7q+kOklrTEnZNrie NuZUuxcer8Bold+tTOPehi+zx/3pD76PGrcqtbWX/P0OfP2FJVj94Vvwzsfv Qft7f5U2ffXHe1mdKhdHat797axjB6MKHG5l14djUzepBseswoj9e9yvwAqr tLipj45Mgw0Y77KRcGcXOn/+CFT+8F/ZdQeGnQ/rluKSQbILey9/C3rf7cC4 8z4cfONr6bO3Nt+v1PUBtpo8ZuuxrGVrX63A0TL7P/ubKa0mJSkqHixkFXtM o4Pr2fX2jbLUJfzJxjfZYPnKK7DL/qrL29aR0oZ81AWhzE9eS1u59MN3EfW0 WX/m1lNfBMCkP58MsJ6mnip3WknhgmXWm4f8i8DrCbNOh07v2d+Aua+9zhUn ejstB9Zuqua1VzuaPhp8ELW5PrrP888MJWxcYY1+XA6pdLitPV22EnZ/8or0 aa4S9FKlhOy7SZ09eON/X4PVf/4S+/i34N/+70eIMhJHcHNPyhTWkn7tO2Ml qzi/UYEx83pr7HqpzaxxpFUUOthHdSAG0/DtO9C/002d2fjNb6USb//n+3Vd Wak6dual1WdKMNXxOVZ6jQ1xNiaOl7KaO6WPic6n78JfciflqkMvtdXBBP/J m/B7Yrb45mYd10RXaWJ9DtVEHUYH2V36rFI7q6R5rTg1JKXJPeY+/0jWot9e geO7mk+7wNWwxuy+wh4yFBOEoYb259Q0ok0lJalhmgv6jTe/JJ1PTd62gZTW Hdd0+wdL7M8vQPsTbDS05zXXNM5c07rumkRwsMNsboGNgMSXMfm74sc9USb+ elpa+eJL0PtOG7rfuQNjo5aQ7vhF5W+G3Mi77gxRgy4Te4Wp4iiZIZ7PvJcl /iYSJrak7LDSWSm7WSSIbOVTXVVO5Hvw0j8twb/8+B32IPawj26mzmnjY12V UxG1lWrrPF6+ffcV+Ie7byWKhze+92dCza6WRUzQZxru7/BYYYxoGYZyAoJ1 Xcs1HoiN396Czquvw9ZXHkm0PY0rOokZdlgM8d3/YrHD+4iik8llkVnSmCm6 /1Xu915EFA0s0J5LxtkX0hGJKfpiZMB7UUo79hszUuItPERWNjETGfxelKKY iQxlL4ZsLOvH13/fvMXffvSe7MeUZWfhb1QtW6vDW3dvGI7v8VdvVZRLF/az Pq9qrHVML5GOqMNNaVyIdY3Y/CjMb/5Zx7oa0LvxhNGKyudXYKh78ToP9w// 2PTTSwv6pCoWBcNnlbnzCRV15RcjovIZy7zo2k0p4CYdwzctE/NG500pgyYd bzfz0QMZCrAe3P7JNtz+6R6y3D5iC4qjgb3cnualx0dsluQxrBs/jZirGOx2 rZlDLdAb2khJ+nFkxKti3k5KDpf9C7tZJFRXOsNKXR15AnmloxYyGbZkR1pI 4D17b1lOk4idlXSoWq6UPBG2K6V9VEqzSDzcQqV0C+uLE3g2rW44FVp4D9zI NLYHl5BQEh91Vg+EFeoxm2ujeilio3hEF2ujwnl4QrGczqNoc52hIx8lq0BF V2yeEMl2v04ENOtIzhPbnAnJ4fN40xIbXksNExENWbO9HQ0587ktK3yaxsf6 KXtEc75z1w16qbtu0GfDljPw9PnOnRz0We4eTw4FslAH1hssVC91Qb+zSWB1 kUb+QbxvYRgH75cpHj2CD8J6J4KnvlFzxOhsJmiRe4jtB7cIToTyc24XBFG+ uO9qzLpqqkyNRgB8a93vr11HBoS1saAt9iMYP0RtGeRj/NFbBzGM36hI7RqU R9wcoG8QN71UqUd819lIqHJ5Qj7GH719EMT9BKCLwf3GKszZNShr0iCAvjZ5 4LVcpTgbCw6KJll/nt2DOOxPY+sY7G9MW87uQVlqwcG+phGnQsNRhrOtYDgw Gvfn2T2II/9xmqDIf1rRu4FQnpdy2L7hpfRSd1/A2VMwQJ4X90dvHMSR/xjn hON+QznUxoESP54nVaOXikquVbqiErHaxA+wf0PkFHuHKIofx+CDKJ9i786c 4aP4cVInuLImcrxWw5J3JAc3sCWOo4M0OxpHB8F2kERrAieotuNiIPFMmTvh 97gqxfWQ7MdV2Q5/EouNfc0kFq1ULdzUOjQIgMEPjy87TgIHxV4AbIQtDjwu XmSnsySfpJm3zuzNuADFLS4hQrhsCtUVJS7UMvR83sxfuGYKP+LgIZ4R45Y2 kO5gea/Kb2KwTMdhFObCRCH9poa+GuWIR8xQXjbDpw1/LcXa8hMcLF9WCS4W stU0RQRwVzQ1i0JcUw4UC2G0aqQWW4hFKVzdQiyqFaPtWgTE4fEbWdFNcwvS Hiy51lZ1LE8rOH22TjMwG33SaK2GaPhi5MC4IOUf+w2VZDITOVhUbkwTHyzK kJqRw+Bi2OAoSmUYnKeinQLiw1lYTjCCMVAMWGLWrwB9+mrZyGB0MCBmRjP0 WJuRwgxUbFpGE5vxMkMPu6ZlOBEZL357IfCZaS94RWUvNGfD0pcb1rweIpXF JygLc9lHzUW4Kw+pxCyniQyalpQlVqp2MC8hg8a1iWCGzSwyBFphQ6DonWEI norKEGjMhyVO24ZAANKCU6PjDMADSDEDaCGjoClliJWq3fwWMQpcQwgmEc0i fQsaAo4SNQNwKkznZ41Y1ra7IYHT2eLysum5ok7Q2Tqi+FnE6tVEgZU2LcUT aVcztNVPrHMMZBo6tyq4Og+Szph0bxsQR5HkSPQbhMh1nPo2cIuw4DFmETP0 cHCjiGBG2SVkZCAzRCi/LecMIVauXgJrrFyxWvYqJsRpY9O2q5a9hDD4hEnY wkIsVm1biJd6U6GmZ/y4RhJMnmvSQ8e1l2BiXxMfGbN+kxGxoEOc+fabW+qu O3AefdkKFXyEfZK0azEx6DRdTQwYPpshzLppqTCU09ckTNlOxCUyDJu4sRJK Ow3O2ESU68bHeIZfC1G4i2rwzMJZRKW4yzvfAThv5nkzC2smfSYEzfPpvYDY 9FYv4y9TFNVIrDglHzUV+Y2qNVGGDm44Cdun9goKSofNxfG14Cpyr6B4jQpO QvF3g5N4KrpEP3iYQz5mT/P/gnNgo0G9ER9T/D+UFiM2Eh0sra1CzFJ8sUqe 3EDza5p9l5jG6uXXRtjq8IyQSEXE7ZBbY+dWL0UynUKnL8QhXhoTF5+MGoN4 DeE6oND1NMlCr4LnKWL5jN7Fk8NPjcWTXur6lOApDEHQSnPagjNRY0DraatB OHyKZhoO31PRVg5xNgNNPmlqWlxeapB8xnqbojVBMUZnbxOp6GrCe3hCNH/M hzWLy2QNwkitFs40y9ITAfc0JeG11LwSdwBBHPbLjxMnzH6N4YCGfjCiWLx+ xEzukDUjdNJLVehEHyJAs7jLmgujuFtstquXzxUvslNaeU/QTBcxnZWbCQHy W1xChGCl8jqi9Ai1FD3f42ZOct7SPelO7IE+F2RbTuMIoBJOLrqH0vUulWcs oRZ56E1Jp/Ng0xEO5sR0FPpVuvihymogsZg/jYKJNIicRkZfnVQfdoRIU/Zt kkNwCjqHByOW8UBOEMucv2jPj/CorGkVzsfS1qpjDUXlQzdwJ2LHNjg2rREG tE8a0EnOByr4qCKPIUUgQc2IchyUGwcQA/nXdip9FK2lsGpeREv6zJq10sBp bb1gq6HPZCruZCiMd+FUU/Au4qf7NIUIJEXbPMCHjSfJdRaq9jhkpeoaxGHj qYJnm+jjrAo6XAujBkEEK8BB3MEBNCQMZD67iSg4+C4iobkOpJO1/YAXfGMT iOc0rpYVOBZxXFfxR4l5jYQCxIaRBM80iDOSYLIzBuvrjpGcMNnZsA/Xp7rz BIbjsXnCc/yYaxwTnk9W0GlpHnMgELVmC6EDFmKmECLpObBNoFsKhe9p9C9n Edy7KkMQcai1C0DFCjpFcyeNkxzFNskRcLSqMdDtqpo6XJnG4Z58aFfbwR2G ktKdhSF4PKhrCNZOA2YIxZD/IPA23HPMMcU0Gaeyku3wPrTZUFa+cQN3bEam Kdj7DCWpCINWNEjHknjdkBnfLohN051GnIGR7wD2dgEW6/xcAOBz0F+yAE+j mb4Xzf0iP5Q+ZEE9nia5xaSKekmua2kgEwb5d1VyIJZE6JkTI2GnNjnmOfAz /2kIJ0GlcQg2LzKlEWyQlxoTLIZdy9IoTR+NKCd41me+cw6iWWU0/SwyszTI Ko0AlkKfxWsOO0RPLR7qSKlxehaOJ7Uw1EcOowHkJAmnucihoQQKSpanBIe4 GErwnjEZhITGdiAO7aLZXxHZqjHQzqnow4BnUx3BH8bTeCyask2YrRrEY64a PLTtbLmmYKamMW0ECVWQdU2Sn0qRKdMpEYyrrDkdR0LaXE4fBkoDKmcrigRH EQgqkhXlQ1AUMDL0Q6Gn8vSDcSBDP94DRGOSMTUVhVhRLHeK4UP5uZMXGBk6 xHhTeZ7LoUeG5yLeXWUEUDhHCjEoii2pRayXIxkydRhU8SI7DUiCnVnXlE2P PdEu9oQ88m1T6OJMtaWEc9FO4zg3osuBg7tmZNeLP+GrpKPIIjrrWUW4nZ3w 6KpJTs/CRiLIxG5nNEUcO4yNTneXFYi43hXQhEc6FXG61L0XlBt5ewR18nOQ JjyN6Z7KyBMeI6NtsmOACjqU6J7KyhOqurKa/Aic4o/niZIczbOxDGvszV6x OdTe940Zpc6bzNwzYACJUt244ORn2xR50g6Wtw4kmhb5695absTuBdin8dqw spKsve9V05ZIkW9288S4esjuxrgnOQpokiOIsMUrkEhcrGC9tewfHUaA85Je S1Z8RrX3ZW2aeUS8Jq74VVrsCQ5T8lFTkd+oOuoMIvhJXl1WUP6z97Vtaal4 XZLzQrhSYBCEiLo2pCIOiohG74EsZVcjODgvKPnY+842bWARb4crSzMEYTc8 HX1qRDSHDyQF59XJhLm+3le3aTrBXw1XvDrqPKzAYLsWnRCnRUTTeCoVt5HL TxWRZOt9d5tR6rwVrjwNYDjd0AB1Hi1E8XYqQ7ZhTfTEPkZxua/Rb3fj/SQX RCXpBzvhQSmnjpTap8QSmD2QDmtHX/TmxWpRWa65XgKnqYZ4BV369QcToW4k V5dtKWPnPahZuoGUurmxOJZH3uGDbjQUk8QqQ1X7XW8hAZRHO/CH3goUqTGU VmpMNIZOA+VcSa6mz3wzH0iuLpz5Zt6fXNX4mM8aoAGCM930X5FNn5JXE3t/ B5sZ3p94j5jVsSBos6J6HLR5AZrpg2z4Zgmqlnb2Apu7loR62Rp0BP3NRf73 PHSHMC2lWJ1cniLawTCWEe14zwON+318fraVn5+VlSGbi3cZGnf4GapxptDx ELpc6zvHY+hvZ9frncOKUndtcnWLdTjFoox1ePAc0WDyqBFXBWFVbga2Wmxe bTS8ska2BcIsPTcgE+zB1jK3szlo7x8r1daLUy3FpQzVBg8tzf/DdnqxSAOx gvJxvVCLN8EDxDwKO+qscYUtQW8EDammRnEKowiWw8RCZ6LKiuSPzYNYJZqY rRaQshukXobqHHLm86lsZdLbWsn8QrcPezeTRy9D92ioeVI1BMvMr3H17aFj rr4Dh69C+MfjccqO+dn9agEJwRROM/Ts0DhPtNTfXpZP2zw8hs6yePoC7A9B xZwX5NXPQfqS6fIJ1Ge6/NAJssFfoQdxYARSLC6t2YsFjVIHKVqWNCsN46K8 +kymeRlGQdFHwyiCJ9YGf5EeQyjjQOdqMZnWMWTSCvcCwBPZxlaGYprMWUqW E8s7DHgayzvvibj0D92DGDQPUF0tKoc7SD+dZV2QqiKZMBrTSFp0dAB7nQ50 9vag09mDw8FYCzPOcp4gdnivi1Two33p3/nTgNeAMKsnzST3Al4vj1Ijtsp1 199Zg/n5eWknm4cjn+7udepianjt5IMHZYfUrJUtW5iodpKY6CYcp1p0HNRZ yi/EOqQitWneIYDDFC4t7/SRDp3hJECse2rNkXaUtWvQXefGt8KCeFBc70wm 1GF9alh9StzGcereFtbasJIsQrf7GrA8M5le6VUjM1fx+KIJuKI76VBlwjre S+ILtkAZAwzS6+VE8QUA8uwRIYacTVvT5Xa7ZnWb2f3wICU/laVtGCefDffT 1dJiu1fE5kBmexRNTR8iJvns69rqrjxRVC1RJMNlBNtLaqRts4YetBfECnC7 Pxbty9oxUU4cwh6VJJTgP9vbJ6ofasdpQqnVbQAIUgZJg7Iwj8u3cr5XUilz rwQbsPdPruhsNgYPLWQ9yx6d+FBjPJ5vkBS0QZLOvQ8UoMg0BMFwYGbX6SSs R8Zq3J7viJA7IukYuDK5hurmlJNKU4b18vbnux26WojdjlRaD06ulppUiwgV rOXI+aZEYFMiVcK/o8KtWsLF10XnkN4D6QnJqgC2xiWLLKrOSffJSPdvSrfy sjPP1vQ4TMm/4VvdnXPmvJz5PU3mdUPC+KKxrvzuZx/U6p2XqAhKyVHUH3WL +uCqbEJq+09kn97ifgdD/7eJsivZ1++XQdCYqaUPh4d9FrdAU3w8HsLR4SH0 ++nHf89viLHqR3Pd6a+JO1lNG/Y2ePEctHtDccNxfzudldJB3B08D5k2dOr8 aK47LCN3MJpS5Teah/1RNolmVHgEx8fHcMx/GSY+20jDjUHlj9LPggmVM/yr B1ub0Btm3q0pb6fA86NIU2aRxz5Z7GOvaEaZFI0P07ihUhEr6wTjLSa5DvIf 2cIhSN8xPNw2XNn8yjYMOWtOnzjksZyQG52WKFq6v74Ce0brnfjx4RO2vM4N FcYHGi1ZSPkl1uwni232A7rcp9MnbS1lJGj/eAiD/h6Tp0ZTdcuQLZxOB+VW AoSWt2CQ3IXpQQw3rBd/wltj8TqJUBNQsbMFW9vbsLa4ADfb7HpzC/aPRpwt 4iHmwyfshgiuxqMRjEZDOO7vc3zR42Vm8/+gnOZzZcxyY4ZhNzXmxc2D9JZr 7CmdAdB6GMB6MtFvH3FbO0o7crM7IPVgEUDVEWZYvS7s9/ahvbwIGzvsuttN HXyA8j980k4k4KFngYdpiaa0QeRoo/hOZH45nZITnWUlLCLpM5Nic81gTJlT g5vHHKwz3a8vz2cNG9LeiEjoE8O6u6aGdcymw7WczVfGNOTcYR/G4yPOHfaS 6ZV2TSX04X59aNThYHsLeoMh7KR5cNlcWkW6IjQxOmhn88HiYjYlL7TpeSGY cicmtv7eDghsekHYfNy2R1L56ok6VOcdWmJGOuLgYYh6qidPtTe/nGmpJb85 yIhWL/mgnyp3fr1r9msBemPd5kawmeDZm3t8mO+la8KNg6FmcyoM+Xb+R2Uz riALHU4WBjXk7t/QrY7F8StzUFlcgfX1dbGfAFv9sQB9w142tS6vs1jnmH+c +Z9Urdysx0c74puKEQ4PYXtzI7VNFir+x4keWJM362oL+2EVfwbvWyrk6/HX lfv+H5XQkYY=\ \>"], ImageRangeCache->{{{0, 359}, {179.938, 0}} -> {-0.053009, -0.0251377, \ 0.00733294, 0.00733294}, {{9.0625, 171.375}, {175.625, 4.3125}} -> {-1.75324, \ -0.488658, 0.0727848, 0.0727848}, {{187.625, 349.938}, {175.625, 4.3125}} -> \ {-7.5608, -0.282907, 0.0421384, 0.0421384}}] }, Open ]], Cell[TextData[{ "The following indicates that ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1"}], "}"}], "\[RightAngleBracket]"}], TraditionalForm]]], " in ", Cell[BoxData[ FormBox[ SubscriptBox["S", "3"], TraditionalForm]]], " is not normal." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NormalQ", "[", RowBox[{ RowBox[{"H", " ", "=", " ", RowBox[{"SubgroupGenerated", "[", RowBox[{ RowBox[{"Symmetric", "[", "3", "]"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "2", ",", " ", "1"}], "}"}]}], "]"}]}], ",", RowBox[{"Symmetric", "[", "3", "]"}]}], "]"}]], "Input", CellTags->"Quotients"], Cell[BoxData["False"], "Output"] }, Open ]], Cell["\<\ Because of this lack of normality, the product of cosets is not a \ well-defined operation, as illustrated here by the failure of having square \ blocks for products.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LeftCosets", "[", RowBox[{ RowBox[{"Symmetric", "[", "3", "]"}], ",", " ", "H", ",", " ", RowBox[{"Mode", " ", "\[Rule]", " ", "Visual"}]}], "]"}], ";"}]], "Input",\ CellTags->"Quotients"], Cell[BoxData["\<\"KEY for S[3]: label used \[Rule] element:{g1 \[Rule] {3, 2, \ 1}, g2 \[Rule] {1, 2, 3}, g3 \[Rule] {2, 3, 1}, g4 \[Rule] {1, 3, 2}, g5 \ \[Rule] {3, 1, 2}, g6 \[Rule] {2, 1, 3}}\"\>"], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.07143 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.159864 0.136054 0.0255102 0.136054 [ [ 0 0 0 0 ] [ 1 1.07143 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.07143 L 0 1.07143 L closepath clip newpath 1 1 0 r .29592 .70578 m .29592 .84184 L .43197 .84184 L .43197 .70578 L F .15986 .56973 m .15986 .70578 L .29592 .70578 L .29592 .56973 L F .84014 .43367 m .84014 .56973 L .97619 .56973 L .97619 .43367 L F .43197 .29762 m .43197 .43367 L .56803 .43367 L .56803 .29762 L F .56803 .16156 m .56803 .29762 L .70408 .29762 L .70408 .16156 L F .70408 .02551 m .70408 .16156 L .84014 .16156 L .84014 .02551 L F .15986 .70578 m .15986 .84184 L .29592 .84184 L .29592 .70578 L F .29592 .56973 m .29592 .70578 L .43197 .70578 L .43197 .56973 L F .70408 .43367 m .70408 .56973 L .84014 .56973 L .84014 .43367 L F .56803 .29762 m .56803 .43367 L .70408 .43367 L .70408 .29762 L F .43197 .16156 m .43197 .29762 L .56803 .29762 L .56803 .16156 L F .84014 .02551 m .84014 .16156 L .97619 .16156 L .97619 .02551 L F 1 .753 .796 r .84014 .70578 m .84014 .84184 L .97619 .84184 L .97619 .70578 L F .43197 .56973 m .43197 .70578 L .56803 .70578 L .56803 .56973 L F .29592 .43367 m .29592 .56973 L .43197 .56973 L .43197 .43367 L F .15986 .29762 m .15986 .43367 L .29592 .43367 L .29592 .29762 L F .70408 .16156 m .70408 .29762 L .84014 .29762 L .84014 .16156 L F .56803 .02551 m .56803 .16156 L .70408 .16156 L .70408 .02551 L F .70408 .70578 m .70408 .84184 L .84014 .84184 L .84014 .70578 L F .56803 .56973 m .56803 .70578 L .70408 .70578 L .70408 .56973 L F .15986 .43367 m .15986 .56973 L .29592 .56973 L .29592 .43367 L F .29592 .29762 m .29592 .43367 L .43197 .43367 L .43197 .29762 L F .84014 .16156 m .84014 .29762 L .97619 .29762 L .97619 .16156 L F .43197 .02551 m .43197 .16156 L .56803 .16156 L .56803 .02551 L F 1 .5 0 r .56803 .70578 m .56803 .84184 L .70408 .84184 L .70408 .70578 L F .70408 .56973 m .70408 .70578 L .84014 .70578 L .84014 .56973 L F .43197 .43367 m .43197 .56973 L .56803 .56973 L .56803 .43367 L F .84014 .29762 m .84014 .43367 L .97619 .43367 L .97619 .29762 L F .29592 .16156 m .29592 .29762 L .43197 .29762 L .43197 .16156 L F .15986 .02551 m .15986 .16156 L .29592 .16156 L .29592 .02551 L F .43197 .70578 m .43197 .84184 L .56803 .84184 L .56803 .70578 L F .84014 .56973 m .84014 .70578 L .97619 .70578 L .97619 .56973 L F .56803 .43367 m .56803 .56973 L .70408 .56973 L .70408 .43367 L F .70408 .29762 m .70408 .43367 L .84014 .43367 L .84014 .29762 L F .15986 .16156 m .15986 .29762 L .29592 .29762 L .29592 .16156 L F .29592 .02551 m .29592 .16156 L .43197 .16156 L .43197 .02551 L F 1 1 0 r .15986 .84184 m .15986 .97789 L .29592 .97789 L .29592 .84184 L F .29592 .84184 m .29592 .97789 L .43197 .97789 L .43197 .84184 L F 1 .753 .796 r .43197 .84184 m .43197 .97789 L .56803 .97789 L .56803 .84184 L F .56803 .84184 m .56803 .97789 L .70408 .97789 L .70408 .84184 L F 1 .5 0 r .70408 .84184 m .70408 .97789 L .84014 .97789 L .84014 .84184 L F .84014 .84184 m .84014 .97789 L .97619 .97789 L .97619 .84184 L F 1 1 0 r .02381 .70578 m .02381 .84184 L .15986 .84184 L .15986 .70578 L F .02381 .56973 m .02381 .70578 L .15986 .70578 L .15986 .56973 L F 1 .753 .796 r .02381 .43367 m .02381 .56973 L .15986 .56973 L .15986 .43367 L F .02381 .29762 m .02381 .43367 L .15986 .43367 L .15986 .29762 L F 1 .5 0 r .02381 .16156 m .02381 .29762 L .15986 .29762 L .15986 .16156 L F .02381 .02551 m .02381 .16156 L .15986 .16156 L .15986 .02551 L F 0 g 1 Mabswid [ ] 0 setdash .02381 .02551 m .02381 .97789 L s .02381 .02551 m .97619 .02551 L s .02381 .16156 m .97619 .16156 L s .02381 .29762 m .97619 .29762 L s .02381 .43367 m .97619 .43367 L s .02381 .56973 m .97619 .56973 L s .02381 .70578 m .97619 .70578 L s .02381 .84184 m .97619 .84184 L s .02381 .97789 m .97619 .97789 L s .15986 .02551 m .15986 .97789 L s .29592 .02551 m .29592 .97789 L s .43197 .02551 m .43197 .97789 L s .56803 .02551 m .56803 .97789 L s .70408 .02551 m .70408 .97789 L s .84014 .02551 m .84014 .97789 L s .97619 .02551 m .97619 .97789 L s .02381 .97789 m .15986 .84184 L s 2.6 Mabswid .15986 .02551 m .15986 .97789 L s .02381 .84184 m .97619 .84184 L s [(g2)] .22789 .77381 0 0 Mshowa [(g1)] .36395 .77381 0 0 Mshowa [(g6)] .5 .77381 0 0 Mshowa [(g5)] .63605 .77381 0 0 Mshowa [(g4)] .77211 .77381 0 0 Mshowa [(g3)] .90816 .77381 0 0 Mshowa [(g1)] .22789 .63776 0 0 Mshowa [(g2)] .36395 .63776 0 0 Mshowa [(g3)] .5 .63776 0 0 Mshowa [(g4)] .63605 .63776 0 0 Mshowa [(g5)] .77211 .63776 0 0 Mshowa [(g6)] .90816 .63776 0 0 Mshowa [(g4)] .22789 .5017 0 0 Mshowa [(g3)] .36395 .5017 0 0 Mshowa [(g5)] .5 .5017 0 0 Mshowa [(g6)] .63605 .5017 0 0 Mshowa [(g2)] .77211 .5017 0 0 Mshowa [(g1)] .90816 .5017 0 0 Mshowa [(g3)] .22789 .36565 0 0 Mshowa [(g4)] .36395 .36565 0 0 Mshowa [(g1)] .5 .36565 0 0 Mshowa [(g2)] .63605 .36565 0 0 Mshowa [(g6)] .77211 .36565 0 0 Mshowa [(g5)] .90816 .36565 0 0 Mshowa [(g6)] .22789 .22959 0 0 Mshowa [(g5)] .36395 .22959 0 0 Mshowa [(g2)] .5 .22959 0 0 Mshowa [(g1)] .63605 .22959 0 0 Mshowa [(g3)] .77211 .22959 0 0 Mshowa [(g4)] .90816 .22959 0 0 Mshowa [(g5)] .22789 .09354 0 0 Mshowa [(g6)] .36395 .09354 0 0 Mshowa [(g4)] .5 .09354 0 0 Mshowa [(g3)] .63605 .09354 0 0 Mshowa [(g1)] .77211 .09354 0 0 Mshowa [(g2)] .90816 .09354 0 0 Mshowa [(g1)] .09184 .77381 0 0 Mshowa [(g2)] .09184 .63776 0 0 Mshowa [(g3)] .09184 .5017 0 0 Mshowa [(g4)] .09184 .36565 0 0 Mshowa [(g5)] .09184 .22959 0 0 Mshowa [(g6)] .09184 .09354 0 0 Mshowa [(g1)] .22789 .90986 0 0 Mshowa [(g2)] .36395 .90986 0 0 Mshowa [(g3)] .5 .90986 0 0 Mshowa [(g4)] .63605 .90986 0 0 Mshowa [(g5)] .77211 .90986 0 0 Mshowa [(g6)] .90816 .90986 0 0 Mshowa [(S[3])] .02381 1.04592 -1 0 Mshowa gsave .97619 1.04592 -95 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale gsave 0.000000 0.000000 0.000000 setrgbcolor 1.000000 setlinewidth gsave newpath 61.000000 16.000000 moveto 558.000000 16.000000 lineto 558.000000 4.000000 lineto 61.000000 4.000000 lineto 61.000000 16.000000 lineto closepath clip newpath 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 63.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (x) show 75.000000 13.000000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (*) show 87.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor (y) show 93.000000 13.000000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000000 0.000000 0.000000 setrgbcolor 0.000000 0.000000 rmoveto 1.000000 setlinewidth grestore grestore %%DocumentNeededResources: font Math1Mono %%+ font Courier %%DocumentSuppliedResources: %%DocumentNeededFonts: Math1Mono %%+ Courier %%DocumentSuppliedFonts: %%DocumentFonts: font Math1Mono %%+ font Courier grestore [(x)] .07007 .88673 0 0 Mshowa [(y)] .12585 .93707 0 0 Mshowa % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{268.75, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnU9oG1cex6dxHNuJJctpYqcsbLPpv7AtgqU97GGX4JLuttDiEnYPS83S tKzbHMwKpxBE2xWrQql6WFAOxWShgg2mFBUSYajAIEhEDgKjiy666KCLLjro MBfBauG379+8mXkzb2b0ZiaR2wlYHs2f73vv9/u9PzMf/ybvXP/k47/tXP/k xofXL/5x93ru4xsf3rz4h7/vol1zT2naU5vo5+OLGt4GTTM+yL938Qf7EvH2 q/jXPBhFXaB7F2i5aO/r+GPBd+8JvOPXAAVtnm+Rfa/wrZcBHhwZ+9jWy1jB 2Me2EtlENpFNZBNZP9kMltBOQv+GBo2/atBCv/WCtsZLS7ufcIEXLVEwT1jB NUJi8KAF/W8r0PjXN9D69h7oaO86r63XWRf4WRlSfVRYBxXWQIWh3zpgGdC8 Trggt8AKqf8pgM81yNEpk/6sa9D/XDvPLZHyPnHd2uDAJ6LWoRMb9+wnXtqB fuNoTTCO9ESbFYEUPRGKzqKiJ9itoAU5cV1ur7OkdXMAn2qwha4obZNvZN8k r8HwEw0mBWaFeTNC7FecMK74lF4xvMWUpypj1XoFshA657BKr7jT0Ez7uR09 YexrPILR/UMYHjyk5xlXAClzzGrQ1izWczvqYTIeEKg51avoEmTk8jUNtmnT qC3mofNne6x08qz7WcJvUSaCj0L7bVQpdC76zP4WmalAdtPyw9Yk4wzbwwOo fvQ+bL1xDcqffUFF7jTmyOGT0Nm5wkW2P6uuCNG8KLseH4XB7ZtGS7Q38jBo HJGLVoRIXyIuqJZQS7ZQS/ZZS9p4JaqRY5tUg3xulNl+IOa0dYVFT6XqNmoQ FclVTZG0n89TUFqnFihvoo7GtveYu2DX8j1PO+LmptPp3ir9D9FQh7Z1NNzo ORqQWCUjeF2tLqZKmngAf/4IpUv47LegfOsfkLvErrzzkLgOd6jx4SPQDw5g /x107E9fwahxZLouqFDv65tQvPUNDOqoh37/b9qw3e8yjtGulGXtqqB6s+29 No5mwNE8GmrQa9DdXbQ90tmlFpGUTIT4esCuziLD9Aca1FEg5WtstnH3f5oN V+Mb9NJ23hj0lqBo6bI91tVYX4XOm+j7VWsMLEuV5qxKKEDpvi5SyF4Ve37Y +ohxsATjb/Po6xVo14+o3x8cUiXWhTu7V3inye7cZecc4Zi2BcKClxJZEeBh uvUBatVHFWEUSLOBeNxhrdI15nZmG+pAvs84Dy0JLM6TqyxYVchPt0rPKTXY NODtfn2bnt4vmObeW7eM2G/S4xXpELAsVZq3KeEhvZczQ6N8ERnsTVkYqNbL ORzod26ir9eg/8Bw3iPYu4Sdx3rxP99Cx3dQH3oEjQ+eR8PBF9C9/1AcDha8 hDRjTtF/uAfNL29CFlUn9+W9jCMQ9DZrl8Xpe1lnIOiegRBUZdhiwdAkaxHv YFjiy5mNDeQqNN423qaXF99jI/l75lylIfd18xobue3BkPZVMtyLJ+8sm4Pr Obv3QlVpRYiDFF9bbXzwFfR+OIDG7l+o0tf3mDsPSBTt/ech9G69hjrzXS3j CAIPFbZio7cI9fdeow3U3och2itGwgJfm20UUcvQmN3YYy2rk5WbbxR4K5xk Ch22rznynA3oDLwM+g5aV7CZN3sZSTPftJBZJzvMT+i3fosscM01dCqAgM6G dnwH1kKLguGnlgWyYg1sAsjOSGD/NmyzmTr7u7eYwBVoscF79M0OuS+poeXf xkd3bbM17edyAdbP0Wf9O2M5qInzPVLooTawKTq7aWmD7jfSG6tGDwUyyk8s nRwHba5GO/6K3MXrbGStXKbdrnuLjZbEf+fYwtvomOgouYsZ7BIzmx3TTeas 9SgZB/HYWH2HSm3sWoy8xtbmk4PvYP+z2zA4RF45qOBlMJTvNGwnAp5C8A1g Cy1vmvv05s9urzW2wurho2iI6KMuASPaLYpNr4hfZ1MUvgnee9W8ndi+Zp3c zhmrkh1+BtXDM36eTWwFdoWvrmnFC0Yc3b9NfbxjHWwMI0H9LokyQ0P7Dbmd djdSecu8Qx65GmkyoIbhcpvkXtrDSM8YszGKhB4ywdB2x2c+6HE7L2M9Shqr 3/8RRoctYYlkhkwLhmhE7X9/CJMHR6v8hAvGzSxq5HBI49yss3F0OKBLX9wz PKa64/X0K5FNZBPZRDZeWbwRLQR1FOdWrUQ2kU1kE9lE1k/2MUDQ8OAySow6 YxAUokWW0WPVQBDUDWmaDwDcIKgv0gxUhg2bgiq0DIpIzftGtys8TEYDQolf ppzhF5JfqtZkRQhbJWoookd1iJkWYl6Jqaad/WEqsJvx87kavpwOgvrjyzB1 yQhuV6OFInNUApe2x9RhMOr0PFYCdj38L4eO/uhShB4RoUvl+tiIB6jgwlWr 6yQK/thyVQiA6fFpWvC8OspN+7s+DLZ0hkAk2DJ0vZyhoAIM1bGj7hkOChzV ORYoUl3fsUAZXYpAPCJ0GaZKGSEMpieGK0IITE8tne5XJahiDKgR3VV5AAQh kC4IczoG6ocwVWpgE4Aw+NC2XgMVlLlqVVDCqeLf4U1NdD1cvMaW5xLKafbh 82xUdaecPjIZ64nggSfN7uVFO1etZ3nBUzemZsOwvpbxB53Lgon8QGdQ3bTD ZhJa6W4zEX46bSZhqabN3JCsh8HMRz0GEXeHn+bjHzdS6eSYVspptkICSc3p zI2xekx2x+v5VyKbyCayieyxlMUb09LVB0fzfEuQllTBUdVENpFNZBPZRNZP 1gtJrvEiUx5nmeDycWWJSniuSS19ga/EDFLYeF6wRLBkzyeVFepDd9eERy4B MLAbYnXgRdNIGZejvhmdHrgyJDotBEG75k3r9GhXHk5Tsbq0EGXhkzBDAcMZ S+IMkR0rptiGpMtuT8/DMDrT78sBhXyTLyOjhjOUxRkmUVaMgLCkWRIC6rBu WYiBkHmXEYHDWcngDJsfGyTTdhrILB0BFMmcOAKEz7eMhhPOUuJm2OTYIGm2 KpRZEgtqhG7FEQiR5FxGQAxnIXMzbF5sWgiBCOCyZOk3NbczHZ8yRoAwmZjh 0OEspXIqpsaKf1oWgis7XCwBjKYLz7GVt2+epy+qjDgR1C1/1WxoYLLrsIgb PnSawzej05tCRpzv6ZWruiLYZBqE6zCOG500J/zzPAQkGaDecDNMfqhb4qrZ 8p/MI65ENpFNZBPZeGXxRrSk01GcW7US2UQ2kU1kE9knJPtEAGohHP6M50W9 TxCgFqLFnY/nRb2BEGmGG84NqtoQ6fTItRAEc3rnvPpmyYIquJWEmBIUTTnD Tx2KRkJmC4oUMu2M5pDZtjBDibLKZFUCRKcnq75ANMr34xZUQeR0ODNQ+i3M SOKsJASm56EpwfcR8dDwbLagyh9FfBFR0i3MQrqs1O0KINTZ66MAoZFg2UJY 7uiMgUiybmFW8mSlcaDKQcVgiICDRsdlCyEYpMizI8q5BRVEG2WqrGTdNz0Q Ff+cLhwQDc9kCwoUcjqM6ZdfC7OSHuvwsU9ypxsukxPTYOzVh3aancL7pb8R Z7lKLSOBp6Zl1oz4k8HTYAw2KPBMCfYJkAsLEWa2ekB5G0c1KfQ6s487R/V9 Ea/5gMj7fb9hEl2P+aOwRDaRTWQT2Xhl8ca0oBV4VqtD+uWA1UpkE9lENpFN ZP1kJfBwjZeWdj/BluDpfUKUr9uNJ5sUPLDgeW6JlPeJtpTOwCd6UVO1/7W0 EH82KYgg0DRSxuWoLb/T+2ggLBr0xbmPA5pKwkkJ0i0LoRbR22xVqzNjr8Sd HQ4r8bkakUs7xpdQRC6a7M3ZeyHuLAFYN+wBKlwuw32/LFWY8jW2SvU4Kzh+ Nl6EO2v0Vep2FRS34nB96FfWKtdlVl98O6sIVhII05O4tBAEYUhcJAmboWBp 1K+9nUHkKpn51TldSpj9Q77GNlRdbH8bpERQI3wh7pNHsG5wDzzgodmZz7GV mu8rcr3kbEmSXpB0infpRkRRpZaR4EJ3y3i+CNdLzmmZkG/MjYuiOuzkhhvN hcAaO+qOG72zQ0O+dTcoLz3mD7sS2UQ2kU1k45XFG0GZp/veYBVzVMKtsols IpvIJrKJrJ/sYyCh4elllCx1xkhoIfK00IjZ6uMloYUgHDLMe3Dd2KlplelT VKXPxlQhpohDw0PMUNWZxZfbqjFV8TFdyARZ6TiiADJFGhrBa2hVqzKb77IN CVSnJ7O+qbFT0FB/lunEYqFYpnI9nG8ynZW32YblqykhAsLkx4Ymorqn60Oz TOW6zP6LbENCVnEcCJksq0RE3XimGAQheaZSHUTnz9QrbMOgVWeGdPi8WMnk Pz3HND1v/PFbJBxTqS42plp4si+0VSSp4ktQwqTDSnifO+A0/XiOrb2CAE6p nA1xFUQmqfA6XAkkteVUBstJ9TSLSDedZglCN6VyolmifzOuGzJ1Gsk3Q1XK QK2U08lA3Smnd0Jm0DfkuqFQN4guyS095o+5EtlENpFNZMkDLLqhXcUfp6La a1b3Mt5a8KiuGrJ9CW8tRi77It5ailz2Bbxl3Ikzc7FvURf1PC8Kr2ohelj+ HC9gLp4CLvECTsZTwK94AfPxFHCRF3AqngKe5QUsxFPAL3kBi/EUcJrsWEQ3 BttGZ4D93hj6+1vs+wa6NYMzvB5LcdYDfZ/o0GJ1qQ8n0K/R7XKjp5mVOB1P JZbJjpPQreZY47NQaQ/Ncs/EW+6gUWLlbkNnDKd5ucsxGx3G0KnmSdmlVh+a RVyHHLQGOo07UokUr8RPPg/V6BX9mhEIuFcMoZEzbq82oa3DKW6bNLdNkplK dqxz06xw0/zs81HXuFEyQrwk6aXHJL30PHfhqqPLJ8mi2jFLFj3HvXmWe1MO O5P0z5lN/3yaO/JphyOTZM5jm8x5lrv1nODWkCjRVyFJz4w6PXOV+/K8MHMm iZa2uXKmEi0z3Gvkxh/Fsz7oQrPRgEazie7tmtAbTSwPJ352+ZYr3ECnmYH6 9RLqNxtgrCr3e2OJgX6GaZdpbi7yOAHJD+r4HrsIQ3LHbZjpOCZgpnjb0qxt AD3ilVy9H9cDvGVeKIlE1OxRq8y8kUerFYjpyeQZoVz8CHcIJTynlyqQRxG9 XevH9VjUfDJGxicU/8NmEchTmQkaSMh2Djc+pue+S0L56IjeRWsaZPTtGopG 9E9vk467VenE9fB50WEE/Byvtm32xdpwAt3KptGRa31SMx6bMdRpgdfp2XgK MB+5XYyngHlewK/iKeAkL+BSPAXM8QKei6eAE7yA5+MpQIBzZN8LkRd1Cu94 MXJZIvZS5LLE3pcjlyVWft1376u8YHL0At1Ltt89Jtu/J9vu61c6X9NbFNJB J2hp0Yderw+jMYVfePdEh0GvB/0+2U3+PcNU3RZ9gqre2WOHs1Dp6IbqpF/j 6/NSa0RUf0GO2ddGTG2RFUjrOITxZAyj4RAtknQ6tJDbXlzSBrTH9Ey8b6KP 0DlDVPEJ34fnC/oMY6T9l+zzBYHW4vvdHmAzTIbIJsiKZ7isueqx1Ro/3G8b jWXrywV0A1CErg78H6+9zqYp8qlDLb9huQ7dxu23jUvokMTOK9ta5I0UjZsa Y+1SrLfI9cXmUDMcJKynUtYWLcC4WyFHi7UunfjHfSijW5psuc1r5WwR7lYD qOSLUG31QB/r0K1T9ldFgTPn0pr/sdq4sUmMDpuskhtldDc1OS20y7omExqA lk6Qy+2D6YEJ1NGSP1tquTZgwajcpG3ErGeF3aAmmsbb5U3QtvLkpn2riB9Q buL4WmKHJes5SkqZ23AdBlArF2Frc4OFxSkoNYduoTTPLYJiutuGammbljkC 1+rz6PFgo0bAt0t5aFL7sap5LwiXrR7AK5oRKRZXp1TZh3qjBX0djFpZjT/P jAqTrnm7V+6clDbAl2GeNkpB492Irg8tFQu8nlyyNmmOtBb383J3woJoARrF LTzuCc7ZhM7EDKpBA7t6C7oTq1fMUYpc+IoQwOh4ZROHfh7qaFCvlmn/xuef YPbSO7R75Mr70BlO5lgDB80q7Dd7xEH9et4o2rgK9B7U9vdIS4yh+RVrBCIT jXEE5sjYv5XLQ347B7XemCug0aC6twflUhma/fEcC8Kh0VvZz9ZeizUXzQej DuyVSlAuV1CQja2FPmNYBI0XAzQJDYZjapHX6HGy7TL/aU/9HxvcRDE=\ \>"], ImageRangeCache->{{{0, 334.938}, {359, 0}} -> {-1.17504, -0.189053, \ 0.0274309, 0.0274309}}] }, Open ]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Presentation", WindowToolbars->"EditBar", WindowSize->{1024, 664}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowGroupOpener->True, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup -> \ "AVU/IFiQKFD000000nM<00?WE=0000000<[B80?G^6P0AP1Y06`0I@1^0643id`0\n\ 0nMDl0000000b]800mNhJ00000000000000000?WC00000000000000000000000\n\ 00000000000000000000000000000000", Magnification->1.25, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (May 21, 2008)", StyleDefinitions->"Classic.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Mode1"->{ Cell[2437, 96, 85, 2, 65, "Input", CellTags->"Mode1"]}, "explanation"->{ Cell[19758, 746, 157, 4, 65, "Input", CellTags->"explanation"], Cell[19918, 752, 162, 2, 78, "Print", CellTags->"explanation"], Cell[20083, 756, 11070, 453, 397, 6263, 370, "GraphicsData", "PostScript", "Graphics", CellTags->"explanation"], Cell[31156, 1211, 58, 1, 49, "Output", CellTags->"explanation"]}, "RandomPolynomials"->{ Cell[68077, 2628, 251, 6, 94, "Input", CellTags->"RandomPolynomials"], Cell[69167, 2662, 241, 7, 94, "Input", CellTags->"RandomPolynomials"], Cell[69828, 2692, 169, 4, 65, "Input", CellTags->"RandomPolynomials"]}, "FormMorphoidSetup"->{ Cell[107277, 3910, 209, 6, 65, "Input", CellTags->"FormMorphoidSetup"], Cell[107489, 3918, 7767, 183, 253, 1471, 76, "GraphicsData", "PostScript", "Graphics", CellTags->"FormMorphoidSetup"]}, "Subgroups"->{ Cell[243380, 9358, 214, 5, 65, "Input", CellTags->"Subgroups"]}, "animation"->{ Cell[243619, 9367, 6720, 204, 397, 2761, 135, "GraphicsData", "PostScript", "Graphics", CellTags->"animation"], Cell[250342, 9573, 9369, 290, 397, 4479, 206, "GraphicsData", "PostScript", "Graphics", CellTags->"animation"], Cell[259714, 9865, 11609, 368, 397, 6170, 275, "GraphicsData", "PostScript", "Graphics", CellTags->"animation"], Cell[271326, 10235, 13787, 448, 397, 7888, 347, "GraphicsData", "PostScript", "Graphics", CellTags->"animation"]}, "Quotients"->{ Cell[285564, 10704, 418, 11, 94, "Input", CellTags->{"Quotients", "OutputGraphics"}], Cell[302829, 11492, 325, 9, 65, "Input", CellTags->"Quotients"], Cell[312645, 11895, 200, 6, 65, "Input", CellTags->"Quotients"], Cell[338413, 13059, 370, 10, 94, "Input", CellTags->"Quotients"], Cell[339048, 13082, 239, 7, 65, "Input", CellTags->"Quotients"]}, "OutputGraphics"->{ Cell[285564, 10704, 418, 11, 94, "Input", CellTags->{"Quotients", "OutputGraphics"}], Cell[285985, 10717, 16659, 765, 397, 11008, 668, "GraphicsData", "PostScript", "Graphics", CellTags->"OutputGraphics"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Mode1", 354633, 13694}, {"explanation", 354712, 13697}, {"RandomPolynomials", 355066, 13707}, {"FormMorphoidSetup", 355319, 13714}, {"Subgroups", 355540, 13720}, {"animation", 355626, 13723}, {"Quotients", 356126, 13736}, {"OutputGraphics", 356520, 13747} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 145, 3, 240, "Title", Evaluatable->False], Cell[CellGroupData[{ Cell[760, 30, 85, 2, 80, "Section", Evaluatable->False], Cell[848, 34, 432, 11, 120, "Text"], Cell[CellGroupData[{ Cell[1305, 49, 31, 0, 50, "Subsection"], Cell[1339, 51, 241, 4, 92, "Text"], Cell[CellGroupData[{ Cell[1605, 59, 121, 3, 65, "Input"], Cell[1729, 64, 186, 5, 49, "Output"] }, Open ]], Cell[1930, 72, 89, 2, 37, "Text"], Cell[CellGroupData[{ Cell[2044, 78, 109, 2, 94, "Input"], Cell[2156, 82, 32, 0, 49, "Output"], Cell[2191, 84, 103, 2, 49, "Output"] }, Open ]], Cell[2309, 89, 103, 3, 37, "Text"], Cell[CellGroupData[{ Cell[2437, 96, 85, 2, 65, "Input", CellTags->"Mode1"], Cell[2525, 100, 31, 0, 49, "Output"] }, Open ]], Cell[2571, 103, 95, 2, 37, "Text"], Cell[CellGroupData[{ Cell[2691, 109, 142, 3, 65, "Input"], Cell[2836, 114, 169, 2, 106, "Print"], Cell[3008, 118, 72, 0, 49, "Print"], Cell[3083, 120, 31, 0, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3151, 125, 141, 3, 65, "Input"], Cell[3295, 130, 16392, 609, 237, 9457, 493, "GraphicsData", "PostScript", \ "Graphics"], Cell[19690, 741, 31, 0, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19758, 746, 157, 4, 65, "Input", CellTags->"explanation"], Cell[19918, 752, 162, 2, 78, "Print", CellTags->"explanation"], Cell[20083, 756, 11070, 453, 397, 6263, 370, "GraphicsData", "PostScript", \ "Graphics", CellTags->"explanation"], Cell[31156, 1211, 58, 1, 49, "Output", CellTags->"explanation"] }, Open ]], Cell[31229, 1215, 122, 3, 37, "Text"], Cell[CellGroupData[{ Cell[31376, 1222, 140, 3, 65, "Input"], Cell[31519, 1227, 179, 2, 106, "Print"], Cell[31701, 1231, 11662, 441, 397, 5921, 343, "GraphicsData", "PostScript", \ "Graphics"], Cell[43366, 1674, 507, 13, 78, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43922, 1693, 30, 0, 50, "Subsection"], Cell[43955, 1695, 85, 2, 37, "Text"], Cell[CellGroupData[{ Cell[44065, 1701, 65, 1, 65, "Input"], Cell[44133, 1704, 31, 0, 49, "Output"] }, Open ]], Cell[44179, 1707, 225, 4, 92, "Text"], Cell[CellGroupData[{ Cell[44429, 1715, 156, 4, 65, "Input"], Cell[44588, 1721, 145, 4, 49, "Output"] }, Open ]], Cell[44748, 1728, 111, 3, 37, "Text"], Cell[CellGroupData[{ Cell[44884, 1735, 141, 3, 65, "Input"], Cell[45028, 1740, 179, 2, 106, "Print"], Cell[45210, 1744, 21543, 843, 223, 11875, 682, "GraphicsData", "PostScript", \ "Graphics"], Cell[66756, 2589, 1079, 28, 134, "Output"] }, Open ]], Cell[67850, 2620, 202, 4, 65, "Text"], Cell[CellGroupData[{ Cell[68077, 2628, 251, 6, 94, "Input", CellTags->"RandomPolynomials"], Cell[68331, 2636, 592, 15, 54, "Output"] }, Open ]], Cell[68938, 2654, 204, 4, 65, "Text"], Cell[CellGroupData[{ Cell[69167, 2662, 241, 7, 94, "Input", CellTags->"RandomPolynomials"], Cell[69411, 2671, 159, 7, 104, "Output"] }, Open ]], Cell[69585, 2681, 218, 7, 37, "Text"], Cell[CellGroupData[{ Cell[69828, 2692, 169, 4, 65, "Input", CellTags->"RandomPolynomials"], Cell[70000, 2698, 190, 4, 49, "Output"] }, Open ]], Cell[70205, 2705, 76, 0, 37, "Text"], Cell[CellGroupData[{ Cell[70306, 2709, 55, 1, 65, "Input"], Cell[70364, 2712, 441, 12, 78, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[70854, 2730, 31, 0, 50, "Subsection"], Cell[70888, 2732, 216, 4, 92, "Text"], Cell[CellGroupData[{ Cell[71129, 2740, 83, 1, 65, "Input"], Cell[71215, 2743, 204, 6, 49, "Output"] }, Open ]], Cell[71434, 2752, 91, 2, 37, "Text"], Cell[CellGroupData[{ Cell[71550, 2758, 54, 1, 65, "Input"], Cell[71607, 2761, 31, 0, 49, "Output"] }, Open ]], Cell[71653, 2764, 112, 3, 37, "Text"], Cell[CellGroupData[{ Cell[71790, 2771, 203, 5, 65, "Input"], Cell[71996, 2778, 21688, 692, 309, 8681, 477, "GraphicsData", "PostScript", \ "Graphics"], Cell[93687, 3472, 31, 0, 49, "Output"] }, Open ]], Cell[93733, 3475, 45, 0, 37, "Text"], Cell[CellGroupData[{ Cell[93803, 3479, 74, 1, 65, "Input"], Cell[93880, 3482, 32, 0, 49, "Output"] }, Open ]], Cell[93927, 3485, 65, 0, 37, "Text"], Cell[CellGroupData[{ Cell[94017, 3489, 83, 1, 65, "Input"], Cell[94103, 3492, 204, 6, 49, "Output"] }, Open ]], Cell[94322, 3501, 85, 2, 37, "Text"], Cell[CellGroupData[{ Cell[94432, 3507, 203, 5, 65, "Input"], Cell[94638, 3514, 12448, 384, 292, 4426, 249, "GraphicsData", "PostScript", \ "Graphics"], Cell[107089, 3900, 31, 0, 49, "Output"] }, Open ]], Cell[107135, 3903, 117, 3, 65, "Text"], Cell[CellGroupData[{ Cell[107277, 3910, 209, 6, 65, "Input", CellTags->"FormMorphoidSetup"], Cell[107489, 3918, 7767, 183, 253, 1471, 76, "GraphicsData", "PostScript", \ "Graphics", CellTags->"FormMorphoidSetup"] }, Open ]], Cell[115271, 4104, 212, 4, 65, "Text"], Cell[CellGroupData[{ Cell[115508, 4112, 316, 9, 65, "Input"], Cell[115827, 4123, 708, 20, 97, "Output"] }, Open ]], Cell[116550, 4146, 186, 4, 65, "Text"], Cell[CellGroupData[{ Cell[116761, 4154, 138, 3, 65, "Input"], Cell[116902, 4159, 217, 2, 134, "Print"], Cell[117122, 4163, 228, 2, 106, "Print"], Cell[117353, 4167, 18434, 721, 397, 9913, 578, "GraphicsData", "PostScript", \ "Graphics"], Cell[135790, 4890, 32, 0, 49, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[135883, 4897, 79, 2, 80, "Section", Evaluatable->False], Cell[135965, 4901, 64, 0, 37, "Text"], Cell[CellGroupData[{ Cell[136054, 4905, 286, 7, 65, "Input"], Cell[136343, 4914, 1664, 50, 225, "Output"] }, Open ]], Cell[138022, 4967, 100, 2, 37, "Text"], Cell[CellGroupData[{ Cell[138147, 4973, 169, 4, 65, "Input"], Cell[138319, 4979, 228, 2, 106, "Print"], Cell[138550, 4983, 211, 2, 106, "Print"], Cell[138764, 4987, 60837, 2606, 397, 36740, 2209, "GraphicsData", \ "PostScript", "Graphics"] }, Open ]], Cell[199616, 7596, 98, 2, 37, "Text"], Cell[CellGroupData[{ Cell[199739, 7602, 145, 3, 65, "Input"], Cell[199887, 7607, 228, 2, 106, "Print"], Cell[200118, 7611, 211, 2, 106, "Print"], Cell[200332, 7615, 42693, 1726, 397, 27653, 1478, "GraphicsData", \ "PostScript", "Graphics"], Cell[243028, 9343, 108, 2, 49, "Output"] }, Open ]], Cell[243151, 9348, 204, 6, 37, "Text"], Cell[CellGroupData[{ Cell[243380, 9358, 214, 5, 65, "Input", CellTags->"Subgroups"], Cell[CellGroupData[{ Cell[243619, 9367, 6720, 204, 397, 2761, 135, "GraphicsData", "PostScript", \ "Graphics", CellTags->"animation"], Cell[250342, 9573, 9369, 290, 397, 4479, 206, "GraphicsData", "PostScript", \ "Graphics", CellTags->"animation"], Cell[259714, 9865, 11609, 368, 397, 6170, 275, "GraphicsData", "PostScript", \ "Graphics", CellTags->"animation"], Cell[271326, 10235, 13787, 448, 397, 7888, 347, "GraphicsData", "PostScript", \ "Graphics", CellTags->"animation"] }, Open ]], Cell[285128, 10686, 260, 8, 49, "Output"] }, Open ]], Cell[285403, 10697, 136, 3, 65, "Text"], Cell[CellGroupData[{ Cell[285564, 10704, 418, 11, 94, "Input", CellTags->{"Quotients", "OutputGraphics"}], Cell[285985, 10717, 16659, 765, 397, 11008, 668, "GraphicsData", \ "PostScript", "Graphics", CellTags->"OutputGraphics"] }, Open ]], Cell[302659, 11485, 145, 3, 65, "Text"], Cell[CellGroupData[{ Cell[302829, 11492, 325, 9, 65, "Input", CellTags->"Quotients"], Cell[303157, 11503, 9146, 375, 397, 5296, 308, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[312318, 11881, 302, 10, 65, "Text"], Cell[CellGroupData[{ Cell[312645, 11895, 200, 6, 65, "Input", CellTags->"Quotients"], Cell[312848, 11903, 25187, 1136, 218, 16572, 992, "GraphicsData", \ "PostScript", "Graphics"] }, Open ]], Cell[338050, 13042, 338, 13, 37, "Text"], Cell[CellGroupData[{ Cell[338413, 13059, 370, 10, 94, "Input", CellTags->"Quotients"], Cell[338786, 13071, 32, 0, 49, "Output"] }, Open ]], Cell[338833, 13074, 190, 4, 65, "Text"], Cell[CellGroupData[{ Cell[339048, 13082, 239, 7, 65, "Input", CellTags->"Quotients"], Cell[339290, 13091, 211, 2, 106, "Print"], Cell[339504, 13095, 14320, 571, 397, 7795, 461, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)