(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' 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[ 47851, 1298]*) (*NotebookOutlinePosition[ 92550, 3007]*) (* CellTagsIndexPosition[ 92506, 3003]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Hands-On Tutorial", FontFamily->"Arial"]], "Title"], Cell[CellGroupData[{ Cell["Part 2", "Section"], Cell[TextData[{ "\nIn this exercise, we will assume that you have already completed the ", ButtonBox["Hands-on Tutorial - Part 1", ButtonData:>{"HandsOn_Part1.nb", None}, ButtonStyle->"Hyperlink"], ". If you haven't, you may want to do this before continuing.\n\nIn this \ example, we will once again use '", StyleBox["MathLink VI Server.vi", "viname"], "', and '", StyleBox["DataSim.vi", "viname"], "'. Since you already have some familiarity with steps necessary to call a \ VI from ", StyleBox["Mathematica", FontSlant->"Italic"], ", we will move a little more quickly this time around. (If you are really \ in a hurry, simply copy and paste each of the commands from this notebook \ into your work notebook - but remember to type and after \ each step.)\n\n1) In LabVIEW, open ", StyleBox["MathLink", "viname", FontSlant->"Italic"], StyleBox[" VI Server.vi. (Tools -> Mathlink -> Main -> MathLink VI \ Server...)", "viname"], "\n\n2) Set the '", StyleBox["Link protocol", "viname"], "' ring control to the appropriate setting for your platform - '", StyleBox["FileMap", "viname"], "' for Windows, or '", StyleBox["PPC", "viname"], "' for Mac. (Again, for information about using the ", StyleBox["TCP", "viname"], " protocol, refer to the Link's formal documentation.)\n\n3) Open a new \ notebook and type:\n\n", StyleBox[" << LabVIEW`VIClient`", "Input", FontWeight->"Bold"], "\n\nfollowed by and .\n\n4) Next type:\n\nfor Windows:\n", StyleBox["link = ConnectToServer[ LinkProtocol -> \"FileMap\"]", "Input", FontWeight->"Bold"], StyleBox["\n", FontWeight->"Bold"], "\nfor Mac:\n", StyleBox["link = ConnectToServer[ LinkProtocol -> \"PPC\"]", "Input", FontWeight->"Bold"], "\n \ndon't press and yet....\n" }], "Text"], Cell[TextData[{ "5) Switch back to LabVIEW. Run ", StyleBox["MathLink", "viname", FontSlant->"Italic"], StyleBox[" VI Server.vi, then ", "viname"], " quickly switch back to your new ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook and press and to engage the ConnectToServer \ function." }], "Text"], Cell[TextData[{ "\n6) Declare ", StyleBox["DataSim.vi", "viname"], " by typing:\n", Cell[BoxData[ FormBox[ RowBox[{ StyleBox[\(inst\ = \ DeclareInstrument[\n"\<(....)\\user.lib\\MathLink\\Tutorial.llb\\DataSim.vi\>", \ \ {{"\", \ U16, \ 2}}, \ {{"\", \ DBLMatrix}}]\), "Input", FontWeight->"Bold"], "\[IndentingNewLine]"}], InputForm]], "Input"], "\nBe sure to replace '(....)' with the correct path to \ LabVIEW on your PC, and use the appropriate path separators for your platform \ - specifically: \"", StyleBox["\\\\\"", "viname", FontWeight->"Bold"], " for Windows users, \"", StyleBox[":\" ", "viname", FontWeight->"Bold"], "for Mac. (If you want to call a LabVIEW VI on a Unix PC using the TCP \ protocol, see ", StyleBox["Mathematica", FontSlant->"Italic"], " Link for LabVIEW documentation for more information.) \n\nWhen the path \ information is correct, press and to declare ", StyleBox["DataSim.vi", "viname"], ". \n\n7) Next, open a VI Reference to ", StyleBox["DataSim.vi", "viname"], " (now referenced by the ", StyleBox["Mathematica ", FontSlant->"Italic"], "variable 'inst'). Type:\n\n", StyleBox["OpenVIRef[link, inst]", "Input", FontWeight->"Bold"], "\n\nfollowed by and .\n\n8) Call ", StyleBox["DataSim.vi", "viname"], " to generate some data, then process it in ", StyleBox["Mathematica.", FontSlant->"Italic"], "\n\nFirst type:\n", Cell[BoxData[ \(<< \ Statistics`DataSmoothing`\)], "Input"], "\nfollowed by and . This opens the DataSmoothing package \ and provides access to the ExponentialSmoothing function.Wait for a moment \ for this command to complete executing, then type:\n", Cell[BoxData[{ StyleBox[\(data\ \ = \ CallByReference[link, \ inst];\), "Input", FontWeight->"Bold"], "\n", StyleBox[\(data2\ = \ Flatten[data, \ 1];\), "Input", FontWeight->"Bold"], "\n", StyleBox[\(data3\ = \ ExponentialSmoothing[data2, \ 0.1];\), "Input", FontWeight->"Bold"], "\n", StyleBox[\(ListPlot[data2, \ PlotJoined\ -> \ True, \ PlotLabel\ -> \ "\"];\), "Input", FontWeight->"Bold"], "\n", StyleBox[\(ListPlot[data3, \ PlotJoined\ -> \ True, \ PlotLabel\ -> \ "\"]\), "Input", FontWeight->"Bold"]}], "Input"], StyleBox["\n", "Input"], "followed by and .\n\nYou have just used ", StyleBox["Mathematica", FontSlant->"Italic"], "'s built-in data smoothing function to clean up a noisey waveform.\n\n9) \ Close the link using:\n\n", StyleBox["ServerShutdown[link]", "Input", FontWeight->"Bold"], "\n\nfollowed by and .\n\nThis concludes The Hands-on \ Tutorial - Part 2. A complete transcript of the exercise, including the \ output produced by ", StyleBox["Mathematica", FontSlant->"Italic"], " can be found below. \n\n\ ______________________________________________________________________________\ ___________________________________\n\n", StyleBox["Complete Transcript for this exercise:", "Section"], "\n\n", Cell[BoxData[ StyleBox[\(<< \ LabVIEW`VIClient`\), "viname", FontWeight->"Bold"]], "Input"], "\n", Cell[BoxData[ StyleBox[\(link\ = \ ConnectToServer[\ LinkProtocol\ -> \ "\"]\), "viname", FontWeight->"Bold"]], "Input"], "\n", Cell[BoxData[ \(LinkObject["5555", 2, 2]\)], "Output"], "\n", Cell[BoxData[ RowBox[{ StyleBox[\(inst\ = \ DeclareInstrument["\", \ {{"\", \ U16, \ 2}}, \ {{"\", \ DBLMatrix}}]\), "viname", FontWeight->"Bold"], "\n"}]], "Input"], "\n", Cell[BoxData[ \(Instrument[ "Macintosh HD:Applications (Mac OS 9):LabVIEW:LabVIEW \ 6:user.lib:MathLink:Tutorial.llb:DataSim.vi", "DataSim.vi", {{"Function", U16, 2}}, {{"Data", DBLMatrix}}]\)], "Output"], "\n", Cell[BoxData[ StyleBox[\(OpenVIRef[link, \ inst]\), "viname", FontWeight->"Bold"]], "Input"], "\n", Cell[BoxData[ \("DataSim.vi loaded"\)], "Print"], "\n", Cell[BoxData[ StyleBox[\(<< \ Statistics`DataSmoothing`\), "viname", FontWeight->"Bold"]], "Input"], "\n\n", Cell[BoxData[{ StyleBox[\(data\ \ = \ CallByReference[link, \ inst];\), "viname", FontWeight->"Bold"], "\n", StyleBox[\(data2\ = \ Flatten[data, \ 1];\), "viname", FontWeight->"Bold"], "\n", StyleBox[\(data3\ = \ ExponentialSmoothing[data2, \ 0.3, \ .8];\), "viname", FontWeight->"Bold"], "\n", StyleBox[\(ListPlot[data2, \ PlotJoined\ -> \ True, \ PlotLabel\ -> \ "\"];\), "viname", FontWeight->"Bold"], "\n", StyleBox[\(ListPlot[data3, \ PlotJoined\ -> \ True, \ PlotLabel\ -> \ "\"]\), "viname", FontWeight->"Bold"]}], "Input"], "\n", Cell[BoxData[ \("DataSim.vi successfully operated."\)], "Print"], "\n", 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.0962001 0.304652 0.279877 [ [.21621 .29215 -3 -9 ] [.21621 .29215 3 0 ] [.40861 .29215 -3 -9 ] [.40861 .29215 3 0 ] [.60101 .29215 -3 -9 ] [.60101 .29215 3 0 ] [.79341 .29215 -3 -9 ] [.79341 .29215 3 0 ] [.98581 .29215 -6 -9 ] [.98581 .29215 6 0 ] [.01131 .02478 -12 -4.5 ] [.01131 .02478 0 4.5 ] [.01131 .16471 -24 -4.5 ] [.01131 .16471 0 4.5 ] [.01131 .44459 -18 -4.5 ] [.01131 .44459 0 4.5 ] [.01131 .58453 -6 -4.5 ] [.01131 .58453 0 4.5 ] [.5 .63053 -26 0 ] [.5 .63053 26 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21621 .30465 m .21621 .3109 L s [(2)] .21621 .29215 0 1 Mshowa .40861 .30465 m .40861 .3109 L s [(4)] .40861 .29215 0 1 Mshowa .60101 .30465 m .60101 .3109 L s [(6)] .60101 .29215 0 1 Mshowa .79341 .30465 m .79341 .3109 L s [(8)] .79341 .29215 0 1 Mshowa .98581 .30465 m .98581 .3109 L s [(10)] .98581 .29215 0 1 Mshowa .125 Mabswid .07191 .30465 m .07191 .3084 L s .12001 .30465 m .12001 .3084 L s .16811 .30465 m .16811 .3084 L s .26431 .30465 m .26431 .3084 L s .31241 .30465 m .31241 .3084 L s .36051 .30465 m .36051 .3084 L s .45671 .30465 m .45671 .3084 L s .50481 .30465 m .50481 .3084 L s .55291 .30465 m .55291 .3084 L s .64911 .30465 m .64911 .3084 L s .69721 .30465 m .69721 .3084 L s .74531 .30465 m .74531 .3084 L s .84151 .30465 m .84151 .3084 L s .88961 .30465 m .88961 .3084 L s .93771 .30465 m .93771 .3084 L s .25 Mabswid 0 .30465 m 1 .30465 L s .02381 .02478 m .03006 .02478 L s [(-1)] .01131 .02478 1 0 Mshowa .02381 .16471 m .03006 .16471 L s [(-0.5)] .01131 .16471 1 0 Mshowa .02381 .44459 m .03006 .44459 L s [(0.5)] .01131 .44459 1 0 Mshowa .02381 .58453 m .03006 .58453 L s [(1)] .01131 .58453 1 0 Mshowa .125 Mabswid .02381 .05276 m .02756 .05276 L s .02381 .08075 m .02756 .08075 L s .02381 .10874 m .02756 .10874 L s .02381 .13673 m .02756 .13673 L s .02381 .1927 m .02756 .1927 L s .02381 .22069 m .02756 .22069 L s .02381 .24868 m .02756 .24868 L s .02381 .27666 m .02756 .27666 L s .02381 .33264 m .02756 .33264 L s .02381 .36063 m .02756 .36063 L s .02381 .38862 m .02756 .38862 L s .02381 .4166 m .02756 .4166 L s .02381 .47258 m .02756 .47258 L s .02381 .50057 m .02756 .50057 L s .02381 .52855 m .02756 .52855 L s .02381 .55654 m .02756 .55654 L s .02381 .61252 m .02756 .61252 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .5 .63053 -87 -4 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 (Raw) show 87.000 13.000 moveto (Data) show 111.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 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .32137 m .03343 .30601 L .04305 .36286 L .05267 .39333 L .06229 .39352 L .07191 .41096 L .08153 .44878 L .09115 .45898 L .10077 .50973 L .11039 .50106 L .12001 .5666 L .12963 .53502 L .13925 .56543 L .14887 .59303 L .15849 .57089 L .16811 .58295 L .17773 .56891 L .18735 .59032 L .19697 .58682 L .20659 .56285 L .21621 .53527 L .22583 .53803 L .23545 .52421 L .24507 .53237 L .25469 .50898 L .26431 .4468 L .27393 .44064 L .28355 .42302 L .29317 .39873 L .30279 .37726 L .31241 .36784 L .32203 .34386 L .33165 .30199 L .34127 .26805 L .35089 .22152 L .36051 .19023 L .37013 .15346 L .37975 .18318 L .38937 .1393 L .39899 .12034 L .40861 .11811 L .41823 .06605 L .42785 .03667 L .43747 .02496 L .44709 .03877 L .45671 .03991 L .46633 .04984 L .47595 .02945 L .48557 .05093 L .49519 .04237 L Mistroke .50481 .01472 L .51443 .03341 L .52405 .07522 L .53367 .08665 L .54329 .10154 L .55291 .11488 L .56253 .10103 L .57215 .13992 L .58177 .19559 L .59139 .22083 L .60101 .21137 L .61063 .27309 L .62025 .30381 L .62987 .29102 L .63949 .31942 L .64911 .34952 L .65873 .40046 L .66835 .44236 L .67797 .42646 L .68759 .46018 L .69721 .49148 L .70683 .52326 L .71645 .54168 L .72607 .54409 L .73569 .54445 L .74531 .55137 L .75493 .56736 L .76455 .56246 L .77417 .55934 L .78379 .60332 L .79341 .56045 L .80303 .56796 L .81265 .57977 L .82227 .58054 L .83189 .54077 L .84151 .52212 L .85113 .51648 L .86075 .46986 L .87037 .46923 L .87999 .42323 L .88961 .4255 L .89923 .3936 L .90885 .3769 L .91847 .3277 L .92809 .33433 L .93771 .30917 L .94733 .26282 L .95695 .20344 L .96657 .18922 L .97619 .1792 L Mistroke Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg7oo00<007ooOol0H7oo00<007ooOol037oo000LOol0 0`00Oomoo`1DOol00`00Oomoo`0hOol00`00Oomoo`1POol00`00Oomoo`0Woo00<007ooOol0GWoo00<007ooOol03Goo000LOol00`00Oomoo`1COol00`00Oomoo`0j Ool00`00Oomoo`02001LOol00`00Oomoo`0=Ool001aoo`03001oogoo05=oo`03001oogoo03]oo`80 0003Ool007oo05Yoo`03001oogoo00ioo`0077oo0P00Dgoo00<007ooOol0?7oo00@007ooOol005]o o`03001oogoo00ioo`0077oo00<007ooOol0DWoo00<007ooOol0?goo00<007ooOol0FGoo00<007oo Ool03Woo000LOol00`00Oomoo`1BOol00`00Oomoo`0oOol00`00Oomoo`1IOol00`00Oomoo`0>Ool0 01aoo`03001oogoo059oo`03001oogoo041oo`03001oogoo05Qoo`03001oogoo00ioo`0077oo00<0 07ooOol0DWoo00<007ooOol0@7oo00<007ooOol0Egoo00<007ooOol03goo000LOol00`00Oomoo`1A Ool00`00Oomoo`11Ool00`00Oomoo`1GOol00`00Oomoo`0?Ool001aoo`03001oogoo055oo`03001o ogoo045oo`03001oogoo05Moo`03001oogoo00moo`0077oo00<007ooOol0DGoo00<007ooOol0@Goo 00<007ooOol0Egoo00<007ooOol03goo000LOol2001BOol00`00Oomoo`11Ool00`00Oomoo`1GOol0 0`00Oomoo`0?Ool001aoo`03001oogoo055oo`03001oogoo045oo`03001oogoo05Ioo`03001oogoo 011oo`0077oo00<007ooOol0DGoo00<007ooOol0@Goo00<007ooOol0EWoo00<007ooOol047oo000L Ool00`00Oomoo`0/Ool5000OOol00`00Oomoo`0=Ool3000_Ool300000goo001oo`0/Ool3000WOol0 0`00Oomoo`02Ool30004Ool20005Ool001aoo`03001oogoo02eoo`04001oogoo000OOol00`00Oomo o`0>Ool00`00Oomoo`0]Ool01000Oomoogoo0P00;7oo00D007ooOomoo`0002Ioo`03001oogoo00=o o`03001oogoo009oo`04001oogoo0004Ool001aoo`03001oogoo02ioo`03001oogoo01moo`03001o ogoo00]oo`D002ioo`04001oogooOol2000/Ool01@00Oomoogoo00009Woo00<007ooOol00goo00<0 07ooOol00Woo00@007ooOol000Aoo`0077oo00<007ooOol0;goo00<007ooOol07Woo00<007ooOol0 2goo00@007ooOol002moo`@00003Ool007oo02aoo`<002Moo`03001oogoo00=oo`03001oogoo009o o`04001oogoo0004Ool001aoo`8002eoo`05001oogooOol0000NOol00`00Oomoo`0=Ool00`00Ool0 000_Ool00`00Oomoo`02Ool00`00Oomoo`0ZOol01@00Oomoogoo00009Goo00<007ooOol017oo00<0 07ooOol00Woo00@007ooOol000Aoo`0077oo00<007ooOol0;7oo00D007ooOomoo`0001ioo`03001o ogoo00ioo`80031oo`03001oogoo009oo`03001oogoo02Uoo`05001oogooOol0000UOol00`00Oomo o`03Ool20004Ool01000Oomoo`0017oo000LOol00`00Oomoo`0]Ool3000OOol00`00Oomoo`0?Ool0 0`00Oomoo`0_Ool20002Ool00`00Oomoo`0ZOol3000VOol00`00Oomoo`04Ool00`00Oomoo`03Ool2 0005Ool001aoo`03001oogoo04ioo`03001oogoo04Ioo`03001oogoo05=oo`03001oogoo015oo`00 77oo00<007ooOol0CWoo00<007ooOol0Agoo00@007ooOol0055oo`03001oogoo015oo`0077oo00<0 07ooOol0CWoo00<007ooOol0Agoo00@007ooOol0055oo`03001oogoo015oo`0077oo00<007ooOol0 CGoo00<007ooOol0B7oo00D007oo001oo`0004moo`03001oogoo019oo`005Wooo`001`0017oo000L Ool00`00Ool00009Ool00`00Oomoo`0:Ool00`00Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`0: Ool00`00Oomoo`09Ool00`00Oomoo`02Ool00`00Oomoo`05Ool00`00Oomoo`09Ool00`00Oomoo`0: Ool00`00Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`0:Ool00`00Oomoo`06Ool01000Oomoo`00 37oo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol0 2Woo00<007ooOol02Goo00<007ooOol01Woo000LOol00`00Ool0000_Ool00`00Oomoo`0KOol00`00 Oomoo`0AOol00`00Oomoo`0`Ool00`00Oomoo`06Ool00`00Oomoo`0VOol00`00Oomoo`0SOol00`00 Oomoo`09Ool00`00Oomoo`06Ool001aoo`<004eoo`03001oogoo04eoo`03001oogoo04]oo`03001o ogoo01=oo`0077oo0P0000=oo`00Ool0BWoo00<007ooOol0Cgoo00<007ooOol0BWoo00<007ooOol0 4goo000LOol01000Oomoo`00Bgoo00<007ooOol0Cgoo00<007ooOol0BGoo00<007ooOol057oo000L Ool01000Oomoo`00Bgoo00<007ooOol0Cgoo00<007ooOol0AWoo00@007ooOol001Ioo`0077oo00@0 07ooOol004]oo`03001oogoo051oo`03001oogoo04Eoo`800003Ool007oo01Eoo`0077oo0P0000=o o`00Ool0BWoo00<007ooOol0D7oo00<007ooOol0AGoo00<007oo00005goo000LOol01@00Oomoogoo 0000BGoo00<007ooOol0DGoo00<007ooOol0A7oo00<007ooOol067oo000LOol01@00Oomoogoo0000 BGoo00<007ooOol0DGoo00<007ooOol0A7oo00<007ooOol067oo000LOol01@00Oomoogoo0000BGoo 00<007ooOol0DWoo00<007ooOol0@goo00<007ooOol067oo000LOol01@00Oomoogoo0000BGoo00<0 07ooOol0DWoo00<007ooOol0@goo00<007ooOol067oo000LOol01@00Oomoogoo0000B7oo00<007oo Ool0Dgoo00<007ooOol0@Woo00<007ooOol06Goo000LOol00`00Oomoo`02Ool00`00Oomoo`15Ool0 0`00Oomoo`1COol00`00Oomoo`12Ool00`00Oomoo`0IOol001aoo`8000=oo`03001oogoo04Aoo`03 001oogoo05Eoo`03001oogoo045oo`03001oogoo01Uoo`0077oo00<007ooOol00Woo00<007ooOol0 A7oo00<007ooOol0EGoo00<007ooOol0@Goo00<007ooOol06Goo000LOol00`00Oomoo`02Ool00`00 Oomoo`13Ool00`00Oomoo`1FOol00`00Oomoo`11Ool00`00Oomoo`0IOol001aoo`03001oogoo00=o o`03001oogoo045oo`03001oogoo05Moo`03001oogoo041oo`03001oogoo01Yoo`0077oo00<007oo Ool00goo00<007ooOol0@7oo00<007ooOol0FGoo00<007ooOol0?goo00<007ooOol06Woo000LOol0 0`00Oomoo`03Ool00`00Oomoo`10Ool00`00Oomoo`1IOol00`00Oomoo`0oOol00`00Oomoo`0JOol0 01aoo`03001oogoo00=oo`03001oogoo03moo`03001oogoo05Yoo`03001oogoo03ioo`03001oogoo 01]oo`0077oo0P001Goo00<007ooOol0?Woo00<007ooOol0FWoo00<007ooOol0?Woo00<007ooOol0 6goo000LOol00`00Oomoo`04Ool4000lOol00`00Oomoo`1KOol00`00Oomoo`0nOol00`00Oomoo`0K Ool001aoo`03001oogoo00Moo`03001oogoo03Yoo`03001oogoo05aoo`03001oogoo03aoo`03001o ogoo01aoo`0077oo00<007ooOol027oo00<007ooOol0>7oo00<007ooOol0GGoo00<007ooOol0?7oo 00<007ooOol077oo000LOol00`00Oomoo`08Ool00`00Oomoo`0hOol00`00Oomoo`1MOol00`00Oomo o`0kOol00`00Oomoo`0MOol001aoo`03001oogoo00Qoo`03001oogoo03Moo`03001oogoo05ioo`03 001oogoo03]oo`03001oogoo01eoo`0077oo00<007ooOol02Goo00<007ooOol0=Woo00<007ooOol0 GWoo00<007ooOol0>goo00<007ooOol07Goo000LOol00`00Oomoo`09Ool00`00Oomoo`0fOol00`00 Oomoo`1OOol00`00Oomoo`0iOol00`00Oomoo`0NOol001aoo`8000Yoo`03001oogoo03Eoo`03001o ogoo061oo`03001oogoo03Uoo`03001oogoo01ioo`0077oo00<007ooOol02Woo00<007ooOol0=7oo 00<007ooOol0H7oo00<007ooOol0=Woo0P0000=oo`00Ool07goo000LOol00`00Oomoo`0:Ool00`00 Oomoo`0dOol00`00Oomoo`1POol01@00Oomoogoo0000=7oo00<007oo00008Goo000LOol00`00Oomo o`0:Ool00`00Oomoo`0cOol00`00Oomoo`1QOol01@00Oomoogoo0000=7oo00<007ooOol08Goo0009 Ool20004Ool00`00Oomoo`02Ool30005Ool00`00Oomoo`0;Ool00`00Oomoo`0aOol00`00Oomoo`1S Ool01000Ool00000Ool00`00Oomoo`0ZOol00`00Oomoo`1/Ool00`00 Oomoo`0]Ool00`00Oomoo`0TOol001aoo`03001oogoo00ioo`03001oogoo02Yoo`03001oogoo06eo o`03001oogoo02Yoo`<002Ioo`0077oo0P0047oo00<007ooOol0:Goo00<007ooOol0KGoo00<007oo Ool0:Woo00<007ooOol09Woo000LOol00`00Oomoo`0?Ool00`00Oomoo`0YOol00`00Oomoo`1]Ool0 0`00Oomoo`0ZOol00`00Oomoo`0VOol001aoo`03001oogoo00moo`03001oogoo02Qoo`03001oogoo 06moo`03001oogoo02Qoo`03001oogoo02Moo`0077oo00<007ooOol03goo00<007ooOol0:7oo00<0 07ooOol0Kgoo00<007ooOol0:7oo00<007ooOol09goo000LOol00`00Oomoo`0@Ool00`00Oomoo`0W Ool00`00Oomoo`1_Ool00`00Oomoo`0XOol00`00Oomoo`0WOol001aoo`03001oogoo011oo`03001o ogoo02Moo`03001oogoo071oo`03001oogoo02Moo`03001oogoo02Moo`0077oo00<007ooOol047oo 00<007ooOol09goo00<007ooOol0L7oo00<007ooOol09Woo00<007ooOol0:7oo000LOol00`00Oomo o`0@Ool00`00Oomoo`0WOol00`00Oomoo`1`Ool00`00Oomoo`0VOol00`00Oomoo`0XOol001aoo`80 015oo`04001oogoo000UOol00`00Oomoo`1bOol00`00Oomoo`0UOol00`00Oomoo`0XOol001aoo`03 001oogoo015oo`<002Eoo`03001oogoo079oo`03001oogoo02Eoo`03001oogoo02Qoo`0077oo00<0 07ooOol04Goo00<007oo00009Goo00<007ooOol0LWoo00<007ooOol09Goo00<007ooOol0:7oo000L Ool00`00Oomoo`0COol00`00Oomoo`0SOol00`00Oomoo`1bOol00`00Oomoo`0TOol00`00Oomoo`0Y Ool001aoo`03001oogoo01Aoo`03001oogoo025oo`03001oogoo07Aoo`03001oogoo029oo`8002]o o`0077oo00<007ooOol057oo00<007ooOol08Goo00<007ooOol0M7oo00<007ooOol08Goo00<007oo Ool0:goo000LOol00`00Oomoo`0DOol00`00Oomoo`0MOol20002Ool00`00Oomoo`1dOol00`00Oomo o`0QOol00`00Oomoo`0[Ool001aoo`8001Eoo`03001oogoo01eoo`04001oo`00001hOol00`00Oomo o`0OOol00`00Oomoo`0/Ool001aoo`03001oogoo01Aoo`03001oogoo01aoo`05001oogooOol0001i Ool00`00Oomoo`0MOol00`00Oomoo`0]Ool001aoo`03001oogoo01Eoo`04001oogoo000FOol4001n Ool00`00Oomoo`0MOol00`00Oomoo`0]Ool001aoo`03001oogoo01Eoo`04001oogoo000FOol00`00 Oomoo`20Ool3000KOol00`00Oomoo`0^Ool001aoo`03001oogoo01Eoo`03001oogoo008001Eoo`03 001oogoo08=oo`@001Moo`03001oogoo02ioo`0077oo00<007ooOol05Goo00D007oo001oo`0001Ao o`03001oogoo08Qoo`03001oogoo01Aoo`03001oogoo02ioo`0077oo00<007ooOol05Goo00<007oo 00000Woo00<007ooOol04Goo00<007ooOol0RGoo00<007ooOol04Woo00<007ooOol0;goo000LOol2 000FOol00`00Ool00002Ool00`00Oomoo`0AOol00`00Oomoo`29Ool00`00Oomoo`0BOol00`00Oomo o`0_Ool001aoo`03001oogoo01Ioo`80009oo`03001oogoo011oo`03001oogoo08]oo`03001oogoo 009oo`8000Aoo`8000Moo`03001oogoo02moo`0077oo00<007ooOol05Woo00<007ooOol00Woo00<0 07ooOol03goo00<007ooOol0Rgoo00<007ooOol00P0000=oo`00Ool00goo00<007oo00001Woo00<0 07ooOol0;goo000LOol00`00Oomoo`0FOol00`00Oomoo`02Ool00`00Oomoo`07Ool00`00Oomoo`05 Ool00`00Oomoo`2"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1, -1, 0, 0}}], "\n", 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.0985222 0.307227 0.304851 [ [.22085 .29473 -3 -9 ] [.22085 .29473 3 0 ] [.4179 .29473 -3 -9 ] [.4179 .29473 3 0 ] [.61494 .29473 -3 -9 ] [.61494 .29473 3 0 ] [.81199 .29473 -3 -9 ] [.81199 .29473 3 0 ] [.01131 .00238 -12 -4.5 ] [.01131 .00238 0 4.5 ] [.01131 .1548 -24 -4.5 ] [.01131 .1548 0 4.5 ] [.01131 .45965 -18 -4.5 ] [.01131 .45965 0 4.5 ] [.01131 .61208 -6 -4.5 ] [.01131 .61208 0 4.5 ] [.5 .63053 -41 0 ] [.5 .63053 41 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .22085 .30723 m .22085 .31348 L s [(2)] .22085 .29473 0 1 Mshowa .4179 .30723 m .4179 .31348 L s [(4)] .4179 .29473 0 1 Mshowa .61494 .30723 m .61494 .31348 L s [(6)] .61494 .29473 0 1 Mshowa .81199 .30723 m .81199 .31348 L s [(8)] .81199 .29473 0 1 Mshowa .125 Mabswid .07307 .30723 m .07307 .31098 L s .12233 .30723 m .12233 .31098 L s .17159 .30723 m .17159 .31098 L s .27011 .30723 m .27011 .31098 L s .31938 .30723 m .31938 .31098 L s .36864 .30723 m .36864 .31098 L s .46716 .30723 m .46716 .31098 L s .51642 .30723 m .51642 .31098 L s .56568 .30723 m .56568 .31098 L s .6642 .30723 m .6642 .31098 L s .71346 .30723 m .71346 .31098 L s .76273 .30723 m .76273 .31098 L s .86125 .30723 m .86125 .31098 L s .91051 .30723 m .91051 .31098 L s .95977 .30723 m .95977 .31098 L s .25 Mabswid 0 .30723 m 1 .30723 L s .02381 .00238 m .03006 .00238 L s [(-1)] .01131 .00238 1 0 Mshowa .02381 .1548 m .03006 .1548 L s [(-0.5)] .01131 .1548 1 0 Mshowa .02381 .45965 m .03006 .45965 L s [(0.5)] .01131 .45965 1 0 Mshowa .02381 .61208 m .03006 .61208 L s [(1)] .01131 .61208 1 0 Mshowa .125 Mabswid .02381 .03286 m .02756 .03286 L s .02381 .06335 m .02756 .06335 L s .02381 .09383 m .02756 .09383 L s .02381 .12432 m .02756 .12432 L s .02381 .18529 m .02756 .18529 L s .02381 .21577 m .02756 .21577 L s .02381 .24626 m .02756 .24626 L s .02381 .27674 m .02756 .27674 L s .02381 .33771 m .02756 .33771 L s .02381 .3682 m .02756 .3682 L s .02381 .39868 m .02756 .39868 L s .02381 .42917 m .02756 .42917 L s .02381 .49014 m .02756 .49014 L s .02381 .52062 m .02756 .52062 L s .02381 .55111 m .02756 .55111 L s .02381 .58159 m .02756 .58159 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .5 .63053 -102 -4 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 (Filtered) show 117.000 13.000 moveto (Data) show 141.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 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .07898 .48341 m .06539 .431 L .05882 .41289 L .05719 .41017 L .059 .40832 L .06322 .41273 L .06913 .42818 L .07622 .44232 L .08414 .4688 L .09265 .48451 L .10155 .51692 L .11074 .52929 L .12013 .54789 L .12966 .56992 L .13928 .57811 L .14898 .58779 L .15872 .58997 L .16849 .5985 L .17829 .60332 L .1881 .59886 L .19793 .58673 L .20776 .57914 L .2176 .56931 L .22744 .5651 L .23729 .55451 L .24714 .52677 L .25699 .50534 L .26684 .48459 L .27669 .46212 L .28654 .43938 L .29639 .42038 L .30624 .39925 L .31609 .37077 L .32594 .33975 L .3358 .30283 L .34565 .26676 L .3555 .22949 L .36535 .21312 L .37521 .18732 L .38506 .16306 L .39491 .14536 L .40476 .11595 L .41461 .08576 L .42447 .06081 L .43432 .04785 L .44417 .03915 L .45402 .03631 L .46388 .02766 L .47373 .02862 L .48358 .0265 L Mistroke .49343 .01597 L .50328 .01472 L .51314 .0275 L .52299 .04018 L .53284 .05392 L .54269 .0679 L .55255 .07316 L .5624 .08955 L .57225 .11922 L .5821 .14823 L .59195 .16545 L .60181 .19767 L .61166 .23026 L .62151 .2489 L .63136 .27122 L .64122 .29669 L .65107 .33115 L .66092 .36898 L .67077 .39025 L .68062 .41617 L .69048 .44453 L .70033 .47478 L .71018 .50197 L .72003 .52179 L .72989 .53578 L .73974 .54783 L .74959 .5615 L .75944 .56946 L .76929 .57401 L .77915 .59157 L .789 .58986 L .79885 .59111 L .8087 .59584 L .81856 .59941 L .82841 .58891 L .83826 .57547 L .84811 .56421 L .85796 .5411 L .86782 .52472 L .87767 .49822 L .88752 .48041 L .89737 .45752 L .90722 .43604 L .91708 .40493 L .92693 .38532 L .93678 .36336 L .94663 .33285 L .95649 .29209 L .96634 .25891 L .97619 .23241 L Mistroke Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg7oo00<007ooOol0JGoo000POol00`00Oomoo`1EOol00`00 Oomoo`0iOol00`00Oomoo`1YOol0021oo`03001oogoo05Eoo`03001oogoo03Uoo`03001oogoo06Uo o`0087oo00<007ooOol0EGoo00<007ooOol0>Woo00<007ooOol0J7oo000POol00`00Oomoo`1DOol0 0`00Oomoo`0kOol00`00Oomoo`1XOol0021oo`8005Eoo`03001oogoo03]oo`03001oogoo06Qoo`00 87oo00<007ooOol0Dgoo00<007ooOol0?7oo00<007ooOol0J7oo000POol00`00Oomoo`1COol00`00 Oomoo`0mOol00`00Oomoo`1WOol0021oo`03001oogoo059oo`03001oogoo03ioo`03001oogoo06Mo o`0087oo00<007ooOol0DWoo00<007ooOol0?Woo00<007ooOol0FWoo00<007ooOol02Woo000POol0 0`00Oomoo`1BOol00`00Oomoo`0oOol00`00Oomoo`1IOol00`00Oomoo`0:Ool0021oo`03001oogoo 055oo`03001oogoo045oo`03001oogoo05Qoo`03001oogoo00Yoo`0087oo0P00DWoo00<007ooOol0 @Goo00<007ooOol0Egoo00<007ooOol02goo000POol00`00Oomoo`1AOol00`00Oomoo`12Ool00`00 Oomoo`1FOol00`00Oomoo`0;Ool0021oo`03001oogoo051oo`03001oogoo04=oo`03001oogoo05Io o`03001oogoo00]oo`0087oo00<007ooOol0D7oo00<007ooOol0A7oo00<007ooOol0E7oo00<007oo Ool037oo000POol00`00Oomoo`1@Ool00`00Oomoo`14Ool00`00Oomoo`1DOol00`00Oomoo`0 Ool0021oo`03001oogoo02aoo`05001oogooOol0000MOol00`00Oomoo`0@Ool2000_Ool00`00Oomo o`04Ool00`00Oomoo`0WOol01@00Oomoogoo000097oo00<007ooOol03Woo000POol00`00Oomoo`0] Ool3000NOol00`00Oomoo`0AOol00`00Oomoo`0^Ool20005Ool00`00Oomoo`0WOol3000UOol00`00 Oomoo`0>Ool0021oo`03001oogoo04ioo`03001oogoo04Uoo`03001oogoo04ioo`03001oogoo00mo o`0087oo00<007ooOol0CWoo00<007ooOol0BWoo00<007ooOol0CGoo00<007ooOol03goo000POol0 0`00Oomoo`1=Ool00`00Oomoo`1;Ool00`00Oomoo`1=Ool00`00Oomoo`0?Ool0021oo`03001oogoo 04eoo`03001oogoo04]oo`03001oogoo04aoo`03001oogoo011oo`006Wooo`000@001Woo000POol0 0`00Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`0:Ool0 0`00Oomoo`09Ool01@00Oomoogoo000027oo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol0 2Woo00<007ooOol02Goo00<007ooOol02Woo00<007ooOol01Goo00D007ooOomoo`0000aoo`03001o ogoo00Yoo`03001oogoo00Uoo`03001oogoo00Yoo`03001oogoo00Uoo`03001oogoo00Qoo`03001o o`00011oo`0087oo00<007ooOol0;goo00<007ooOol06Woo00<007ooOol04goo00<007ooOol0;goo 00<007ooOol01Goo00<007ooOol09goo00<007ooOol08Goo00<007ooOol047oo000POol00`00Oomo o`1Woo00<007ooOol06Goo000POol00`00Oomo o`06Ool2000lOol00`00Oomoo`1MOol00`00Oomoo`0jOol00`00Oomoo`0IOol0021oo`03001oogoo 00Ioo`8003]oo`03001oogoo05moo`03001oogoo03Qoo`03001oogoo01Yoo`0087oo00<007ooOol0 1goo0P00>Woo00<007ooOol0Ggoo00<007ooOol0>7oo00<007ooOol06Woo000POol00`00Oomoo`07 Ool2000jOol00`00Oomoo`1OOol00`00Oomoo`0hOol00`00Oomoo`0JOol0021oo`8000Qoo`03001o o`0003Qoo`03001oogoo065oo`03001oogoo03Moo`03001oogoo01Yoo`0087oo00<007ooOol027oo 0P00=goo00<007ooOol0HWoo00<007ooOol0=Woo00<007ooOol06goo000POol00`00Oomoo`08Ool0 0`00Ool0000fOol00`00Oomoo`1ROol00`00Oomoo`0fOol00`00Oomoo`0KOol0021oo`03001oogoo 00Qoo`03001oo`0003Eoo`03001oogoo06Aoo`03001oogoo03Eoo`03001oogoo01]oo`0087oo00<0 07ooOol02Goo0P00=Goo00<007ooOol0I7oo00<007ooOol0=7oo00<007ooOol077oo000=Ool20004 Ool00`00Oomoo`02Ool30005Ool00`00Oomoo`09Ool2000dOol00`00Oomoo`1UOol00`00Oomoo`0c Ool00`00Oomoo`0MOol000aoo`04001oogoo0007Ool01@00Oomoogoo000017oo00<007ooOol02Goo 00<007oo0000Ool2002>Ool00`00 Oomoo`0?Ool00`00Oomoo`0]Ool0021oo`8001aoo`03001oogoo00aoo`03001oogoo08moo`03001o ogoo00eoo`03001oogoo02ioo`0087oo00<007ooOol077oo00<007ooOol02Woo00<007ooOol0TGoo 00<007ooOol02goo00<007ooOol0;goo000POol00`00Oomoo`0MOol40008Ool00`00Oomoo`2AOol0 0`00Ool000040006Ool00`00Oomoo`0`Ool0021oo`03001oogoo025oo`03001oogoo00Aoo`03001o ogoo09=oo`03001oogoo00=oo`03001oogoo00=oo`03001oogoo031oo`0087oo00<007ooOol08Woo 00@007ooOomoo`8009eoo`<00003Ool007oo039oo`0067oo0`001Goo00<007ooOol08goo00<007oo 0000XWoo00<007ooOol0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1, -1, 0, 0}}], "\n", Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"], "\n", Cell[BoxData[ StyleBox[\(ServerShutdown[link]\), "viname", FontWeight->"Bold"]], "Input"], "\n", Cell[BoxData[ \("Server stopped"\)], "Output"], "\n\n\n" }], "Text"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 951}}, ScreenStyleEnvironment->"AllBrackets", PrintingStyleEnvironment->"Presentation", WindowSize->{744, 657}, WindowMargins->{{28, Automatic}, {Automatic, 18}}, Magnification->1, 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, ShowCellBracket->False, ScriptMinSize->9], Cell[StyleData[All, "AllBrackets"], PageWidth->WindowWidth, ShowCellBracket->True, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintout"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontFamily->"Palatino", FontSize->10, 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"], PrintingStyleEnvironment->"Printout", PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PrintingOptions->{"PrintingMargins"->{{97, 97}, {180, 64}}, "FirstPageHeader"->False, "FacingPages"->True}, CellLabelAutoDelete->False, 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}, PageBreakAbove->True, PageBreakBelow->False, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->30], Cell[StyleData["Title", "EnhancedPrintout"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {10, 2}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->28], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {10, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{10, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold"], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {7, 24}}, FontSize->16], Cell[StyleData["Section", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 24}}, FontFamily->"Futura", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 24}}, FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintout"], CellMargins->{{9, 0}, {7, 24}}, FontFamily->"Futura", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellMargins->{{12, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Helvetica", FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {7, 18}}, FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 18}}, FontFamily->"Futura", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->11], Cell[StyleData["Text", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["viname"], CellMargins->{{12, 10}, {6, 6}}, LineSpacing->{1, 3}, CounterIncrements->"viname", FontFamily->"Courier", FontSize->12], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontFamily->"Courier", FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontFamily->"Courier", FontSize->12], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, FontFamily->"Courier", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{12, 10}, {6, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"SmallText", FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", FontSize->7] }, Closed]] }, Open ]], 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.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], ShowCellBracket->True, CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{46, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{75, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9], Cell[StyleData["Print", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->False, CellMargins->{{47, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", StyleMenuListing->None], Cell[StyleData["Graphics", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintout"], 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["Miscellaneous Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{46, 42}, {0, 14}}, PageBreakBelow->False, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, FontColor->RGBColor[0, 0, 0.6]], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{42, 42}, {0, 14}}, FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintout"], CellMargins->{{42, 42}, {0, 14}}, FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellFrame->{{2, 0}, {0, 0}}, CellMargins->{{36, 10}, {7, 7}}, PageBreakBelow->False, CellFrameMargins->8, CellFrameColor->RGBColor[0, 0.2, 1], LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, FontSlant->"Italic"], Cell[StyleData["Commentary", "Printout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedText"], CellMargins->{{20, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, ParagraphIndent->-21, CounterIncrements->"Text"], Cell[StyleData["ItemizedText", "Printout"], ParagraphIndent->-18, FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintout"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote"], CellMargins->{{41, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, CounterIncrements->"Text"], Cell[StyleData["ItemizedTextNote", "Printout"], CellMargins->{{38, 4}, {0, 4}}, FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{20, 4}, {0, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, CounterIncrements->"Text"], Cell[StyleData["IndentedText", "Printout"], FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.3, 0.7}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.2, 0.3, 0.5}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->0.2, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Background->GrayLevel[1]], Cell[StyleData["TopBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, Background->GrayLevel[1]], Cell[StyleData["MiddleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpacedBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpacedBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->2}], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["TopSpanBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, 0}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{12, Inherited}, {0, 8}}, CellHorizontalScrolling->True], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {0, 8}}], Cell[StyleData["Picture", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{12, 4}, {0, 2}}, PageBreakAbove->False, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Printout"], CellMargins->{{2, 4}, {2, 4}}, FontSize->7], Cell[StyleData["Caption", "EnhancedPrintout"], CellMargins->{{2, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Section"], Cell[CellGroupData[{ Cell[StyleData["SingleRowTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnAlignments->{Left}}], Cell[StyleData["SingleRowTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["SingleRowTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.34, 0.64}, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["2ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.49, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left, Center}}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["3ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.25, ColumnAlignments->{Left, Center}}], Cell[StyleData["4ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["4ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.2, ColumnAlignments->{Left, Center}}], Cell[StyleData["5ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["5ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.16, ColumnAlignments->{Left, Center}}], Cell[StyleData["6ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["6ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["7ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.14, ColumnAlignments->{Left, Center}}], Cell[StyleData["7ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["7ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["8ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.12, ColumnAlignments->{Left, Center}}], Cell[StyleData["8ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["8ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{45, 10}, {7, 7}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{39, 55}, {0, 10}}, FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintout"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{45, Inherited}, {7, 7}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Printout"]], Cell[StyleData["DisplayFormula", "EnhancedPrintout"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayMath"], CellMargins->{{45, 10}, {7, 7}}, Evaluatable->False, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input"], Cell[StyleData["DisplayMath", "Printout"], CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintout"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["EquationNumber"], LineSpacing->{1.83, 0}], Cell[StyleData["EquationNumber", "Printout"], LineSpacing->{1.7, 0}], Cell[StyleData["EquationNumber", "EnhancedPrintout"], LineSpacing->{1.7, 0}, FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{12, Inherited}, {7, 7}}, CellFrameMargins->{{0, 0}, {7, 5}}, FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Contents and Index", "Section"], Cell[CellGroupData[{ Cell[StyleData["ContentsTitle"], CellMargins->{{10, 4}, {0, 18}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->26, FontWeight->"Bold"], Cell[StyleData["ContentsTitle", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->18], Cell[StyleData["ContentsTitle", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ContentsSection"], CellMargins->{{20, 4}, {3, 18}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ContentsSection", "Printout"], CellMargins->{{12, 0}, {3, 18}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintout"], CellMargins->{{12, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Contents"], CellMargins->{{21, 4}, {0, 8}}, StyleMenuListing->None], Cell[StyleData["Contents", "Printout"], CellMargins->{{13, 0}, {0, 8}}], Cell[StyleData["Contents", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 8}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index"], CellMargins->{{21, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["Index", "Printout"], CellMargins->{{13, 0}, {0, 0}}, FontSize->10], Cell[StyleData["Index", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSubentry"], CellMargins->{{36, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["IndexSubentry", "Printout"], CellMargins->{{24, 0}, {0, 0}}, FontSize->10], Cell[StyleData["IndexSubentry", "EnhancedPrintout"], CellMargins->{{24, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[CellGroupData[{ Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["Header", "Printout"]], Cell[StyleData["Header", "EnhancedPrintout"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontSlant->"Plain"], Cell[StyleData["Footer", "Printout"]], Cell[StyleData["Footer", "EnhancedPrintout"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["PageNumber", "Printout"]], Cell[StyleData["PageNumber", "EnhancedPrintout"], FontFamily->"Futura"] }, 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintout"], FontFamily->"Palatino", 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintout"], FontFamily->"Palatino", 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", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintout"], FontFamily->"WRICourier", 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", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily->"WRICourier", 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily->"Palatino", 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]] }, Open ]] }] ] (******************************************************************* 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[1776, 53, 77, 1, 105, "Title"], Cell[CellGroupData[{ Cell[1878, 58, 25, 0, 72, "Section"], Cell[1906, 60, 1857, 43, 839, "Text"], Cell[3766, 105, 347, 10, 53, "Text"], Cell[4116, 117, 43707, 1177, 2242, "Text"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)