(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.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[ 243839, 3470]*) (*NotebookOutlinePosition[ 288313, 4921]*) (* CellTagsIndexPosition[ 287761, 4896]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg3o0000000Do`000003oiff4OnR^A[o[L4f 04koWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000004oiff4OnW_2Koe]R5ojg1 =TgoWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000005oiff4OnW_2Koe]R5omKH QOn]`CH0C?nM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001Co000000?oWKHAoj:i6_oF f8D00_oFf8D00on]`CKoWKHAoiff4@19oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`000000 5?l000001onM]Q7oYk`VomKHQOoFf8Goh^F>omKHQOn]`CH0B_nM]Q7oo`000?oo0000ool0003oo`00 0?oo0000h?l0000001Co000000CoWKHAoj:i6_oFf8GodMf@0ooFf8D00on]`CKoWKHAoiff4@17oiff 4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l000000onM]Q7oYk`VomKHQ@03omKHQ@03 on;US_oFf8Go[L4f04SoWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000004oiff 4OnR^A[oe]R5om7MT0Goe]R500?o[L4foiff4OnM]Q40AOnM]Q7oo`000?oo0000ool0003oo`000?oo 0000h?l0000001Co000000?oWKHAojNl9_oFf8D00ooFf8D01OoAgI3oe]R5on;US_oFf8Go[L4f04Ko WKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000004oiff4OnR^A[oe]R5on;USPGo e]R500?odMf@omKHQOn]`CH0AOnM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001Co0000 00?oWKHAojNl9_oFf8D00ooFf8D01ooRiHkoe]R5omKHQOoFf8Goh^F>ol?5L_nW_2H0A?nM]Q7oo`00 0?oo0000ool0003oo`000?oo0000h?l0000001Co000000SoWKHAoj:i6_oFf8GodMf@omKHQOoAgI3o e]R5om7MT0;oe]R500?o[9mYogUh6_miN1X0A?nM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0 000001Co000000?oWKHAojNl9_oFf8D01_oFf8D00oo3aG;oGE0IogUh6P02ogUh6P03oi6K7onM]Q7o WKHA043oWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000004oiff4OnR^A[oe]R5 on;USP;oe]R500Goh^F>omKHQOoAgI3o`lEbocdR5@02ogUh6P03oee@6OnFOeOo[L4f047oWKHAool0 003oo`000?oo0000ool0003oo`000>3o0000000Do`000004oiff4OnW_2Koe]R5om7MT0Koe]R50_mM D1T01OnAVaooGE0Ioh1NA_o;`IWo[L4f043oWKHAool0003oo`000?oo0000ool0003oo`000>3o0000 000Do`000003oiff4OnR^A[oe]R500;oe]R500OodMf@omKHQOoFf8Goh^F>omKHQOmiN1[oGE0I00;o NGPJ00CoP5i6olj_b?n/WfWoNGPJ?onM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001Co 000000CoWKHAojNl9_oFf8GodMf@1?oFf8D02?oAgI3oh^F>oiIoEolm8QGoNGPJoi6K7omiN1[oZWJO 0_mMD1Tooiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l000001OnM]Q7oX[TJomKH QOoFf8Goh^F>00?oe]R500?oh^F>ol?5L_mMD1T00_mMD1T01?nAVaooNGPJocdR5OmMD1T2ogUh6P03 oi6K7onM]Q7oWKHA03_oWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`00000:oiff 4OnW_2Koe]R5om7MT?oFf8GodMf@omKHQOoRiHko`lEboee@6@;oNGPJ00CoGE0IogUh6_mMD1WoGE0I 0omiN1X00on/WfWoX[TJoiff4@0koiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l0 00001OnM]Q7oYk`VomKHQOoFf8Go`lEb00;o[9mY00?o`lEbojbOJOmiN1X00_miN1X01?mMD1Wo?B8E oee@6OmMD1T2ogUh6P04oiIoEoo;`IWo_IJ`ojNl9S_oWKHAool0003oo`000?oo0000ool0003oo`00 0>3o0000000Do`000004oiff4OnW_2Ko`lEboiIoE`;oP5i60omMD1T2oh1NAP04ogUh6_mMD1Wo?B8E oee@6@?oNGPJ00GoUWmGokfF/?o;`IWo_IJ`ojg1=P0joiff4Ooo0000ool0003oo`000?oo0000ool0 003Po`0000005?l00002oiff4@;oP5i600CoGE0Iog8fB?mMD1WoLSI80on0GTH00omMD1Wo?B8Eoee@ 6@03ogUh6P;oTI/O0_nFOeL3ojbOJCWoWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000D o`000007oiff4OnAVaooP5i6oee@6Olm8QGoGE0Ioh1NAP03oiIoE`04oh1NA_lm8QGoGE0Ioee@6@Go NGPJ0_nAVal2oiIoE`;oTI/O00?oX[TJoiff4OnM]Q40=OnM]Q49o`000003oginO_nMWIgoBDU900Co 000000Go5ADEoifMWOnMWIgo:RXZo`000002oifMW@Ko00000_nMWId2o`000004o`X:2_nCTi?oWIfM odU9B@;o00000_nMWId2o`0000GoWIfM00?o:RXZo`000?l000000ol000000ol:2P[oTi>CoifMW@05 oifMW@?o000000Go2PX:oeiNG_nCTi?oTi>CodU9B@05o`000005odU9BOnCTi?oTi>CoeiNG_l:2PX0 1?l000001Old=3CoOWinoifMWOmnOWko?clo0?oo0000ool0003oo`000?oo0000ool00027o`000000 5?l000001OnR^A[oNGPJoh1NA_mL5RkoLSI800GoP5i60_lm8QD01?mMD1WoNGPJogUh6_miN1X3oi6K 7`;o[9mY00Ko[L4foi6K7oo3aG;o`lEboi6K7onR^AXfoiff4@Wo000000?oBDU9oifMWOnCTi<01?l0 00000omDE5CoWIfMohR8R002o`0000;oWIfM1_l00002oifMW@;o000000CoJFUYoifMWOnCTi?o2PX: 0_l00002oifMW@;o00001OnMWId00olZ:R[o0000o`000004o`000003obXZ:_nMWIgoWIfM00CoWIfM 0ol000000omcLg?oWIfMoifMW@02oifMW@05oeiNG_l0003o0000o`000?mYJFT01?nMWId01OmcLg?o 0000o`000?l0003o=3@d00GoWIfM00?oBDU9o`000?l00000ool0003oo`000?oo0000ool0003oo`00 08Co0000000Do`000006oiff4OnAVaooP5i6ocdR5OmMD1WoP5i60omMD1T00olm8QGoGE0Ioee@6@02 ogUh6P;oP5i600?oTI/OojbOJOn/WfT00_oFf8D01oo3aG;odMf@on;US_nFOeOoG1H^ogUh6_nW_2H0 =OnM]Q49o`000004oaDE5OnMWIgoWIfMoginOP?oLg=c00?oTi>CoifMWOmDE5@00_l00002oifMW@Ko 00000_nMWId01Ol0003o=3@doifMWOnMWIgo?clo00?o00000_nMWId2o`0000;oWIfM2ol000001?m9 BDWoWIfMoi>CTol:2PX4o`00000Aoclo?onMWIgoR8R8o`X:2_lE5AGoTi>CoifMWOlZ:R[o0000obXZ :_nMWIgoTi>CoaDE5Ol:2P[oOWinoifMWOlo?cl00_l000001on8R8SoWIfMoclo?ol0003o?clooifM WOn8R8P0ool0003oo`000?oo0000ool0003oo`0008Ko0000000Do`000006oiff4OnW_2KoLSI8oe`F ;_mb=TSoP5i61?lm8QD01?mMD1WoNGPJogUh6_mMD1T2og8fB003oiIoEooFf8Go`lEb00?oe]R500Ko h^F>ojbOJOmL5RkoH@==og8fB?miN1Xeoiff4@[o000000?oJFUYoifMWOnMWId01OnMWId00olE5AGo 0000o`000002oifMW@Ko00000_nMWId01?l:2P[oTi>CoifMWOmcLg<4o`0000;oWIfM0_l00002oifM W@co000000?oJFUYoifMWOmnOWh01?l000000omYJFWoWIfMoclo?`02o`000007odU9BOnMWIgoGUiN o`000?mNGUkoWIfModU9B@02o`000003oclo?onMWIgoJFUY00;o00000_m9BDT3o`0000;oWIfMool0 003oo`000?oo0000ool0003oo`0008Ko0000000Do`000006oiff4On]`CKoUWmGoe`F;_mMD1WoP5i6 0olm8QD5oee@6@04oe`F;_mb=TSoLSI8ojbOJ@Goe]R500?oLSI8oe`F;_mL5Rh00_mb=TP00onAVaoo WKHAoiff4@0boiff4@[o000000So?clooifMWOnMWIgo2PX:o`000?mNGUkoWIfMoginOP?o00000_nM WId2og=cL`04oeiNG_lZ:R[o0000o`0000;oWIfM00CoJFUYoifMWOnMWIgo:RXZ1?l00002oifMW@;o 00000_nMWIdCoifMWOlE5AD00_l000001olO 7aooWIfMog=cLol0003oLg=coifMWOlO7al00_l000000olE5AGoWIfMoi>CT`06o`000003oc@d=?nM WIgoOWin0?oo0000ool0003oo`000?oo0000ool00026o`0000005?l000001_nM]Q7oYk`VojbOJOmL 5RkoLSI8oh1NAP;o?B8E0omMD1T3ocdR5@?oGE0I00KoP5i6ol?5L_oFf8Go`lEbon;US_n/WfT2of43 C@;oLSI800?obl6IoiIoEomiN1X0CTonMWIgo=3@do`000?nCTi?oWIfModU9 B@03o`0000KoWIfM00?o=3@do`000?nMWId00onMWId00onCTi?oE5ADo`000003o`0000;oWIfM0_l0 0002oifMW@go000000Co7alOoifMWOnMWIgo5ADE0_l00002oifMW@Co00000_nMWId00ol0003oWIfM oifMW@04o`0000;oWIfM1Ol000001?mcLg?oWIfMoi>CTolO7aooo`000?oo0000ool0003oo`000?oo 0000Q_l0000001Co000000?oWKHAojNl9_o3aG800_mb=TP00omMD1WoP5i6ocdR5@05ocdR5@GoGE0I 00goUWmGomKHQOoFf8Goe]R5og8fB?mL5RkoLSI8of43COn/WfWoh^F>omKHQOnFOeOoTI/O03;oWKHA 2ol000001?mNGUkoWIfMoeiNG_lO7al2oifMW@04oaDE5Ol0003o0000o`0000;oWIfM0_l000001?mN GUkoWIfMog=cLol00002oifMW@05oeADE?mcLg?oWIfMoifMWOm9BDT00ol00002oifMW@;o00000_nM WId>o`000003oeiNG_nMWIgoGUiN00;o00000_nMWId4o`0000;oWIfM00?o0000oifMWOnMWId01?l0 0002oifMW@Go000000Co?cloohR8R?nMWIgo=3@dool0003oo`000?oo0000ool0003oo`0008Ko0000 000Do`000009oiff4OnW_2Koe]R5oh1NA_lm8QGoLSI8oh1NA_mMD1Wo?B8E00CoGE0I0_lm8QD2oee@ 6@0?ogUh6_nFOeOodMf@on;US_o3aG;oG1H^of43COmL5RkoLSI8ol?5L_oFf8GodMf@omKHQOo3aG;o [L4f037oWKHA2ol000001_lZ:R[oWIfMohR8R?mDE5CoWIfMofUYJ@Co00000_nMWId2o`000004o`X: 2_nMWIgoTi>Co`0000;oWIfM0_l000000olZ:R[oWIfMog=cL`03o`0000;oWIfM0_l00002oifMW@ko 000000?o5ADEoifMWOmnOWh00_l000000onCTi?oWIfMoaDE5@02o`000007oalO7onMWIgoLg=co`00 0?mcLg?oWIfMoalO7`02o`000003oaDE5OnMWIgoTi>C00Ko000000?o7alOoifMWOmnOWh0ool0003o o`000?oo0000ool0003oo`0008Ko0000000Do`000006oiff4OnW_2Ko`lEbog8fB?mL5RkoLSI80_n0 GTH01OmMD1WoP5i6oh1NA_mMD1WoLSI800;o?B8E0omMD1T01?miN1[oe]R5on;US_n/WfT4ocdR5@07 ojbOJOoFf8Goe]R5omKHQOoAgI3oe]R5ojg1=P0`oiff4@co000000GoR8R8oifMWOn8R8SoWIfMoclo ?`04o`0000;oWIfM0ol00002oifMW@03o`000?nMWIgoWIfM00?o00000_nMWId3o`0000;oWIfM0_l0 0002oifMW@Wo000000Ko7alOoifMWOnMWIgo5ADEo`000?l:2PX2oifMW@;o000000?oJFUYoifMWOlo ?cl00_l000001om9BDWoWIfMoeiNG_l0003oGUiNoifMWOm9BDT00_l000000olo?cooWIfMofUYJ@02 o`0000;o=3@d00?o2PX:o`000?l000000_nMWIgoo`000?oo0000ool0003oo`000?oo0000Q_l00000 01Co000000CoWKHAojg1=_n/WfWoG1H^1?mb=TP01?n0GTKoGE0Ioh1NA_miN1X2oiIoE`05oh1NA_lm 8QGo?B8Eoee@6Olm8QD00_nFOeL00on0GTKoLSI8og8fB003oiIoE`;o[9mY00GoUWmGoh1NA_o3aG;o dMf@ojg1=P0_oiff4@co000000GoBDU9oifMWOnMWIgoWIfMo`X:2P04o`0000;oWIfM0_l000001?m9 BDWoWIfMog=cLol00002oifMW@;o000000?oBDU9oifMWOmnOWh00ol00002oifMW@;o00000_nMWId: o`000007oi>CTonMWIgoGUiNo`000?mNGUkoWIfMofUYJ@02o`00000Aoclo?onMWIgoOWino`X:2_lE 5AGoTi>CoifMWOlZ:R[o0000obXZ:_nMWIgoTi>CoaDE5Ol:2P[oOWinoifMWOlo?cl00_l000001om9 BDWoWIfMofUYJOl0003o:RXZoifMWOmnOWh0ool0003oo`000?oo0000ool0003oo`0008Ko0000000D o`000005oiff4OnW_2KoUWmGoe`F;_n0GTH00_mb=TP3oh1NAP05oee@6Omb=TSoP5i6ojbOJOnFOeL0 0_lm8QD3oe`F;P0?og8fB?n0GTKoUWmGoiIoEon/WfWobl6IokfF/?oFf8Gobl6Iol?5L_n0GTKoNGPJ ol_1VOnFOeOoTI/O02koWKHA3?l000001?lE5AGoWIfMoifMWOmNGUh5o`0000;oWIfM00KoLg=cogin O_nMWIgoWIfModU9BOl00002oifMW@05og=cLomnOWkoWIfMoifMWOm9BDT00ol00002oifMW@;o0000 0_nMWId:o`000003odU9BOnMWIgoWIfM00?oWIfM00Go:RXZo`000?l0003o0000og=cL`04oifMW@05 ofUYJOl0003o0000o`000?mYJFT01?nMWId02omcLg?o0000o`000?l0003o2PX:oi>CTonMWIgoOWin oi>CTonMWIgoBDU90?oo0000ool0003oo`000?oo0000ool00026o`0000005?l000001OnM]Q7oYk`V oh1NA_mb=TSoP5i600;oGE0I00?oLSI8oh1NA_n0GTH00on0GTH2ocdR5@?oG1H^0omb=TP01?n0GTKo ZWJOoh1NA_nZMYl2oiIoE`09ojYfWon/WfWo_IJ`oiIoEomb=TSo[9mYoee@6OnFOeOoYk`V02goWKHA 3Ol000000omnOWkoWIfMoc@d=005o`0000CoWIfM00CoOWinodU9BOl0003o00001?nMWId00omnOWko BDU9o`000003o`0000;oWIfM0_l00002oifMW@_o000000Go=3@doginO_nMWIgoOWinoc@d=004o`00 0005o`X:2_mNGUkoTi>Coi>CTom9BDT01Ol000001Om9BDWoTi>Coi>CTomNGUko2PX:00Co000000Go 7alOofUYJOnMWIgoTi>CodU9B@3oo`000?oo0000ool0003oo`000?oo0000Qol0000001Co000000Oo WKHAojNl9_n0GTKoLSI8oh1NA_mMD1WoP5i600;oLSI80on0GTH00omb=TSoG1H^oe`F;P03oe`F;PCo LSI81omL5Rh2og8fB003oh1NA_oRiHkoUWmG00;oP5i600?oTI/Ooiff4OnM]Q40:_nM]Q7oo`000?oo 0000ool0003oo`000?oo0000h?l0000001Co000000CoWKHAojNl9_mb=TSoLSI80_mMD1T01omiN1[o TI/Ooh1NA_mb=TSoT4Z2og8fB?lm8QD01OmL5Rh01_mMD1WoNGPJoee@6Olm8QGoG1H^of43C@;oG1H^ 00?o?B8Eoe`F;_mL5Rh00_mL5Rh00on0GTKo[9mYoh1NAP02ocdR5@03oee@6OnAVaooWKHA02[oWKHA ool0003oo`000?oo0000ool0003oo`000>3o0000000Do`0000;oWKHA0_mb=TP01?mMD1WoNGPJoiIo EonAVal2ojbOJ@;oP5i61?mL5Rh01_lm8QGoGE0IogUh6_nAVaooNGPJog8fB0;oG1H^00?oH@==oe`F ;_mL5Rh00omL5Rh02Omb=TSoG1H^oe`F;_mL5Rko?B8Eoee@6On0GTKoNGPJoj:i6P0Zoiff4Ooo0000 ool0003oo`000?oo0000ool0003Po`0000005?l000001OnR^A[o[9mYog8fB?mb=TSoGE0I00;oNGPJ 00?oTI/OojYfWonFOeL00_n/WfT01?mb=TSoG1H^of43COmb=TP2oee@6@;oNGPJ00?o[9mYoiIoEomb =TP00_mL5Rh01_mQ0dgoG1H^ocdR5Omb=TSoP5i6og8fB0?oH@==00OoG1H^oee@6OnFOeOoTI/OojbO JOnhbE7oX[TJ02SoWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`00000BojbOJOo; `IWoP5i6oe`F;_mMD1WoNGPJoi6K7on/WfWoP5i6og8fB?n0GTKoUWmGojbOJOmb=TSoG1H^og8fB?lm 8QGoGE0I0_miN1X00onFOeOoP5i6og8fB002oe`F;P06og8fB?mQ0dgoG1H^oe`F;_nFOeOo`lEb0_nF OeL00on/WfWoUWmGog8fB002oiIoE`04oi6K7onFOeOoNGPJojNl9ROoWKHAool0003oo`000?oo0000 ool0003oo`000>3o0000000Bo`00000;o`D51Om@BS7obl6IonG[_onZMYoo?B8Eoee@6OmiN1[oTI/O oiIoEolm8QD00omb=TP2ojbOJ@07oe`F;_mb=TSoGE0Ioee@6OmiN1[oTI/Ooh1NAP02ocdR5@?oG1H^ 00GoLSI8of43COmL5RkoLSI8ol_1V@03on;USP03ol?5L_mMD1WoP5i600;o[9mY00CoLSI8oe`F;_nA VaooX[TJ9_nM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001;o000000OoE4dcojbOJOoU jkooiN^oojbOJOlm8QGoGE0I00;oNGPJ0_lm8QD2oh1NAP03oee@6OnFOeOo[9mY00;oP5i60_mMD1T0 1omiN1[oTI/Ool?5L_mL5Rko?B8Eoe`F;_mb=TP01?mL5Rh00omQ0dgoG1H^oh1NAP02oiIoE`06og8f B?mL5RkoP5i6ojbOJOo3aG;oP5i60_mL5Rh00omiN1[oX[TJoiff4@0Toiff4Ooo0000ool0003oo`00 0?oo0000ool0003Po`0000004Ol000001olk>2coMeQ1ol_1VOoNi:goe]R5oiIoEolm8QD00_mMD1T0 2olm8QGoP5i6oiIoEonFOeOo[9mYol?5L_n/WfWoUWmGoh1NA_nFOeOoGE0I00;oNGPJ00Co[9mYol_1 VOmL5RkoH@==0omb=TP02omL5RkoLSI8of43COmb=TSoH@==oe`F;_mQ0dgoG1H^of43COmL5RkoLSI8 00;o[9mY00GoUWmGog8fB?n@BX;oP5i6ogUh6P0Uoiff4Ooo0000ool0003oo`000?oo0000ool0003P o`0000004Ol000001Om`FFSoP5i6ol_1VOo;`IWoUWmG00;o?B8E00CoG1H^oh1NA_nFOeOo[9mY0oo; `IT01?nFOeOoTI/OogUh6_nAVal2oee@6@;oNGPJ00[o[9mYomKHQOnFOeOoP5i6oiIoEon/WfWoLSI8 of43COmL5RkoLSI80omL5Rh02OmQ0dgoG1H^of43COmL5RkoLSI8oiIoEon/WfWo`lEbojbOJ@02on;U SP03ol?5L_nW_2KoWKHA02?oWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Ao`00000: ofY>>_n0GTKo[9mYojg1=_n0GTKoG1H^og8fB?n0GTKo[9mYol_1V@;o_IJ`00?oUWmGogUh6_miN1X0 0_nAVal02OmiN1[oGE0Ioee@6OmiN1[oTI/OojbOJOoFf8Goh^F>omKHQ@02on;USP05oiIoEolm8QGo G1H^oh1NA_nFOeL00_mb=TP00omL5RkoLSI8og8fB002og8fB003oh1NA_n/WfWo`lEb00Co`lEb00?o P5i6ogUh6_nR^AX08_nM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l00000017o000000[oYgBL oh1NA_n/WfWoP5i6oe`F;_mb=TSoUWmGojbOJOnZMYooUWmG0_n/WfT02omMD1WoNGPJoi6K7onAVaoo [9mYogUh6_mMD1WoP5i6oiIoEonAVaoobl6I00;oe]R500?odMf@okS9DOnFOeL00_miN1X5oi6K7`;o NGPJ00So[9mYomKHQOo3aG;oP5i6oiIoEoo3aG;o[9mYoee@6@?o?B8E00?oGE0IogUh6_nR^AX08OnM ]Q7oo`000?oo0000ool0003oo`000?oo0000h?l00000017o000000?oZJ1oog8fB?n0GTH00_mL5Rh0 0on0GTKoZWJOoiIoE`02oee@6@?oNGPJ0onAVal01?miN1[o?B8Eoee@6OmiN1X2oi6K7`04okS9DOoA gI3oh^F>oiIoE`;oGE0I0_nAVal5oiff4@07oi6K7onM]Q7oYk`VojbOJOnFOeOo?B8EoiIoE`02ol?5 LP03oh1NA_mL5RkoLSI800;oLSI800?oGE0Ioi6K7onR^AX08?nM]Q7oo`000?oo0000ool0003oo`00 0?oo0000h?l00000017o000000SoTY:;oiIoEomL5RkoG1H^oh1NA_nFOeOoLSI8ocdR5@CoGE0I0_nA Val01?miN1[o?B8EocdR5OmMD1T2ogUh6P09ojbOJOn]`CKoTI/Ool?5L_oRiHkoUWmGocdR5OmMD1Wo NGPJ00;oGE0I00CoNGPJoi6K7omiN1[oTI/O0_nM]Q402?mMD1Wo?B8EocdR5Olm8QGoP5i6ojbOJOo; `IWo[9mY1_mb=TP00onAVaooX[TJoiff4@0Noiff4@Wo000000?oZZZZoooooonIVIT00ol000002_oo oooo8R8Ro`000?l0003oMgMgoooooonk^k_ogMgMoooooon8R8P5o`000007onk^k_ooooooMgMgo`00 0?n8R8Sooooook^k^`03o`000004oa4A4OooooooooooodA4A0?o000000GoR8R8oooooonk^k_o0000 oa4A4@06ooooo`;o000000?oZZZZoooooonIVIT00ol000002_oooooo8R8Ro`000?l0003oMgMgoooo oonk^k_ogMgMoooooon8R8P5o`000007onk^k_ooooooMgMgo`000?n8R8Sooooook^k^`03o`000004 oa4A4OooooooooooodA4A0Co000000[oA4A4ojZZZ_o^k^kok^k^ojZZZ_mEEEGo4A4AomgMgOoooooo R8R81Ol000000oo^k^koooooogMgM`06o`000003odA4A?oooooooooo00;ooooo00?ocbSoG1H^ojYf Won/WfWoUWmGoe`F;_mb=TSo?B8Eoee@6@;oTI/O0_mMD1T02_miN1[oP5i6ogUh6_n0GTKoLSI8oe`F ;_n0GTKo[L4foi6K7omMD1T2ocdR5@04oiIoEomL5RkoG1H^of43C@;oUWmG1?lm8QD00omL5RkoLSI8 oi1:PP02ojbOJ@05oh1NA_n/WfWobl6IomKHQOo3aG800olm8QD01OmMD1Wo?B8EocdR5OmMD1WoTI/O 01goWKHA2_l000001OnZZZ[oooooohR8R?l0003oR8R800;ooooo00OoZZZZo`000?mgMgOooooook^k ^ol0003oA4A400Oooooo00CogMgMo`000?l0003o4A4A0_ooool01om4A4Co0000o`000?l0003oVIVI oooooonZZZX00ol000002?lR8R;ooooooooooolcol?5L_mMD1Wo?B8Eoh1NA_n/WfWo`lEbomKHQOmMD1T00olm8QD2oee@6@04ogUh6_mM D1WoP5i6oi6K7a_oWKHA2_l000001?lA4A7ooooooooooolR8R82ooooo`06ocomKHQOn0GTKoG1H^oee@6OnAVaoo[9mYoi6K 7`02ocdR5@GoG1H^00Co?B8Eoe`F;_lm8QGoGE0I0omL5Rh03_nFOeOoh^F>omKHQOoAgI3oh^F>ocdR 5OmL5RkoLSI8oh1NA_lm8QGoGE0IogUh6_nFOeOoGE0I0_nAVal01OnhbE7oh^F>omKHQOmMD1Wo?B8E 00;oGE0I00Oo[9mYomKHQOoFf8GoGE0Iof43COmb=TSoP5i601[oWKHA2ol000001omVIVKoooooonk^ k_ooooooVIVIo`000?lA4A400_o^k^h2ooooo`?o000000Co8R8RooooooooooooMgMg0_ooool4o`00 0003ogMgMooooooocom7MT002omKHQ@05ojbOJOlm8QGoG1H^og8fB?n0GTH00olm8QD05?mMD1WoNGPJ ogUh6_nAVaooNGPJojbOJOmMD1Wo?B8Eoee@6On0GTKo`lEbon;US_oAgI3oe]R5og8fB?mL5RkoLSI8 oh1NA_nFOeOoTI/O6?nM]Q4;o`000005ob8R8_oooooooooooooooomgMgL00_l000001?mgMgOooooo ooooooooool4o`000005ohR8R?ooooook^k^ooooooooiIoEomiN1X04onM]Q7oo`000?oo0000ool0 003oo`000?oo0000h?l0000001Co000001KoWKHAojNl9_oAgI3oUWmGog8fB?n0GTKoNGPJoiIoEomM D1WoLSI8ocdR5Omb=TSoP5i6oiIoEon/WfWo`lEbol_1VOoNi:goUWmGoe`F;_n0GTKo[9mY0_mMD1T0 4olm8QGoG1H^oe`F;_mL5RkoLSI8ogUh6_nAVaoo?B8Eoe`F;_miN1[o[9mYol?5L_oNi:go`lEboee@ 6OnAVaooWKHAoh1NA_mb=TP00_lm8QD02omb=TSoP5i6oiIoEon0GTKo?B8Eoe`F;_mb=TSoGE0IogUh 6_mMD1WoNGPJ00?oGE0I0omiN1X00onAVaooWKHAoiff4@0@oiff4Ooo0000ool0003oo`000?oo0000 ool0003Po`0000005?l000001_nM]Q7oX[TJon;US_n/WfWoG1H^oh1NAPCoUWmG0_n/WfT00oo3aG;o e]R5om7MT002omkT[@05oiIoEomb=TSo[9mYon;US_o3aG800_lm8QD00omiN1[oG1H^oe`F;P02oe`F ;P0>oee@6OmiN1[oGE0IoiIoEoo3aG;oe]R5omkT[Oo;`IWoP5i6oee@6OnAVaooX[TJogUh6_mL5Rh3 ocdR5@04oh1NA_nFOeOoUWmGoh1NAP;oLSI800?o?B8Eoee@6OmMD1T00omMD1T5ogUh6P03oi6K7onM ]Q7oWKHA00ooWKHAool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000007oiff4OnW_2Ko e]R5omKHQOmb=TSoG1H^oh1NAP02ojbOJ@0:ol?5L_oAgI3oe]R5omkT[OoUjkoog^B]ol_1VOmb=TSo P5i6ol?5LP;oh^F>00?o[9mYocdR5Olm8QD01Olm8QD02OmMD1WoUWmGojbOJOoAgI3og^B]onG[_oo; `IWoP5i6oee@6@02ocdR5@03oee@6Olm8QGo?B8E00?o?B8E00GoLSI8oh1NA_nFOeOoUWmGoh1NAP02 ocdR5@?oGE0I00?oNGPJoee@6OmiN1X01?miN1X2oi6K7a3oWKHAool0003oo`000?oo0000ool0003o o`000>3o0000000Do`00000Coiff4OnR^A[oe]R5om7MT?o3aG;oLSI8oe`F;_n0GTKoUWmGojbOJOo; `IWodMf@ojbOJOnFOeOoP5i6oe`F;_mMD1Woe]R5on;USP02omKHQ@03oee@6Olm8QGo?B8E00;o?B8E 0_mMD1T01?nFOeOo`lEbol_1VOoNi:d2onG[_`04ol_1VOmb=TSoLSI8oh1NAP;oGE0I1olm8QD01?n0 GTKoUWmGoiIoEonFOeL3oee@6@03ogUh6_mMD1WoNGPJ00CoNGPJ0omMD1T00omiN1[oTI/Ooiff4@0> oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l000001onM]Q7oYk`VomKHQOoFf8Go h^F>ol?5L_n0GTH00omL5Rh00omb=TSoG1H^oe`F;P04oe`F;P05oiIoEooFf8Goh^F>ojbOJOmL5Rh0 0_lm8QD00omb=TSoP5i6oiIoE`02ol_1V@07omkT[OoUjkooiN^ool_1VOn/WfWoGE0Ioe`F;P04og8f B003oee@6Omb=TSoLSI800CoLSI800SoG1H^oh1NA_nFOeOo[9mYoiIoEomMD1WoNGPJoee@6@?oNGPJ 0_nM]Q42oi6K7`;oNGPJ0_nAVal?oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l0 00002?nM]Q7oX[TJomKHQOoAgI3oe]R5on;US_oAgI3o`lEb1?nFOeL01?n/WfWoG1H^oe`F;_lm8QD2 oe`F;P03oh1NA_o3aG;oLSI800;oG1H^00Go?B8Eog8fB?n0GTKo[9mYomkT[@03ol_1V@03oiIoEon/ WfWo[9mY00;oGE0I00?oP5i6og8fB?mL5Rh01omb=TP2ocdR5@0Dog8fB?nFOeOo[9mYojbOJOmiN1[o GE0IogUh6_nAVaooNGPJoee@6OmiN1[oTI/Ooiff4OnAVaooWKHAoi6K7onM]Q7oTI/Ooiff4OnR^AX= oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l000000onM]Q7oYk`VomKHQ@02omKH Q@03om7MT?oFf8Goh^F>00Goh^F>00?o[9mYog8fB?mL5Rh00_mL5Rh00olm8QGoG1H^oe`F;P02oe`F ;P05oee@6On0GTKoLSI8og8fB?n0GTH00_mb=TP2ocdR5@03oiIoEon/WfWoGE0I00;oNGPJ00KoGE0I oh1NA_n0GTKoLSI8oh1NA_nFOeL4ocdR5@;oGE0I00OoP5i6oiIoEonmU[3o[9mYoh1NA_mMD1WoNGPJ 00;oTI/O0_mMD1T00onAVaooWKHAoi6K7`02oiff4@04oi6K7oo3aG;oe]R5ojg1=PcoWKHAool0003o o`000?oo0000ool0003oo`000>3o0000000Do`000004oiff4OnR^A[oe]R5on;USPKoe]R500KodMf@ omKHQOoRiHkoe]R5ojbOJOmb=TP7oe`F;PKo?B8E0omL5Rh01_n0GTKoNGPJoee@6OnAVaooGE0Iog8f B0;oUWmG00Co[9mYomKHQOoRiHkoP5i60olm8QD3oee@6@04oh1NA_n/WfWo_IJ`ojbOJ@;oGE0I0onA Val00omiN1[oGE0Ioee@6@02ogUh6P03ojbOJOoFf8GodMf@00;oe]R500?o[L4foiff4OnM]Q402OnM ]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001Co000000?oWKHAojNl9_oFf8D02ooFf8D0 1?oRiHko[9mYoh1NA_mb=TP5oe`F;P;o?B8E1omL5Rh03?lm8QGoGE0IogUh6_miN1[oLSI8oh1NA_nF OeOo[9mYomKHQOoAgI3oh^F>ojbOJ@;o?B8E0omMD1T02?n0GTKoLSI8oiIoEonmU[3obl6IojbOJOmi N1[oGE0I0onAVal01OmiN1[oGE0IocdR5OmiN1[oYk`V00?oe]R500?oh^F>omKHQOn]`CH02_nM]Q7o o`000?oo0000ool0003oo`000?oo0000h?l0000001Co000000CoWKHAoj:i6_oFf8GodMf@2_oFf8D0 0ooAgI3oe]R5ol?5LP02oiIoE`03oe`F;_mQ0dgoG1H^00OoG1H^00Go?B8Eoe`F;_mL5Rko?B8Eoee@ 6@02ogUh6P09oh1NA_nFOeOo[9mYojbOJOoFf8Goh^F>om7MT?mMD1Wo?B8E00;oGE0I00_oNGPJoee@ 6On0GTKoUWmGoh1NA_nFOeOo_IJ`olj_b?miN1[oGE0IogUh6P04oi6K7`;oNGPJ00CoTI/OomKHQOoR iHkodMf@0ooFf8D00on]`CKoWKHAoiff4@07oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`00 00005?l000000onM]Q7oYk`VomKHQ@0=omKHQ@04om7MT?o3aG;o[9mYog8fB0[oG1H^00?o?B8Eoe`F ;_mL5Rh00_lm8QD02?mL5RkoLSI8oh1NA_n0GTKoGE0IoiIoEon/WfWoUWmG0_lm8QD3oee@6@06og8f B?n0GTKoUWmGoiIoEomMD1WoP5i60_miN1X00omMD1WoUWmGoi6K7`05oi6K7`03ojg1=_oRiHkoe]R5 00?oe]R500?oh^F>omKHQOn]`CH02?nM]Q7oo`000?oo0000ool0003oo`000?oo0000h?l0000001Co 000000CoWKHAoj:i6_oFf8GodMf@3?oFf8D01?oRiHkoe]R5omKHQOmb=TP4oe`F;P07of43COmL5Rko H@==oe`F;_mQ0dgoLSI8of43C@02og8fB003of43COmL5RkoG1H^00CoG1H^00Co?B8Eoe`F;_mMD1Wo ?B8E0_mMD1T2ogUh6P0omKHQOoAgI3oe]R5on;US_oFf8Go[L4f00OoWKHA ool0003oo`000?oo0000ool0003oo`000>3o0000000Do`000003oiff4OnW_2Koe]R500ooe]R500?o h^F>oh1NA_mQ0dd00omL5Rh04_mb=TSoG1H^og8fB?mL5RkoLSI8oe`F;_mb=TSoH@==oe`F;_mb=TSo H@==oe`F;_mb=TSoH@==og8fB?mQ0dgoG1H^of43C@?o?B8E00GoGE0IogUh6_miN1[oGE0Ioh1NAP02 oiIoE`07ogUh6_n/WfWo`lEbomKHQOoAgI3oe]R5on;USP02omKHQ@;o`lEb2ooFf8D00on]`CKoWKHA oiff4@04oiff4Ooo0000ool0003oo`000?oo0000ool0003Po`0000005?l000001?nM]Q7oX[TJomKH QOoRiHh=omKHQ@04om7MT?oFf8Go[9mYof43C@[oG1H^0_mb=TP00omL5RkoLSI8og8fB004oe`F;P;o LSI800?oG1H^og8fB?nFOeL00omiN1X02?mb=TSoP5i6oiIoEon/WfWoe]R5on;US_oFf8Goh^F>0ooF f8D01OoRiHkoe]R5on;US_oFf8Goh^F>00_oe]R500?o[L4foiff4OnM]Q400onM]Q7oo`000?oo0000 ool0003oo`000?oo0000h?l0000001Co000000CoWKHAojNl9_oFf8GodMf@3_oFf8D00ooRiHko`lEb oe`F;P03oe`F;PCo?B8E1OmL5Rh3ogUh6P05og8fB?n0GTKoLSI8og8fB?mL5Rh00_mQ0dd02_mb=TSo dMf@on;US_oRiHkoUWmGog8fB?n0GTKoUWmGojbOJOoRiHhEomKHQ@03on;US_oFf8Go[L4f00CoWKHA ool0003oo`000?oo0000ool0003oo`000>3o0000000Do`00000Foiff4OnR^A[oe]R5omKHQOoAgI3o e]R5om7MT?oFf8GodMf@omKHQOoAgI3oe]R5om7MT?oFf8GodMf@omKHQOoAgI3oe]R5om7MT?oRiHko UWmGof43C@?oG1H^0olm8QD01_mL5RkoP5i6ol?5L_o;`IWoNGPJoee@6@;oTI/O00?oLSI8oh1NA_nF OeL00_n0GTH2oiIoE`04ol?5L_oFf8GodMf@omKHQ@;oP5i601goUWmGojbOJOoFf8Goe]R5om7MT?oF f8GodMf@omKHQOoAgI3oe]R5om7MT?oFf8GodMf@omKHQOoAgI3oe]R5om7MT?oFf8GodMf@omKHQOoA gI3oe]R5om7MT?oFf8GodMf@omKHQOoAgI3oe]R5ojg1=P03oiff4Ooo0000ool0003oo`000?oo0000 ool0003Po`0000005?l000000onM]Q7oYk`VomKHQ@0BomKHQ@03oh1NA_mQ0dgoH@==00CoG1H^00Ko LSI8ol?5L_oRiHkoh^F>ojbOJOmMD1T2oi6K7`06oee@6Omb=TSoP5i6oh1NA_nFOeOoe]R50_oRiHh0 2?oAgI3oe]R5oiIoEomb=TSoP5i6oiIoEon/WfWodMf@6_oFf8D00on]`CKoWKHAoiff4@3oo`000?oo 0000ool0003oo`000?oo0000h?l0000001Co00000_nM]Q4CojNl9P03okS9DOnFOeOoLSI800;oG1H^ 00CoLSI8oiIoEoo3aG;o[L4f0_nW_2H00on]`CKoGE0IogUh6P02oi6K7`03og8fB?mMD1WoP5i600;o P5i60onAVal3oh1NAP03oiIoEon/WfWo`lEb01_oYk`V00?oX[TJoiff4OnM]Q40ool0003oo`000?oo 0000ool0003oo`000>3o0000000Do`0001GoWKHA00?oX[TJokS9DOo3aG800_n/WfT00oo3aG;o^?l000001?lk ?C7oVYbcdaool0003oo`000?oo0000ool0 003oo`000?oo0000000io`000005o`820_m5AD?oL7=HogU`B_n1KD/00_nANe@01On1KD_oNG1:ofMR COlo@CCo0P820?oo0000ool0003oo`000?oo0000ool0003oo`00007o0000003oo`000?oo0000ool0 003oo`000?oo0000ool00016o`000000ool0003oo`000?oo0000ool0003oo`000?oo0000A_l00000 0?oo0000ool0003oo`000?oo0000ool0003oo`0004Ko0000003oo`000?oo0000ool0003oo`000?oo 0000ool00016o`000000ool0003oo`000?oo0000ool0003oo`000?oo0000A_l000000?oo0000ool0 003oo`000?oo0000ool0003oo`0004Ko0000003oo`000?oo0000ool0003oo`000?oo0000ool00016 o`000000ool0003oo`000?oo0000ool0003oo`000?oo0000A_l000000?oo0000ool0003oo`000?oo 0000ool0003oo`0004Ko0000003oo`000?oo0000ool0003oo`000?oo0000ool00016o`000000ool0 003oo`000?oo0000ool0003oo`000?oo0000A_l000000?oo0000ool0003oo`000?oo0000ool0003o o`0004Ko0000003oo`000?oo0000ool0003oo`000?oo0000ool00016o`000000ool0003oo`000?oo 0000ool0003oo`000?oo0000A_l000000?oo0000ool0003oo`000?oo0000ool0003oo`0004Ko0000 003oo`000?oo0000ool0003oo`000?oo0000ool00016o`000000ool0003oo`000?oo0000ool0003o o`000?oo0000A_l000000001\ \>"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->False, ImageSize->{1600, 129}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Creating Custom Interfaces with Mathematica", "Title"], Cell["", "Subtitle"], Cell[TextData[{ "Andrew A. de Laix\nLead Developer: ", StyleBox["A New Kind of Science Explorer", FontSlant->"Italic"], ", Wolfram Research, Inc." }], "Text", CellMargins->{{68, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " UI Programming Skills" }], "Section"], Cell["Button programming.", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ Front end scripting: top level functions and front end tokens \ (FrontEndExecute).\ \>", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["Notebook and cell options.", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["Style sheets.", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[TextData[{ "A good resource for programming the front end: ", ButtonBox["The Beginner's Guide to Mathematica", ButtonData:>{ URL[ "http://library.wolfram.com/infocenter/Books/2114/"], None}, ButtonStyle->"Hyperlink"], ", Glynn and Gray (ch. 63)." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Detailed Example: The Export Dialog Box", "Section"], Cell["\<\ Let's look at a particular element in detail: the export dialog box. This \ dialog arises when a user select the \"export image\" button on the \ interactive form.\ \>", "Text"], Cell[CellGroupData[{ Cell["The code", "Subsection"], Cell[BoxData[ \(ExportDialogNotebook[bd_] := Notebook[{Cell[ TextData[{Cell[ GraphicsData["\", \ "\SP801P3>SP800`3BT080fID20=bG0P050=bG0P0000<0dY020;f20P2cN`\ 801P2cN`80102f\n\ O@80_X<20SP80/g/20=bG0P2OJ@00WFL009QT00<0UF8000H0SUd00:mh0P3LU`\ 80g9L2\n0;^00P3FT`820=bG0P0000H0cXh20;=k0P3LU`\ 80WfT009QT0029FP03085E000707mD002XL`80g9L2\n\ 09mY003LU`80^h020=JC0P010=bG0P0000H0cXh20;=k0P3LU`80WfT009ER0021E@060=\ bG0P80WfT0\n\ 0@3LU`810;^00P40eY<200001`3>SP80/g/20=bG0P2OJ@00UF80085E003LU`80202OJ@010=\ bG0P40\ncXd200001`3>SP80/g/20=bG0P2OJ@00UF80085E003LU`802@2OJ@010=\ bG0P0000L0cXh20;=k0P3L\n\ U`80WfT009QT0029FP00g9L200P0WfT00P3LU`80000600P2cN`80g9L209mY002MI`00V6@\ 01P3L\nU`8209mY00<0g9L200000`3>SP80/g/20=bG0P0609mY000409QT002mPP80g9L209mY00@\ 0g9L20000\n\ 0`3BT080_H820=bG0P0609mY000309eW003BT080g9L200D0g9L200000`3IU@80dY020=bG0P0>0=\ bG\n0P00\>"], "\", Background \[Rule] RGBColor[0.8599984740978104`, 0.5903257801174945`, 0.008621347371633479`], Evaluatable \[Rule] False, GeneratedCell \[Rule] False, CellAutoOverwrite \[Rule] False, ImageSize \[Rule] {17.`, 13.`}, ImageMargins \[Rule] {{0.`, 0.`}, {0.`, 0.`}}, ImageRegion \[Rule] {{0.`, 1.`}, {0.`, 1.`}}], "\< Export Formats:\>"}], "\", CellMargins \[Rule] {{0, 0}, {0, 0}}, FontColor \[Rule] GrayLevel[1], FontWeight \[Rule] "\", FontFamily \[Rule] "\", CellBaseline \[Rule] Axis, Background \[Rule] RGBColor[0.8599984740978104`, 0.5903257801174945`, 0.008621347371633479`]], Cell[TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ "\", CellTags \[Rule] "\"], Cell[TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ "\", CellTags \[Rule] "\"], Cell[TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ "\", CellTags \[Rule] "\"], Cell[TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ "\", CellTags \[Rule] "\"], Cell[TextData[{"\", ButtonBox["\", RuleDelayed[ButtonData, List[URL["\"], None]], Rule[ButtonStyle, "\"]]}], "\", TextAlignment \[Rule] Center, Background \[Rule] RGBColor[0.98439, 0.937514, 0.394537], CellMargins \[Rule] {{0, 0}, {0, 0}}, CellFrameColor \[Rule] RGBColor[0.8599984740978104`, 0.5903257801174945`, 0.008621347371633479`], CellFrame \[Rule] 1], Cell[BoxData[ GridBox[{{ButtonBox["\", ButtonFunction \[RuleDelayed] \((SaveGraphicsBF[#] \ &)\), ButtonData \[Rule] bd, Active \[Rule] True, ButtonSource \[Rule] ButtonData, ButtonEvaluator \[Rule] Automatic], ButtonBox["\", Active \[Rule] True, ButtonFunction \[RuleDelayed] NotebookClose[ButtonNotebook[]]]}}]], "\", FontFamily \[Rule] "\", TextAlignment \[Rule] "\", CellFrame \[Rule] {{0, 0}, {0, 0}}, CellFrameColor \[Rule] RGBColor[0.8599984740978104`, 0.5903257801174945`, 0.008621347371633479`], CellFrameMargins \[Rule] 4, CellMargins \[Rule] {{0, 0}, {4, 4}}]}, Editable \[Rule] False, Deletable \[Rule] False, ShowSelection \[Rule] False, WindowFrame \[Rule] "\", WindowElements \[Rule] {}, WindowFrameElements \[Rule] {"\"}, WindowMovable \[Rule] False, WindowTitle \[Rule] None, ShowCellBracket \[Rule] False, StyleDefinitions \[Rule] "\", WindowFloating \[Rule] False, WindowSize \[Rule] {350, FitAll}]\)], "Input", CellLabel->"In[1]:=", ShowCellLabel->False], Cell[BoxData[ \(ExportSetButtonBF[ x1_] := \((SetOptions[ButtonNotebook[], Editable \[Rule] True]; \[IndentingNewLine]NotebookFind[ ButtonNotebook[], "\", All, CellStyle]; \[IndentingNewLine]FrontEndExecute[{FrontEndToken[ ButtonNotebook[], "\", "\"]}]; \ \[IndentingNewLine]SelectionMove[ButtonNotebook[], All, ButtonCell]; \[IndentingNewLine]FrontEndExecute[{FrontEndToken[ ButtonNotebook[], "\", "\"]}]; \ $NKSExportFormat = CellTags /. Options[NotebookSelection[ButtonNotebook[]], CellTags]; SetOptions[ButtonNotebook[], Editable \[Rule] False];)\)\)], "Input", CellLabel->"In[2]:=", ShowCellLabel->False] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Emulating Radio Buttons", "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " doesn't currently provide any type of radio style button. We choose to \ emulate them using a combination of ordinary buttons and cells: " }], "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}], Cell[BoxData[GridBox[{ {\(Cell[ TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ \[IndentingNewLine]"\", CellTags \[Rule] "\"]\)}, {\(Cell[ TextData[ ButtonBox["\", ButtonStyle \[Rule] "\"]], \ \[IndentingNewLine]"\", CellTags \[Rule] "\"]\)} }, RowSpacings->2, ColumnAlignments->{Left}]], "Input"], Cell["Each cell is a different radio button.", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["Cell styles set the appearance of each button.", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ When clicked, the button function updates the selected button style and \ resets the previously selected button to the unselected style.\ \>", "Text", CellDingbat->"\[FilledSmallCircle]", CellMargins->{{50, Inherited}, {Inherited, Inherited}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Radio Button Function", "Section"], Cell[BoxData[ RowBox[{\(ExportSetButtonBF[x1_]\), ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{\(SetOptions[ButtonNotebook[], Editable \[Rule] True]\), ";", "\[IndentingNewLine]", \(NotebookFind[ ButtonNotebook[], "\", All, CellStyle]\), StyleBox[\( (*Find\ currently\ selected\ button\ and\[Ellipsis]*) \ \), FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", \(FrontEndExecute[{FrontEndToken[ ButtonNotebook[], \ \*"\"\\"\)ExportText\>\""]}]\), StyleBox[\( (*reset\ it\ to\ the\ unselected\ \(\(style\)\(.\)\)*) \ \), FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", \(SelectionMove[ButtonNotebook[], All, ButtonCell]\), StyleBox[\( (*Select\ the\ current\ button\ cell\ and\[Ellipsis]*) \ \), FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", \(FrontEndExecute[{FrontEndToken[ ButtonNotebook[], "\", "\"]}]\), StyleBox[\( (*set\ it\ to\ the\ selecte\ \(\(style\)\(.\)\)*) \), FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", \($NKSExportFormat = CellTags /. Options[NotebookSelection[ButtonNotebook[]], CellTags]\), StyleBox[\( (*set\ an\ internal\ variable\ with\ the\ new\ format*) \ \), FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", \(SetOptions[ButtonNotebook[], Editable \[Rule] False]\), ";"}], ")"}]}]], "Input"], Cell["", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Other Buttons in the Dialog", "Section"], Cell[CellGroupData[{ Cell["Permissions URL", "Subsection"], Cell[BoxData[ \(ButtonBox["\", ButtonData \[RuleDelayed] \ {URL["\"], None}, ButtonStyle \[Rule] "\"]\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Save button", "Subsection"], Cell[BoxData[ \(ButtonBox["\", ButtonFunction \[RuleDelayed] \((SaveGraphicsBF[#] &)\), ButtonData \[Rule] bd, Active \[Rule] True, ButtonSource \[Rule] ButtonData, ButtonEvaluator \[Rule] Automatic]\)], "Input"], Cell["\<\ The button data was generated on the fly and contains the graphics data from \ the image to be exported.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Cancel button", "Subsection"], Cell[BoxData[ \(ButtonBox["\", Active \[Rule] True, ButtonFunction \[RuleDelayed] NotebookClose[ButtonNotebook[]]]\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgolO;Mom]H2GoLW0Fog=T;OmmNb;oX[@Toifh3?nM]Q0Hoiff4@03oiB[4?l0003o 00000?oo0000ool0001Ao`0000002_l000003Om>F`Ko^<=>ojnQK?n@PDcoPG0jogQ_8_m??AKoHETA ohb1>onnXiko[K=oe1M2_mmK2coFbd^ogAK =_mVCBooDCdIog1Y6on5NbooXJ16okbjJ?nk`eoo]:iWoi2D7onN^`hFoiff4@03oiB[4?l0003o0000 01;o000000?oVIVIoooooooMgMd00ol000000omgMgOo^k^ko`000002o`000007ogMgMooooooooooo oa4A4OoMgMgooooook^k^`05o`000006ob8R8_ooooooooooohR8R?l0003oEEEE0_ooool01?lclO?oKghSofmj=oge6Com^>cSo Uj/Foi^e2`0Eoiff4@03oiB[4?l0003o000001;o000000CoEEEEoooooooooooo8R8R0_l000000onI VIWoooooodA4A002o`000005ogMgMoooooooooooo`000?mVIVH00_ooool00om4A4Co0000o`000002 o`000006odA4A?oooooooooooeEEEOl0003oC7o[JIYolG2 OOnj^7?o]LM6oibf3?nM]Q0Boiff4@03oiB[4?l0003o000001?o000000?oZZZZoooooonk^k/00_l0 0003ooooo`03ofIVI_l0003oMgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0 003o0000o`000?oMgMgooooooiVIV@03o`000003ogMgMooooooooooo00Co000000KoMgMgoooooooo oooo4A4Ao`000?mgMgL2ooooo`Oo000000?oZZZZoooooonk^k/00_l00003ooooo`03ofIVI_l0003o MgMg00;ooooo0_l000000om4A4Coooooooooo`06ooooo`07omgMgOl0003o0000o`000?oMgMgooooo oiVIV@03o`000003ogMgMooooooooooo00;o000000CoIVIVooooooooooooZZZZ1?l000001?mVIVKo 0000o`000?m4A4@8ooooo`03omgMgOl0003o000000Ko000000?oMgMgooooooooool00ol000001?lA 4A7ogMgMoooooooMgMd2o`000003ogMgMooooooooooo00Wo000000GoZZZZooooooooooooooooofIV IP04o`0000;ooooo00?oMgMgo`000?l000001?l000000omgMgOoooooooooo`05o`000004olcon2IDWoGCH]oeXE_mI6BgoHahjogQ3B?nBMUOo IDdXoiR^5?nQ_Q3oWKL@4?nM]Q400onDZa3o0000o`00000Co`00000;oa4A4OooooooooooofIVI_mg MgOoooooolc_m]JQOoUXhnodhO:?mJ5booHAHiofLM@_nSQfSo^Zmaohe/D_nWVFCoKSE0 ogYX7onK]PkoW[PA00koWKHA00?oU:/@o`000?l000005?l000002_mVIVKoooooonk^k_o?mJ13goHA=0ojNHH_nSRfGo/IIgojNd=_nM^0h03_nM]Q400onDZa3o0000o`00000Do`000003oa4A 4Ooooooooooo00;ooooo00Co67_nFWROo KfDPohJ3:ooogAL?_nof=H6ommOaSoP8DJof=I6om`I2OoY:XookS3FonRTF?oIEDP ogih7_n4RQGoQYDCohVJ5?mcIb[oJdDjokfjLon0G4WoFAleog1C;onGWR7oX;/A00coWKHA00?oU:/@ o`000?l000005Ol000001?mVIVKooooooooooonk^k/3o`000004oa4A4Oo^k^koooooooooo`Ko0000 00GoMgMgooooooooooooooooofIVIP02o`000006oa4A4Om4A4CoA4A4olcA_oSIPLoeiD5?mUDbGoQ6U1oh]_A_nJXCCoB2dDofi?>?mV:3[oMehjodXf6?m3;1;oFR4f oheTF?nRT6CoeM>@ogAP>om8<1CoCB`SohN>6_nQ_`h;oiff4@03oiB[4?l0003o000001Go000000Co 4A4AooooooooooooMgMg1?l000001?mgMgOooooooooooolR8R86o`000004omgMgOooooooooooob8R 8P;o000000?o_n8 LTGoHRHgoe6ofe=_n5MTWoQ7djogMg5Oo8bW3oYYmOoe4m6?nMW4goSg=?ofXSBonGVR_oWk`> 00WoWKHA00?oU:/@o`000?l00000ool0003oo`00057o0000000:o`00000ModeJ1OnncE7ofmb@oge> B?nIUDCoVJonGQDgoYZe7oi:@ TBcoKc/hoe/@;omL72ooSW=@olg?Uom];TGoOTi@oh5`>OnNZCGoU:0LohZ3?Om`@CkoR7=1ojjXJ_mK =b_oIBDoogUf6on=RBkoX:@goifg4OnM]a06oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`00 00002_l000007om>F`Ko^LICogmOAon4KSooHRXboeHR;OnIQEKo`/Eeok>XMOmlBD_oPFQ4oe0[7?mJ 3booT7Q;ofa>;?mR>bKo[JeQojf[GonCXQSoT7m4of3OoCS`Eof1E6_mWGQSoLg8EogEb6on?Va/6 oiff4@03oiB[4?l0003o00000?oo0000ool0001Ao`0000002_l000008?m=FPKo_/aDom;BRon1F4So PEQ:oif1Ion2EdooIBhcol:lMOoEeXCoD2hPod5onGY27o]/99ojc1;onJ]@goWKH@0_nM]Q400onD Za3o0000o`00003oo`000?oo0000DOl0000000[o000000CoCEX6okg:D_oIfhkof=^60_oLhHX07ooP ihgo`kmlogQ:@_mH2c3oG1D_oe0N8_mE4BOoC@dPod/:8?m?>QGoMFXSoi=nDoo3`7OognR@of1>;?mB AQ3oKeL^oh]WEOnhViOoT89Coh684_n7SQ[oJF8Foh^@8_oIgX[of]b:okC4@_nJ]0_oWKH@oiff4OnD Za00ool0003oo`0005?o0000000:o`000004odeJ1_nlbE;of=^?omKHQ0?oe]R501kof^6:olK4N_mZ :SooFA4/of4C>?mO4cKoGa/hoehN>?mI73?oFQl^og4k?_m^B3SoNUm1od8^4?mSFaKoME8koi1hD?m^ GROoS8=1ok6^GOnLXcCoTYhMok2jAooJgX[of=^;omcNS?nea4;oV[@_mM3c[oC`X_of11;omkN2?oLe4hoiR3F?nd/V7od]B3on3Q T?oGf8Koc]5iomWLQooGfHOoe]R6omSIR?oIfX[o//@moiZd2onDZa00ool0003oo`0005?o0000000: o`000004odmL1OnmbE?ofMjComKJR@;oe]Z:01ooe]V9omKJR_oNii3oZI5XoeX:=_m<32;o?1@FofT` >?nCKE[oL5`Uog]_9?mjCdCoMTI3oh1FBomSLRooFfX[of=^;omWM SOoGfX[oeMZ9omKIROoFfXWofMb>om?IP?nT^b7oUJh>0?oo0000ool0001Co`0000002_l000000om9 E@OoWK4SojJg=P05ojFf=00AojJg=?nV^3;oThU0ohELD_n5K4GoVZ4dojo7>?n;T3?oPh"], "Text", CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, CellFrameMargins->3, ImageSize->{430, 31}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0], Magnification->1] }, Open ]], Cell[CellGroupData[{ Cell["Window Options", "Section", CellTags->"LastSlide"], Cell["\<\ These options give our dialog an appearance less like a typical notebook and \ more like a true dialog box:\ \>", "Text"], Cell[BoxData[GridBox[{ {\(Editable \[Rule] False\), StyleBox[\(not\ editable\), FontColor->RGBColor[0, 0, 1]]}, {\(Deletable \[Rule] False\), StyleBox[\(cannot\ delete\ any\ element\), FontColor->RGBColor[0, 0, 1]]}, {\(ShowSelection \[Rule] False\), StyleBox[\(do\ not\ show\ selection\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowFrame \[Rule] "\"\), StyleBox[\(give\ frame\ a\ modal\ dialog\ appearence\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowElements \[Rule] {}\), StyleBox[\(no\ scroll\ bars, \ resize\ area, \(\(etc\)\(.\)\)\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowFrameElements \[Rule] {"\"}\), StyleBox[\(just\ a\ close\ box\ button\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowMovable \[Rule] False\), StyleBox["immobile", FontColor->RGBColor[0, 0, 1]]}, {\(WindowTitle \[Rule] None\), StyleBox[\(no\ title\), FontColor->RGBColor[0, 0, 1]]}, {\(ShowCellBracket \[Rule] False\), StyleBox[\(no\ cell\ brackets\), FontColor->RGBColor[0, 0, 1]]}, {\(StyleDefinitions \[Rule] "\"\), StyleBox[\(use\ NKSStyles . nb\ for\ style\ sheet\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowFloating \[Rule] False\), StyleBox[\(\(do\)\(\ \)\(not\)\(\ \)\(float\)\(\ \)\(above\)\(\ \ \)\(other\)\(\ \)\(windows\)\(\ \)\), FontColor->RGBColor[0, 0, 1]]}, {\(WindowSize \[Rule] {350, FitAll}\), StyleBox[\(fix\ to\ an\ appropriate\ size\), FontColor->RGBColor[0, 0, 1]]} }, ColumnAlignments->{Left}]], "Input"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 685}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowToolbars->{}, InitializationCellEvaluation->True, InitializationCellWarning->False, WindowSize->{1016, 651}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowTitle->None, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, CellBracketOptions->{"Color"->GrayLevel[0.701961]}, Magnification->1, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions for On-line Help", "Subtitle"], Cell["\<\ These styles are carefully tuned for all aspects of the online help. It's \ recommended that they remain unchanged.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "SlideShow"], PageWidth->WindowWidth, ScrollingOptions->{"PagewiseDisplay"->True}, ShowCellBracket->False, ScriptMinSize->9, Magnification->1.5], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, ShowAutoStyles->False, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}] }, Open ]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the Notebook level. \ \ \>", "Text", CellBracketOptions->{"Color"->GrayLevel[0.701961]}], Cell[CellGroupData[{ Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, {Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{None, Cell[ TextData[ { "\[Copyright]1988-2003 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[ { "\[Copyright]1988-2003 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines->{True, True}, PageFooterLines->{True, True}, PrintingOptions->{"FacingPages"->True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None], Cell[StyleData["Notebook", "Printout"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, {Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{None, Cell[ TextData[ { "\[Copyright]1988-2003 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[ { "\[Copyright]1988-2003 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines->{True, True}, PageFooterLines->{True, True}, PrintingOptions->{"FacingPages"->True}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Headings", "Section"], Cell[StyleData["Title"], CellFrame->False, CellMargins->{{69, 27}, {0, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm]}, TextAlignment->Left, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->32, FontWeight->"Bold", FontColor->RGBColor[0.501961, 0, 0], Background->GrayLevel[1]], Cell[StyleData["Subtitle"], CellFrame->False, CellMargins->{{71, 27}, {0, 0}}, FontFamily->"Times", FontSize->18, FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Plain", FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellMargins->{{27, 27}, {12, 18}}, CellGroupingRules->{"SectionGrouping", 30}, 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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold", FontColor->RGBColor[0.380392, 0.545098, 0.129412]], Cell[StyleData["Section", "SlideShow"], CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {20, 0}}, PageBreakBelow->False, CellFrameMargins->{{40, 36}, {Inherited, 15}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.545098, 0.670588, 0.203922]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->None, CellMargins->{{27, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 40}, CellFrameLabelMargins->6, 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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0.382361, 0.544121, 0.132357]], Cell[StyleData["Subsection", "SlideShow"], CellFrame->{{0, 0}, {0, 0.25}}, CellDingbat->None, ShowCellBracket->True, CellMargins->{{40, 0}, {4, 16}}, CellFrameMargins->2, FontSize->14] }, Open ]], Cell[StyleData["Subsubsection"], CellMargins->{{27, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, 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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0]] }, Open ]], Cell[CellGroupData[{ Cell["Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{27, 27}, {0, 8}}, 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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm]}, Hyphenation->True, ParagraphSpacing->{0, 8}, FontSize->12], Cell[StyleData["Text", "SlideShow"], CellMargins->{{40, 24}, {5, 12}}, Hyphenation->False, FontSize->14], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{66, 4}, {0, 6}}, LineSpacing->{1, 3}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["IndentedText", "SlideShow"], CellMargins->{{80, 24}, {5, 5}}, Hyphenation->False, FontSize->13], Cell[StyleData["IndentedText", "Printout"], FontSize->10] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["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->{{66, 4}, {3, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, FontWeight->"Bold"], Cell[StyleData["Input", "SlideShow"], CellFrame->False, ShowCellBracket->True, CellMargins->{{56, 50}, {0, 6}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 8}}, CellFrameColor->GrayLevel[0.500008], Background->GrayLevel[0.880003]], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{61, 4}, {4, 2}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->StandardForm], Cell[StyleData["Output", "SlideShow"], CellFrame->False, ShowCellBracket->True, CellMargins->{{56, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {8, 4}}, CellFrameColor->GrayLevel[0.500008], Background->GrayLevel[0.930007]], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{66, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None, FontColor->RGBColor[0.269993, 0.308507, 0.6]], Cell[StyleData["Message", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}, FontSize->10, FontColor->RGBColor[0.699992, 0.4, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{66, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None], Cell[StyleData["Print", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->True, CellMargins->{{56, 4}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultFormatTypeForOutput, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None, FontWeight->"Plain"], Cell[StyleData["Graphics", "SlideShow"], ShowCellBracket->True, CellMargins->{{61, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 4}}, Background->GrayLevel[0.880003]], Cell[StyleData["Graphics", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain", FontColor->RGBColor[0.269993, 0.308507, 0.6]], Cell[StyleData["CellLabel", "SlideShow"], FontColor->RGBColor[0.380392, 0, 0.129412]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Oblique", FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Hyperlinks", "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. The others point to the various sections of the help browser. \ These styles will modify individual words or letters in a cell exclusive of \ the cell tag.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]] }, Open ]], 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]}]&)}] }, Open ]], Cell[CellGroupData[{ Cell["Tables", "Section"], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.49, ColumnAlignments->{Left}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left}}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{27, 4}, {0, 8}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", AutoSpacing->True, ScriptLevel->1, SingleLetterItalics->True, SpanMaxSize->Infinity, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->Automatic}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["InlineOutput"], CellMargins->{{27, 4}, {0, 8}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->None, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["InlineOutput", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9.5] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{66, Inherited}, {Inherited, 10}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, SpanMaxSize->Infinity, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}, GridBoxOptions->{ColumnWidths->Automatic}], Cell[StyleData["DisplayFormula", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["DisplayMath"], CellMargins->{{66, 10}, {7, 7}}, Evaluatable->False, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input"], Cell[StyleData["DisplayMath", "Printout"], CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{66, 10}, {7, 7}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, LanguageCategory->"Formula", CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{39, 55}, {0, 10}}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["EquationNumber"], CellMargins->{{27, Inherited}, {Inherited, Inherited}}, LineSpacing->{1.83, 0}, LanguageCategory->"Formula"], Cell[StyleData["EquationNumber", "Printout"], LineSpacing->{1.7, 0}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{27, Inherited}, {Inherited, 10}}, CellHorizontalScrolling->True, ShowSpecialCharacters->Automatic, AutoItalicWords->{}, LanguageCategory->"Formula", FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{42, 30}, {Inherited, 4}}, FontSize->9.5] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["AuthorTools", "Section"], Cell[CellGroupData[{ Cell[StyleData["BilateralCell"], CellMargins->{{27, 4}, {0, 8}}, StyleMenuListing->None, FontSize->12, GridBoxOptions->{ColumnWidths->{0.33, 0.6}, RowAlignments->Top, ColumnAlignments->{Left}}], Cell[StyleData["BilateralCell", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}, Background->GrayLevel[0.900008]], Cell[StyleData["BilateralCell", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["RuledPageBreak"], CellFrame->{{0, 0}, {0.25, 0}}, CellMargins->{{27, 4}, {12, 0}}, CellFrameMargins->{{0, 0}, {1, 0}}, FontSize->8], Cell[StyleData["RuledPageBreak", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}], Cell[StyleData["RuledPageBreak", "Printout"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True, FontSize->1] }, Open ]], Cell[StyleData["PaletteTitle"], CellFrame->{{0, 0}, {1, 0}}, CellMargins->{{4, 20}, {Inherited, 0}}, StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0, 0.32549, 0.537255], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #2]}]&), ButtonEvaluator->None, ButtonStyle->"PaletteButton", ButtonMargins->3}], Cell[StyleData["PaletteButton"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", Active->True, ButtonMargins->6, Background->RGBColor[0.329412, 0.584314, 0.694118]}], Cell[StyleData["PaletteButton2"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", Active->True, ButtonMargins->4, Background->RGBColor[0.537255, 0.72549, 0.843137]}] }, Open ]], Cell[CellGroupData[{ Cell["Outline Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Outline1"], CellMargins->{{27, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, ParagraphIndent->-38, CounterIncrements->"Outline1", FontSize->18, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}], Cell[StyleData["Outline1", "Printout"], CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Outline2"], CellMargins->{{57, 10}, {6, 6}}, CellGroupingRules->{"SectionGrouping", 60}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontSize->15, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}], Cell[StyleData["Outline2", "Printout"], CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Outline3"], CellMargins->{{87, 10}, {5, 5}}, CellGroupingRules->{"SectionGrouping", 70}, ParagraphIndent->-21, CounterIncrements->"Outline3", FontSize->12, CounterBoxOptions->{CounterFunction:>Identity}], Cell[StyleData["Outline3", "Printout"], CounterBoxOptions->{CounterFunction:>Identity}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Outline4"], CellMargins->{{117, 10}, {4, 4}}, CellGroupingRules->{"SectionGrouping", 80}, ParagraphIndent->-18, CounterIncrements->"Outline4", FontSize->10, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["Outline4", "Printout"]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["SlideShowNavigationBar"], Editable->False, CellFrame->True, CellMargins->{{0, 0}, {3, 40}}, CellElementSpacings->{"CellMinHeight"->0.8125}, CellGroupingRules->{"SectionGrouping", 30}, CellFrameMargins->False, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->False, TextAlignment->Center, CounterIncrements->"SlideShowNavigationBar", StyleMenuListing->None, FontSize->10, Background->GrayLevel[0.8], Magnification->1, GridBoxOptions->{GridBaseline->Center, RowSpacings->0, ColumnSpacings->0, ColumnWidths->{3.5, 3.5, 3.5, 3.5, 13, 5, 4}, RowAlignments->Baseline, ColumnAlignments->{ Center, Center, Center, Center, Center, Center, Right, Center}}], Cell[StyleData["SlideShowNavigationBar", "SlideShow"], Deletable->False, ShowCellBracket->False, CellMargins->{{-1, -1}, {-1, -1}}, PageBreakAbove->True, CellFrameMargins->{{1, 1}, {0, 0}}], Cell[StyleData["SlideShowNavigationBar", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SlideShowSection"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{0, 0}, {10, 0}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{12, 4}, {6, 12}}, 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", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->18, FontWeight->"Plain", FontColor->GrayLevel[1], Background->RGBColor[0.408011, 0.440726, 0.8]], Cell[StyleData["SlideShowSection", "SlideShow"], ShowCellBracket->False, PageBreakAbove->True], Cell[StyleData["SlideShowSection", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SlideHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontSize->26, FontColor->GrayLevel[0.400015], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMinHeight->0.85, ButtonMargins->0.5, ButtonNote->None}], Cell[StyleData["SlideHyperlink", "SlideShow"]], Cell[StyleData["SlideHyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SlideTOCLink"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Helvetica", ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMargins->1.5, ButtonNote->ButtonData}], Cell[StyleData["SlideTOCLink", "SlideShow"]], Cell[StyleData["SlideTOCLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SlideTOC"], CellDingbat->"\[Bullet]", CellMargins->{{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica"], Cell[StyleData["SlideTOC", "SlideShow"], FontSize->14], Cell[StyleData["SlideTOC", "Printout"], FontSize->10, FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Horizontal Lines", "Section"], Cell[CellGroupData[{ Cell[StyleData["Line1"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{10, 4}, {-16, 9}}, StyleMenuListing->None, FontSize->2], Cell[StyleData["Line1", "Presentation"], FontSize->3], Cell[StyleData["Line1", "Printout"], CellMargins->{{2, 0}, {-16, 9}}] }, Closed]], Cell["\<\ The item above is horizontal 0.5 pt line\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["ProgramTop"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{10, 4}, {-18, 18}}, LineSpacing->{1, -4}, StyleMenuListing->None, FontSize->4], Cell[StyleData["ProgramTop", "Presentation"], FontSize->6], Cell[StyleData["ProgramTop", "Printout"], CellMargins->{{2, 0}, {-18, 18}}] }, Closed]], Cell["\<\ The item above is a ProgramTop line \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["ProgramBottom"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{10, 4}, {-10, -2}}, LineSpacing->{1, -4}, StyleMenuListing->None, FontSize->4], Cell[StyleData["ProgramBottom", "Presentation"], FontSize->6], Cell[StyleData["ProgramBottom", "Printout"], CellMargins->{{2, 0}, {-10, -2}}] }, Closed]], Cell["\<\ The item above is a ProgramBottom line \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["SessionLabel"], CellFrame->{{0.5, 0}, {0, 0.5}}, CellMargins->{{10, 4}, {-4, 18}}, LineSpacing->{1, 0}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["SessionLabel", "Printout"], CellMargins->{{2, 0}, {-4, 18}}, FontSize->7] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Page Headers and Footers", "Section"], Cell[CellGroupData[{ Cell[StyleData["PageHeader"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontSize->8, FontSlant->"Italic"], Cell[StyleData["PageHeader", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["PageNumber", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["PageFooter"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->6], Cell[StyleData["PageFooter", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell["For compatibility", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["Header"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontSize->8, FontSlant->"Italic"], Cell[StyleData["Header", "Printout"]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Footer"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->6], Cell[StyleData["Footer", "Printout"]] }, Open ]] }, Open ]] }, Open ]], 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}, "TwoByteSyntaxCharacterAutoReplacement"->True, LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"] }, Open ]], 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] }, Open ]] }, 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->{ "AS+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "AV+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "CT+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "ED+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "EW+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "FA+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "FF+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "FV+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "HM+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "JC+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "JS+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "KB+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "KH+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "LC+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "LS+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "PK+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "PS+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "SG+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "TH+"->{ Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}]}, "LastSlide"->{ Cell[241776, 3418, 58, 1, 99, "Section", CellTags->"LastSlide"]} } *) (*CellTagsIndex CellTagsIndex->{ {"AS+", 283417, 4794}, {"AV+", 283640, 4799}, {"CT+", 283863, 4804}, {"ED+", 284086, 4809}, {"EW+", 284309, 4814}, {"FA+", 284532, 4819}, {"FF+", 284755, 4824}, {"FV+", 284978, 4829}, {"HM+", 285201, 4834}, {"JC+", 285424, 4839}, {"JS+", 285647, 4844}, {"KB+", 285870, 4849}, {"KH+", 286093, 4854}, {"LC+", 286316, 4859}, {"LS+", 286539, 4864}, {"PK+", 286762, 4869}, {"PS+", 286985, 4874}, {"SG+", 287208, 4879}, {"TH+", 287431, 4884}, {"LastSlide", 287660, 4889} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 1594, 41, 20, "SlideShowNavigationBar"], Cell[3373, 96, 41038, 513, 129, 40815, 505, "GraphicsData", "Bitmap", "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[44448, 614, 60, 0, 176, "Title"], Cell[44511, 616, 20, 0, 33, "Subtitle"], Cell[44534, 618, 226, 6, 83, "Text"], Cell[CellGroupData[{ Cell[44785, 628, 1594, 41, 20, "SlideShowNavigationBar"], Cell[46382, 671, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[75714, 1044, 109, 4, 100, "Section"], Cell[75826, 1050, 132, 2, 50, "Text"], Cell[75961, 1054, 203, 5, 50, "Text"], Cell[76167, 1061, 139, 2, 50, "Text"], Cell[76309, 1065, 126, 2, 50, "Text"], Cell[76438, 1069, 283, 7, 75, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[76758, 1081, 1594, 41, 20, "SlideShowNavigationBar"], Cell[78355, 1124, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", \ "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[107687, 1497, 58, 0, 99, "Section"], Cell[107748, 1499, 188, 4, 75, "Text"], Cell[CellGroupData[{ Cell[107961, 1507, 30, 0, 59, "Subsection"], Cell[107994, 1509, 4773, 90, 2339, "Input"], Cell[112770, 1601, 787, 14, 285, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[113606, 1621, 1594, 41, 20, "SlideShowNavigationBar"], Cell[115203, 1664, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", \ "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[144535, 2037, 42, 0, 99, "Section"], Cell[144580, 2039, 379, 8, 75, "Text", CellTags->{ "AS+", "AV+", "CT+", "ED+", "EW+", "FA+", "FF+", "FV+", "HM+", "JC+", "JS+", "KB+", "KH+", "LC+", "LS+", "PK+", "PS+", "SG+", "TH+"}], Cell[144962, 2049, 536, 13, 140, "Input"], Cell[145501, 2064, 151, 2, 50, "Text"], Cell[145655, 2068, 159, 2, 50, "Text"], Cell[145817, 2072, 257, 5, 75, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[146111, 2082, 1594, 41, 20, "SlideShowNavigationBar"], Cell[147708, 2125, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", \ "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[177040, 2498, 40, 0, 99, "Section"], Cell[177083, 2500, 1698, 36, 389, "Input"], Cell[178784, 2538, 16, 0, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[178837, 2543, 1594, 41, 20, "SlideShowNavigationBar"], Cell[180434, 2586, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", \ "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[209766, 2959, 46, 0, 99, "Section"], Cell[CellGroupData[{ Cell[209837, 2963, 37, 0, 59, "Subsection"], Cell[209877, 2965, 235, 4, 103, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[210149, 2974, 33, 0, 59, "Subsection"], Cell[210185, 2976, 251, 5, 77, "Input"], Cell[210439, 2983, 128, 3, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[210604, 2991, 35, 0, 59, "Subsection"], Cell[210642, 2993, 156, 3, 77, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[210847, 3002, 1594, 41, 20, "SlideShowNavigationBar"], Cell[212444, 3045, 29295, 368, 37, 29078, 360, "GraphicsData", "Bitmap", \ "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[241776, 3418, 58, 1, 99, "Section", CellTags->"LastSlide"], Cell[241837, 3421, 131, 3, 50, "Text"], Cell[241971, 3426, 1840, 40, 288, "Input"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)