(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 26898, 728]*) (*NotebookOutlinePosition[ 27536, 750]*) (* CellTagsIndexPosition[ 27492, 746]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Getting output from a previously evaluated notebook", "Section"], Cell["\<\ There are situations in which you need to get the output from a \ previously evaluated notebook without rerunning the notebook. This notebook \ gives a way to do that.\ \>", "Text"], Cell[CellGroupData[{ Cell["The \"GetOut\" code", "Subsection"], Cell[TextData[{ "Suppose the notebook you want to extract the results of your calculations \ is notebook below the heavy line. If you paste the following cell into the \ beginning of the notebook and evaluate it you will create a new notebook \ containing all of the ", StyleBox["Output,", FontWeight->"Bold"], " and only the ", StyleBox["Output", FontWeight->"Bold"], " of the original notebook. (Evaluating the following cell where it is will \ illustrate how this works.) The new notebook will consist entirely of ", StyleBox["Output", FontWeight->"Bold"], " cells and can be manipulated just like any other ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook." }], "Text"], Cell[BoxData[{ \(\(nb\ = \ SelectedNotebook[];\)\), "\[IndentingNewLine]", \(\(myData\ = NotebookCreate[];\)\), "\[IndentingNewLine]", \(While[\((SelectionMove[nb, Next, Cell]; \[IndentingNewLine]data\ = \ NotebookRead[nb])\) =!= {}, \[IndentingNewLine]If[ data[\([2]\)] === "\" || data[\([2]\)] === "\", NotebookWrite[myData, data]]]\)}], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["My notebook", "Title", CellFrame->{{0, 0}, {0, 3}}], Cell[CellGroupData[{ Cell["The first section", "Section"], Cell["This is a text cell.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(FindRoot[x^3\ - \ 1 \[Equal] 0, {x, .5}]\)], "Input"], Cell[BoxData[ \({x \[Rule] 1.0000000014967454`}\)], "Output"] }, Open ]], Cell["This is also a text cell", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(FindRoot[x^3\ - 2 \[Equal] 0, {x, .5}]\)], "Input"], Cell[BoxData[ \({x \[Rule] 1.2599210885886882`}\)], "Output"] }, Open ]], Cell["And another text cell.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Sin[x] \[Equal] 5\ x, x]\)], "Input"], Cell[BoxData[ \(Solve::"tdep" \(\(:\)\(\ \)\) "The equations appear to involve the variables to be solved for in an \ essentially non-algebraic way."\)], "Message"], Cell[BoxData[ \(Solve[Sin[x] == 5\ x, x]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[{3\ x\ + \ 2\ \[Equal] \ 3\ x\ + \ 5}, x]\)], "Input"], Cell[BoxData[ \({}\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["the second section", "Section"], Cell["This is more text", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(FindRoot[x^3 - 5\ \[Equal] 0, {x, .5}]\)], "Input"], Cell[BoxData[ \({x \[Rule] 1.7099759466968`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Integrate[x^3, {x, 0. , 3}]\)], "Input"], Cell[BoxData[ \(20.25`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[Sin[x], {x, 0, 2\ \[Pi]}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.151576 0.309016 0.294303 [ [.17539 .29652 -3 -9 ] [.17539 .29652 3 0 ] [.32696 .29652 -3 -9 ] [.32696 .29652 3 0 ] [.47854 .29652 -3 -9 ] [.47854 .29652 3 0 ] [.63011 .29652 -3 -9 ] [.63011 .29652 3 0 ] [.78169 .29652 -3 -9 ] [.78169 .29652 3 0 ] [.93327 .29652 -3 -9 ] [.93327 .29652 3 0 ] [.01131 .01471 -12 -4.5 ] [.01131 .01471 0 4.5 ] [.01131 .16187 -24 -4.5 ] [.01131 .16187 0 4.5 ] [.01131 .45617 -18 -4.5 ] [.01131 .45617 0 4.5 ] [.01131 .60332 -6 -4.5 ] [.01131 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .17539 .30902 m .17539 .31527 L s [(1)] .17539 .29652 0 1 Mshowa .32696 .30902 m .32696 .31527 L s [(2)] .32696 .29652 0 1 Mshowa .47854 .30902 m .47854 .31527 L s [(3)] .47854 .29652 0 1 Mshowa .63011 .30902 m .63011 .31527 L s [(4)] .63011 .29652 0 1 Mshowa .78169 .30902 m .78169 .31527 L s [(5)] .78169 .29652 0 1 Mshowa .93327 .30902 m .93327 .31527 L s [(6)] .93327 .29652 0 1 Mshowa .125 Mabswid .05412 .30902 m .05412 .31277 L s .08444 .30902 m .08444 .31277 L s .11476 .30902 m .11476 .31277 L s .14507 .30902 m .14507 .31277 L s .2057 .30902 m .2057 .31277 L s .23602 .30902 m .23602 .31277 L s .26633 .30902 m .26633 .31277 L s .29665 .30902 m .29665 .31277 L s .35728 .30902 m .35728 .31277 L s .38759 .30902 m .38759 .31277 L s .41791 .30902 m .41791 .31277 L s .44822 .30902 m .44822 .31277 L s .50885 .30902 m .50885 .31277 L s .53917 .30902 m .53917 .31277 L s .56948 .30902 m .56948 .31277 L s .5998 .30902 m .5998 .31277 L s .66043 .30902 m .66043 .31277 L s .69074 .30902 m .69074 .31277 L s .72106 .30902 m .72106 .31277 L s .75138 .30902 m .75138 .31277 L s .81201 .30902 m .81201 .31277 L s .84232 .30902 m .84232 .31277 L s .87264 .30902 m .87264 .31277 L s .90295 .30902 m .90295 .31277 L s .96358 .30902 m .96358 .31277 L s .9939 .30902 m .9939 .31277 L s .25 Mabswid 0 .30902 m 1 .30902 L s .02381 .01471 m .03006 .01471 L s [(-1)] .01131 .01471 1 0 Mshowa .02381 .16187 m .03006 .16187 L s [(-0.5)] .01131 .16187 1 0 Mshowa .02381 .45617 m .03006 .45617 L s [(0.5)] .01131 .45617 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(1)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .04414 m .02756 .04414 L s .02381 .07357 m .02756 .07357 L s .02381 .103 m .02756 .103 L s .02381 .13243 m .02756 .13243 L s .02381 .1913 m .02756 .1913 L s .02381 .22073 m .02756 .22073 L s .02381 .25016 m .02756 .25016 L s .02381 .27959 m .02756 .27959 L s .02381 .33845 m .02756 .33845 L s .02381 .36788 m .02756 .36788 L s .02381 .39731 m .02756 .39731 L s .02381 .42674 m .02756 .42674 L s .02381 .4856 m .02756 .4856 L s .02381 .51503 m .02756 .51503 L s .02381 .54446 m .02756 .54446 L s .02381 .57389 m .02756 .57389 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .30902 m .06244 .38322 L .10458 .45852 L .14415 .51889 L .18221 .56357 L .20178 .58047 L .21267 .58793 L .22272 .59354 L .23293 .59796 L .23832 .59976 L .24402 .60127 L .24641 .60178 L .24897 .60225 L .25119 .60258 L .25361 .60288 L .25507 .60302 L .25643 .60313 L .25773 .60321 L .2584 .60324 L .25912 .60327 L .25983 .60329 L .26048 .60331 L .26176 .60332 L .26293 .60331 L .26416 .60329 L .26538 .60324 L .26607 .60321 L .26671 .60317 L .26912 .60299 L .27131 .60275 L .27364 .60244 L .27847 .60156 L .2838 .60025 L .29326 .59705 L .30213 .59301 L .32232 .58025 L .34082 .56432 L .38045 .51781 L .41855 .45965 L .45912 .38744 L .49816 .31259 L .53966 .23289 L .57964 .1614 L .61811 .10221 L .63759 .07707 L .65902 .05386 L .67938 .03652 L .69843 .02473 L .70884 .02018 L .71396 .01844 L Mistroke .71872 .01712 L .72301 .01617 L .72758 .01542 L .7302 .01511 L .73148 .01499 L .73266 .0149 L .73371 .01484 L .73487 .01478 L .73603 .01474 L .73725 .01472 L .73856 .01472 L .73977 .01473 L .7404 .01475 L .7411 .01477 L .74251 .01484 L .74375 .01492 L .74508 .01503 L .74748 .01528 L .74985 .0156 L .75235 .01601 L .7568 .01695 L .76198 .01836 L .7668 .01998 L .77773 .02472 L .78828 .0307 L .79823 .03757 L .81683 .05353 L .85534 .09846 L .89632 .16101 L .93577 .23146 L .97371 .3042 L .97619 .30902 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOooool00ol0003oooooooooo`0Vooooo`006oooool00ol0003o ooooooooo`2Looooo`03o`000?oooooooooo03_ooooo00?o0000ooooooooool09Oooool001_ooooo 0_l0002Looooo`03o`000?oooooooooo03cooooo00?o0000ooooooooool09Oooool001_ooooo00?o 0000ooooooooool0Voooool00ol0003oooooooooo`0mooooo`03o`000?oooooooooo02Cooooo000K ooooo`03o`000?oooooooooo09[ooooo00?o0000ooooooooool0?oooool00ol0003oooooooooo`0S ooooo`006oooool00ol0003oooooooooo`2Iooooo`03o`000?oooooooooo043ooooo00?o0000oooo ooooool08oooool001_ooooo00?o0000ooooooooool0VOooool00ol0003oooooooooo`11ooooo`03 o`000?oooooooooo02;ooooo000Kooooo`03o`000?oooooooooo09Sooooo00?o0000ooooooooool0 @oooool00ol0003oooooooooo`0Qooooo`006oooool00ol0003oooooooooo`2Hooooo`03o`000?oo oooooooo04?ooooo00?o0000ooooooooool08Oooool001_ooooo00?o0000ooooooooool0Uoooool0 0ol0003oooooooooo`15ooooo`03o`000?oooooooooo023ooooo000Kooooo`;o0000Uoooool00ol0 003oooooooooo`17ooooo`03o`000?oooooooooo01oooooo000Kooooo`03o`000?oooooooooo09Ko oooo00?o0000ooooooooool0Aoooool00ol0003oooooooooo`0Oooooo`006oooool00ol0003ooooo ooooo`2Eooooo`03o`000?oooooooooo04Wooooo00?o0000ooooooooool07_ooool001_ooooo00?o 0000ooooooooool0U?ooool00ol0003oooooooooo`1:ooooo`03o`000?oooooooooo01kooooo000K ooooo`03o`000?oooooooooo09Cooooo00?o0000ooooooooool0Boooool00ol0003oooooooooo`0M ooooo`002?ooool2o`0000Cooooo00?o0000ooooooooool00_ooool3o`0000Gooooo00?o0000oooo ooooool0Toooool00ol0003oooooooooo`1=ooooo`03o`000?oooooooooo01cooooo0007ooooo`04 o`000?ooooooooooo`0000Oooooo00Go0000ooooooooooooooooo`000004ooooo`03o`000?oooooo oooo09?ooooo00?o0000ooooooooool0COooool00ol0003oooooooooo`0Looooo`001Ol00002oooo o`04o`000?ooooooooooo`0000_ooooo00?o0000ooooooooool00_ooool00ol0003oooooooooo`2B ooooo`03o`000?oooooooooo04oooooo00?o0000ooooooooool06oooool000Oooooo00Co0000oooo oooooooo00002oooool00ol0003oooooooooo`02ooooo`;o0000T_ooool00ol0003oooooooooo`1A ooooo`03o`000?oooooooooo01[ooooo0007ooooo`04o`000?ooooooooooo`0000Oooooo1?l00005 ooooo`03o`000?oooooooooo097ooooo00?o0000ooooooooool0DOooool00ol0003oooooooooo`0J ooooo`001oooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo00Kooooo00?o0000 ooooooooool0T?ooool00ol0003oooooooooo`1Cooooo`03o`000?oooooooooo01Wooooo0008oooo o`;o00002?ooool5o`0000Cooooo00?o0000ooooooooool0T?ooool00ol0003oooooooooo`1Coooo o`03o`000?oooooooooo01Wooooo000Kooooo`03o`000?oooooooooo08oooooo00?o0000oooooooo ool0EOooool00ol0003oooooooooo`0Hooooo`006oooool00ol0003oooooooooo`2>ooooo`03o`00 0?oooooooooo05Oooooo00?o0000ooooooooool05oooool001_ooooo00?o0000ooooooooool0S_oo ool00ol0003oooooooooo`1Gooooo`03o`000?oooooooooo01Oooooo000Kooooo`03o`000?oooooo oooo08gooooo00?o0000ooooooooool0FOooool00ol0003oooooooooo`0Fooooo`006oooool2o`00 08kooooo00?o0000ooooooooool0FOooool00ol0003oooooooooo`0Fooooo`006oooool00ol0003o ooooooooo`2 ooooo`006oooool00ol0003oooooooooo`08ooooo`03o`000?oooooooooo06Kooooo00?o0000oooo ooooool0S_ooool001_ooooo00?o0000ooooooooool02?ooool00ol0003oooooooooo`1Uooooo`03 o`000?oooooooooo08oooooo000Kooooo`;o00002_ooool00ol0003oooooooooo`1Tooooo`03o`00 0?oooooooooo08oooooo000Kooooo`03o`000?oooooooooo00Wooooo00?o0000ooooooooool0Hooo ool00ol0003oooooooooo`2@ooooo`006oooool00ol0003oooooooooo`0:ooooo`03o`000?oooooo oooo067ooooo00?o0000ooooooooool0TOooool001_ooooo00?o0000ooooooooool02oooool00ol0 003oooooooooo`1Pooooo`03o`000?oooooooooo097ooooo000Kooooo`03o`000?oooooooooo00_o oooo00?o0000ooooooooool0Goooool00ol0003oooooooooo`2Booooo`006oooool00ol0003ooooo ooooo`0ooooo`03o`000?oooooooooo05Wooooo00?o0000oooooooo ool0UOooool001_ooooo00?o0000ooooooooool03_ooool00ol0003oooooooooo`1Iooooo`03o`00 0?oooooooooo09Gooooo000Kooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0Eooo ool00ol0003oooooooooo`2Fooooo`006oooool00ol0003oooooooooo`0@ooooo`03o`000?oooooo oooo05Kooooo00?o0000ooooooooool0U_ooool000Sooooo0_l00004ooooo`03o`000?oooooooooo 00;ooooo0ol00005ooooo`03o`000?oooooooooo013ooooo00?o0000ooooooooool0EOooool00ol0 003oooooooooo`2Gooooo`001oooool01?l0003oooooooooool00007ooooo`05o`000?oooooooooo ooooool000001?ooool00ol0003oooooooooo`0Aooooo`03o`000?oooooooooo05?ooooo00?o0000 ooooooooool0V?ooool000Oooooo00Co0000oooooooooooo00002oooool00ol0003oooooooooo`02 ooooo`;o00004_ooool00ol0003oooooooooo`1Cooooo`03o`000?oooooooooo09Sooooo0007oooo o`04o`000?ooooooooooo`0000_ooooo00?o0000ooooooooool00_ooool00ol0003oooooooooo`0B ooooo`03o`000?oooooooooo057ooooo00?o0000ooooooooool0VOooool000Oooooo00Co0000oooo oooooooo00001oooool4o`0000Gooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`1A ooooo`03o`000?oooooooooo09Wooooo0007ooooo`04o`000?ooooooooooo`0000Oooooo00?o0000 ooooooooool01_ooool00ol0003oooooooooo`0Cooooo`03o`000?oooooooooo04oooooo00?o0000 ooooooooool0V_ooool000Sooooo0_l00008ooooo`Go00001?ooool00ol0003oooooooooo`0Doooo o`03o`000?oooooooooo04gooooo00?o0000ooooooooool0Voooool001_ooooo00?o0000oooooooo ool05?ooool00ol0003oooooooooo`1=ooooo`03o`000?oooooooooo09_ooooo000Kooooo`03o`00 0?oooooooooo01Gooooo00?o0000ooooooooool0Boooool00ol0003oooooooooo`2Looooo`006ooo ool00ol0003oooooooooo`0Fooooo`03o`000?oooooooooo04[ooooo00?o0000ooooooooool0W?oo ool001_ooooo0_l0000Gooooo`03o`000?oooooooooo04Wooooo00?o0000ooooooooool0WOooool0 01_ooooo00?o0000ooooooooool05oooool00ol0003oooooooooo`17ooooo`03o`000?oooooooooo 09kooooo000Kooooo`03o`000?oooooooooo01Sooooo00?o0000ooooooooool0A_ooool00ol0003o ooooooooo`2Nooooo`006oooool00ol0003oooooooooo`0Iooooo`03o`000?oooooooooo04Cooooo 00?o0000ooooooooool0Woooool001_ooooo00?o0000ooooooooool06Oooool00ol0003ooooooooo o`13ooooo`03o`000?oooooooooo0:3ooooo000Kooooo`03o`000?oooooooooo01[ooooo00?o0000 ooooooooool0@_ooool00ol0003oooooooooo`2Pooooo`006oooool00ol0003oooooooooo`0Koooo o`03o`000?oooooooooo043ooooo00?o0000ooooooooool0XOooool001_ooooo00?o0000oooooooo ool06oooool00ol0003oooooooooo`10ooooo`03o`000?oooooooooo0:7ooooo000Kooooo`;o0000 7Oooool00ol0003oooooooooo`0nooooo`03o`000?oooooooooo0:;ooooo000Kooooo`03o`000?oo oooooooo01gooooo00?o0000ooooooooool0??ooool00ol0003oooooooooo`2Sooooo`006oooool0 0ol0003oooooooooo`0Mooooo`03o`000?oooooooooo03cooooo00?o0000ooooooooool0Xoooool0 01_ooooo00?o0000ooooooooool07_ooool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo 0:Cooooo000Kooooo`03o`000?oooooooooo01oooooo00?o0000ooooooooool0>?ooool00ol0003o ooooooooo`2Uooooo`006oooool00ol0003oooooooooo`0Pooooo`03o`000?oooooooooo03Kooooo 00?o0000ooooooooool0Y_ooool001_ooooo00?o0000ooooooooool08Oooool00ol0003ooooooooo o`0dooooo`03o`000?oooooooooo0:Oooooo000Kooooo`03o`000?oooooooooo02;ooooo00?o0000 ooooooooool0<_ooool00ol0003oooooooooo`2Xooooo`006oooool2o`0002?ooooo00?o0000oooo ooooool0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.677733, -1.13007, \ 0.0248015, 0.0127736}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.1 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 746}}, WindowSize->{520, 624}, WindowMargins->{{124, Automatic}, {21, Automatic}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1727, 52, 70, 0, 56, "Section"], Cell[1800, 54, 191, 4, 50, "Text"], Cell[CellGroupData[{ Cell[2016, 62, 41, 0, 46, "Subsection"], Cell[2060, 64, 718, 18, 122, "Text"], Cell[2781, 84, 415, 6, 107, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3245, 96, 59, 1, 119, "Title"], Cell[CellGroupData[{ Cell[3329, 101, 36, 0, 56, "Section"], Cell[3368, 103, 36, 0, 32, "Text"], Cell[CellGroupData[{ Cell[3429, 107, 75, 1, 27, "Input"], Cell[3507, 110, 65, 1, 27, "Output"] }, Open ]], Cell[3587, 114, 40, 0, 32, "Text"], Cell[CellGroupData[{ Cell[3652, 118, 73, 1, 27, "Input"], Cell[3728, 121, 65, 1, 27, "Output"] }, Open ]], Cell[3808, 125, 38, 0, 32, "Text"], Cell[CellGroupData[{ Cell[3871, 129, 63, 1, 27, "Input"], Cell[3937, 132, 175, 3, 49, "Message"], Cell[4115, 137, 58, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4210, 143, 83, 1, 27, "Input"], Cell[4296, 146, 36, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4381, 153, 37, 0, 56, "Section"], Cell[4421, 155, 33, 0, 32, "Text"], Cell[CellGroupData[{ Cell[4479, 159, 73, 1, 27, "Input"], Cell[4555, 162, 62, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4654, 168, 60, 1, 27, "Input"], Cell[4717, 171, 40, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4794, 177, 63, 1, 27, "Input"], Cell[4860, 180, 21865, 538, 186, 4588, 320, "GraphicsData", "PostScript", \ "Graphics"], Cell[26728, 720, 130, 3, 27, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)