(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 89724, 1767]*) (*NotebookOutlinePosition[ 128818, 3082]*) (* CellTagsIndexPosition[ 128774, 3078]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Changing Tick Mark Style", "Title"], Cell["\<\ Probably the easiest way of altering the tick marks for a large \ number of graphs is to create a function which will change the tick marks as desired.\ \>", \ "Text"], Cell[CellGroupData[{ Cell["Function Components", "Subsection"], Cell["\<\ First, you will want to generate the graph information, but not \ plot the graph. This allows you to generate the current plot's tick marks for use later in the procedure. To \ accomplish this you can set the display function to Identity, which will disable the display of \ the graph. Example:\ \>", "Text"], Cell[BoxData[ \(\(preplot = Plot[x\^2, {x, 0, 10}, DisplayFunction \[Rule] Identity];\)\)], "Input"], Cell["\<\ Next, we will want to get the tick marks from the generated graph \ information. To do this we use the following:\ \>", "Text"], Cell[BoxData[ \(\(oldTicks = \(AbsoluteOptions[preplot, Ticks]\)\[LeftDoubleBracket]1\[RightDoubleBracket];\)\)], "Input"], Cell["\<\ Using this information and replacement rules, we can then easily \ alter the way that the tick marks will be displayed. The following will change the size of the major and minor \ tick marks, then the thickness of these marks, followed by altering the color that all of the tick \ marks are displayed in. These rules can easily be altered to make the replacement more general or to \ better suit your needs.\ \>", "Text"], Cell[BoxData[ \(\(newTicks = oldTicks /. {\(({0.00625, 0. })\) \[Rule] \(({0.0125, 0.0125})\), \(({0.00375, 0. })\) -> \(({0.0075, 0.0075})\), \((AbsoluteThickness[ 0.25])\) \[Rule] \((AbsoluteThickness[ 1.5])\), \((AbsoluteThickness[ 0.125])\) \[Rule] \((AbsoluteThickness[1])\), \((GrayLevel[ 0. ])\) \[Rule] \((RGBColor[0.9, 0.4, 0.9])\)};\)\)], "Input"], Cell["\<\ Finally, we plot the final graph with the new tick marks, using \ Evaluate in order to access the information stored within the variable newTicks.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(finalplot = Plot[x\^2, {x, 0, 10}, Evaluate[newTicks]];\)\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0952381 0.0147151 0.00588604 [ [.21429 -0.01028 -6 -9 ] [.21429 -0.01028 6 0 ] [.40476 -0.01028 -6 -9 ] [.40476 -0.01028 6 0 ] [.59524 -0.01028 -6 -9 ] [.59524 -0.01028 6 0 ] [.78571 -0.01028 -6 -9 ] [.78571 -0.01028 6 0 ] [.97619 -0.01028 -9 -9 ] [.97619 -0.01028 9 0 ] [-0.00119 .13244 -18 -4.5 ] [-0.00119 .13244 0 4.5 ] [-0.00119 .25016 -18 -4.5 ] [-0.00119 .25016 0 4.5 ] [-0.00119 .36788 -18 -4.5 ] [-0.00119 .36788 0 4.5 ] [-0.00119 .4856 -18 -4.5 ] [-0.00119 .4856 0 4.5 ] [-0.00119 .60332 -24 -4.5 ] [-0.00119 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath .9 .4 .9 r 1.5 Mabswid [ ] 0 setdash .21429 .00222 m .21429 .02722 L s 0 g [(2.)] .21429 -0.01028 0 1 Mshowa .9 .4 .9 r .40476 .00222 m .40476 .02722 L s 0 g [(4.)] .40476 -0.01028 0 1 Mshowa .9 .4 .9 r .59524 .00222 m .59524 .02722 L s 0 g [(6.)] .59524 -0.01028 0 1 Mshowa .9 .4 .9 r .78571 .00222 m .78571 .02722 L s 0 g [(8.)] .78571 -0.01028 0 1 Mshowa .9 .4 .9 r .97619 .00222 m .97619 .02722 L s 0 g [(10.)] .97619 -0.01028 0 1 Mshowa .9 .4 .9 r 1 Mabswid .07143 .00722 m .07143 .02222 L s .11905 .00722 m .11905 .02222 L s .16667 .00722 m .16667 .02222 L s .2619 .00722 m .2619 .02222 L s .30952 .00722 m .30952 .02222 L s .35714 .00722 m .35714 .02222 L s .45238 .00722 m .45238 .02222 L s .5 .00722 m .5 .02222 L s .54762 .00722 m .54762 .02222 L s .64286 .00722 m .64286 .02222 L s .69048 .00722 m .69048 .02222 L s .7381 .00722 m .7381 .02222 L s .83333 .00722 m .83333 .02222 L s .88095 .00722 m .88095 .02222 L s .92857 .00722 m .92857 .02222 L s 0 g .25 Mabswid 0 .01472 m 1 .01472 L s .9 .4 .9 r 1.5 Mabswid .01131 .13244 m .03631 .13244 L s 0 g [(20.)] -0.00119 .13244 1 0 Mshowa .9 .4 .9 r .01131 .25016 m .03631 .25016 L s 0 g [(40.)] -0.00119 .25016 1 0 Mshowa .9 .4 .9 r .01131 .36788 m .03631 .36788 L s 0 g [(60.)] -0.00119 .36788 1 0 Mshowa .9 .4 .9 r .01131 .4856 m .03631 .4856 L s 0 g [(80.)] -0.00119 .4856 1 0 Mshowa .9 .4 .9 r .01131 .60332 m .03631 .60332 L s 0 g [(100.)] -0.00119 .60332 1 0 Mshowa .9 .4 .9 r 1 Mabswid .01631 .04415 m .03131 .04415 L s .01631 .07358 m .03131 .07358 L s .01631 .10301 m .03131 .10301 L s .01631 .16187 m .03131 .16187 L s .01631 .1913 m .03131 .1913 L s .01631 .22073 m .03131 .22073 L s .01631 .27959 m .03131 .27959 L s .01631 .30902 m .03131 .30902 L s .01631 .33845 m .03131 .33845 L s .01631 .39731 m .03131 .39731 L s .01631 .42674 m .03131 .42674 L s .01631 .45617 m .03131 .45617 L s .01631 .51503 m .03131 .51503 L s .01631 .54446 m .03131 .54446 L s .01631 .57389 m .03131 .57389 L s 0 g .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01472 L .02846 .01473 L .03053 .01474 L .03279 .01477 L .03527 .0148 L .0379 .01484 L .04262 .01494 L .04749 .01508 L .05205 .01523 L .06244 .01568 L .07305 .01629 L .08274 .01697 L .10458 .01895 L .12357 .02117 L .14429 .02413 L .18493 .03156 L .22406 .04074 L .26565 .05267 L .30571 .06629 L .34426 .08135 L .38527 .0995 L .42475 .11904 L .46273 .13973 L .50315 .16382 L .54206 .18901 L .58342 .21794 L .62326 .24791 L .66159 .27868 L .70238 .31352 L .74164 .3491 L .77939 .3852 L .8196 .42567 L .85828 .4666 L .89942 .51225 L .93905 .5583 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOooool4o`000003oa0@4?oooooooooo00;ooooo00Co^[Zjoa0@4?l0003oMgMg1_ooool00omE EEGo0000oeEEE@04ooooo`00L?ooool00onHV9So0000olcoooool00ol0003oooooooooo`03ooooo`06olcoooool00ol0003oooooooooo`03ooooo`06odA4A?nYZJWooooooooo oonYZJWoooooo`00;Oooool00ol0003oooooooooo`0@ ooooo`03onIVi_oooooooooo00oooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0? ooooo`;oiVKV4Oooool00ooVI^Koooooooooo`0@ooooo`03onIVi_oooooooooo00oooooo00?oiVKV ooooooooool03oooool2onIViQ;ooooo00?oiVKVooooooooool03oooool00ooVI^Koooooooooo`0@ ooooo`03onIVi_oooooooooo00kooooo0_oVI^HBooooo`03onIVi_oooooooooo00oooooo00?oiVKV ooooooooool04?ooool00ooVI^Koooooooooo`0?ooooo`;oiVKV4Oooool00ooVI^Koooooooooo`0@ ooooo`03onIVi_oooooooooo00oooooo00?oiVKVooooooooool03oooool2onIViPkooooo000]oooo o`03o`000?oooooooooo013ooooo00?oiVKVooooooooool03oooool00ooVI^Koooooooooo`0@oooo o`03onIVi_oooooooooo00oooooo0_oVI^HAooooo`03onIVi_oooooooooo013ooooo00?oiVKVoooo ooooool03oooool00ooVI^Koooooooooo`0?ooooo`;oiVKV4_ooool00ooVI^Koooooooooo`0?oooo o`03onIVi_oooooooooo013ooooo00?oiVKVooooooooool03_ooool2onIViQ;ooooo00?oiVKVoooo ooooool03oooool00ooVI^Koooooooooo`0@ooooo`03onIVi_oooooooooo00oooooo0_oVI^HAoooo o`03onIVi_oooooooooo013ooooo00?oiVKVooooooooool03oooool00ooVI^Koooooooooo`0?oooo o`;oiVKV3_ooool002gooooo00?o0000ooooooooool04?ooool00ooVI^Koooooooooo`0?ooooo`03 onIVi_oooooooooo013ooooo00?oiVKVooooooooool03oooool2onIViQ7ooooo00?oiVKVoooooooo ool04?ooool00ooVI^Koooooooooo`0?ooooo`03onIVi_oooooooooo00oooooo0_oVI^HBooooo`03 onIVi_oooooooooo00oooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0>ooooo`;o iVKV4_ooool00ooVI^Koooooooooo`0?ooooo`03onIVi_oooooooooo013ooooo00?oiVKVoooooooo ool03oooool2onIViQ7ooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0?ooooo`03 onIVi_oooooooooo00oooooo0_oVI^H>ooooo`009?ooooooo`0008So00001Oooool002gooooo00?o 0000ooooooooool03oooool;o`0000Sooooo00?oiVKVooooooooool04?ooool00ooVI^Kooooooooo o`0?ooooo`;oiVKV4Oooool00ooVI^Koooooooooo`0@ooooo`03onIVi_oooooooooo00oooooo00?o iVKVooooooooool03oooool2onIViQ;ooooo00?oiVKVooooooooool03oooool00ooVI^Kooooooooo o`0@ooooo`03onIVi_oooooooooo00kooooo0_oVI^HBooooo`03onIVi_oooooooooo00oooooo00?o iVKVooooooooool04?ooool00ooVI^Koooooooooo`0?ooooo`;oiVKV4Oooool00ooVI^Kooooooooo o`0@ooooo`03onIVi_oooooooooo00oooooo00?oiVKVooooooooool03oooool2onIViPkooooo000] ooooo`03o`000?oooooooooo013ooooo00?oiVKVooooooooool01oooool=o`0000kooooo00?oiVKV ooooooooool03oooool2onIViQ7ooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0? ooooo`03onIVi_oooooooooo00oooooo0_oVI^HBooooo`03onIVi_oooooooooo00oooooo00?oiVKV ooooooooool04?ooool00ooVI^Koooooooooo`0>ooooo`;oiVKV4_ooool00ooVI^Koooooooooo`0? ooooo`03onIVi_oooooooooo013ooooo00?oiVKVooooooooool03oooool2onIViQ7ooooo00?oiVKV ooooooooool04?ooool00ooVI^Koooooooooo`0?ooooo`03onIVi_oooooooooo00oooooo0_oVI^H> ooooo`00;Oooool00ol0003oooooooooo`0@ooooo`03onIVi_oooooooooo00oooooo00?oiVKVoooo ooooool00_ooool4o`0000[ooooo00?oiVKVooooooooool03oooool2onIViQ7ooooo00?oiVKVoooo ooooool04?ooool00ooVI^Koooooooooo`0?ooooo`03onIVi_oooooooooo00oooooo0_oVI^HBoooo o`03onIVi_oooooooooo00oooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0>oooo o`;oiVKV4_ooool00ooVI^Koooooooooo`0?ooooo`03onIVi_oooooooooo013ooooo00?oiVKVoooo ooooool03oooool2onIViQ7ooooo00?oiVKVooooooooool04?ooool00ooVI^Koooooooooo`0?oooo o`03onIVi_oooooooooo00oooooo0_oVI^H>ooooo`00;Oooool00ol0003oooooooooo`0[ooooo`Go 00005oooool2onIViTSooooo0_oVI^I8ooooo`;oiVKVBOooool2onIViTSooooo0_oVI^H>ooooo`00 ;Oooool00ol0003oooooooooo`0`ooooo`Go00004_ooool2onIViTSooooo0_oVI^I8ooooo`;oiVKV BOooool2onIViTSooooo0_oVI^H>ooooo`00;Oooool00ol0003oooooooooo`0eooooo`Go00003Ooo ool2onIViTSooooo0_oVI^I8ooooo`;oiVKVBOooool2onIViTSooooo0_oVI^H>ooooo`00;Oooool0 0ol0003oooooooooo`0jooooo`Ko0000oooooom1ooooo`00;Oooool00ol0003oooooooooo`10oooo o`Go0000oooooollooooo`00;Oooool00ol0003oooooooooo`15ooooo`Go0000oooooolgooooo`00 ;Oooool00ol0003oooooooooo`1:ooooo`Co0000oooooolcooooo`00:_ooool3onIViP04o`000?oV I^KoiVKVonIViTgooooo0ol0003ooooooc3ooooo000]ooooo`03o`000?oooooooooo057ooooo1?l0 003oooooobcooooo000]ooooo`03o`000?oooooooooo05Gooooo0ol0003oooooobWooooo000]oooo o`03o`000?oooooooooo05Sooooo0ol0003oooooobKooooo000]ooooo`03o`000?oooooooooo05_o oooo1?l0003oooooob;ooooo000]ooooo`03o`000?oooooooooo05oooooo0ol0003ooooooaoooooo 000]ooooo`03o`000?oooooooooo06;ooooo0ol0003ooooooacooooo000]ooooo`03o`000?oooooo oooo06Gooooo0ol0003ooooooaWooooo000]ooooo`03o`000?oooooooooo06Sooooo0ol0003ooooo oaKooooo000]ooooo`03o`000?oooooooooo06_ooooo0_l0003ooooooaCooooo000]ooooo`03o`00 0?oooooooooo06gooooo0ol0003ooooooa7ooooo000]ooooo`03o`000?oooooooooo073ooooo0_l0 003oooooo`oooooo000Zooooo`?oiVKV00Co0000onIVi_oVI^KoiVKVLOooool3o`000?oooooo3?oo ool002gooooo00?o0000ooooooooool0MOooool2o`000?oooooo2_ooool002gooooo00?o0000oooo ooooool0Moooool3o`000?oooooo1oooool002gooooo00?o0000ooooooooool0N_ooool2o`000?oo oooo1Oooool002gooooo00?o0000ooooooooool0O?ooool2o`000?oooooo0oooool002gooooo00?o 0000ooooooooool0O_ooool3o`000?oooooo000]ooooo`03o`000?oooooooooo087ooooo0_l0003m ooooo`00;Oooool00ol0003oooooooooo`23ooooo`;o0000noooool002gooooo00?o0000oooooooo ool0QOooool3o`000?Sooooo000]ooooo`03o`000?oooooooooo08Sooooo0_l0003fooooo`00;Ooo ool00ol0003oooooooooo`2:ooooo`;o0000m?ooool002[ooooo0ooVI^H01?l0003oiVKVonIVi_oV I^J;ooooo`;o0000l_ooool002gooooo00?o0000ooooooooool0S_ooool2o`000?3ooooo000]oooo o`03o`000?oooooooooo093ooooo0_l0003^ooooo`00;Oooool00ol0003oooooooooo`2Booooo`;o 0000k?ooool002gooooo00?o0000ooooooooool0U?ooool2o`000>[ooooo000]ooooo`03o`000?oo oooooooo09Kooooo0_l0003Xooooo`00;Oooool00ol0003oooooooooo`2Hooooo`;o0000i_ooool0 02gooooo00?o0000ooooooooool0V_ooool2o`000>Cooooo000]ooooo`03o`000?oooooooooo09co oooo0_l0003Rooooo`002_ooool6o`0000Cooooo00Co^[Zjoa0@4?l0003oMgMg1_ooool00omEEEGo 0000oeEEE@0ooooo`00;Oooool0 0ol0003oooooooooo`2booooo`03o`000?oooooooooo0<_ooooo000]ooooo`03o`000?oooooooooo 0;?ooooo0_l0003;ooooo`00;Oooool00ol0003oooooooooo`2eooooo`;o0000bOooool002[ooooo 0ooVI^H01?l0003oiVKVonIVi_oVI^Jfooooo`03o`000?oooooooooo0oooo o`;o0000/?ooool002gooooo00?o0000ooooooooool0d?ooool00ol0003oooooooooo`2]ooooo`00 ;Oooool00ol0003oooooooooo`3Aooooo`03o`000?oooooooooo0:cooooo000]ooooo`03o`000?oo oooooooo0=;ooooo0_l0002/ooooo`00;Oooool00ol0003oooooooooo`3Dooooo`03o`000?oooooo oooo0:Wooooo000]ooooo`03o`000?oooooooooo0=Gooooo0_l0002Yooooo`00;Oooool00ol0003o ooooooooo`3Gooooo`03o`000?oooooooooo0:Kooooo000]ooooo`03o`000?oooooooooo0=Sooooo 0_l0002Vooooo`00:_ooool3onIViP04o`000?oVI^KoiVKVonIVi]Wooooo00?o0000ooooooooool0 Xoooool002gooooo00?o0000ooooooooool0foooool00ol0003oooooooooo`2Rooooo`00;Oooool0 0ol0003oooooooooo`3Looooo`03o`000?oooooooooo0:7ooooo000]ooooo`03o`000?oooooooooo 0=gooooo0_l0002Qooooo`00;Oooool00ol0003oooooooooo`3Oooooo`03o`000?oooooooooo09ko oooo000]ooooo`03o`000?oooooooooo0>3ooooo00?o0000ooooooooool0WOooool002gooooo00?o 0000ooooooooool0hOooool00ol0003oooooooooo`2Looooo`00;Oooool00ol0003oooooooooo`3R ooooo`;o0000W?ooool002gooooo00?o0000ooooooooool0i?ooool00ol0003oooooooooo`2Ioooo o`003Oooool2o`000003oa0@4?oooooooooo00;ooooo00Co^[Zjoa0@4?l0003oMgMg1_ooool00omE EEGo0000oeEEE@0Gooooo00?o0000ooooooooool0V?ooool000ko oooo00?o0000ooooooooool00_ooool01_oKooooo00?o0000ooooooooool0Uoooool000[ooooo1_l00003oooo o`06odA4A?nYZJWooooooooooonYZJWoOooooo0_l0002Gooooo`002_ooool01OmVIVKoZJVYoooooooooooo000000Cooooo00?o 0000ooooooooool00_ooool00ol0003oooooooooo`0ooooo`00 ;Oooool00ol0003oooooooooo`3`ooooo`03o`000?oooooooooo08gooooo000]ooooo`03o`000?oo oooooooo0?7ooooo0_l0002=ooooo`00;Oooool00ol0003oooooooooo`3cooooo`03o`000?oooooo oooo08[ooooo000]ooooo`03o`000?oooooooooo0?Cooooo00?o0000ooooooooool0ROooool002go oooo00?o0000ooooooooool0mOooool00ol0003oooooooooo`28ooooo`00:_ooool3onIViP04o`00 0?oVI^KoiVKVonIVi_Gooooo0_l00028ooooo`00;Oooool00ol0003oooooooooo`3hooooo`03o`00 0?oooooooooo08Gooooo000]ooooo`03o`000?oooooooooo0?Wooooo00?o0000ooooooooool0Q?oo ool002gooooo00?o0000ooooooooool0n_ooool00ol0003oooooooooo`23ooooo`00;Oooool00ol0 003oooooooooo`3kooooo`03o`000?oooooooooo08;ooooo000]ooooo`03o`000?oooooooooo0?co oooo00?o0000ooooooooool0POooool002gooooo00?o0000ooooooooool0oOooool00ol0003ooooo ooooo`20ooooo`00;Oooool00ol0003oooooooooo`3nooooo`;o0000P?ooool002gooooo00?o0000 ooooooooool0ooooool1ooooo`03o`000?oooooooooo07gooooo000]ooooo`03o`000?oooooooooo 0?oooooo0_ooool00ol0003oooooooooo`1looooo`00;Oooool00ol0003oooooooooo`3oooooo`?o oooo00?o0000ooooooooool0Noooool002gooooo00?o0000ooooooooool0ooooool4ooooo`03o`00 0?oooooooooo07[ooooo000Zooooo`?oiVKV00Co0000onIVi_oVI^KoiVKVooooool4ooooo`03o`00 0?oooooooooo07Wooooo000]ooooo`03o`000?oooooooooo0?oooooo1_ooool00ol0003ooooooooo o`1hooooo`00;Oooool00ol0003oooooooooo`3oooooo`Oooooo0_l0001hooooo`00;Oooool00ol0 003oooooooooo`3oooooo`Wooooo00?o0000ooooooooool0MOooool002gooooo00?o0000oooooooo ool0ooooool:ooooo`03o`000?oooooooooo07Cooooo000]ooooo`03o`000?oooooooooo0?oooooo 2oooool00ol0003oooooooooo`1cooooo`00;Oooool00ol0003oooooooooo`3oooooo`cooooo00?o 0000ooooooooool0L_ooool002gooooo00?o0000ooooooooool0ooooool=ooooo`03o`000?oooooo oooo077ooooo000]ooooo`03o`000?oooooooooo0?oooooo3_ooool2o`00077ooooo000]ooooo`03 o`000?oooooooooo0?oooooo4?ooool00ol0003oooooooooo`1^ooooo`00;Oooool00ol0003ooooo ooooo`3ooooooa7ooooo00?o0000ooooooooool0KOooool002[ooooo0ooVI^H01?l0003oiVKVonIV i_oVI^Kooooooa7ooooo00?o0000ooooooooool0K?ooool002gooooo00?o0000ooooooooool0oooo oolCooooo`03o`000?oooooooooo06_ooooo000]ooooo`03o`000?oooooooooo0?oooooo5?ooool0 0ol0003oooooooooo`1Zooooo`00;Oooool00ol0003oooooooooo`3ooooooaGooooo00?o0000oooo ooooool0JOooool002gooooo00?o0000ooooooooool0oooooolFooooo`03o`000?oooooooooo06So oooo000]ooooo`03o`000?oooooooooo0?oooooo5oooool00ol0003oooooooooo`1Wooooo`00;Ooo ool00ol0003oooooooooo`3ooooooaSooooo00?o0000ooooooooool0I_ooool002gooooo00?o0000 ooooooooool0oooooolIooooo`03o`000?oooooooooo06Gooooo000]ooooo`03o`000?oooooooooo 0?oooooo6_ooool00ol0003oooooooooo`1Tooooo`002_ooool01_o^k^koA4A4o`000?l0003oEEEE onk^kPCooooo00Co^[Zjoa0@4?l0003oMgMg1_ooool00omEEEGo0000oeEEE@0?ooool00ol0003oooooooooo`16ooooo`00;Oooool0 0ol0003oooooooooo`3oooooocWooooo00?o0000ooooooooool0AOooool002gooooo00?o0000oooo ooooool0ooooooljooooo`03o`000?oooooooooo04Cooooo000]ooooo`03o`000?oooooooooo0?oo oooo>oooool00ol0003oooooooooo`13ooooo`00;Oooool00ol0003oooooooooo`3ooooooccooooo 00?o0000ooooooooool0@_ooool002gooooo00?o0000ooooooooool0oooooolmooooo`03o`000?oo oooooooo047ooooo000]ooooo`03o`000?oooooooooo0?oooooo?_ooool00ol0003oooooooooo`10 ooooo`00;Oooool00ol0003oooooooooo`3oooooocoooooo00?o0000ooooooooool0?oooool002[o oooo0ooVI^H01?l0003oiVKVonIVi_oVI^Koooooocoooooo00?o0000ooooooooool0?_ooool002go oooo00?o0000ooooooooool0oooooom1ooooo`03o`000?oooooooooo03gooooo000]ooooo`03o`00 0?oooooooooo0?oooooo@_ooool00ol0003oooooooooo`0looooo`00;Oooool00ol0003ooooooooo o`3ooooood?ooooo00?o0000ooooooooool0>oooool002gooooo00?o0000ooooooooool0oooooom4 ooooo`03o`000?oooooooooo03[ooooo000]ooooo`03o`000?oooooooooo0?ooooooA?ooool00ol0 003oooooooooo`0jooooo`00;Oooool00ol0003oooooooooo`3oooooodGooooo00?o0000oooooooo ool0>Oooool002gooooo00?o0000ooooooooool0oooooom6ooooo`03o`000?oooooooooo03Sooooo 000]ooooo`03o`000?oooooooooo0?ooooooAoooool00ol0003oooooooooo`0gooooo`002_ooool0 1_o^k^koA4A4o`000?l0003oA4A4onk^kPCooooo00Co^[Zjoa0@4?l0003oMgMg1_ooool00omEEEGo 0000oeEEE@0ooooo`03o`000?oooooooooo033ooooo000:ooooo`06onk^ k_m4A4Co0000o`000?m4A4Cok^k^1?ooool01?nj^[[o410@oa0@4?oooooo`001?ooool00ol0 003oooooooooo`03ooooo`06odA4A?nYZJWooooooooooonYZJWo"], ImageRangeCache->{{{0, 431}, {265.875, 0}} -> {-1.23097, -11.4547, \ 0.040351, 0.652892}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Putting this all together", "Subsection"], Cell["\<\ We can then put all of this into a function by using Module. One \ thing to note in the following definition is that the input opts has three underscores following it, this \ allows us to pass a series of Plot options, such as AspectRatio, along to the function. However, if you \ plan on using Frame\[Rule]True you will need to modify this function to use FrameTicks or \ you will not see any change in the plot.\ \>", "Text"], Cell[BoxData[ \(myPlot[f_, overrange_, opts___] := \ \[IndentingNewLine]Module[{preplot, oldTicks, \ newTicks, finalplot}, preplot = Plot[Evaluate[f], Evaluate[overrange], opts, DisplayFunction \[Rule] Identity]; \[IndentingNewLine]oldTicks = \(AbsoluteOptions[ preplot, Ticks]\)\[LeftDoubleBracket]1\[RightDoubleBracket]; \ \[IndentingNewLine]newTicks = oldTicks /. {\(({0.00625, 0. })\) \[Rule] \(({0.0125, 0.0125})\), \(({0.00375, 0. })\) -> \(({0.0075, 0.0075})\), \((AbsoluteThickness[ 0.25])\) \[Rule] \((AbsoluteThickness[ 1.5])\), \((AbsoluteThickness[ 0.125])\) \[Rule] \((AbsoluteThickness[ 1])\), \((GrayLevel[0. ])\) \[Rule] \((RGBColor[0.9, 0.4, 0.9])\)}; \[IndentingNewLine]finalplot = Plot[Evaluate[f], Evaluate[overrange], opts, Evaluate[newTicks]]]\)], "Input"], Cell["\<\ This example shows the input of Plot options to the myPlot \ Function:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(myPlot[x\^2 + 4\ Sin[x] - 2\ Cos[x]\^2, {x, \(-10\), 10}, AspectRatio \[Rule] 1, Epilog \[Rule] {Text["\", {2, 20}, {0, 0}, {1, 0}]}];\)\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0476191 0.0692088 0.0139027 [ [.02381 .04421 -12 -9 ] [.02381 .04421 12 0 ] [.2619 .04421 -9 -9 ] [.2619 .04421 9 0 ] [.7381 .04421 -6 -9 ] [.7381 .04421 6 0 ] [.97619 .04421 -9 -9 ] [.97619 .04421 9 0 ] [.475 .20824 -18 -4.5 ] [.475 .20824 0 4.5 ] [.475 .34726 -18 -4.5 ] [.475 .34726 0 4.5 ] [.475 .48629 -18 -4.5 ] [.475 .48629 0 4.5 ] [.475 .62532 -18 -4.5 ] [.475 .62532 0 4.5 ] [.475 .76434 -18 -4.5 ] [.475 .76434 0 4.5 ] [.475 .90337 -18 -4.5 ] [.475 .90337 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath .9 .4 .9 r 1.5 Mabswid [ ] 0 setdash .02381 .05671 m .02381 .08171 L s 0 g [(-10.)] .02381 .04421 0 1 Mshowa .9 .4 .9 r .2619 .05671 m .2619 .08171 L s 0 g [(-5.)] .2619 .04421 0 1 Mshowa .9 .4 .9 r .7381 .05671 m .7381 .08171 L s 0 g [(5.)] .7381 .04421 0 1 Mshowa .9 .4 .9 r .97619 .05671 m .97619 .08171 L s 0 g [(10.)] .97619 .04421 0 1 Mshowa .9 .4 .9 r 1 Mabswid .07143 .06171 m .07143 .07671 L s .11905 .06171 m .11905 .07671 L s .16667 .06171 m .16667 .07671 L s .21429 .06171 m .21429 .07671 L s .30952 .06171 m .30952 .07671 L s .35714 .06171 m .35714 .07671 L s .40476 .06171 m .40476 .07671 L s .45238 .06171 m .45238 .07671 L s .54762 .06171 m .54762 .07671 L s .59524 .06171 m .59524 .07671 L s .64286 .06171 m .64286 .07671 L s .69048 .06171 m .69048 .07671 L s .78571 .06171 m .78571 .07671 L s .83333 .06171 m .83333 .07671 L s .88095 .06171 m .88095 .07671 L s .92857 .06171 m .92857 .07671 L s 0 g .25 Mabswid 0 .06921 m 1 .06921 L s .9 .4 .9 r 1.5 Mabswid .4875 .20824 m .5125 .20824 L s 0 g [(10.)] .475 .20824 1 0 Mshowa .9 .4 .9 r .4875 .34726 m .5125 .34726 L s 0 g [(20.)] .475 .34726 1 0 Mshowa .9 .4 .9 r .4875 .48629 m .5125 .48629 L s 0 g [(30.)] .475 .48629 1 0 Mshowa .9 .4 .9 r .4875 .62532 m .5125 .62532 L s 0 g [(40.)] .475 .62532 1 0 Mshowa .9 .4 .9 r .4875 .76434 m .5125 .76434 L s 0 g [(50.)] .475 .76434 1 0 Mshowa .9 .4 .9 r .4875 .90337 m .5125 .90337 L s 0 g [(60.)] .475 .90337 1 0 Mshowa .9 .4 .9 r 1 Mabswid .4925 .09701 m .5075 .09701 L s .4925 .12482 m .5075 .12482 L s .4925 .15262 m .5075 .15262 L s .4925 .18043 m .5075 .18043 L s .4925 .23604 m .5075 .23604 L s .4925 .26385 m .5075 .26385 L s .4925 .29165 m .5075 .29165 L s .4925 .31946 m .5075 .31946 L s .4925 .37507 m .5075 .37507 L s .4925 .40287 m .5075 .40287 L s .4925 .43068 m .5075 .43068 L s .4925 .45848 m .5075 .45848 L s .4925 .51409 m .5075 .51409 L s .4925 .5419 m .5075 .5419 L s .4925 .5697 m .5075 .5697 L s .4925 .59751 m .5075 .59751 L s .4925 .65312 m .5075 .65312 L s .4925 .68093 m .5075 .68093 L s .4925 .70873 m .5075 .70873 L s .4925 .73654 m .5075 .73654 L s .4925 .79215 m .5075 .79215 L s .4925 .81995 m .5075 .81995 L s .4925 .84776 m .5075 .84776 L s .4925 .87556 m .5075 .87556 L s .4925 .0414 m .5075 .0414 L s .4925 .0136 m .5075 .0136 L s .4925 .93117 m .5075 .93117 L s .4925 .95898 m .5075 .95898 L s .4925 .98678 m .5075 .98678 L s 0 g .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid .09957 1 m .10458 .97251 L .14415 .79011 L .18221 .64345 L .20178 .58783 L .22272 .54298 L .24259 .50687 L .26416 .46266 L .28492 .40631 L .30409 .34165 L .34344 .20036 L .3632 .14333 L .38128 .10438 L .40069 .07454 L .42157 .05132 L .44055 .03534 L .44575 .03187 L .4513 .02874 L .45653 .0264 L .45898 .02553 L .46127 .02487 L .4636 .02436 L .46483 .02415 L .46615 .02398 L .46681 .02392 L .46753 .02386 L .46884 .02381 L .47012 .02381 L .4713 .02386 L .47239 .02396 L .47342 .02408 L .47455 .02426 L .47577 .02451 L .47825 .02519 L .48052 .02601 L .48536 .02844 L .49066 .03216 L .49619 .03723 L .50134 .043 L .5218 .07432 L .54039 .10875 L .55049 .12672 L .56119 .14331 L .57032 .15465 L .57557 .15982 L .58037 .16366 L .58528 .16674 L .58995 .16891 L .5925 .16981 L .59487 .17048 L Mistroke .59747 .17104 L .59892 .17129 L .60024 .17147 L .60139 .17159 L .60266 .17171 L .60393 .17179 L .60462 .17182 L .60527 .17185 L .60646 .17188 L .60755 .17189 L .60881 .17189 L .61 .17187 L .61107 .17185 L .6122 .17181 L .61423 .17173 L .61883 .17154 L .62007 .1715 L .62122 .17147 L .62243 .17145 L .62374 .17144 L .62488 .17145 L .62591 .17147 L .6271 .17152 L .62823 .17158 L .62946 .17167 L .63076 .1718 L .63309 .17211 L .63559 .17259 L .63834 .17329 L .64291 .17495 L .64547 .17617 L .6478 .17748 L .65664 .18424 L .66143 .18919 L .66653 .19545 L .6757 .20924 L .69645 .25099 L .73417 .34981 L .77434 .48202 L .81299 .66019 L .8541 .88422 L Mfstroke .8541 .88422 m .87933 1 L s gsave .59524 .34726 -75 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (text) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`Oo00001_ooool00oo^k^ko0000oooo o`1;ooooo`;o00003Oooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo05gooooo00?o k^k^o`000?ooool0Foooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo00;ooooo00?o 0000ooooooooool02oooool000gooooo00?o0000ooooooooool00oooool00ol0003oooooooooo`02 ooooo`03o`000?oooooooooo05Oooooo00Ko410@oiRHV?ooooooooooogMgMomVIVI;ooooo`03o`00 0?oooooooooo00kooooo00?o0000ooooooooool00_ooool00ol0003oooooooooo`1Iooooo`06oa0@ 4?nHV9SooooooooooomgMgOoIVIVG?ooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo 00;ooooo00?o0000ooooooooool02oooool000gooooo00?o0000ooooooooool00oooool00ol0003o ooooooooo`02ooooo`03o`000?oooooooooo05Oooooo00Go0000ob4Q8Ol0003o0000ofIVIP1:oooo o`;o00004_ooool2o`0000;ooooo00?o0000ooooooooool0FOooool01Ol0003o8B4Qo`000?l0003o IVIV05gooooo00?o0000ooooooooool00oooool00ol0003oooooooooo`02ooooo`03o`000?oooooo oooo00_ooooo000=ooooo`03o`000?oooooooooo00?ooooo00KoA4A4ojVYZOooooooooooojVYZOm4 A4AIooooo`03o`000?oooooooooo04[ooooo0_l0000Fooooo`03o`000?oooooo000005_ooooo00?o 0000ooooooooool0Goooool00ol0003oooooooooo`03ooooo`06odA4A?nYZJWooooooooooonYZJWo A4A43Oooool000_ooooo00?o0000odA4A?l000001Oooool01_oooooo`00_?ooool00ol0003ooooooooo o`0Gooooo`?oiVKV0_l00002onIVi]?ooooo002kooooo`03o`000?oooooooooo01_ooooo0_l0003E ooooo`00^_ooool00ol0003oooooooooo`0Looooo`03o`000?oooooo00000=Cooooo002iooooo`03 o`000?oooooooooo01gooooo00Co0000oooooooooooo0000doooool00;Sooooo00?o0000oooooooo ool07_ooool01?l0003oooooooooool0003Cooooo`00^?ooool00ol0003oooooooooo`0Nooooo`05 o`000?ooooooooooooooool00000d_ooool0017ooooo0_oVI^IQooooo`;oiVKV@Oooool00ol0003o ooooooooo`0Oooooo`05o`000?ooooooooooooooool00000G_ooool2onIViV;ooooo0_oVI^H>oooo o`004Oooool2onIViV7ooooo0_oVI^I0ooooo`03o`000?oooooooooo023ooooo00?o0000oooooooo ool00_ooool00ol0003oooooooooo`1Kooooo`;oiVKVH_ooool2onIViPkooooo000Aooooo`;oiVKV 4_ooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool0 4Oooool00ooVI^Koooooooooo`0@ooooo`;oiVKV4oooool00ooVI^Koooooooooo`0Aooooo`03onIV i_oooooooooo017ooooo00GoiVKVooooooooooooooooo`00000?ooooo`03onIVi_oooooooooo017o oooo00?o0000ooooooooool00oooool00ol0003oooooooooo`0;ooooo`03onIVi_oooooooooo017o oooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo013o oooo0_oVI^HCooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Ko ooooooooo`0Aooooo`03onIVi_oooooooooo013ooooo0_oVI^H>ooooo`004Oooool2onIViQ;ooooo 00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo 00?oiVKVooooooooool04?ooool2onIViQ?ooooo00?oiVKVooooooooool04Oooool00ooVI^Kooooo ooooo`0Aooooo`04onIVi_ooooooooooo`00013ooooo00?oiVKVooooooooool04Oooool00ol0003o ooooooooo`03ooooo`03o`000?oooooooooo00_ooooo00?oiVKVooooooooool04Oooool00ooVI^Ko ooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04?ooool2onIViQ?o oooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017o oooo00?oiVKVooooooooool04?ooool2onIViPkooooo000Aooooo`;oiVKV4_ooool00ooVI^Kooooo ooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Kooooo ooooo`0@ooooo`;oiVKV4oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo 00CoiVKVoooooooooooo00004?ooool00ooVI^Koooooooooo`0Aooooo`03o`000?oooooooooo00Co oooo00?o0000ooooooooool02_ooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017o oooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0@ooooo`;oiVKV4oooool00ooVI^Ko ooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Ko ooooooooo`0@ooooo`;oiVKV3_ooool000Soooooool0002Uo`0000Cooooo000Aooooo`;oiVKV4_oo ool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Ooo ool00ooVI^Koooooooooo`0@ooooo`;oiVKV4oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oo oooooooo017ooooo00?oiVKVo`000?ooool04Oooool00ooVI^Koooooooooo`0Aooooo`03o`000?oo oooooooo00Gooooo00?o0000ooooooooool02Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oo oooooooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0@ooooo`;oiVKV4ooo ool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Ooo ool00ooVI^Koooooooooo`0@ooooo`;oiVKV3_ooool0017ooooo0_oVI^HBooooo`03onIVi_oooooo oooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooo oooo013ooooo0_oVI^HCooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Oooool0 0ol0003oooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?o0000ooooooooool01_ooool0 0ol0003oooooooooo`08ooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04Oooool0 0ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo013ooooo0_oVI^HCooooo`03onIVi_oooooo oooo017ooooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooo oooo013ooooo0_oVI^H>ooooo`004Oooool2onIViQ;ooooo00?oiVKVooooooooool04Oooool00ooV I^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04?ooool2onIV iQ?ooooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0@ooooo`03o`000?oVI^Kooooo 01;ooooo00?oiVKVooooooooool04Oooool00ol0003oooooooooo`06ooooo`03o`000?oooooooooo 00Sooooo00?oiVKVooooooooool04Oooool00ooVI^Koooooooooo`0Aooooo`03onIVi_oooooooooo 017ooooo00?oiVKVooooooooool04?ooool2onIViQ?ooooo00?oiVKVooooooooool04Oooool00ooV I^Koooooooooo`0Aooooo`03onIVi_oooooooooo017ooooo00?oiVKVooooooooool04?ooool2onIV iPkooooo000Aooooo`;oiVKVHOooool2onIViS[ooooo00?o0000ooooooooool09_ooool00ol0003o ooooooooo`07ooooo`03o`000?oooooooooo05Kooooo0_oVI^IRooooo`;oiVKV3_ooool0017ooooo 0_oVI^IQooooo`;oiVKV>Oooool00ol0003oooooooooo`0Wooooo`03o`000?oooooooooo00Oooooo 00?o0000ooooooooool0E_ooool2onIViV;ooooo0_oVI^H>ooooo`004Oooool2onIViV7ooooo0_oV I^Hhooooo`03o`000?oooooooooo02Sooooo00?o0000ooooooooool02?ooool00ol0003ooooooooo o`1Eooooo`;oiVKVH_ooool2onIViPkooooo000Aooooo`;oiVKVHOooool2onIViSOooooo00?o0000 ooooooooool0:Oooool00ol0003oooooooooo`08ooooo`03o`000?oooooooooo05Gooooo0_oVI^IR ooooo`;oiVKV3_ooool00:gooooo00?o0000ooooooooool0:Oooool00ol0003oooooooooo`09oooo o`03o`000?oooooooooo0ooooo`03o`000?oooooooooo0?ooool00ol0003oooooooooo`0Mooooo`03o`00 0?oooooooooo0;Cooooo002Mooooo`03o`000?oooooooooo03Wooooo00?o0000ooooooooool07_oo ool00ol0003oooooooooo`2cooooo`00WOooool00ol0003oooooooooo`0iooooo`03o`000?oooooo oooo01oooooo0_l0002cooooo`00WOooool00ol0003oooooooooo`0iooooo`03o`000?oooooooooo 027ooooo0_l0002aooooo`00W?ooool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo02?o oooo0_l0002_ooooo`00W?ooool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo02Gooooo 4Ol0002Nooooo`00W?ooool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo03Kooooo0ol0 002Kooooo`00Voooool00ol0003oooooooooo`0kooooo`03o`000?oooooooooo03Wooooo0_l0002I ooooo`00Voooool00ol0003oooooooooo`0kooooo`03o`000?oooooooooo03_ooooo0_l0002Goooo o`00Voooool00ol0003oooooooooo`0hooooo`?oiVKV00Co0000onIVi_oVI^KoiVKV??ooool00ol0 003oooooooooo`2Dooooo`00V_ooool00ol0003oooooooooo`0looooo`03o`000?oooooooooo03ko oooo00?o0000ooooooooool0Toooool009[ooooo00?o0000ooooooooool0??ooool00ol0003ooooo ooooo`0oooooo`03o`000?oooooooooo09;ooooo002Jooooo`03o`000?oooooooooo03cooooo00?o 0000ooooooooool0@?ooool00ol0003oooooooooo`2Aooooo`00VOooool00ol0003oooooooooo`0m ooooo`03o`000?oooooooooo047ooooo00?o0000ooooooooool0T?ooool009Wooooo00?o0000oooo ooooool0?Oooool00ol0003oooooooooo`12ooooo`03o`000?oooooooooo08oooooo002Iooooo`03 o`000?oooooooooo03gooooo00?o0000ooooooooool0@oooool00ol0003oooooooooo`2>ooooo`00 V?ooool00ol0003oooooooooo`0nooooo`03o`000?oooooooooo04?ooooo00?o0000ooooooooool0 S_ooool009Sooooo00?o0000ooooooooool0?_ooool00ol0003oooooooooo`14ooooo`03o`000?oo oooooooo08gooooo002Hooooo`03o`000?oooooooooo01_ooooo1?l000000ol@413oooooooooo`02 ooooo`04okZj^_l@413o0000ogMgM`Kooooo00?oEEEEo`000?mEEED03Oooool00ol0003ooooooooo o`15ooooo`03o`000?oooooooooo08cooooo002Hooooo`03o`000?oooooooooo01gooooo00?o0000 ooooooooool00oooool01_oooooo`03o`000?oo oooooooo04Sooooo00?o0000ooooooooool0EOooool00ol0003oooooooooo`1looooo`00SOooool0 0ol0003oooooooooo`19ooooo`03o`000?oooooooooo05Kooooo00?o0000ooooooooool0Noooool0 08gooooo00?o0000ooooooooool0A_ooool3onIViP04o`000?oVI^KoiVKVonIViUGooooo00?o0000 ooooooooool0Noooool008gooooo00?o0000ooooooooool0BOooool00ol0003oooooooooo`1Foooo o`03o`000?oooooooooo07_ooooo002=ooooo`03o`000?oooooooooo04Wooooo00?o0000oooooooo ool0Eoooool00ol0003oooooooooo`1jooooo`00S?ooool00ol0003oooooooooo`1:ooooo`03o`00 0?oooooooooo05Oooooo00?o0000ooooooooool0N_ooool008cooooo00?o0000ooooooooool0B_oo ool00ol0003oooooooooo`1Hooooo`03o`000?oooooooooo07Wooooo002ooooo`03o`00 0?oooooooooo01Gooooo00Kocooooo`00Coooool00ol0003oooooooooo`27ooooo`03o`000?oooooooooo08?ooooo00?o 0000ooooooooool0C_ooool004oooooo00?o0000ooooooooool0Qoooool00ol0003oooooooooo`23 ooooo`03o`000?oooooooooo04kooooo001?ooooo`03o`000?oooooooooo08Oooooo00?o0000oooo ooooool0Poooool00ol0003oooooooooo`1>ooooo`00C_ooool00ol0003oooooooooo`28ooooo`03 o`000?oooooooooo08Cooooo00?o0000ooooooooool0COooool004kooooo00?o0000ooooooooool0 R?ooool00ol0003oooooooooo`24ooooo`03o`000?oooooooooo04gooooo001>ooooo`03o`000?oo oooooooo08Sooooo00?o0000ooooooooool0Q?ooool00ol0003oooooooooo`1=ooooo`00C_ooool0 0ol0003oooooooooo`28ooooo`03o`000?oooooooooo08Cooooo00?o0000ooooooooool0COooool0 04gooooo00?o0000ooooooooool0ROooool00ol0003oooooooooo`24ooooo`03o`000?oooooooooo 04gooooo001=ooooo`03o`000?oooooooooo08Wooooo00?o0000ooooooooool0QOooool00ol0003o ooooooooo`1ooooo`03o`000?oooooooooo 04?ooooo0011ooooo`03o`000?oooooooooo09Gooooo00?o0000ooooooooool0S_ooool00ol0003o ooooooooo`13ooooo`00@?ooool00ol0003oooooooooo`2Fooooo`03o`000?oooooooooo08kooooo 00?o0000ooooooooool0@oooool0043ooooo00?o0000ooooooooool0U_ooool00ol0003ooooooooo o`2>ooooo`03o`000?oooooooooo04?ooooo0010ooooo`03o`000?oooooooooo09Kooooo00?o0000 ooooooooool0S_ooool00ol0003oooooooooo`13ooooo`00@?ooool00ol0003oooooooooo`2Foooo o`03o`000?oooooooooo08kooooo00?o0000ooooooooool0@oooool003oooooo00?o0000oooooooo ool0Uoooool00ol0003oooooooooo`2?ooooo`03o`000?oooooooooo04;ooooo000oooooo`03o`00 0?oooooooooo09Oooooo00?o0000ooooooooool0Soooool00ol0003oooooooooo`12ooooo`00?ooo ool00ol0003oooooooooo`2Gooooo`03o`000?oooooooooo08oooooo00?o0000ooooooooool0@_oo ool003oooooo00?o0000ooooooooool0U?ooool3onIViP04o`000?oVI^KoiVKVonIViXkooooo00?o 0000ooooooooool0@_ooool003oooooo00?o0000ooooooooool0Uoooool00ol0003oooooooooo`2? ooooo`03o`000?oooooooooo04;ooooo000nooooo`03o`000?oooooooooo09Sooooo00?o0000oooo ooooool0T?ooool00ol0003oooooooooo`11ooooo`00?_ooool00ol0003oooooooooo`2Hooooo`03 o`000?oooooooooo093ooooo00?o0000ooooooooool0@Oooool003kooooo00?o0000ooooooooool0 V?ooool00ol0003oooooooooo`2@ooooo`03o`000?oooooooooo047ooooo000nooooo`03o`000?oo oooooooo09Sooooo00?o0000ooooooooool0T?ooool00ol0003oooooooooo`11ooooo`00?Oooool0 0ol0003oooooooooo`2Iooooo`03o`000?oooooooooo093ooooo00?o0000ooooooooool0@Oooool0 03gooooo00?o0000ooooooooool0VOooool00ol0003oooooooooo`2@ooooo`03o`000?oooooooooo 047ooooo000mooooo`03o`000?oooooooooo09Wooooo00?o0000ooooooooool0TOooool00ol0003o ooooooooo`10ooooo`00?Oooool00ol0003oooooooooo`2Iooooo`03o`000?oooooooooo097ooooo 00?o0000ooooooooool0@?ooool003gooooo00?o0000ooooooooool0VOooool00ol0003ooooooooo o`2Aooooo`03o`000?oooooooooo043ooooo000looooo`03o`000?oooooooooo09[ooooo00?o0000 ooooooooool0TOooool00ol0003oooooooooo`10ooooo`00??ooool00ol0003oooooooooo`2Goooo o`?oiVKV00Co0000onIVi_oVI^KoiVKVT?ooool00ol0003oooooooooo`10ooooo`00??ooool00ol0 003oooooooooo`2Jooooo`03o`000?oooooooooo09;ooooo00?o0000ooooooooool0?oooool003co oooo00?o0000ooooooooool0V_ooool00ol0003oooooooooo`2Booooo`03o`000?oooooooooo03oo oooo000kooooo`03o`000?oooooooooo09_ooooo00?o0000ooooooooool0T_ooool00ol0003ooooo ooooo`0oooooo`00>oooool00ol0003oooooooooo`2Kooooo`03o`000?oooooooooo09;ooooo00?o 0000ooooooooool0?oooool003_ooooo00?o0000ooooooooool0Voooool00ol0003oooooooooo`2B ooooo`03o`000?oooooooooo03oooooo000kooooo`03o`000?oooooooooo09_ooooo00?o0000oooo ooooool0Toooool00ol0003oooooooooo`0nooooo`00>_ooool00ol0003oooooooooo`2Looooo`03 o`000?oooooooooo09?ooooo00?o0000ooooooooool0?_ooool003[ooooo00?o0000ooooooooool0 W?ooool00ol0003oooooooooo`2Cooooo`03o`000?oooooooooo03kooooo000jooooo`03o`000?oo oooooooo07Sooooo00Kok^k^odA4A?l0003o0000oeEEEOo^k^h4ooooo`04okZj^_l@413o0000ogMg M`Kooooo00?oEEEEo`000?mEEED03Oooool00ol0003oooooooooo`2Cooooo`03o`000?oooooooooo 03kooooo000jooooo`03o`000?oooooooooo07Sooooo00KoEEEEogMgMoooooooooooogMgMomEEED3 ooooo`06olc_ooool00ol0003oooooooooo`1hooooo`03oa0@4?oo oooooooo00;ooooo00Ko0000ooooooooooooooooodA4A?nYZJT2ooooo`03ojVYZOlbOooool00ol0003oooooooooo`1iooooo`03o`000?o^k^kooooo00;ooooo 00Go0000ooooooooooooooooo`000004ooooo`03o`000?oooooooooo00gooooo1_oVI^H00ol0003o iVKVonIViP03onIViY7ooooo00?o0000ooooooooool0?Oooool003Wooooo00?o0000ooooooooool0 NOooool01_l0003oEEEEonk^k_ooooooMgMgoeEEE@?ooooo00?o0000ooooooooool00_ooool00ol0 003oooooooooo`0Cooooo`03o`000?oooooooooo09Cooooo00?o0000ooooooooool0?Oooool003Wo oooo00?o0000ooooooooool0NOooool01_lQ8B7oIVIVo`000?l0003oEEEEonk^kP?ooooo00?o0000 ooooooooool00_ooool00ol0003oooooooooo`0Cooooo`03o`000?oooooooooo09Cooooo00?o0000 ooooooooool0?Oooool003Wooooo00?o0000ooooooooool0NOooool00on7QhOoIVIVooooo`06oooo o`06odA4A?nYZJWooooooooooonYZJWoA4A45Oooool00ol0003oooooooooo`2Dooooo`03o`000?oo oooooooo03gooooo000hooooo`03o`000?oooooooooo07_ooooo00?o?ooool00ol0003oooooooooo`1looooo`04ogMgMol@413o0000ob4Q8@Cooooo 00Co^[Zjoa0@4?l@413oc?ooool00ol0003oooooooooo`2Nooooo`03o`000?oooooooooo09Gooooo00?o 0000ooooooooool0??ooool003Sooooo00?o0000ooooooooool0W_ooool00ol0003oooooooooo`2E ooooo`03o`000?oooooooooo03cooooo000gooooo`03o`000?oooooooooo09oooooo00?o0000oooo ooooool0U_ooool00ol0003oooooooooo`0kooooo`00=oooool00ol0003oooooooooo`2Oooooo`03 o`000?oooooooooo09Kooooo00?o0000ooooooooool0>oooool003Oooooo00?o0000ooooooooool0 W?ooool3onIViP04o`000?oVI^KoiVKVonIViYGooooo00?o0000ooooooooool0>oooool003Oooooo 00?o0000ooooooooool0Woooool00ol0003oooooooooo`2Fooooo`03o`000?oooooooooo03_ooooo 000fooooo`03o`000?oooooooooo0:3ooooo00?o0000ooooooooool0U_ooool00ol0003ooooooooo o`0kooooo`00=_ooool00ol0003oooooooooo`2Pooooo`03o`000?oooooooooo09Oooooo00?o0000 ooooooooool0>_ooool003Kooooo00?o0000ooooooooool0X?ooool00ol0003oooooooooo`2Goooo o`03o`000?oooooooooo03[ooooo000fooooo`03o`000?oooooooooo0:3ooooo00?o0000oooooooo ool0Uoooool00ol0003oooooooooo`0jooooo`00=_ooool00ol0003oooooooooo`2Pooooo`03o`00 0?oooooooooo09Oooooo00?o0000ooooooooool0>_ooool003Gooooo00?o0000ooooooooool0XOoo ool00ol0003oooooooooo`2Gooooo`03o`000?oooooooooo03[ooooo000eooooo`03o`000?oooooo oooo0:7ooooo00?o0000ooooooooool0V?ooool00ol0003oooooooooo`0iooooo`00=Oooool00ol0 003oooooooooo`2Qooooo`03o`000?oooooooooo09Sooooo00?o0000ooooooooool0>Oooool003Go oooo00?o0000ooooooooool0XOooool00ol0003oooooooooo`2Hooooo`03o`000?oooooooooo03Wo oooo000dooooo`03o`000?oooooooooo0:;ooooo00?o0000ooooooooool0V?ooool00ol0003ooooo ooooo`0iooooo`00=?ooool00ol0003oooooooooo`2Oooooo`?oiVKV00Co0000onIVi_oVI^KoiVKV Uoooool00ol0003oooooooooo`0iooooo`00=?ooool00ol0003oooooooooo`2Rooooo`03o`000?oo oooooooo09Wooooo00?o0000ooooooooool0>?ooool003Cooooo00?o0000ooooooooool0X_ooool0 0ol0003oooooooooo`2Iooooo`03o`000?oooooooooo03Sooooo000dooooo`03o`000?oooooooooo 0:;ooooo00?o0000ooooooooool0VOooool00ol0003oooooooooo`0hooooo`00?ooool003?ooooo 00?o0000ooooooooool0Xoooool00ol0003oooooooooo`2Iooooo`03o`000?oooooooooo03Sooooo 000cooooo`03o`000?oooooooooo0:?ooooo00?o0000ooooooooool0V_ooool00ol0003ooooooooo o`0gooooo`00"], ImageRangeCache->{{{0, 431}, {431, 0}} -> {-10.9012, -5.96653, 0.0750945, \ 0.257211}}] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.1 for Macintosh", ScreenRectangle->{{0, 1280}, {0, 1002}}, AutoGeneratedPackage->Automatic, WindowToolbars->{"RulerBar", "EditBar"}, InitializationCellEvaluation->False, WindowSize->{930, 681}, WindowMargins->{{125, Automatic}, {Automatic, 73}}, Visible->True, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowSelection->True, ShowCellLabel->True, ShowCellTags->False, InputAliases->{"notation"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "notation>"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongRightArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "notation<"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongLeftArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "symb"->RowBox[ {"Symbolize", "[", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], "]"}], "infixnotation"->RowBox[ {"InfixNotation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}], "addia"->RowBox[ {"AddInputAlias", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}], "pattwraper"->TagBox[ "\[Placeholder]", NotationPatternTag, TagStyle -> "NotationPatternWrapperStyle"], "madeboxeswraper"->TagBox[ "\[Placeholder]", NotationMadeBoxesTag, TagStyle -> "NotationMadeBoxesWrapperStyle"]}, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, Magnification->1.5, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using \ commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize->12], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellLabelMargins->{{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize->8], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {12, 30}}, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {20, 15}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->24], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {20, 15}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 8}}, FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[FilledSquare]", CellMargins->{{25, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{22, Inherited}, {8, 20}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Times", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{22, Inherited}, {8, 18}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubsection", FontFamily->"Times", FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{12, 10}, {7, 7}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, Hyphenation->True, LineSpacing->{1, 3}, CounterIncrements->"Text"], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->0.5, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{12, 10}, {6, 6}}, DefaultNewInlineCellStyle->"None", Hyphenation->True, LineSpacing->{1, 3}, LanguageCategory->"NaturalLanguage", CounterIncrements->"SmallText", FontFamily->"Helvetica", FontSize->9], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->0.5, FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}, FontSize->11], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->9] }, Closed]], Cell[StyleData["InputOnly"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{47, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Formula", FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}, FontSize->11], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSize->11, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontSize->11], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->7, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontSize->11], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Graphics", ImageMargins->{{43, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->10], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], ImageMargins->{{38, Inherited}, {Inherited, 0}}, Magnification->0.6], Cell[StyleData["Graphics", "Printout"], ImageMargins->{{30, Inherited}, {Inherited, 0}}, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "Condensed"], FontSize->9], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Inline Formatting", "Section"], Cell["\<\ These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.\ \>", "Text"], Cell[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["BF"], StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["IT"], StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["TB"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TBI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MR"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MB"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MBO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SR"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SB"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SBO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[CellGroupData[{ Cell[StyleData["SO10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "EnhancedPrintout"], StyleMenuListing->None, FontFamily->"Futura", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LanguageCategory->"Formula", ScriptLevel->1, FontFamily->"Courier"], Cell[StyleData["Program", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Program", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["Program", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"], FontSize->16], Cell[StyleData["Hyperlink", "Condensed"], FontSize->11], Cell[StyleData["Hyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"], FontSize->16], Cell[StyleData["MainBookLink", "Condensed"], FontSize->11], Cell[StyleData["MainBookLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"], FontSize->16], Cell[StyleData["AddOnsLink", "Condensed"], FontSize->11], Cell[StyleData["AddOnsLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLink", "Condensed"], FontSize->11], Cell[StyleData["RefGuideLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"], FontSize->16], Cell[StyleData["GettingStartedLink", "Condensed"], FontSize->11], Cell[StyleData["GettingStartedLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"], FontSize->16], Cell[StyleData["OtherInformationLink", "Condensed"], FontSize->11], Cell[StyleData["OtherInformationLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Placeholder->True, StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PrimaryPlaceholder"], StyleMenuListing->None, DrawHighlighted->True, FontSlant->"Italic", Background->RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["PrimaryPlaceholder", "Presentation"]], Cell[StyleData["PrimaryPlaceholder", "Condensed"]], Cell[StyleData["PrimaryPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, Hyphenation->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, Background->GrayLevel[1]], Cell[StyleData["InputForm"], InputAutoReplacements->{}, AllowInlineCells->False, Hyphenation->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{0.6, 1}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], InputAutoReplacements->{ "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]", ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]", Inherited}, LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], InputAutoReplacements->{ "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]", ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]", Inherited}, LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Closed]], Cell[CellGroupData[{ Cell["Automatic Styles", "Section"], Cell["\<\ The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).\ \>", "Text"], Cell[StyleData["UnmatchedBracket"], StyleMenuListing->None, FontColor->RGBColor[0.760006, 0.330007, 0.8]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Notation Package Styles", "Section", GeneratedCell->True, CellTags->"NotationPackage"], Cell["\<\ The cells below define certain styles needed by the Notation \ package. These styles serve to make visible otherwise invisible \ tagboxes.\ \>", "Text", GeneratedCell->True, CellTags->"NotationPackage"], Cell[StyleData["NotationTemplateStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[1, 1, 0.850004], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationPatternWrapperStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[1, 0.900008, 0.979995], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationMadeBoxesWrapperStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[0.900008, 0.889998, 1], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"] }, Closed]] }] ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1727, 52, 41, 0, 146, "Title"], Cell[1771, 54, 177, 5, 73, "Text"], Cell[CellGroupData[{ Cell[1973, 63, 41, 0, 65, "Subsection"], Cell[2017, 65, 318, 7, 99, "Text"], Cell[2338, 74, 124, 3, 42, "Input"], Cell[2465, 79, 137, 4, 73, "Text"], Cell[2605, 85, 139, 2, 39, "Input"], Cell[2747, 89, 431, 9, 125, "Text"], Cell[3181, 100, 499, 9, 154, "Input"], Cell[3683, 111, 170, 4, 73, "Text"], Cell[CellGroupData[{ Cell[3878, 119, 92, 1, 42, "Input"], Cell[3973, 122, 29278, 584, 279, 3738, 264, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33300, 712, 47, 0, 65, "Subsection"], Cell[33350, 714, 438, 10, 151, "Text"], Cell[33791, 726, 1057, 20, 315, "Input"], Cell[34851, 748, 94, 3, 47, "Text"], Cell[CellGroupData[{ Cell[34970, 755, 213, 4, 65, "Input"], Cell[35186, 761, 54498, 1001, 444, 5617, 393, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)