(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 41859, 766]*) (*NotebookOutlinePosition[ 42701, 793]*) (* CellTagsIndexPosition[ 42657, 789]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Mathematics in Mathematica", "Title", TextAlignment->Center, FontSize->31], Cell[TextData[{ "\tThis notebook will show you how to enter mathematical formulae, symbols \ and equations into ", StyleBox["Mathematica", FontSlant->"Italic"], " notebooks. You will also be able to learn how to put images into your \ notebook. The ", StyleBox["Mathematica", FontSlant->"Italic"], " programming language will also be discussed." }], "Text"], Cell[CellGroupData[{ Cell["Entering Mathematical Equations, Formulae and Symbols", "Section"], Cell[TextData[{ "\tUsing the function palettes in ", StyleBox["Mathematica", FontSlant->"Italic"], " 3.0, any mathematical symbol can be entered into ", StyleBox["Mathematica", FontSlant->"Italic"], ". These palettes can be selected from the \"", StyleBox["Palettes", FontWeight->"Bold"], "\" sub-menu under the \"", StyleBox["File", FontWeight->"Bold"], "\" menu. ", StyleBox["Mathematica", FontSlant->"Italic"], " 3.0 also allows the user to create their own palettes. You can select \ any of the built-in ", StyleBox["Mathematica", FontSlant->"Italic"], " palettes e.g.", StyleBox[ " \"BasicCalculations\", \"BasicInput\", \"Calculus\", \"LinearAlgebra.\" \ ", FontWeight->"Bold"], "The palettes pop up and appear to the side of the ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook window. Have a look at the examples below." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(x = 35\)], "Input"], Cell[BoxData[ \(35\)], "Output"] }, Open ]], Cell["This is how one could enter x=35 in Mathematica", "Text", FontSlant->"Italic", Background->GrayLevel[0.900008]], Cell[CellGroupData[{ Cell[BoxData[ \(Pi\)], "Input"], Cell[BoxData[ \(\[Pi]\)], "Output"] }, Open ]], Cell["This is what Mathematice returns when you type in Pi.", "Text", FontSlant->"Italic", Background->GrayLevel[0.900008]] }, Open ]], Cell[CellGroupData[{ Cell["Embedding Images in Mathematica", "Section"], Cell[TextData[{ "\tIf you want to put images into Mathematica, that were created elsewhere, \ it can be done in several different ways.\n\tOne way to embed images is to \ copy the image in the application program where it was created and then paste \ it into a Mathematica notebook cell.\n\tA second method is to import the \ image from wherever it is on your hard drive/ network into Mathematica. The \ \"", StyleBox["Import.", FontWeight->"Bold"], ".\" command is under the \"", StyleBox["File", FontWeight->"Bold"], "\" menu. After clicking on ", StyleBox["Import", FontWeight->"Bold"], " you have to type in the location of the image and it is imported into the \ ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook, or opened up as a ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook. In the later case you will have to copy it and paste it into \ whichever cell you want to. The image below was copied from an Adobe \ Photoshop file we created." }], "Text"], Cell[GraphicsData["PICT", "\<\ I6P0000002H1C`0A0_l<0?on0000B00004P0000000009P5?0000002Q0O805SQ2 BDd0000000009P5?Ag:9L6R_HVX00@0:0000000V0Dl0VP000?n5?00000009P5? 000010000000B00004P0000@02000`0800000000000000000000000V0Dl00000 02H1C`100Eka90@R8B@R8_hT2R4U9R8P8b8R9B@RoR<19RGH90hV9B@T8b8P9bTU 8RDQ9bK^9?dS1B@S92@U9OhTnB@G828M9bPP9B0R8BDW9BDT7R0X9bD[9B4Y`B@G 8RTY;BPQ92DX928W9B8U:2/P7RDR8RDRnBBQ9?lW52@S928RDV9RDT9RLV82@R9BHWl2@79B@S 8b@T8b?l9@8T8b?i91LM9b0R:bLT9BhP8BPT92DQ8BLT820M6Qk191LQ8R/U924P 8B8P92P/9b8/9B/R7RLR9B;i9:8T5b4V92LR7b@W9b9BHV8b8R92HU9R8U9BLVlB@29B@SoRCo8o`U0R8T3RTT8R8U9RDS928W9bhToR<0 9?`U02Kn9OTT5b0Q9b0P9b4P8BmNSj6QWI=eAR@S920Q9L4T5b4W9bPe7B`K928R 8E1lM7Yo:2DQ9b8W8_TTXR@69bDS7ahS8ohV3B8T8b0T92DO820Q9RDQn2CR9?lU 3B@S92DS8B4W9R[onOcon?gko_k`oPCooOgloOcom_km oa?nl_Woon^ZJ4a0@E66gOokookkol7n0O_o5OgdhoSeo?oloonlN7anNocoooWi ooNZoP5YlB@G82/N3`4022HR92@V9BD/90l800077R@VfB@?8R[5DJ8C0P`B@G 9B8lUYhT8B0R9BL[MlG7b/H/820R9BLMnBBR91LR:1D@1PHF8BHW8bHV92LS50/5 1A@R9RKh9>8T3b0L90P85000900<02Z3onOc1oP7iR`XA04?moooko_co QOh00P_lm?coZ_h3TOTT7bHQ8BDY8R8P9`D;00013b8U9b0S9BP>0P040P0T9R@P jB@O:20R7R@P9b0Q91hU92DS8b0O00@401/901`P92] [JbgdNSjoooln_ko5?cknOOoOP801`0300L00`002@05goko0?Clo`;nnOCnobok m?odooo`o_oonooonO_omoonoo_dmO_omooinOolmOolo__gooonnOcnooOnooKn o`5>00h51cGoo?oloocnQ@000P3noaOkook`nOodo_ooo__gmooioo_om?olnOkn o`omooonmOkoo?oko?koo_cgnol9mNkoo?GomOooo?go1OWooocomoko0oGnooOn o`_nnoooo_ognoonooh3ToTT7bDP8RHX8B4U600600036bDN:BHN:A001`0400/V 9RWBLT8R@T8RMeaLG8a2LT9bDM8B8_7R0W9bTW 9OlR;RDN92D[82PM7R/Q;bPQ7B4R9B4K8B4^92@U92@N8AhU81XN8B@R91hN81hW 8BhWoR8J9BPR7R8W;2DU8BPW9ahQ92@U:b0U;2`R9b4Nmb@M9R0<_lo`^X0UX400L0aoono__YoR7on?oN ^7Ti3oWlooglooOoY@041@ceoeH=k?oko_con_knnoh1oO[mobolo_?:ZJ_?lOSn ookjoOolhlN[]LSao_oln_koo_oi^`070`NUnooonOo[40021B7mocKnooCkm?kk o?ooo__no_olo_Wooocnno3kooklo__kmoonmOkoo_WnnoGoo_ognOoin?_booGl oOl4o?Kk>P0C0PE8logoo?oloXD0008;oo_loo_loaCkooWomoogonokooOom?_o m?cooocmo`;imo_nooogoohQno3onocnooOko?oeoo_^ooOlnOOom?oomooolno` ooknmOco2O_omokono;oo?l3T_PTob8L9bDR9ah13`000`8K8b@P8bD12@l00041 :RDS92?Y908W7b?n01T21R8S920T7bDR0`L1010T7`<9:R8S9B0S8oTT5bDS9R4U 8RLR20026BDW9RcIR@RNZBgalCAa9:FOR@T8RMeaLG8_RMFmoko5?WeoooD?DDnAMB@5`0Q V?ooK40@014200a7AfoloocnQ@000P3c_U3n05M?]o_boooio_o9@dLn@m?]MQ`5 032imoo/ORD001Yli?onooWkooonook[RDH51`0^M>;ioo_ooo_omoikA3hgJ]m7 1`1Ue?SgooCeoYY10083:W;Ynood0hci9?lU7B4X8b4Z300C00040Q/U8B@P4P0T 008100dV8b@U8^TTob0M8`000@4I8RDU8R8P:A8100028b_/7> `Jm09B/P6bPXELVnbDL?8`l5a_LNmb/S1_WDk[aL[7al[3`f`W7OTT7boP0710/X9Pd5007n03`1 00mlooeoh80]@l:0@1LoogooogYo_oj 2Lh02@L0SoomooCno`21oP0>5>ghO`2no?oom_olooknn_kooB;nooggfJRkiOoo oN3CcMKVm?oooOSfe;Feh_[ooo_onOkoi?d0216FnOknook`ookg3_oloooK00D0 0l7gnokb4_h02P[go?Wod0<01@oDo_l2oZD3n`0J0P0Lc?coo_ogokh01@00H@T3 008n2@N8b8U8b8W00`?0P000AdS8bHP01@K00<1 01/Q8bDW8>TT7bLV4`41100W8Rb<[;aL74``lG5OQdT[lS?a`l?8bkgB^STQ 92DN9Di?bcL37b=S 9Ad52b8S9B8T9RDSn2@<9B_omOga :@D03PL000<50`:3o`>>n2@N82G:W8aL[3>OTT5R8S928U9Q`260X00`00 6bDV8A4570X1oP047bDX8b?g9?8T0Ri[Rh01@D3Poko3?_o`00200057Z;4D`Gn01450632 OPL01@00moonmokn]0Cn00DAOknQ6`?n02:7oocoo?oo>PL00P@02@00DnB@O9b0V9B91lX9R8U90P300<;:A/06B4Q7b@X9R8R9OTT5bDR9R@S90L1 3bDT9B8V92TR8RJo1cX;2LR8AnQ`L7mB1dN93:Tb/_<]SXN :BTT8IW8a9B4d00070;gom?8>B]T000X08_OmooohonWn0OOKoP0L0U[o oo_oo_on@0801bOo`PB7nO7ooOomooglo_kkoPWoo?gnoOK4[]Kio_l1oOSmoaGP /[7OooWomK6_joohnOcono;om=4>oP0U1@0300020S3=noWlooGlf`8000OLoolm 300200LNoo_L00850=onobCU:P030=Ooo_jR00030;cnnoconM8:1@002D2fTb?o o?;hoc/0:0L5=ookmocoo?j500021d7onoo/00<304[hookomK/01`07:OCenNh8 o@0oQOonog002P05__ool_on?@4901S;oo_ik305000;ioWoooOn<``3000@PL=H P_olo=X50080POonon/L00L0FP>onB@98RLP8bHV1@XQ1?h0;0LI9R4G01XD0080 0`DU9R4R:28R92dY8b0W91091@0@9RDT5@0P9B@P9BDH3oh06@480P8V:BLO9001 0`0@8`4?9PT00AH/8alXmb@F9B@S:2<001/R8b8S8b@U:2@W9@d232=G8Ql[1`0D 92@R8BTT:2@Q92ie`L3?alK6al78bk=@92@Q8R4UYLS3c6LU<[jmaAB0W;QjNaLK5X28RoRA>F<37b9R8:00<05R7OTT70P10P0892HS9B@U8a420P008BLR8RH:0001 2BDVoR@`5`D2000H9b8V90P300098BDT91/200427B8T9B8N00820@dW92HW7b00 00<14bLV91dR9P/00@026R8V928U9bHA0@440Bbj?Cj nocmo?l;o]2baOSoooW0/MSlo_lSmookm?Wok88B0`D000@00`D33/oonOonnold 0`00Uoo`008PT00T3onoono[T000L3Moconom7 00803>_looc000800;_loooig`<000UlmOk`mono0_h08J[lmoolmch90`00Vnko nokonOVL00800?cioogoQ@D002X3`_TT;R4W8b@T9P4A8`D000446b@S2P4R30H0 0P4>92LQ8RPR82DS92HX2`002@h701@92DT8a?n 00@19`H35od01@4P8BaLS8aE4J ;24RFlC7blA682`N81hW_L[3`HlR928W8Y_;aL[0?B4K:2PR9BV;b=74Ydi9R8V91X002MKjnb/S0LaXW8RDX>/G5`kXZQ/S?olooc000800;_oo_WdP@05003no`[imoco?0D00S[oookn23h2000Loook nOko2Oi400852P070P;m00490`>ln2@79BLS91808aon0B`4018V1`4X6`060040 9R8X8R00484QXP5@<58ULV8RL001hV 82DQ9b8Q94]:JUDY7RDT92P^Al_3`lND920P;RLU/<73be6XablK:`LG5 al7AnB@:9bDR92H>124T00Cn01XJ9PL3924200@00b4U92HV8bDP9RLM3P000AT^ 82TT3000104H8BHS8b0O3`D200DF8BLR92DT7`D0008200P:4`L300018b00085AdQ50<68bLO90007BHS8b@R92DV7AdC6AlW9RDV 8AhM00D400/S92LP8b<60P<05PL20@8R0P0K10HI0`800bDS9BTR8a<40@030P42 0001008K9OhT1bDJ0`0111PVnB@L2P<20@/U9B@U92DS4@82004T9R@U90T20049 9BKn930K0@800QXV92@S2P4110HU9B@T6`800@8K9BDT8a00008392LV9BLQ8P`0 1@068bHW7B@S2P030`HV9b@S9RLV9@/40`H2000100@100430?Wno_lUnoml0>kj 000<00C3n3/HmmL000L01_Oloo_ooo[nooo];`001/_no`12o@0X/ooko?Kod6h0 0@D0W_;on?ofon`00`808P<0@K4L10011mWon?Ooo_kko_ko7?[okZf`mOokookB /;?:e>C_e;?2n_konkF`hoolo?lobX0036k0005:_oio?Oloil:1P<01@D03P000P2moogn1/001`80__oi oP5004800ccoookloocnQ@000P?oookoo4000090oo_oo_k900020PD3 04Ooo?ol`002002no?OomH<33000oOonoOl:>PD0043no?cnockn01LaooOio__l oolh00D5000720<01A020P<3^OTT>2DT:24X10LT8@<00@<06R402bDE00@100@[ 8BLR9BPQ9R@V2@0:00TV9a`P2`<10@0Y8b4U9RHT2od06RXQlN82TU9Gk:aln9_LG3Uab4b[c6Ul?:ag`U 91/R6e?5b/G`:M>DdiFBdaHBe5: nB@:9R@S92872RHS0P;n01XP7P0A91L300021R@T8bHU8bDQ924@00812R@U9bDT 2`01004O:2DP8B@T3@4100HN9B8S9RDU5PD100021Q8U7`Sn00@88b@T8_HT=bDS 9B000B0V8BDL000D8RDU91002BPQ91P00bLS9R0U9B@X00H500`U9B0D004Ooo?ol `0020030o__ooiP500X0ho_looWioa000`=AmOolo_lnoP0G@?Odo_ognool@000 0bG3_Kk0_[k5_/C00k_g92TV8bD04R9oTT1Z77alBK81kn918R9gG5aLS<9BL[ 82RP`lK5X28RoRA=Cl_:alY<9BLQ9:37b/FX9B@R9Dk5ba8b`?8B8O00020AHR 9BDW9R@M0Oh021@U8B0@811Q`W9B@M928;0P02 2B8S9RHS8R ]<_hoOolookgo_ZQ30020`c8oOko4>YO008008KlnOkoo_oh<@0:o@0OjooU0`09 00<09OWoooOkocP30`0`o?Gooh400080_OonoPOo`P000`;4o?Wn0Ch0?0<7mnBCo9`HO7Pd782@NoP0[0@@I11TS8`T900075QhQ:2@T:24V6P00 0`0I:28Y9``7200072@U91lS90_m01/J8R4R9bPQ8@`1004092DW9`H30001:QlR :2PPn2@F9B8Y8RLM0@0Q9BDQ100>7B8Q91@21QUG2008:B8U9BaDL75_LYA92@R9J35al2Q6b@R9Dk5bNCbTe V/_:b<^89b4P9BDWVl78bYdR9b@U:b8J8R6eaLG:^F`c;hW8a10hJ8R0;000100hQ9bHS7BDR3080 0@TV92@S8BHZ92D30P401Q8Q8Q0100024_Wn5?onoO1`0200[UooonnO_onfh200D002?no?lgoP0A 1`1cooGnnoo^GP020PNEo]V5oP030P2mookn1_o200050l_hoP510?l07AONg;gl oocnQ@000PGno__ond020090oo_oo_k20?h38[_oo__n?P<70S[oo?ol`002002i ooonoo]h1@<002o4nNU9oP0S1f?onOoonOlj2P80AOOio_olnocoob<00P8W^ G`020@260l1O9b@N824W8AhZ91lM01HQ9b401@@02`L782D/1`04100?9b0V82TQ 7QlD00<7024O9R0Y00<40@TW8B0V:24Y1`431@0`8R@Y8AdQ70H00@07:QhR8`02 000@:bDR8bHPn2@F9B_/_:X3DN81hY7AZRblO8X?TT?aiHa/Rm`LO>alC;aLZU;b@U9RLR92DV 7bHT6`4A92LF10000PX81b8U8PT000404b0S:20S8bLX4043004P8bP29B41o@0W 8bHT92HV8@T000408bDS8bPW9b@50@0012DY8QL01042428Q9B @2?oooe610001Gkon_o`oOlhO`01003CooOkoaT0008Ao__om?olocX80009onko oogjooN8BDU9735 b`l77aLC0cid[;1/Y;b4U9:?5_/ZQmb@mIoRA59A<00@4282DY8R<800D01RDU828T 60840@konk`70006 B@FLnogb?00400Anl_oooOV9ooln2PD40_Ooo_mj20000d3co_jmM_on3oh07S[k ooSojZgio`803`11n_?oH@03003HookDB_cho_kkoP3koOlEo?_Z[;CHmocnm^KE d]Wli8RDN:2/X8RDQ7Q^0`lc:`3HM9b8Xa/CE_8am6caLG7Y5`S8bPT82TR9bbLb20Q8CZ7cVnooeo?knooceBoh0047ioPkkooWRJ0020P40 4H3^o?T3[@HU8B@00@08oRHN2P0P9RdP400710408A`R8b<@0042000F9R4:01HR 8oh01`405R4R0a0>oP0D12^Ghm@071@0Hi_o:;@2U o_X:0004O?oob`0:00M2olLG7L[oooknnoh1oOklooon1]^_Z[gNoO[eo`Cno?go o?go5_Obmo3ko>c@^kW0iokimOooo_ool?cdo_l:l_oon?_no?CgooOnoa7loooe oooloooemnc2]<_bo_Cmooogool0mOWonOh1oo`4mmC5__;noPKlooW_oogdo_l@ nooin?ooloooo?oioocooo3no`Cnoo_oookloo/2o_ceo_lEnOcnmOOoo_Oil?kl c[C>joo_nooik_co1?ConoSonOh2oo_lo_l8`/G2aooinooo0k9O82HK00<5028P 2@B0T8R8T9BLU9AdX9B8R 8B8T924N9b@Y8A/X82DR:BLX9B4K8Qh/82DT9aXU7B8[8QdR:B/T828W:2On8_lW 2B/R9adW92@W7BOi91lY6ahR9B4[:2@R8QdU:1dQ8BPX9BD/9ahU8BlX9b@R8CDR 92LU824P92@Q:b0R8B8W:B4U92LP928R:2LW:BLR82LW8B0W:2LU91hX9b8Q:b@_ 91hR6RGg91lG;ahT;1hP8RDT9b4U8R@S9AX2004171T01QXW82DU2oh02000PI:RPR2@040@811@83 6b8V9`01000F9R4G0Od01PT02aDS:B3i908RDU8b2DR8B8Q92DF:1/R828Y 8AXX6ahU:b0T:b0N;24R92DI:24Q828Y;R/W7RTR81hW92TR924K6b4T8_TT7bPJ 928P9B4Q9bDU8B8T92/Y8BLP8QXQ7AhN924M9bLQ=a@T6bDT82@W:1hP7AhQ928T :BDP9b0N9B@Q8B@R824T82@^:AdP:28[928U8QhQ9b8T6B4P8BPNnB@B:2hN824[ 92lT8Q/Y82@R:RDK1oh0:@4011HY8b8U8P/3000A6b828P7RPR8RDT9B0S8b0Un2@L8AlT7BhGRPV7R8W7aLK9b8U8AlR:AhO9B8S7b`Y8RPV824X9bo_lCnOoko?ciom^?O[Kgoo[oonb;Pm7nobKkmOoim_nSOH_Tmoghm?ogoZBi loolnokool>0R=cfo?onnOkoo_kkoQ?onogmo?gmo?kkn_cooocim_G/mOko0?ck oooj4?onooonoo_omO_no__kooobo_lCl_Wooo_nooOnooWoooOlooolk_cnoaGk l?oiooklooknoookmo_onoWoo?;io_l5mOConOcooO/1oochoP3g1OConOOoo?ko 0OckoOlanOokooWno?;noo_noookoookooggooWoookinoooo?_omo_omocoo?Go ookomoooo?Wnookn3_Oeo?Wooo_koo_oo_CoooWn1?onmOkno_oon`Cgoooko`0B PBB1984TPBB19>"], "Graphics", ImageSize->{335, 38}, ImageMargins->{{60, 0}, {0, 2}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]], Cell[CellGroupData[{ Cell["Mathematica: The Programming Language", "Section"], Cell[TextData[{ "\tMathematica programming language is a little more complicated, but it \ will be described very briefly here. In order to get Mathematica to do any \ kind of mathematical computation, you have to use ", StyleBox["Mathematica", FontSlant->"Italic"], " Language, which is different from the standard language used by \ calculators. With ", StyleBox["Mathematica", FontSlant->"Italic"], " 3.0, you don't have to really spend time learning all the different \ commands. The ", StyleBox["Mathematica", FontSlant->"Italic"], " help browser is really useful. If you have a problem using a certain ", StyleBox["Mathematica", FontSlant->"Italic"], " commands e.g. ", StyleBox["Plot", FontWeight->"Bold"], " then all you have to do is highlight ", StyleBox["Plot", FontWeight->"Bold", Background->GrayLevel[0.500008]], " and press the \"", StyleBox["help", FontWeight->"Bold"], "\" button on your keyboard (or got the the \"", StyleBox["Help", FontWeight->"Bold"], "\" menu and ask for \"", StyleBox["Help..", FontWeight->"Bold"], "\") \n\tThe ", StyleBox["Mathematica", FontSlant->"Italic"], " Palettes are really useful when you want to find out how to use a certain \ command. Simply go the the Function Palettes [as desctibed above] and click \ on the appropriate palette. Then by clicking on the different buttons in the \ palette you can get ", StyleBox["Mathematica", FontSlant->"Italic"], " to put that command into the input cell of your notebook. You can use \ the palettes to do a range of things form entering matrices and simplyfying \ equations to plotting 3-dimensional graphs and factoring small prime \ numbers." }], "Text"], Cell[TextData[{ " || ", ButtonBox["Back to the Main Tutorial Page", ButtonData:>{"makemathnotebk.nb", "math"}, ButtonStyle->"Hyperlink"], " ||" }], "Text", TextAlignment->Center, FontSize->14] }, Open ]] }, Open ]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 832}, {0, 604}}, WindowSize->{520, 509}, WindowMargins->{{119, Automatic}, {-52, Automatic}}, MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 84, 2, 93, "Title"], Cell[1818, 55, 377, 10, 66, "Text"], Cell[CellGroupData[{ Cell[2220, 69, 72, 0, 50, "Section"], Cell[2295, 71, 924, 29, 122, "Text"], Cell[CellGroupData[{ Cell[3244, 104, 39, 1, 27, "Input"], Cell[3286, 107, 36, 1, 26, "Output"] }, Open ]], Cell[3337, 111, 121, 2, 48, "Text"], Cell[CellGroupData[{ Cell[3483, 117, 35, 1, 27, "Input"], Cell[3521, 120, 39, 1, 26, "Output"] }, Open ]], Cell[3575, 124, 127, 2, 48, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3739, 131, 50, 0, 50, "Section"], Cell[3792, 133, 1027, 25, 180, "Text"], Cell[4822, 160, 34947, 539, 48, 34855, 536, "GraphicsData", "PICT", "Graphics"] }, Open ]], Cell[CellGroupData[{ Cell[39806, 704, 56, 0, 50, "Section"], Cell[39865, 706, 1750, 46, 238, "Text"], Cell[41618, 754, 213, 8, 33, "Text"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)