(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 75469, 2703]*) (*NotebookOutlinePosition[ 76136, 2726]*) (* CellTagsIndexPosition[ 76092, 2722]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Second Order Model Identification \nusing Moments ", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}], StyleBox["\n", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": ", FontSize->14], StyleBox["Housam BINOUS\nDepartment of Chemical Engineering\nNational \ Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \ binoushousam@yahoo.com ", FontSize->14, FontWeight->"Plain"] }], "Title", TextAlignment->Center, Background->RGBColor[0.605478, 0.996109, 0.605478]], Cell[CellGroupData[{ Cell["Interpolation of experimental data", "Subsubtitle", Background->RGBColor[1, 1, 0.65098]], Cell["\<\ time={0,0.5,1,1.5,2,2.5,3,3.5,4,4.5,5,5.5,6,6.5,7,7.5,8,8.5,9,9.5,10,10.5,11,\ 11.5,12,12.5,13,13.5,14,14.5,15,15.5,16,16.5,17,17.5,18,18.5,19,19.5,20};\ \>", "Input"], Cell["\<\ ImpulseResponse={0,0.1215,0.1982,0.2392,0.2530,0.2470, 0.2278,0.2006,0.1694,0.1375,0.1070,0.0793,0.0553,0.0353,0.0193,0.0070,-0.0018,\ -0.0079,-0.0116,-0.0135,-0.0139,-0.0134,-0.0122,-0.0106,-0.0089,-0.0071,-0.\ 0055,-0.0040,-0.0027,-0.0017,-0.0008,-0.0002,0.0001,0.0004,0.0006,0.0007,0.\ 0007,0.0007,0.0006,0.0005,0.0004};\ \>", "Input"], Cell["tt=Transpose[{time,ImpulseResponse}];", "Input"], Cell[CellGroupData[{ Cell["IR=Interpolation[tt,InterpolationOrder->1]", "Input"], Cell[BoxData[ TagBox[\(InterpolatingFunction[{{0.`, 20.`}}, "<>"]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["plt1=ListPlot[tt,PlotRange->All,PlotStyle->PointSize[0.02]]", "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.047619 0.0453692 2.20533 [ [.2619 .03287 -3 -9 ] [.2619 .03287 3 0 ] [.5 .03287 -6 -9 ] [.5 .03287 6 0 ] [.7381 .03287 -6 -9 ] [.7381 .03287 6 0 ] [.97619 .03287 -6 -9 ] [.97619 .03287 6 0 ] [.01131 .15564 -24 -4.5 ] [.01131 .15564 0 4.5 ] [.01131 .2659 -18 -4.5 ] [.01131 .2659 0 4.5 ] [.01131 .37617 -24 -4.5 ] [.01131 .37617 0 4.5 ] [.01131 .48644 -18 -4.5 ] [.01131 .48644 0 4.5 ] [.01131 .5967 -24 -4.5 ] [.01131 .5967 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 .2619 .04537 m .2619 .05162 L s [(5)] .2619 .03287 0 1 Mshowa .5 .04537 m .5 .05162 L s [(10)] .5 .03287 0 1 Mshowa .7381 .04537 m .7381 .05162 L s [(15)] .7381 .03287 0 1 Mshowa .97619 .04537 m .97619 .05162 L s [(20)] .97619 .03287 0 1 Mshowa .125 Mabswid .07143 .04537 m .07143 .04912 L s .11905 .04537 m .11905 .04912 L s .16667 .04537 m .16667 .04912 L s .21429 .04537 m .21429 .04912 L s .30952 .04537 m .30952 .04912 L s .35714 .04537 m .35714 .04912 L s .40476 .04537 m .40476 .04912 L s .45238 .04537 m .45238 .04912 L s .54762 .04537 m .54762 .04912 L s .59524 .04537 m .59524 .04912 L s .64286 .04537 m .64286 .04912 L s .69048 .04537 m .69048 .04912 L s .78571 .04537 m .78571 .04912 L s .83333 .04537 m .83333 .04912 L s .88095 .04537 m .88095 .04912 L s .92857 .04537 m .92857 .04912 L s .25 Mabswid 0 .04537 m 1 .04537 L s .02381 .15564 m .03006 .15564 L s [(0.05)] .01131 .15564 1 0 Mshowa .02381 .2659 m .03006 .2659 L s [(0.1)] .01131 .2659 1 0 Mshowa .02381 .37617 m .03006 .37617 L s [(0.15)] .01131 .37617 1 0 Mshowa .02381 .48644 m .03006 .48644 L s [(0.2)] .01131 .48644 1 0 Mshowa .02381 .5967 m .03006 .5967 L s [(0.25)] .01131 .5967 1 0 Mshowa .125 Mabswid .02381 .06742 m .02756 .06742 L s .02381 .08948 m .02756 .08948 L s .02381 .11153 m .02756 .11153 L s .02381 .13358 m .02756 .13358 L s .02381 .17769 m .02756 .17769 L s .02381 .19974 m .02756 .19974 L s .02381 .2218 m .02756 .2218 L s .02381 .24385 m .02756 .24385 L s .02381 .28796 m .02756 .28796 L s .02381 .31001 m .02756 .31001 L s .02381 .33206 m .02756 .33206 L s .02381 .35412 m .02756 .35412 L s .02381 .39822 m .02756 .39822 L s .02381 .42028 m .02756 .42028 L s .02381 .44233 m .02756 .44233 L s .02381 .46438 m .02756 .46438 L s .02381 .50849 m .02756 .50849 L s .02381 .53054 m .02756 .53054 L s .02381 .5526 m .02756 .5526 L s .02381 .57465 m .02756 .57465 L s .02381 .02332 m .02756 .02332 L s .02381 .00126 m .02756 .00126 L s .25 Mabswid .02381 0 m .02381 .61803 L s .02 w .02381 .04537 Mdot .04762 .31332 Mdot .07143 .48247 Mdot .09524 .57289 Mdot .11905 .60332 Mdot .14286 .59009 Mdot .16667 .54774 Mdot .19048 .48776 Mdot .21429 .41895 Mdot .2381 .3486 Mdot .2619 .28134 Mdot .28571 .22025 Mdot .30952 .16732 Mdot .33333 .12322 Mdot .35714 .08793 Mdot .38095 .06081 Mdot .40476 .0414 Mdot .42857 .02795 Mdot .45238 .01979 Mdot .47619 .0156 Mdot .5 .01472 Mdot .52381 .01582 Mdot .54762 .01846 Mdot .57143 .02199 Mdot .59524 .02574 Mdot .61905 .02971 Mdot .64286 .03324 Mdot .66667 .03655 Mdot .69048 .03941 Mdot .71429 .04162 Mdot .7381 .0436 Mdot .7619 .04493 Mdot .78571 .04559 Mdot .80952 .04625 Mdot .83333 .04669 Mdot .85714 .04691 Mdot .88095 .04691 Mdot .90476 .04691 Mdot .92857 .04669 Mdot .95238 .04647 Mdot .97619 .04625 Mdot 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggoo0P00<7oo1@0000=o o`0000002@0000=oo`000000100000=oo`0000000`000Woo0`00:7oo00<007ooOol00Woo0P00>7oo 00D007ooOomoo`00009oo`03001oogoo005oo`006goo00<007ooOol0>goo00<007ooOol0;goo1@00 00=oo`0000002@0000=oo`000000100000=oo`0000000`0000=oo`0000000`000goo0`008Goo00<0 07ooOol00Woo00<007ooOol0=Goo00@007ooOol0009oo`04001oogoo0003Ool001]oo`8003aoo`<0 02Uoo`<000=oo`D0009oo`D00003Ool0000000<0009oo`<0009oo`D00003Ool0000000<0009oo`D0 009oo`<001Yoo`8000Aoo`<003Ioo`8000Aoo`8000Aoo`006goo00<007ooOol0IWoo1@000goo0`00 5Woo0`000Woo1@000Woo1@0000=oo`0000000`000Woo0`00Ggoo000KOol00`00Oomoo`1VOol5000R Ool30003Ool500000goo0000000300000goo000000030003Ool3001HOol001]oo`03001oogoo065o o`<0009oo`D002Uoo`<0009oo`D00003Ool0000000<0009oo`D0009oo`<000=oo`<004aoo`006Woo 0`00HGoo1@000Woo0`00<7oo0`000Woo1@000Woo1@0000=oo`0000000`0000=oo`0000000`000goo 0`000goo0`000goo0`0017oo0`008goo0`000goo0`001Woo000IOol5001POol5000kOol30003Ool5 00000goo0000000300000goo000000030002Ool500000goo0000000300000goo000000030002Ool5 0002Ool30003Ool30004Ool30003Ool30003Ool30003Ool500000goo000000030005Ool001Aoool0 00d000006Goo1@002Goo00<007ooOol02Woo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol0 2Woo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol02Goo0`002goo00<007ooOol02Goo00<0 07ooOol02Woo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol02Goo0`000goo0`000goo1@00 00=oo`0000000`0000=oo`0000000`000Woo1@0000=oo`0000000`0000=oo`0000000`000Woo1@00 00=oo`0000000`0000=oo`0000000`000Woo1@0000=oo`0000000`001Goo000JOol3000mOol00`00 Oomoo`0LOol3000MOol00`00Oomoo`0lOol30003Ool30003Ool30004Ool30002Ool500000goo0000 00030002Ool500000goo0000000300000goo000000030003Ool30003Ool30006Ool001]oo`03001o ogoo05Yoo`D007Aoo`<000=oo`<000Aoo`<000=oo`<000=oo`<001=oo`006goo00<007ooOol0FWoo 1@00Xgoo000KOol00`00Oomoo`1JOol5002SOol001]oo`8005aoo`<00:Aoo`006goo00<007ooOol0 ogoo0goo000KOol00`00Oomoo`3oOol3Ool001]oo`03001oogoo05Aoo`<00:]oo`006goo00<007oo Ool0Dgoo1@00ZWoo000KOol00`00Oomoo`1COol5002ZOol001]oo`8005Aoo`D00:Yoo`006goo00<0 07ooOol0E7oo0`00Zgoo000KOol00`00Oomoo`3oOol3Ool001]oo`03001oogoo0?moo`=oo`006goo 00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool001]oo`800?moo`Aoo`006goo00<007oo Ool0CWoo0`00/Goo000KOol00`00Oomoo`1=Ool5002`Ool001]oo`03001oogoo04eoo`D00;1oo`00 6goo00<007ooOol0CGoo1@00/7oo000KOol2001?Ool3002aOol001]oo`03001oogoo0?moo`=oo`00 6goo00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool0009oo`8000Aoo`8000Aoo`8000Ao o`8000Eoo`03001oogoo0?moo`=oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0002Ool01000Oomo o`0017oo00<007ooOol0ogoo0goo00001Goo001oogoo000027oo00@007ooOol000Eoo`03001oogoo 009oo`800?moo`Aoo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0003Ool20005Ool00`00Oomoo`3o Ool3Ool00005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol017oo00<007ooOol0B7oo 0`00]goo0002Ool2000:Ool20004Ool30004Ool00`00Oomoo`17Ool5002fOol001]oo`03001oogoo 04Moo`D00;Ioo`006goo00<007ooOol0Agoo1@00]Woo000KOol20019Ool3002gOol001]oo`03001o ogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool001]oo`03001o ogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo000KOol2003oOol4Ool001]oo`03001oogoo0?mo o`=oo`006goo00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool001]oo`03001oogoo045o o`<00;ioo`006goo00<007ooOol0@7oo1@00_Goo000KOol20011Ool5002mOol001]oo`03001oogoo 041oo`D00;eoo`006goo00<007ooOol0@Goo0`00_Woo000KOol00`00Oomoo`3oOol3Ool001]oo`03 001oogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo000KOol2003oOol4Ool001]oo`03001oogoo 0?moo`=oo`006goo00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool000Qoo`8000Aoo`80 00=oo`D000=oo`03001oogoo0?moo`=oo`001goo00@007ooOol000Yoo`03001oogoo00=oo`03001o ogoo0?moo`=oo`001goo00@007ooOol000Yoo`03001oogoo00=oo`800?moo`Aoo`001goo00@007oo Ool000Yoo`03001oogoo00=oo`03001oogoo0?moo`=oo`001goo00@007ooOol000Yoo`03001oogoo 00=oo`03001oogoo03]oo`<00Woo1@00`goo000K Ool00`00Oomoo`0jOol50033Ool001]oo`03001oogoo03Yoo`D00<=oo`006goo0P00?7oo0`00a7oo 000KOol00`00Oomoo`3oOol3Ool001]oo`03001oogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo 000KOol00`00Oomoo`02Ool3003mOol001]oo`80009oo`D00?aoo`006goo00@007ooOomoo`D00?ao o`006goo00@007ooOomoo`D00?aoo`006goo00<007ooOol00Woo0`00oGoo000KOol00`00Oomoo`3o Ool3Ool001]oo`03001oogoo0?moo`=oo`006goo0P00ogoo17oo000KOol00`00Oomoo`3oOol3Ool0 01]oo`03001oogoo0?moo`=oo`006goo00<007ooOol0=Goo0`00bWoo000KOol00`00Oomoo`0dOol5 0039Ool001]oo`03001oogoo03Aoo`D00moo`006goo00<007ooOol03Woo1@00kgoo000KOol2000? Ool5003_Ool001]oo`03001oogoo00moo`<00?1oo`006goo00<007ooOol06goo0`00i7oo000KOol0 0`00Oomoo`0JOol5003SOol0009oo`8000Aoo`8000=oo`@000=oo`8000Eoo`03001oogoo01Yoo`D0 0>=oo`0000Eoo`00Oomoo`0000Qoo`03001oogoo00=oo`04001oogoo0004Ool00`00Oomoo`0JOol5 003SOol00005Ool007ooOol00009Ool00`00Oomoo`05Ool00`00Oomoo`02Ool2000FOol30003Ool3 003TOol00005Ool007ooOol0000:Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`0DOol5003YOol0 0005Ool007ooOol00008Ool01000Oomoo`000goo00<007ooOol017oo00<007ooOol057oo1@00jGoo 0002Ool2000:Ool20004Ool30004Ool00`00Oomoo`0DOol5003YOol001]oo`03001oogoo01Eoo`<0 0>Yoo`006goo00<007ooOol0ogoo0goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?mo ob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.15729, -0.0314774, \ 0.0789457, 0.00170465}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Computing moments and normalized moments", "Subsubtitle", Background->RGBColor[1, 1, 0.65098]], Cell["Off[NIntegrate::slwcon]", "Input"], Cell["Off[NIntegrate::ncvb]", "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(M\_0 = NIntegrate[IR[t], {t, 0, 20}]\)], "Input"], Cell[BoxData[ \(0.993087087662184`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(M\_1 = NIntegrate[t\ IR[t], {t, 0, 20}]\)], "Input"], Cell[BoxData[ \(2.4879802387172765`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(M\_2 = NIntegrate[t^2\ IR[t], {t, 0, 20}]\)], "Input"], Cell[BoxData[ \(5.511462936770883`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Mu]\_1 = M\_1\/M\_0\)], "Input"], Cell[BoxData[ \(2.5052991521359975`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Mu]\_2 = M\_2\/M\_0\)], "Input"], Cell[BoxData[ \(5.54982841408739`\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Computing second order model parameters\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.65098]], Cell[CellGroupData[{ Cell[BoxData[ \(sol1 = Solve[{a\_1 \[Equal] \[Mu]\_1, a\_2 \[Equal] \[Mu]\_1^2 - \[Mu]\_2/2}, {a\_1, a\_2}]\)], "Input"], Cell[BoxData[ \({{a\_1 \[Rule] 2.5052991521359975`, a\_2 \[Rule] 3.501609634649653`}}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Obtaining the impulse response of the second order system with ", Cell[BoxData[ \(TraditionalForm\`a\_1\)]], "=2.505 and ", Cell[BoxData[ \(TraditionalForm\`a\_2\)]], "=3.501 " }], "Subsubtitle", Background->RGBColor[1, 1, 0.65098]], Cell["\<\ u[t_]:=\[Epsilon] (UnitStep[t]-UnitStep[t-1/\[Epsilon]])\ \>", "Input"], Cell[BoxData[ \(\(\[Epsilon] = 10000;\)\)], "Input"], Cell[CellGroupData[{ Cell["\<\ Plot[u[t],{t,0,5/\[Epsilon]},PlotStyle->RGBColor[0,0,1]]\ \>", "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 1904.76 0.0147151 5.88604e-005 [ [.21429 .00222 -18 -9 ] [.21429 .00222 18 0 ] [.40476 .00222 -18 -9 ] [.40476 .00222 18 0 ] [.59524 .00222 -18 -9 ] [.59524 .00222 18 0 ] [.78571 .00222 -18 -9 ] [.78571 .00222 18 0 ] [.97619 .00222 -18 -9 ] [.97619 .00222 18 0 ] [.01131 .13244 -24 -4.5 ] [.01131 .13244 0 4.5 ] [.01131 .25016 -24 -4.5 ] [.01131 .25016 0 4.5 ] [.01131 .36788 -24 -4.5 ] [.01131 .36788 0 4.5 ] [.01131 .4856 -24 -4.5 ] [.01131 .4856 0 4.5 ] [.01131 .60332 -30 -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 .21429 .01472 m .21429 .02097 L s [(0.0001)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.0002)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.0003)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.0004)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(0.0005)] .97619 .00222 0 1 Mshowa .125 Mabswid .0619 .01472 m .0619 .01847 L s .1 .01472 m .1 .01847 L s .1381 .01472 m .1381 .01847 L s .17619 .01472 m .17619 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .36667 .01472 m .36667 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .55714 .01472 m .55714 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .74762 .01472 m .74762 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .9381 .01472 m .9381 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13244 m .03006 .13244 L s [(2000)] .01131 .13244 1 0 Mshowa .02381 .25016 m .03006 .25016 L s [(4000)] .01131 .25016 1 0 Mshowa .02381 .36788 m .03006 .36788 L s [(6000)] .01131 .36788 1 0 Mshowa .02381 .4856 m .03006 .4856 L s [(8000)] .01131 .4856 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(10000)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .04415 m .02756 .04415 L s .02381 .07358 m .02756 .07358 L s .02381 .10301 m .02756 .10301 L s .02381 .16187 m .02756 .16187 L s .02381 .1913 m .02756 .1913 L s .02381 .22073 m .02756 .22073 L s .02381 .27959 m .02756 .27959 L s .02381 .30902 m .02756 .30902 L s .02381 .33845 m .02756 .33845 L s .02381 .39731 m .02756 .39731 L s .02381 .42674 m .02756 .42674 L s .02381 .45617 m .02756 .45617 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 0 0 1 r .5 Mabswid .02381 .60332 m .06244 .60332 L .10458 .60332 L .14415 .60332 L .18221 .60332 L .20178 .60332 L .20742 .60332 L .21019 .60332 L .2114 .60332 L .21274 .60332 L .21394 .60332 L .21506 .01472 L .21625 .01472 L .21753 .01472 L .21819 .01472 L .21892 .01472 L .22024 .01472 L .22152 .01472 L .22272 .01472 L .224 .01472 L .22465 .01472 L .22536 .01472 L .22662 .01472 L .22779 .01472 L .2285 .01472 L .22918 .01472 L .23044 .01472 L .23115 .01472 L .2318 .01472 L .23252 .01472 L .23328 .01472 L .23446 .01472 L .23572 .01472 L .23692 .01472 L .23802 .01472 L .23923 .01472 L .23992 .01472 L .24056 .01472 L .24186 .01472 L .24258 .01472 L .24324 .01472 L .2444 .01472 L .24563 .01472 L .24668 .01472 L .24783 .01472 L .24907 .01472 L .24977 .01472 L .2504 .01472 L .25164 .01472 L .25281 .01472 L Mistroke .2539 .01472 L .25505 .01472 L .25615 .01472 L .25713 .01472 L .2583 .01472 L .25956 .01472 L .26075 .01472 L .26185 .01472 L .26311 .01472 L .26431 .01472 L .26539 .01472 L .26656 .01472 L .26783 .01472 L .26848 .01472 L .26918 .01472 L .27043 .01472 L .27161 .01472 L .27272 .01472 L .2739 .01472 L .2749 .01472 L .27599 .01472 L .27717 .01472 L .27844 .01472 L .27963 .01472 L .28071 .01472 L .282 .01472 L .28265 .01472 L .28337 .01472 L .28464 .01472 L .28582 .01472 L .28654 .01472 L .28721 .01472 L .28849 .01472 L .2892 .01472 L .28986 .01472 L .29058 .01472 L .29135 .01472 L .29253 .01472 L .29381 .01472 L .29501 .01472 L .29612 .01472 L .29734 .01472 L .29804 .01472 L .29868 .01472 L .29999 .01472 L .30072 .01472 L .30139 .01472 L .30258 .01472 L .30369 .01472 L .30491 .01472 L Mistroke .30622 .01472 L .30688 .01472 L .3076 .01472 L .3089 .01472 L .31017 .01472 L .31135 .01472 L .31255 .01472 L .31369 .01472 L .3147 .01472 L .3158 .01472 L .31701 .01472 L .31827 .01472 L .31936 .01472 L .32055 .01472 L .32122 .01472 L .32194 .01472 L .32326 .01472 L .32455 .01472 L .32574 .01472 L .32702 .01472 L .32775 .01472 L .32844 .01472 L .32916 .01472 L .32982 .01472 L .33054 .01472 L .3313 .01472 L .3325 .01472 L .33379 .01472 L .335 .01472 L .33609 .01472 L .33739 .01472 L .33812 .01472 L .33879 .01472 L .34003 .01472 L .34134 .01472 L .34255 .01472 L .34387 .01472 L .34512 .01472 L .34627 .01472 L .34742 .01472 L .34846 .01472 L .34966 .01472 L .35078 .01472 L .35202 .01472 L .35332 .01472 L .35444 .01472 L .35566 .01472 L .35698 .01472 L .35771 .01472 L .35838 .01472 L Mistroke .35969 .01472 L .36093 .01472 L .36198 .01472 L .36314 .01472 L .36435 .01472 L .36549 .01472 L .36655 .01472 L .36752 .01472 L .36864 .01472 L .36971 .01472 L .37085 .01472 L .37207 .01472 L .37322 .01472 L .37427 .01472 L .3755 .01472 L .37619 .01472 L .37683 .01472 L .378 .01472 L .37924 .01472 L .38046 .01472 L .38115 .01472 L .38179 .01472 L .38296 .01472 L .3842 .01472 L .3853 .01472 L .38634 .01472 L .38748 .01472 L .38871 .01472 L .38995 .01472 L .39065 .01472 L .3913 .01472 L .39261 .01472 L .39334 .01472 L .39401 .01472 L .39521 .01472 L .39651 .01472 L .39774 .01472 L .39887 .01472 L .39993 .01472 L .40106 .01472 L .40213 .01472 L .40311 .01472 L .40425 .01472 L .4055 .01472 L .40668 .01472 L .40777 .01472 L .40901 .01472 L .41017 .01472 L .41121 .01472 L .41234 .01472 L Mistroke .41357 .01472 L .41487 .01472 L .41598 .01472 L .4172 .01472 L .41851 .01472 L .41972 .01472 L .42035 .01472 L .42105 .01472 L .42177 .01472 L .42246 .01472 L .42371 .01472 L .42485 .01472 L .42611 .01472 L .42743 .01472 L .42854 .01472 L .42973 .01472 L .43086 .01472 L .43188 .01472 L .43308 .01472 L .43438 .01472 L .43561 .01472 L .43674 .01472 L .43795 .01472 L .43925 .01472 L .44047 .01472 L .44159 .01472 L .44289 .01472 L .44363 .01472 L .44432 .01472 L .44558 .01472 L .44621 .01472 L .44691 .01472 L .44759 .01472 L .4483 .01472 L .44958 .01472 L .45029 .01472 L .45095 .01472 L .45168 .01472 L .45246 .01472 L .45313 .01472 L .45386 .01472 L .45455 .01472 L .45518 .01472 L .45639 .01472 L .45767 .01472 L .45887 .01472 L .46019 .01472 L .46143 .01472 L .46258 .01472 L .46373 .01472 L Mistroke .46476 .01472 L .46596 .01472 L .46708 .01472 L .46831 .01472 L .46962 .01472 L .47073 .01472 L .47195 .01472 L .47326 .01472 L .474 .01472 L .47467 .01472 L .47597 .01472 L .47721 .01472 L .47826 .01472 L .47942 .01472 L .48063 .01472 L .48176 .01472 L .48282 .01472 L .48379 .01472 L .48485 .01472 L .48597 .01472 L .48712 .01472 L .48833 .01472 L .48948 .01472 L .49053 .01472 L .49176 .01472 L .49245 .01472 L .49309 .01472 L .49427 .01472 L .49551 .01472 L .49672 .01472 L .49804 .01472 L .49929 .01472 L .50044 .01472 L .50159 .01472 L .50263 .01472 L .50382 .01472 L .50495 .01472 L .50619 .01472 L .50749 .01472 L .5086 .01472 L .50982 .01472 L .51114 .01472 L .51188 .01472 L .51255 .01472 L .51385 .01472 L .51509 .01472 L .51614 .01472 L .5173 .01472 L .51852 .01472 L .51965 .01472 L Mistroke .52071 .01472 L .52168 .01472 L .5228 .01472 L .52387 .01472 L .52501 .01472 L .52623 .01472 L .52738 .01472 L .52843 .01472 L .52966 .01472 L .53035 .01472 L .53099 .01472 L .53216 .01472 L .5334 .01472 L .53462 .01472 L .53531 .01472 L .53595 .01472 L .53711 .01472 L .53835 .01472 L .53946 .01472 L .5405 .01472 L .54164 .01472 L .54287 .01472 L .5441 .01472 L .5448 .01472 L .54545 .01472 L .54676 .01472 L .5475 .01472 L .54817 .01472 L .54936 .01472 L .55066 .01472 L .55189 .01472 L .55302 .01472 L .55408 .01472 L .55521 .01472 L .55628 .01472 L .55726 .01472 L .5584 .01472 L .55965 .01472 L .56083 .01472 L .56192 .01472 L .56316 .01472 L .56432 .01472 L .56536 .01472 L .56649 .01472 L .56772 .01472 L .56902 .01472 L .57013 .01472 L .57135 .01472 L .57266 .01472 L .57387 .01472 L Mistroke .5745 .01472 L .57519 .01472 L .57592 .01472 L .5766 .01472 L .57785 .01472 L .57899 .01472 L .58025 .01472 L .58157 .01472 L .58269 .01472 L .58388 .01472 L .585 .01472 L .58602 .01472 L .58722 .01472 L .58852 .01472 L .58975 .01472 L .59088 .01472 L .59209 .01472 L .59338 .01472 L .59461 .01472 L .59572 .01472 L .59703 .01472 L .59777 .01472 L .59846 .01472 L .59971 .01472 L .60041 .01472 L .60105 .01472 L .60172 .01472 L .60244 .01472 L .60371 .01472 L .60442 .01472 L .60509 .01472 L .60581 .01472 L .60659 .01472 L .60726 .01472 L .60799 .01472 L .60868 .01472 L .60932 .01472 L .61053 .01472 L .6118 .01472 L .61301 .01472 L .61432 .01472 L .61556 .01472 L .61672 .01472 L .61786 .01472 L .61889 .01472 L .62009 .01472 L .62121 .01472 L .62244 .01472 L .62374 .01472 L .62485 .01472 L Mistroke .62607 .01472 L .62739 .01472 L .62812 .01472 L .62879 .01472 L .6301 .01472 L .63133 .01472 L .63238 .01472 L .63354 .01472 L .63475 .01472 L .63589 .01472 L .63694 .01472 L .63791 .01472 L .63898 .01472 L .6401 .01472 L .64124 .01472 L .64246 .01472 L .64361 .01472 L .64465 .01472 L .64588 .01472 L .64658 .01472 L .64721 .01472 L .64839 .01472 L .64963 .01472 L .65084 .01472 L .65216 .01472 L .65341 .01472 L .65456 .01472 L .65571 .01472 L .65674 .01472 L .65794 .01472 L .65907 .01472 L .6603 .01472 L .66161 .01472 L .66272 .01472 L .66394 .01472 L .66526 .01472 L .66599 .01472 L .66666 .01472 L .66797 .01472 L .6692 .01472 L .67026 .01472 L .67142 .01472 L .67263 .01472 L .67377 .01472 L .67483 .01472 L .6758 .01472 L .67686 .01472 L .67798 .01472 L .67912 .01472 L .68034 .01472 L Mistroke .68149 .01472 L .68254 .01472 L .68377 .01472 L .68446 .01472 L .6851 .01472 L .68627 .01472 L .68752 .01472 L .68873 .01472 L .68942 .01472 L .69005 .01472 L .69122 .01472 L .69246 .01472 L .69357 .01472 L .69461 .01472 L .69575 .01472 L .69698 .01472 L .69821 .01472 L .6989 .01472 L .69955 .01472 L .70087 .01472 L .7016 .01472 L .70227 .01472 L .70347 .01472 L .70477 .01472 L .70599 .01472 L .70713 .01472 L .70818 .01472 L .70931 .01472 L .71038 .01472 L .71136 .01472 L .7125 .01472 L .71375 .01472 L .71493 .01472 L .71602 .01472 L .71726 .01472 L .71842 .01472 L .71946 .01472 L .72059 .01472 L .72182 .01472 L .72312 .01472 L .72423 .01472 L .72545 .01472 L .72676 .01472 L .72796 .01472 L .72859 .01472 L .72929 .01472 L .73002 .01472 L .7307 .01472 L .73194 .01472 L .73309 .01472 L Mistroke .73434 .01472 L .73566 .01472 L .73678 .01472 L .73797 .01472 L .73909 .01472 L .74011 .01472 L .74131 .01472 L .74261 .01472 L .74384 .01472 L .74497 .01472 L .74618 .01472 L .74747 .01472 L .7487 .01472 L .74981 .01472 L .75112 .01472 L .75186 .01472 L .75254 .01472 L .7538 .01472 L .7545 .01472 L .75513 .01472 L .75581 .01472 L .75652 .01472 L .7578 .01472 L .75851 .01472 L .75917 .01472 L .7599 .01472 L .76068 .01472 L .76135 .01472 L .76208 .01472 L .76277 .01472 L .76341 .01472 L .76461 .01472 L .76589 .01472 L .76709 .01472 L .76841 .01472 L .76965 .01472 L .7708 .01472 L .77194 .01472 L .77297 .01472 L .77417 .01472 L .77529 .01472 L .77652 .01472 L .77782 .01472 L .77893 .01472 L .78015 .01472 L .78147 .01472 L .7822 .01472 L .78287 .01472 L .78418 .01472 L .78541 .01472 L Mistroke .78646 .01472 L .78762 .01472 L .78883 .01472 L .78996 .01472 L .79102 .01472 L .79199 .01472 L .79305 .01472 L .79417 .01472 L .79531 .01472 L .79653 .01472 L .79768 .01472 L .79873 .01472 L .79996 .01472 L .80065 .01472 L .80129 .01472 L .80246 .01472 L .80371 .01472 L .80492 .01472 L .80623 .01472 L .80748 .01472 L .80863 .01472 L .80978 .01472 L .81081 .01472 L .81201 .01472 L .81314 .01472 L .81437 .01472 L .81567 .01472 L .81679 .01472 L .81801 .01472 L .81932 .01472 L .82006 .01472 L .82073 .01472 L .82203 .01472 L .82327 .01472 L .82432 .01472 L .82548 .01472 L .82669 .01472 L .82783 .01472 L .82889 .01472 L .82986 .01472 L .83092 .01472 L .83204 .01472 L .83319 .01472 L .8344 .01472 L .83556 .01472 L .8366 .01472 L .83783 .01472 L .83852 .01472 L .83916 .01472 L .84034 .01472 L Mistroke .84158 .01472 L .84279 .01472 L .84412 .01472 L .84536 .01472 L .84652 .01472 L .84756 .01472 L .84871 .01472 L .84991 .01472 L .85103 .01472 L .85227 .01472 L .85358 .01472 L .85469 .01472 L .85591 .01472 L .85723 .01472 L .85797 .01472 L .85864 .01472 L .85995 .01472 L .86118 .01472 L .86223 .01472 L .8634 .01472 L .86461 .01472 L .86575 .01472 L .86681 .01472 L .86778 .01472 L .8689 .01472 L .86997 .01472 L .87111 .01472 L .87233 .01472 L .87348 .01472 L .87452 .01472 L .87576 .01472 L .87645 .01472 L .87709 .01472 L .87826 .01472 L .8795 .01472 L .88072 .01472 L .88141 .01472 L .88205 .01472 L .88322 .01472 L .88446 .01472 L .88557 .01472 L .88661 .01472 L .88775 .01472 L .88898 .01472 L .89021 .01472 L .89091 .01472 L .89156 .01472 L .89288 .01472 L .89361 .01472 L .89428 .01472 L Mistroke .89548 .01472 L .89678 .01472 L .89801 .01472 L .89914 .01472 L .9002 .01472 L .90133 .01472 L .9024 .01472 L .90338 .01472 L .90453 .01472 L .90578 .01472 L .90695 .01472 L .90805 .01472 L .90928 .01472 L .91044 .01472 L .91149 .01472 L .91261 .01472 L .91385 .01472 L .91515 .01472 L .91626 .01472 L .91748 .01472 L .91879 .01472 L .92 .01472 L .92063 .01472 L .92133 .01472 L .92205 .01472 L .92273 .01472 L .92399 .01472 L .92513 .01472 L .92639 .01472 L .92771 .01472 L .92883 .01472 L .93002 .01472 L .93114 .01472 L .93216 .01472 L .93336 .01472 L .93467 .01472 L .93589 .01472 L .93703 .01472 L .93824 .01472 L .93953 .01472 L .94076 .01472 L .94187 .01472 L .94318 .01472 L .94392 .01472 L .94461 .01472 L .94586 .01472 L .9465 .01472 L .9472 .01472 L .94788 .01472 L .94859 .01472 L Mistroke .94987 .01472 L .95058 .01472 L .95124 .01472 L .95197 .01472 L .95275 .01472 L .95342 .01472 L .95415 .01472 L .95484 .01472 L .95547 .01472 L .95668 .01472 L .95796 .01472 L .95917 .01472 L .96033 .01472 L .96136 .01472 L .96249 .01472 L .96372 .01472 L .96502 .01472 L .96626 .01472 L .96737 .01472 L .96851 .01472 L .96956 .01472 L .9707 .01472 L .97191 .01472 L .97297 .01472 L .97395 .01472 L .97503 .01472 L .97619 .01472 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]HGAYHf4PAg9QL6QYHgOol01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0002Ool01000Oomoo`000Woo 00@007ooOol000eoo`04001oogoo0008Ool01000Oomoo`000Woo00@007ooOol0009oo`04001oogoo 0005Ool00`00Oomoo`0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-7.01507*^-05, -1328.47, \ 2.11953*^-06, 68.5893}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sol2 = NDSolve[{\((a\_2\ \(f''\)[t] + \(a\_1\) \(f'\)[t] + f[t] \[Equal] \ u[t])\) /. sol1, f[0] \[Equal] 0, \(f'\)[0] \[Equal] 0}, f[t], {t, 0, 20}]\)], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{\(f[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 20.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plt2=Plot[f[t]/.sol2,{t,0,20},PlotStyle->RGBColor[1,0,0],PlotRange->All]\ \>", "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.0476191 0.0474877 2.212 [ [.2619 .03499 -3 -9 ] [.2619 .03499 3 0 ] [.5 .03499 -6 -9 ] [.5 .03499 6 0 ] [.7381 .03499 -6 -9 ] [.7381 .03499 6 0 ] [.97619 .03499 -6 -9 ] [.97619 .03499 6 0 ] [.01131 .15809 -24 -4.5 ] [.01131 .15809 0 4.5 ] [.01131 .26869 -18 -4.5 ] [.01131 .26869 0 4.5 ] [.01131 .37929 -24 -4.5 ] [.01131 .37929 0 4.5 ] [.01131 .48989 -18 -4.5 ] [.01131 .48989 0 4.5 ] [.01131 .60049 -24 -4.5 ] [.01131 .60049 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 .2619 .04749 m .2619 .05374 L s [(5)] .2619 .03499 0 1 Mshowa .5 .04749 m .5 .05374 L s [(10)] .5 .03499 0 1 Mshowa .7381 .04749 m .7381 .05374 L s [(15)] .7381 .03499 0 1 Mshowa .97619 .04749 m .97619 .05374 L s [(20)] .97619 .03499 0 1 Mshowa .125 Mabswid .07143 .04749 m .07143 .05124 L s .11905 .04749 m .11905 .05124 L s .16667 .04749 m .16667 .05124 L s .21429 .04749 m .21429 .05124 L s .30952 .04749 m .30952 .05124 L s .35714 .04749 m .35714 .05124 L s .40476 .04749 m .40476 .05124 L s .45238 .04749 m .45238 .05124 L s .54762 .04749 m .54762 .05124 L s .59524 .04749 m .59524 .05124 L s .64286 .04749 m .64286 .05124 L s .69048 .04749 m .69048 .05124 L s .78571 .04749 m .78571 .05124 L s .83333 .04749 m .83333 .05124 L s .88095 .04749 m .88095 .05124 L s .92857 .04749 m .92857 .05124 L s .25 Mabswid 0 .04749 m 1 .04749 L s .02381 .15809 m .03006 .15809 L s [(0.05)] .01131 .15809 1 0 Mshowa .02381 .26869 m .03006 .26869 L s [(0.1)] .01131 .26869 1 0 Mshowa .02381 .37929 m .03006 .37929 L s [(0.15)] .01131 .37929 1 0 Mshowa .02381 .48989 m .03006 .48989 L s [(0.2)] .01131 .48989 1 0 Mshowa .02381 .60049 m .03006 .60049 L s [(0.25)] .01131 .60049 1 0 Mshowa .125 Mabswid .02381 .06961 m .02756 .06961 L s .02381 .09173 m .02756 .09173 L s .02381 .11385 m .02756 .11385 L s .02381 .13597 m .02756 .13597 L s .02381 .18021 m .02756 .18021 L s .02381 .20233 m .02756 .20233 L s .02381 .22445 m .02756 .22445 L s .02381 .24657 m .02756 .24657 L s .02381 .29081 m .02756 .29081 L s .02381 .31293 m .02756 .31293 L s .02381 .33505 m .02756 .33505 L s .02381 .35717 m .02756 .35717 L s .02381 .40141 m .02756 .40141 L s .02381 .42353 m .02756 .42353 L s .02381 .44565 m .02756 .44565 L s .02381 .46777 m .02756 .46777 L s .02381 .51201 m .02756 .51201 L s .02381 .53413 m .02756 .53413 L s .02381 .55625 m .02756 .55625 L s .02381 .57837 m .02756 .57837 L s .02381 .02537 m .02756 .02537 L s .02381 .00325 m .02756 .00325 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .04749 m .04262 .2632 L .06244 .42429 L .07286 .48515 L .08255 .52892 L .0932 .56405 L .09916 .5784 L .10458 .5884 L .10941 .59503 L .11185 .5976 L .11454 .59986 L .11682 .60132 L .11808 .60195 L .11928 .60244 L .12039 .6028 L .1216 .60308 L .1227 .60324 L .12373 .60332 L .12503 .60331 L .12577 .60325 L .12644 .60316 L .12769 .60292 L .129 .60256 L .13128 .60166 L .13379 .6003 L .13646 .59842 L .13933 .59596 L .14451 .59037 L .15468 .5756 L .16575 .5547 L .18587 .50713 L .22665 .39167 L .26592 .28018 L .30367 .18807 L .32464 .14579 L .34387 .11299 L .36391 .08475 L .38256 .06362 L .40148 .04683 L .41213 .03925 L .42218 .03323 L .432 .02833 L .44264 .02401 L .45224 .02093 L .46123 .01869 L .47069 .01692 L .47571 .01622 L .48111 .01562 L .4838 .01539 L .48675 .01517 L Mistroke .48934 .01502 L .4921 .01489 L .49351 .01484 L .49484 .0148 L .49613 .01477 L .49731 .01474 L .49845 .01473 L .49964 .01472 L .50084 .01472 L .50215 .01472 L .50346 .01473 L .50467 .01474 L .506 .01476 L .50741 .01479 L .50977 .01486 L .51238 .01496 L .51719 .01521 L .5217 .0155 L .53177 .01638 L .54262 .01759 L .58382 .02382 L .62349 .03062 L .66165 .03663 L .70227 .04178 L .74136 .04534 L .76275 .04673 L .78291 .04773 L .79266 .04811 L .80297 .04845 L .82143 .04891 L .83089 .04908 L .84105 .04922 L .84597 .04928 L .85063 .04932 L .85514 .04935 L .85937 .04937 L .86395 .04939 L .86638 .0494 L .86901 .04941 L .87161 .04942 L .87292 .04942 L .87367 .04942 L .87435 .04942 L .87558 .04942 L .87689 .04942 L .87811 .04942 L .87926 .04942 L .88032 .04942 L .88149 .04942 L .88271 .04942 L Mistroke .88385 .04942 L .88589 .04941 L .88809 .04941 L .89309 .04939 L .89767 .04938 L .90752 .04933 L .91667 .04927 L .9374 .0491 L .97619 .04873 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg Ool00g`0Oomoo`2aOol001]oo`03001oog`004eoo`03O01oogoo0;9oo`000Woo0P0017oo0P0017oo 0P0017oo0P001Goo00<007ooO000C7oo00=l07ooOol0/goo00001Goo001oogoo000027oo00@007oo Ool0009oo`04001oogoo0004Ool01000Oomoog`0Bgoo00=l07ooOol0/goo00001Goo001oogoo0000 27oo00@007ooOol000Eoo`03001oogoo009oo`800003Ooml07oo04Uoo`03O01oogoo0;Aoo`0000Eo o`00Oomoo`0000Qoo`04001oogoo0003Ool20005Ool01000Oomoog`0BWoo00=l07ooOol0]7oo0000 1Goo001oogoo000027oo00@007ooOol000=oo`03001oogoo00Aoo`04001oogooO019Ool00g`0Oomo o`2eOol0009oo`8000Yoo`8000Aoo`<000Aoo`04001oogooO019Ool00g`0Oomoo`2eOol001]oo`04 001oogooO018Ool00g`0Oomoo`2fOol001]oo`04001oogooO018Ool00g`0Oomoo`2fOol001]oo`80 0003Ooml07oo04Ioo`03O01oogoo0;Moo`006goo00@007ooOoml04Moo`03O01oogoo0;Moo`006goo 00@007ooOoml04Ioo`03O01oogoo0;Qoo`006goo00@007ooOoml04Ioo`03O01oogoo0;Qoo`006goo 00@007ooOoml04Eoo`03O01oogoo0;Uoo`006goo00D007ooOomoog`004Aoo`03O01oogoo0;Uoo`00 6goo0P000Woo00=l07ooOol0@Goo00=l07ooOol0^Woo000KOol01@00OomoogooO000@goo00=l07oo Ool0^Woo000KOol01@00OomoogooO000@Woo00=l07ooOol0^goo000KOol01@00OomoogooO000@Woo 00=l07ooOol0^goo000KOol01@00OomoogooO000@Woo00=l07ooOol0^goo000KOol01@00Oomoogoo O000@Goo00=l07ooOol0_7oo000KOol20002Ool00g`0Oomoo`0oOol00g`0Oomoo`2lOol001]oo`05 001oogooOoml0010Ool00g`0Oomoo`2mOol001]oo`05001oogooOoml0010Ool00g`0Oomoo`2mOol0 01]oo`05001oogooOoml0010Ool00g`0Oomoo`2mOol001]oo`05001oogooOoml000oOol00g`0Oomo o`2nOol001]oo`8000=oo`03O01oogoo03aoo`03O01oogoo0;ioo`006goo00<007ooOol00Woo00=l 07ooOol0>goo00=l07ooOol0_goo000KOol00`00Oomoo`02Ool00g`0Oomoo`0kOol00g`0Oomoo`2o Ool001]oo`03001oogoo009oo`03O01oogoo03Yoo`03O01oogoo0<1oo`0027oo0P0017oo0P000goo 1@000goo00<007ooOol00Woo00=l07ooOol0>Woo00=l07ooOol0`7oo0007Ool01000Oomoo`002Woo 00<007ooOol00goo00<007ooOol00Woo00=l07ooOol0>Woo00=l07ooOol0`7oo0007Ool01000Oomo o`002Woo00<007ooOol00goo0P000goo00=l07ooOol0>Goo00=l07ooOol0`Goo0007Ool01000Oomo o`002Woo00<007ooOol00goo00<007ooOol00Woo00=l07ooOol0>Goo00=l07ooOol0`Goo0007Ool0 1000Oomoo`002Woo00<007ooOol00goo00<007ooOol00Woo00=l07ooOol0>7oo00=l07ooOol0`Woo 0008Ool2000:Ool20005Ool00`00Oomoo`02Ool00g`0Oomoo`0hOol00g`0Oomoo`32Ool001]oo`03 001oogoo00=oo`03O01oogoo03Moo`03O01oogoo0<9oo`006goo00<007ooOol00goo00=l07ooOol0 =Woo00=l07ooOol0`goo000KOol20004Ool00g`0Oomoo`0fOol00g`0Oomoo`33Ool001]oo`03001o ogoo00=oo`03O01oogoo03Ioo`03O01oogoo0<=oo`006goo00<007ooOol00goo00=l07ooOol0=Goo 00=l07ooOol0a7oo000KOol00`00Oomoo`03Ool00g`0Oomoo`0eOol00g`0Oomoo`34Ool001]oo`03 001oogoo00=oo`03O01oogoo03Eoo`03O01oogoo0Ool001]oo`03001oogoo00Moo`03O01oogoo02Moo`03O01oogoo0Ool00g`0Oomoo`0BOol00g`0Oomoo`3LOol001]oo`80 00moo`03O01oogoo015oo`03O01oogoo0=eoo`006goo00<007ooOol03goo00=l07ooOol047oo00=l 07ooOol0gGoo000KOol00`00Oomoo`0?Ool00g`0Oomoo`0?Ool00g`0Oomoo`3NOol001]oo`03001o ogoo011oo`03O01oogoo00ioo`03O01oogoo0=ioo`006goo00<007ooOol047oo00=l07ooOol03Goo 00=l07ooOol0ggoo000KOol00`00Oomoo`0AOol00g`0Oomoo`01oo`006goo00<007ooOol04Woo00=l07ooOol02Goo00=l 07ooOol0hGoo000KOol00`00Oomoo`0BOol00g`0Oomoo`09Ool00g`0Oomoo`3QOol001]oo`03001o ogoo01=oo`03O01oogoo00Moo`03O01oogoo0>9oo`000Woo0P0017oo0P000goo10000goo0P001Goo 00<007ooOol057oo00=l07ooOol01Goo00=l07ooOol0hgoo00001Goo001oogoo000027oo00<007oo Ool00goo00@007ooOol000Aoo`03001oogoo01Aoo`9l00Eoo`03O01oogoo0>Aoo`0000Eoo`00Oomo o`0000Uoo`03001oogoo00Eoo`03001oogoo009oo`8001Moo`El0>Moo`0000Eoo`00Oomoo`0000Yo o`03001oogoo009oo`8000Eoo`03001oogoo0?moo`=oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo 0003Ool00`00Oomoo`04Ool00`00Oomoo`3oOol3Ool0009oo`8000Yoo`8000Aoo`<000Aoo`03001o ogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQ Ool00?moob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.15729, -0.0321223, \ 0.0789455, 0.00169951}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Show[plt1,plt2]", "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.047619 0.0472773 2.19779 [ [.2619 .03478 -3 -9 ] [.2619 .03478 3 0 ] [.5 .03478 -6 -9 ] [.5 .03478 6 0 ] [.7381 .03478 -6 -9 ] [.7381 .03478 6 0 ] [.97619 .03478 -6 -9 ] [.97619 .03478 6 0 ] [.01131 .15717 -24 -4.5 ] [.01131 .15717 0 4.5 ] [.01131 .26706 -18 -4.5 ] [.01131 .26706 0 4.5 ] [.01131 .37695 -24 -4.5 ] [.01131 .37695 0 4.5 ] [.01131 .48684 -18 -4.5 ] [.01131 .48684 0 4.5 ] [.01131 .59673 -24 -4.5 ] [.01131 .59673 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 .2619 .04728 m .2619 .05353 L s [(5)] .2619 .03478 0 1 Mshowa .5 .04728 m .5 .05353 L s [(10)] .5 .03478 0 1 Mshowa .7381 .04728 m .7381 .05353 L s [(15)] .7381 .03478 0 1 Mshowa .97619 .04728 m .97619 .05353 L s [(20)] .97619 .03478 0 1 Mshowa .125 Mabswid .07143 .04728 m .07143 .05103 L s .11905 .04728 m .11905 .05103 L s .16667 .04728 m .16667 .05103 L s .21429 .04728 m .21429 .05103 L s .30952 .04728 m .30952 .05103 L s .35714 .04728 m .35714 .05103 L s .40476 .04728 m .40476 .05103 L s .45238 .04728 m .45238 .05103 L s .54762 .04728 m .54762 .05103 L s .59524 .04728 m .59524 .05103 L s .64286 .04728 m .64286 .05103 L s .69048 .04728 m .69048 .05103 L s .78571 .04728 m .78571 .05103 L s .83333 .04728 m .83333 .05103 L s .88095 .04728 m .88095 .05103 L s .92857 .04728 m .92857 .05103 L s .25 Mabswid 0 .04728 m 1 .04728 L s .02381 .15717 m .03006 .15717 L s [(0.05)] .01131 .15717 1 0 Mshowa .02381 .26706 m .03006 .26706 L s [(0.1)] .01131 .26706 1 0 Mshowa .02381 .37695 m .03006 .37695 L s [(0.15)] .01131 .37695 1 0 Mshowa .02381 .48684 m .03006 .48684 L s [(0.2)] .01131 .48684 1 0 Mshowa .02381 .59673 m .03006 .59673 L s [(0.25)] .01131 .59673 1 0 Mshowa .125 Mabswid .02381 .06926 m .02756 .06926 L s .02381 .09123 m .02756 .09123 L s .02381 .11321 m .02756 .11321 L s .02381 .13519 m .02756 .13519 L s .02381 .17914 m .02756 .17914 L s .02381 .20112 m .02756 .20112 L s .02381 .2231 m .02756 .2231 L s .02381 .24508 m .02756 .24508 L s .02381 .28903 m .02756 .28903 L s .02381 .31101 m .02756 .31101 L s .02381 .33299 m .02756 .33299 L s .02381 .35497 m .02756 .35497 L s .02381 .39892 m .02756 .39892 L s .02381 .4209 m .02756 .4209 L s .02381 .44288 m .02756 .44288 L s .02381 .46486 m .02756 .46486 L s .02381 .50881 m .02756 .50881 L s .02381 .53079 m .02756 .53079 L s .02381 .55277 m .02756 .55277 L s .02381 .57475 m .02756 .57475 L s .02381 .0253 m .02756 .0253 L s .02381 .00332 m .02756 .00332 L s .25 Mabswid .02381 0 m .02381 .61803 L s .02 w .02381 .04728 Mdot .04762 .31431 Mdot .07143 .48288 Mdot .09524 .57299 Mdot .11905 .60332 Mdot .14286 .59013 Mdot .16667 .54793 Mdot .19048 .48815 Mdot .21429 .41958 Mdot .2381 .34947 Mdot .2619 .28244 Mdot .28571 .22156 Mdot .30952 .16882 Mdot .33333 .12486 Mdot .35714 .08969 Mdot .38095 .06266 Mdot .40476 .04332 Mdot .42857 .02991 Mdot .45238 .02178 Mdot .47619 .01761 Mdot .5 .01673 Mdot .52381 .01783 Mdot .54762 .02046 Mdot .57143 .02398 Mdot .59524 .02772 Mdot .61905 .03167 Mdot .64286 .03519 Mdot .66667 .03849 Mdot .69048 .04134 Mdot .71429 .04354 Mdot .7381 .04552 Mdot .7619 .04684 Mdot .78571 .0475 Mdot .80952 .04816 Mdot .83333 .0486 Mdot .85714 .04882 Mdot .88095 .04882 Mdot .90476 .04882 Mdot .92857 .0486 Mdot .95238 .04838 Mdot .97619 .04816 Mdot 1 0 0 r .5 Mabswid .02381 .04728 m .04262 .26161 L .06244 .42166 L .07286 .48213 L .08255 .52561 L .0932 .56053 L .09916 .57478 L .10458 .58472 L .10941 .59131 L .11185 .59386 L .11454 .5961 L .11682 .59756 L .11808 .59818 L .11928 .59867 L .12039 .59902 L .1216 .5993 L .1227 .59947 L .12373 .59954 L .12503 .59953 L .12577 .59947 L .12644 .59938 L .12769 .59915 L .129 .59878 L .13128 .59789 L .13379 .59654 L .13646 .59468 L .13933 .59222 L .14451 .58668 L .15468 .572 L .16575 .55123 L .18587 .50397 L .22665 .38925 L .26592 .27847 L .30367 .18695 L .32464 .14495 L .34387 .11236 L .36391 .0843 L .38256 .06331 L .40148 .04662 L .41213 .0391 L .42218 .03311 L .432 .02824 L .44264 .02395 L .45224 .02089 L .46123 .01866 L .47069 .01691 L .47571 .01621 L .48111 .01562 L .4838 .01538 L .48675 .01517 L Mistroke .48934 .01501 L .4921 .01489 L .49351 .01484 L .49484 .0148 L .49613 .01477 L .49731 .01474 L .49845 .01473 L .49964 .01472 L .50084 .01472 L .50215 .01472 L .50346 .01473 L .50467 .01474 L .506 .01476 L .50741 .01479 L .50977 .01486 L .51238 .01496 L .51719 .01521 L .5217 .0155 L .53177 .01637 L .54262 .01757 L .58382 .02376 L .62349 .03052 L .66165 .03649 L .70227 .0416 L .74136 .04514 L .76275 .04653 L .78291 .04752 L .79266 .0479 L .80297 .04823 L .82143 .04869 L .83089 .04886 L .84105 .049 L .84597 .04905 L .85063 .04909 L .85514 .04913 L .85937 .04915 L .86395 .04917 L .86638 .04918 L .86901 .04919 L .87161 .04919 L .87292 .04919 L .87367 .0492 L .87435 .0492 L .87558 .0492 L .87689 .0492 L .87811 .0492 L .87926 .0492 L .88032 .0492 L .88149 .0492 L .88271 .04919 L Mistroke .88385 .04919 L .88589 .04919 L .88809 .04919 L .89309 .04917 L .89767 .04915 L .90752 .04911 L .91667 .04905 L .9374 .04888 L .97619 .04851 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggoo0P007oo00D007ooOomoo`00009oo`03001oogoo005o o`006goo00<007ooOol0>goo00<007ooOol0;goo00<007`0O0000g`02`0000=oo`000000100000=o og`0O0001G`010000goo0`008Goo00<007ooOol00Woo00<007ooOol0=Goo00@007ooOol0009oo`04 001oogoo0003Ool001]oo`03001oogoo03]oo`<002Uoo`<00004Ooml07`0O00400000goo00000004 00000goo0000000300000goo0000000300000goo0000000300000goo001l0007O0030002Ool3000J Ool20004Ool3000fOol20004Ool20004Ool001]oo`8006Moo`<0009l009oo`D0009oo`<000Yoo`<0 00=oo`<0009oo`D0009oo`8000El00@0009oo`<005moo`006goo00<007ooOol0IWoo0P0000=l0000 00000goo0`0077oo0`000goo1@0000=oo`00O00017`01@000goo0`00F7oo000KOol00`00Oomoo`1Q Ool30002Ool2O003000YOol30002Ool500000gooO01l0003O002Ool50002Ool3001BOol001]oo`03 001oogoo061oo`@0009l0004Ool00000000`Ool30002Ool50008O0050002Ool30004Ool30003Ool3 000oOol001Yoo`<0065oo`80009l0003001oogoo03Uoo`<000=oo`D00003Ooml07`000Ul009oo`D0 0003Ool0000000<0009oo`<000Aoo`<000=oo`<000=oo`<000Aoo`<000=oo`<000=oo`<000Aoo`<0 00=oo`<000Ioo`0057oo1`0000=l00000000H@0000=l00000000D`004G`0>P00000IOol200000g`0 00000009Ool00`00Oomoo`0:Ool00`00Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`0:Ool00`00 Oomoo`0:Ool00`00Oomoo`09Ool00`00Oomoo`08Ool017`0000000002goo00<007ooOol02Goo00<0 07ooOol02Woo00<007ooOol02Woo00<007ooOol02Goo00<007ooOol02Goo0`000Woo1@000Woo1@00 00=oo`0000000`0000Aoo`00000003=l008000Eoo`006Goo0P0000=l00000000?7oo00<007ooOol0 87oo00=l07ooOol06Goo00<007ooOol0=Goo0`0017oo0`000goo0`000Woo1@000Woo1@0000=oo`00 00000`0000=oo`0000000`000Woo1@0000=oo`0000000`0000=oo`0000000`000Woo1@0000=oo`00 00000`001Goo000JOol00`00O000001LOol300000g`0Oomoo`1UOol30004Ool30003Ool30003Ool3 0004Ool30003Ool30003Ool30004Ool30003Ool30006Ool001]oo`03O01oogoo05Yoo`<00003O000 07oo0:9oo`006goo00=l07ooOol0FWoo0P0000=l00000000Xgoo000KOol00`00O01oo`1JOol00`00 O0000002002SOol001]oo`03001l07oo05Yoo`04O0000000002TOol001]oo`03001l07oo05Uoo`03 O01oogoo0:Ioo`006goo00<007`0Ool0F7oo00=l07ooOol0Ygoo000KOol00`00O01oo`1DOol30000 0g`0Oomoo`2XOol001]oo`03001l07oo05=oo`<00003O00007oo0:Uoo`006goo00<007`0Ool0Dgoo 0`0000=l0000Ool0ZGoo000KOol00`00O01oo`1COol200000g`00000002ZOol001]oo`03001l07oo 05Aoo`03O00000000:]oo`006goo00<007`0Ool0E7oo00=l07ooOol0Zgoo000KOol00`00O01oo`1C Ool00g`0Oomoo`2/Ool001]oo`03001l07oo05=oo`03O01oogoo0:aoo`006goo0P0000=l07ooOol0 D7oo00=l07ooOol0[Goo000KOol00`00Ooml001>Ool300000g`0Oomoo`2^Ool001]oo`03001oog`0 04eoo`@00003O01oogoo0:ioo`006goo00<007ooO000CGoo0`0000=l0000Ool0[goo000KOol00`00 Ooml001=Ool200000g`00000002`Ool001]oo`03001oog`004ioo`03001l00000;5oo`006goo0P00 00=l07ooOol0C7oo00=l07ooOol0/Goo000KOol00`00Ooml001>Ool00g`0Oomoo`2aOol001]oo`03 001oog`004eoo`03O01oogoo0;9oo`006goo00<007ooO000C7oo00=l07ooOol0/goo0002Ool20004 Ool20004Ool20004Ool20005Ool00`00Ooml001goo00=l07ooOol0_goo000KOol00`00Oomoo`02 Ool00g`0Oomoo`0jOol00g`0Oomoo`30Ool000Qoo`8000Aoo`8000=oo`D000=oo`03001oogoo009o o`03O01oogoo03Yoo`03O01oogoo0<1oo`001goo00@007ooOol000Yoo`03001oogoo00=oo`03001o ogoo009oo`03O01oogoo03Yoo`03O01oogoo0<1oo`001goo00@007ooOol000Yoo`03001oogoo00=o o`8000=oo`03O01oogoo03Uoo`03O01oogoo0<5oo`001goo00@007ooOol000Yoo`03001oogoo00=o o`03001oogoo009oo`03O01oogoo03Uoo`03O01oogoo0<5oo`001goo00@007ooOol000Yoo`03001o ogoo00=oo`03001oogoo009oo`03O01oogoo03Ioo`800003O01oogoo0<9oo`0027oo0P002Woo0P00 1Goo00<007ooOol00goo00=l07ooOol0=7oo0`0000=l0000Ool0`Woo000KOol00`00Oomoo`03Ool0 0g`0Oomoo`0dOol300000g`0001oo`32Ool001]oo`03001oogoo00=oo`03O01oogoo03Aoo`800003 O00000000<=oo`006goo0P0017oo00=l07ooOol0=Goo00<007`00000a7oo000KOol00`00Oomoo`03 Ool00g`0Oomoo`0fOol00g`0Oomoo`33Ool001]oo`03001oogoo00=oo`03O01oogoo03Eoo`03O01o ogoo0Ool001]oo`03001oogoo00Moo`03O01o ogoo02Aoo`<00003O01oogoo05oo`006goo00<007oo Ool04Woo00=l07ooOol01Woo0`0000=l07ooOol0hGoo000KOol00`00Oomoo`0COol00g`0Oomoo`04 Ool300000g`0001oo`3ROol0009oo`8000Aoo`8000=oo`@000=oo`8000Eoo`03001oogoo01Aoo`03 O01oogoo00=oo`800003O00000000>=oo`0000Eoo`00Oomoo`0000Qoo`03001oogoo00=oo`04001o ogoo0004Ool00`00Oomoo`0DOol2O0020002Ool00`00O0000002003SOol00005Ool007ooOol00009 Ool00`00Oomoo`05Ool00`00Oomoo`02Ool2000EOol20005O003003TOol00005Ool007ooOol0000: Ool00`00Oomoo`02Ool20005Ool00`00Oomoo`0DOol5003YOol00005Ool007ooOol00008Ool01000 Oomoo`000goo00<007ooOol017oo00<007ooOol057oo1@00jGoo0002Ool2000:Ool20004Ool30004 Ool00`00Oomoo`0EOol3003ZOol001]oo`03001oogoo0?moo`=oo`006goo00<007ooOol0ogoo0goo 003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.15729, -0.0322343, \ 0.0789457, 0.0017105}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, CellGrouping->Manual, WindowSize->{496, 599}, WindowMargins->{{30, Automatic}, {Automatic, 25}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 667, 20, 262, "Title"], Cell[CellGroupData[{ Cell[2468, 77, 96, 1, 46, "Subsubtitle"], Cell[2567, 80, 177, 3, 66, "Input"], Cell[2747, 85, 348, 6, 120, "Input"], Cell[3098, 93, 54, 0, 30, "Input"], Cell[CellGroupData[{ Cell[3177, 97, 59, 0, 30, "Input"], Cell[3239, 99, 120, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3396, 107, 76, 0, 48, "Input"], Cell[3475, 109, 11571, 360, 186, 3773, 259, "GraphicsData", "PostScript", \ "Graphics"], Cell[15049, 471, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[15228, 480, 102, 1, 48, "Subsubtitle"], Cell[15333, 483, 40, 0, 30, "Input"], Cell[15376, 485, 38, 0, 30, "Input"], Cell[CellGroupData[{ Cell[15439, 489, 69, 1, 30, "Input"], Cell[15511, 492, 52, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15600, 498, 72, 1, 30, "Input"], Cell[15675, 501, 53, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15765, 507, 74, 1, 30, "Input"], Cell[15842, 510, 52, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15931, 516, 54, 1, 44, "Input"], Cell[15988, 519, 53, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16078, 525, 54, 1, 44, "Input"], Cell[16135, 528, 51, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[16235, 535, 109, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[16369, 542, 142, 3, 30, "Input"], Cell[16514, 547, 112, 2, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[16675, 555, 273, 9, 68, "Subsubtitle"], Cell[16951, 566, 81, 2, 30, "Input"], Cell[17035, 570, 56, 1, 30, "Input"], Cell[CellGroupData[{ Cell[17116, 575, 81, 2, 30, "Input"], Cell[17200, 579, 25375, 1093, 186, 14768, 958, "GraphicsData", "PostScript", \ "Graphics"], Cell[42578, 1674, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42745, 1682, 215, 4, 70, "Input"], Cell[42963, 1688, 272, 7, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43272, 1700, 97, 2, 48, "Input"], Cell[43372, 1704, 15014, 462, 186, 4778, 331, "GraphicsData", "PostScript", \ "Graphics"], Cell[58389, 2168, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58556, 2176, 32, 0, 30, "Input"], Cell[58591, 2178, 16705, 515, 186, 5539, 373, "GraphicsData", "PostScript", \ "Graphics"], Cell[75299, 2695, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)