(*********************************************************************** 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[ 52960, 2048]*) (*NotebookOutlinePosition[ 54015, 2084]*) (* CellTagsIndexPosition[ 53971, 2080]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[ "(* CR418 HW 2.5 Numerical Solution of ODEs *)\n(* Use the NDSolve[ ] \ function to numerically solve the *)\n(* simple system: A --> B --> C \ *)\n\n"], "Input", AspectRatioFixed->True], Cell[TextData["\nka = 2; kb = 0.5; cao = 1;\n"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "sol = NDSolve[{\n\n\t\t\t\tca'[t] == -ka ca[t],\t\t\t(* ODEs to solve *)\n\ \t\t\t\tcb'[t] == ka ca[t] - kb cb[t],\n\t\t\t\t\n\t\t\t\tca[0] == cao, \ cb[0] == 0},\t\t(* Initial conditions *)\n\t\t\t\t\n\t\t\t\t{ca[t], cb[t]},\ \t\t\t\t\t\n\t\t\t\t\n\t\t\t\t{t,0,1}]\t\t\t\t\t\t(* Limits on independent \ varialbe *)\n\t\t\t\t"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{ca[t] -> InterpolatingFunction[{0., 1.}, {{0., 0., {1., 0}, {0}}, \ {0.0004472135954999579, 0., {0.999106372093458, -1.998212745618}, {0}}, {0.000894427190999916, 0.0004472135954999579, {0.998213542757752, \ -1.99642708694531}, {0}}, {0.00837121568483456, 0.000894427190999916, {0.983397456480692, \ -1.966794900483495, 1.981611923772399}, {0, 0}}, {0.01584800417866921, 0.00837121568483456, {0.968801279572546, \ -1.937602534372877, 1.952199539594452}, {0, 0}}, {0.02332479267250386, 0.01584800417866921, {0.954421747953109, \ -1.908843471501069, 1.92322297838991}, {0, 0}}, {0.04694134856730586, 0.02332479267250386, {0.910391017711872, \ -1.820781791815933, 1.812115258574605, -1.476093710657526}, {0, 0, 0}}, {0.06640615195563382, 0.04694134856730586, {0.875630838192259, \ -1.751261850971357, 1.751072237109821, -1.188936086651617}, {0, 0, 0}}, {0.0858709553439618, 0.06640615195563382, {0.842197941851739, \ -1.684395896751695, 1.683524862791728, -1.167474589675214}, {0, 0, 0}}, {0.1053357587322897, 0.0858709553439618, {0.810041565783173, \ -1.620083158517284, 1.619233674859132, -1.123146121669174}, {0, 0, 0}}, {0.1248005621206177, 0.1053357587322897, {0.7791129677698714, \ -1.558225961662651, 1.5574117281118, -1.080179582623231}, {0, 0, 0}}, {0.1637301688972736, 0.1248005621206177, {0.7207531859155933, \ -1.441506583786704, 1.441960454725663, -0.941156605984999, \ 0.7223167447487928}, {0, 0, 0, 0}}, {0.2026597756739295, 0.1637301688972736, {0.6667646602049137, \ -1.333529158893422, 1.334280889913266, -0.869134659379469, \ 0.5924153531433288}, {0, 0, 0, 0}}, {0.2415893824505854, 0.2026597756739295, {0.6168203874259051, \ -1.233640611731544, 1.233788471043598, -0.817742482942325, \ 0.4612240378079448}, {0, 0, 0, 0}}, {0.2805189892272413, 0.2415893824505854, {0.5706172026161609, \ -1.141234364402285, 1.141384378163888, -0.7561483701608224, \ 0.428386020112347}, {0, 0, 0, 0}}, {0.3194485960038973, 0.2805189892272413, {0.527874884361724, \ -1.055749728427246, 1.055889504985877, -0.6995340287976127, \ 0.3959773448171604}, {0, 0, 0, 0}}, {0.4209031614594837, 0.3194485960038973, {0.4309307361793135, \ -0.861859725171886, 0.862361297503495, -0.5713014196814398, \ 0.2791496882101627, -0.1920214629591308}, {0, 0, 0, 0, 0}}, {0.5223577269150703, \ 0.4209031614594837, {0.3517937224222575, -0.7035867392282787, 0.7023669431855621, \ -0.4839711138751265, 0.1686706040256856, -0.2023289843308538}, {0, 0, 0, 0, \ 0}}, {0.5998660733784173, 0.5223577269150703, {0.3012757463740427, \ -0.6025533437893174, 0.6030272449569625, -0.3953162795242125, \ 0.2243917353133154, -0.06388499733492514}, {0, 0, 0, 0, 0}}, {0.6773744198417643, \ 0.5998660733784173, {0.2580130917435006, -0.5160254636112303, 0.5157633018125504, \ -0.3484534183496208, 0.1474692531657835, -0.1177263003599851}, {0, 0, 0, 0, \ 0}}, {0.7548827663051113, 0.6773744198417643, {0.2209627289816769, \ -0.4419259956662042, 0.4418473043315909, -0.2957121405670656, \ 0.1408089765766236, -0.07751016409134265}, {0, 0, 0, 0, 0}}, {0.832391112768458, \ 0.7548827663051113, {0.1892326623504825, -0.3784654730426205, 0.3784471775055571, \ -0.2528250367737575, 0.1215198391431497, -0.06641532197833458}, {0, 0, 0, 0, \ 0}}, {0.909899459231805, 0.832391112768458, {0.1620590867000613, \ -0.324118246931449, 0.3240500876643221, -0.2172124821144007, \ 0.1011094329265299, -0.06091573081597388}, {0, 0, 0, 0, 0}}, {0.987407805695152, \ 0.909899459231805, {0.1387875745537801, -0.2775752947988728, 0.2775378483878907, \ -0.1857061106561264, 0.0880592790333713, -0.05001911445469341}, {0, 0, 0, 0, \ 0}}, {1., 0.987407805695152, {0.1353359375681727, -0.2706718752483297, \ 0.2707244121171558, -0.176935142830018, 0.1600389095376983, \ 0.4272853535442122}, {0, 0, 0, 0, 0}}}][t], cb[t] -> InterpolatingFunction[{0., 1.}, {{0., 0., {0., 0}, {0}}, \ {0.0004472135954999579, 0., {0.000893428130148467, 1.9977660320225}, {0}}, {0.000894427190999916, 0.0004472135954999579, {0.001785858136045559, \ 1.995534158346437}, {0}}, {0.00837121568483456, 0.000894427190999916, {0.01656763809700701, \ 1.958511077291965, -2.475867886660254}, {0, 0}}, {0.01584800417866921, 0.00837121568483456, {0.03107476192184664, \ 1.922065145187027, -2.437271840375821}, {0, 0}}, {0.02332479267250386, 0.01584800417866921, {0.0453115124758689, \ 1.886187707160441, -2.399254576759096}, {0, 0}}, {0.04694134856730586, 0.02332479267250386, {0.0885488803141736, \ 1.776507270802496, -2.253515482205149, 1.936313049397278}, {0, 0, 0}}, {0.06640615195563382, 0.04694134856730586, {0.1222817523177076, \ 1.690121032814372, -2.173530300276703, 1.558597940566441}, {0, 0, 0}}, {0.0858709553439618, 0.06640615195563382, {0.1543670845631195, \ 1.607212358827825, -2.085042688754605, 1.529761893936844}, {0, 0, 0}}, {0.1053357587322897, 0.0858709553439618, {0.1848713759061365, \ 1.527647479538094, -2.000867421759619, 1.470917488798727}, {0, 0, 0}}, {0.1248005621206177, 0.1053357587322897, {0.2138584441923557, \ 1.451296748264431, -1.919969489916572, 1.413886604020551}, {0, 0, 0}}, {0.1637301688972736, 0.1248005621206177, {0.2675241734487958, \ 1.307744567631808, -1.769045940404434, 1.2293757255527, -0.958694014484765}, \ {0, 0, 0, 0}}, {0.2026597756739295, 0.1637301688972736, {0.3158270377097827, \ 1.175615586246244, -1.628431716050164, 1.133840223157686, \ -0.7861042233604165}, {0, 0, 0, 0}}, {0.2415893824505854, 0.2026597756739295, {0.3591940709883124, \ 1.054043521910748, -1.497348370504238, 1.065714672653606, \ -0.6117980615652299}, {0, 0, 0, 0}}, {0.2805189892272413, 0.2415893824505854, {0.3980206920782867, \ 0.942224004757646, -1.376990107634742, 0.984063892859972, \ -0.5680734609729691}, {0, 0, 0, 0}}, {0.3194485960038973, 0.2805189892272413, {0.4326718993120169, \ 0.839413765343758, -1.265789269215502, 0.909043262791696, \ -0.5249222552834551}, {0, 0, 0, 0}}, {0.4209031614594837, 0.3194485960038973, {0.5057167909495659, \ 0.6090007475150686, -1.014777490288678, 0.7392395992040757, \ -0.3693762641257671, 0.2556657517343308}, {0, 0, 0, 0, 0}}, {0.5223577269150703, \ 0.4209031614594837, {0.5577993063294365, 0.424686851036999, -0.808133731057507, \ 0.6238810645610823, -0.2223109293754517, 0.2693649251145638}, {0, 0, 0, 0, \ 0}}, {0.5998660733784173, 0.5223577269150703, {0.5861228353127874, \ 0.3094925429929221, -0.6805576494842592, 0.5065182839049944, \ -0.2965776301160599, 0.0849648096721744}, {0, 0, 0, 0, 0}}, {0.6773744198417643, \ 0.5998660733784173, {0.6062563882717028, 0.212897029583483, -0.5689005056113916, \ 0.4448019796879238, -0.194178353647031, 0.1566699821989193}, {0, 0, 0, 0, \ 0}}, {0.7548827663051113, 0.6773744198417643, {0.6195342665391705, \ 0.132159041592799, -0.4748608452242338, 0.3752377622324021, \ -0.1853675643016107, 0.1030960182826317}, {0, 0, 0, 0, 0}}, {0.832391112768458, \ 0.7548827663051113, {0.6270915394189575, 0.06491975277765439, -0.3946710689251069, \ 0.3187782476595963, -0.1597426643357529, 0.0883062721887684}, {0, 0, 0, 0, \ 0}}, {0.909899459231805, 0.832391112768458, {0.6298944174374001, \ 0.0091710627157533, -0.3263201857970387, 0.2719912766640658, \ -0.1326157092186298, 0.0809827661096385}, {0, 0, 0, 0, 0}}, {0.987407805695152, \ 0.909899459231805, {0.6287652583939936, -0.03680728584171506, -0.2683235934757517, \ 0.2306527929503502, -0.1152989185198241, 0.0664631316093443}, {0, 0, 0, 0, \ 0}}, {1., 0.987407805695152, {0.6282596768451744, -0.0434579631369375, \ -0.2598773806843178, 0.2190694587648634, -0.2111976772145868, \ -0.5693805639912003}, {0, 0, 0, 0, 0}}}][t]}}\ \>", "\<\ {{ca[t] -> InterpolatingFunction[{0., 1.}, <>][t], cb[t] -> \ InterpolatingFunction[{0., 1.}, <>][t]}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["conca = Evaluate[ ca[t] /. sol]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {InterpolatingFunction[{0., 1.}, {{0., 0., {1., 0}, {0}}, \ {0.0004472135954999579, 0., {0.999106372093458, -1.998212745618}, {0}}, {0.000894427190999916, 0.0004472135954999579, {0.998213542757752, \ -1.99642708694531}, {0}}, {0.00837121568483456, 0.000894427190999916, {0.983397456480692, \ -1.966794900483495, 1.981611923772399}, {0, 0}}, {0.01584800417866921, 0.00837121568483456, {0.968801279572546, \ -1.937602534372877, 1.952199539594452}, {0, 0}}, {0.02332479267250386, 0.01584800417866921, {0.954421747953109, \ -1.908843471501069, 1.92322297838991}, {0, 0}}, {0.04694134856730586, 0.02332479267250386, {0.910391017711872, \ -1.820781791815933, 1.812115258574605, -1.476093710657526}, {0, 0, 0}}, {0.06640615195563382, 0.04694134856730586, {0.875630838192259, \ -1.751261850971357, 1.751072237109821, -1.188936086651617}, {0, 0, 0}}, {0.0858709553439618, 0.06640615195563382, {0.842197941851739, \ -1.684395896751695, 1.683524862791728, -1.167474589675214}, {0, 0, 0}}, {0.1053357587322897, 0.0858709553439618, {0.810041565783173, \ -1.620083158517284, 1.619233674859132, -1.123146121669174}, {0, 0, 0}}, {0.1248005621206177, 0.1053357587322897, {0.7791129677698714, \ -1.558225961662651, 1.5574117281118, -1.080179582623231}, {0, 0, 0}}, {0.1637301688972736, 0.1248005621206177, {0.7207531859155933, \ -1.441506583786704, 1.441960454725663, -0.941156605984999, \ 0.7223167447487928}, {0, 0, 0, 0}}, {0.2026597756739295, 0.1637301688972736, {0.6667646602049137, \ -1.333529158893422, 1.334280889913266, -0.869134659379469, \ 0.5924153531433288}, {0, 0, 0, 0}}, {0.2415893824505854, 0.2026597756739295, {0.6168203874259051, \ -1.233640611731544, 1.233788471043598, -0.817742482942325, \ 0.4612240378079448}, {0, 0, 0, 0}}, {0.2805189892272413, 0.2415893824505854, {0.5706172026161609, \ -1.141234364402285, 1.141384378163888, -0.7561483701608224, \ 0.428386020112347}, {0, 0, 0, 0}}, {0.3194485960038973, 0.2805189892272413, {0.527874884361724, \ -1.055749728427246, 1.055889504985877, -0.6995340287976127, \ 0.3959773448171604}, {0, 0, 0, 0}}, {0.4209031614594837, 0.3194485960038973, {0.4309307361793135, \ -0.861859725171886, 0.862361297503495, -0.5713014196814398, \ 0.2791496882101627, -0.1920214629591308}, {0, 0, 0, 0, 0}}, {0.5223577269150703, \ 0.4209031614594837, {0.3517937224222575, -0.7035867392282787, 0.7023669431855621, \ -0.4839711138751265, 0.1686706040256856, -0.2023289843308538}, {0, 0, 0, 0, \ 0}}, {0.5998660733784173, 0.5223577269150703, {0.3012757463740427, \ -0.6025533437893174, 0.6030272449569625, -0.3953162795242125, \ 0.2243917353133154, -0.06388499733492514}, {0, 0, 0, 0, 0}}, {0.6773744198417643, \ 0.5998660733784173, {0.2580130917435006, -0.5160254636112303, 0.5157633018125504, \ -0.3484534183496208, 0.1474692531657835, -0.1177263003599851}, {0, 0, 0, 0, \ 0}}, {0.7548827663051113, 0.6773744198417643, {0.2209627289816769, \ -0.4419259956662042, 0.4418473043315909, -0.2957121405670656, \ 0.1408089765766236, -0.07751016409134265}, {0, 0, 0, 0, 0}}, {0.832391112768458, \ 0.7548827663051113, {0.1892326623504825, -0.3784654730426205, 0.3784471775055571, \ -0.2528250367737575, 0.1215198391431497, -0.06641532197833458}, {0, 0, 0, 0, \ 0}}, {0.909899459231805, 0.832391112768458, {0.1620590867000613, \ -0.324118246931449, 0.3240500876643221, -0.2172124821144007, \ 0.1011094329265299, -0.06091573081597388}, {0, 0, 0, 0, 0}}, {0.987407805695152, \ 0.909899459231805, {0.1387875745537801, -0.2775752947988728, 0.2775378483878907, \ -0.1857061106561264, 0.0880592790333713, -0.05001911445469341}, {0, 0, 0, 0, \ 0}}, {1., 0.987407805695152, {0.1353359375681727, -0.2706718752483297, \ 0.2707244121171558, -0.176935142830018, 0.1600389095376983, \ 0.4272853535442122}, {0, 0, 0, 0, 0}}}][t]}\ \>", "\<\ {InterpolatingFunction[{0., 1.}, <>][t]}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["g1 = Plot[conca,{t,0,1}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.0147151 0.588604 [ [(0.2)] .21429 .01472 0 2 Msboxa [(0.4)] .40476 .01472 0 2 Msboxa [(0.6)] .59524 .01472 0 2 Msboxa [(0.8)] .78571 .01472 0 2 Msboxa [(1)] .97619 .01472 0 2 Msboxa [(0.2)] .01131 .13244 1 0 Msboxa [(0.4)] .01131 .25016 1 0 Msboxa [(0.6)] .01131 .36788 1 0 Msboxa [(0.8)] .01131 .4856 1 0 Msboxa [(1)] .01131 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .21429 .01472 m .21429 .02097 L s P [(0.2)] .21429 .01472 0 2 Mshowa p .002 w .40476 .01472 m .40476 .02097 L s P [(0.4)] .40476 .01472 0 2 Mshowa p .002 w .59524 .01472 m .59524 .02097 L s P [(0.6)] .59524 .01472 0 2 Mshowa p .002 w .78571 .01472 m .78571 .02097 L s P [(0.8)] .78571 .01472 0 2 Mshowa p .002 w .97619 .01472 m .97619 .02097 L s P [(1)] .97619 .01472 0 2 Mshowa p .001 w .0619 .01472 m .0619 .01847 L s P p .001 w .1 .01472 m .1 .01847 L s P p .001 w .1381 .01472 m .1381 .01847 L s P p .001 w .17619 .01472 m .17619 .01847 L s P p .001 w .25238 .01472 m .25238 .01847 L s P p .001 w .29048 .01472 m .29048 .01847 L s P p .001 w .32857 .01472 m .32857 .01847 L s P p .001 w .36667 .01472 m .36667 .01847 L s P p .001 w .44286 .01472 m .44286 .01847 L s P p .001 w .48095 .01472 m .48095 .01847 L s P p .001 w .51905 .01472 m .51905 .01847 L s P p .001 w .55714 .01472 m .55714 .01847 L s P p .001 w .63333 .01472 m .63333 .01847 L s P p .001 w .67143 .01472 m .67143 .01847 L s P p .001 w .70952 .01472 m .70952 .01847 L s P p .001 w .74762 .01472 m .74762 .01847 L s P p .001 w .82381 .01472 m .82381 .01847 L s P p .001 w .8619 .01472 m .8619 .01847 L s P p .001 w .9 .01472 m .9 .01847 L s P p .001 w .9381 .01472 m .9381 .01847 L s P p .002 w 0 .01472 m 1 .01472 L s P p .002 w .02381 .13244 m .03006 .13244 L s P [(0.2)] .01131 .13244 1 0 Mshowa p .002 w .02381 .25016 m .03006 .25016 L s P [(0.4)] .01131 .25016 1 0 Mshowa p .002 w .02381 .36788 m .03006 .36788 L s P [(0.6)] .01131 .36788 1 0 Mshowa p .002 w .02381 .4856 m .03006 .4856 L s P [(0.8)] .01131 .4856 1 0 Mshowa p .002 w .02381 .60332 m .03006 .60332 L s P [(1)] .01131 .60332 1 0 Mshowa p .001 w .02381 .03826 m .02756 .03826 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .08535 m .02756 .08535 L s P p .001 w .02381 .10889 m .02756 .10889 L s P p .001 w .02381 .15598 m .02756 .15598 L s P p .001 w .02381 .17952 m .02756 .17952 L s P p .001 w .02381 .20307 m .02756 .20307 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .2737 m .02756 .2737 L s P p .001 w .02381 .29724 m .02756 .29724 L s P p .001 w .02381 .32079 m .02756 .32079 L s P p .001 w .02381 .34433 m .02756 .34433 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .41497 m .02756 .41497 L s P p .001 w .02381 .43851 m .02756 .43851 L s P p .001 w .02381 .46205 m .02756 .46205 L s P p .001 w .02381 .50914 m .02756 .50914 L s P p .001 w .02381 .53269 m .02756 .53269 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57977 m .02756 .57977 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w .02381 .60332 m .06349 .55626 L .10317 .51296 L .14286 .47312 L .18254 .43647 L .22222 .40275 L .2619 .37172 L .30159 .34318 L .34127 .31691 L .38095 .29275 L .42063 .27052 L .46032 .25007 L .5 .23125 L .53968 .21394 L .57937 .19801 L .61905 .18335 L .65873 .16987 L .69841 .15746 L .7381 .14605 L .77778 .13555 L .81746 .12589 L .85714 .117 L .89683 .10882 L .93651 .1013 L .97619 .09437 L s P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLcD01OlD00006@000ol0003P00Go6@0001T00_oL00Go 7P0001T000?o0000eP05ob<0000I0003o`000=401OlX00006@000ol0003>00?o;@0000H00_l40003 o`0000801?l40003o`00000006@02obd000?o0000c`0001T000?o0000 :P02om80000I0003o`0002T000?o0000dP0001T000?o0000:0000ol0003C00006@000ol0000W0003 o`000=@0000I0003o`0002H000?o0000e@0001T00_lV0003o`000=H0000I0003o`0002@000?o0000 e`0001T000?o00008`000ol0003H00006@000ol0000R0003o`000=T0000I0003o`00024000?o0000 fP0001T000?o000080000ol0003K00006@02ob0000?o0000g00001T000?o00007P000ol0003M0000 6@000ol0000M0003o`000=h0000600;o10000ol0000300;o1@000ol0000L0003o`000=l000050004 o`00o`P000Co003o10000ol0000K0003o`000>0000050004o`00o`P000Co003o10000ol0000J0003 o`000>4000050004o`00o`T00_l500?o6@000ol0003R00001@001?l00?l80004o`00o`@000?o0000 60000ol0003S00001@001?l00?l80004o`00o`@000?o00005`000ol0003T00001P02o`X00_l50003 o`0001H000?o0000i@0001T000?o00005@000ol0003V00006@000ol0000D0003o`000>L0000I00;o 50000ol0003X00006@000ol0000B0003o`000>T0000I0003o`00014000?o0000jP0001T000?o0000 40000ol0003[00006@000ol0000?0003o`000>`0000I0003o`0000h000?o0000k@0001T00_l>0003 o`000>h0000I0003o`0000`000?o0000k`0001T000?o00002`000ol0003`00006@000ol0000:0003 o`000?40000I0003o`0000T000?o0000lP0001T000?o000020000ol0003c00006@02o`P000?o0000 m00001T000?o00001`000ol0003d00006@000ol000060003o`000?D0000I0003o`0000D000?o0000 mP0001T000?o000010000ol0003g00006@000ol000030003o`000?P0000I00;o0`000ol0003i0000 6@000ol000020003o`000?T0000I0005o`000?l0o00001401Ol30004o`00ood0000C0003o`0000<0 00?o0?l0oP0001<000?o00000`02ool0000C0003o`0000<00oon00004`000ol000030003o`000?h0 000A00?o1@000ol0003n00004`000ol000030003o`000?h0000I0003o`000?h0003o01/00000\ \>"], ImageRangeCache->{{{0, 281}, {173, 0}} -> {-0.105306, -0.109269, 0.00409295, 0.00662254}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["concb = Evaluate[cb[t] /. sol]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {InterpolatingFunction[{0., 1.}, {{0., 0., {0., 0}, {0}}, \ {0.0004472135954999579, 0., {0.000893428130148467, 1.9977660320225}, {0}}, {0.000894427190999916, 0.0004472135954999579, {0.001785858136045559, \ 1.995534158346437}, {0}}, {0.00837121568483456, 0.000894427190999916, {0.01656763809700701, \ 1.958511077291965, -2.475867886660254}, {0, 0}}, {0.01584800417866921, 0.00837121568483456, {0.03107476192184664, \ 1.922065145187027, -2.437271840375821}, {0, 0}}, {0.02332479267250386, 0.01584800417866921, {0.0453115124758689, \ 1.886187707160441, -2.399254576759096}, {0, 0}}, {0.04694134856730586, 0.02332479267250386, {0.0885488803141736, \ 1.776507270802496, -2.253515482205149, 1.936313049397278}, {0, 0, 0}}, {0.06640615195563382, 0.04694134856730586, {0.1222817523177076, \ 1.690121032814372, -2.173530300276703, 1.558597940566441}, {0, 0, 0}}, {0.0858709553439618, 0.06640615195563382, {0.1543670845631195, \ 1.607212358827825, -2.085042688754605, 1.529761893936844}, {0, 0, 0}}, {0.1053357587322897, 0.0858709553439618, {0.1848713759061365, \ 1.527647479538094, -2.000867421759619, 1.470917488798727}, {0, 0, 0}}, {0.1248005621206177, 0.1053357587322897, {0.2138584441923557, \ 1.451296748264431, -1.919969489916572, 1.413886604020551}, {0, 0, 0}}, {0.1637301688972736, 0.1248005621206177, {0.2675241734487958, \ 1.307744567631808, -1.769045940404434, 1.2293757255527, -0.958694014484765}, \ {0, 0, 0, 0}}, {0.2026597756739295, 0.1637301688972736, {0.3158270377097827, \ 1.175615586246244, -1.628431716050164, 1.133840223157686, \ -0.7861042233604165}, {0, 0, 0, 0}}, {0.2415893824505854, 0.2026597756739295, {0.3591940709883124, \ 1.054043521910748, -1.497348370504238, 1.065714672653606, \ -0.6117980615652299}, {0, 0, 0, 0}}, {0.2805189892272413, 0.2415893824505854, {0.3980206920782867, \ 0.942224004757646, -1.376990107634742, 0.984063892859972, \ -0.5680734609729691}, {0, 0, 0, 0}}, {0.3194485960038973, 0.2805189892272413, {0.4326718993120169, \ 0.839413765343758, -1.265789269215502, 0.909043262791696, \ -0.5249222552834551}, {0, 0, 0, 0}}, {0.4209031614594837, 0.3194485960038973, {0.5057167909495659, \ 0.6090007475150686, -1.014777490288678, 0.7392395992040757, \ -0.3693762641257671, 0.2556657517343308}, {0, 0, 0, 0, 0}}, {0.5223577269150703, \ 0.4209031614594837, {0.5577993063294365, 0.424686851036999, -0.808133731057507, \ 0.6238810645610823, -0.2223109293754517, 0.2693649251145638}, {0, 0, 0, 0, \ 0}}, {0.5998660733784173, 0.5223577269150703, {0.5861228353127874, \ 0.3094925429929221, -0.6805576494842592, 0.5065182839049944, \ -0.2965776301160599, 0.0849648096721744}, {0, 0, 0, 0, 0}}, {0.6773744198417643, \ 0.5998660733784173, {0.6062563882717028, 0.212897029583483, -0.5689005056113916, \ 0.4448019796879238, -0.194178353647031, 0.1566699821989193}, {0, 0, 0, 0, \ 0}}, {0.7548827663051113, 0.6773744198417643, {0.6195342665391705, \ 0.132159041592799, -0.4748608452242338, 0.3752377622324021, \ -0.1853675643016107, 0.1030960182826317}, {0, 0, 0, 0, 0}}, {0.832391112768458, \ 0.7548827663051113, {0.6270915394189575, 0.06491975277765439, -0.3946710689251069, \ 0.3187782476595963, -0.1597426643357529, 0.0883062721887684}, {0, 0, 0, 0, \ 0}}, {0.909899459231805, 0.832391112768458, {0.6298944174374001, \ 0.0091710627157533, -0.3263201857970387, 0.2719912766640658, \ -0.1326157092186298, 0.0809827661096385}, {0, 0, 0, 0, 0}}, {0.987407805695152, \ 0.909899459231805, {0.6287652583939936, -0.03680728584171506, -0.2683235934757517, \ 0.2306527929503502, -0.1152989185198241, 0.0664631316093443}, {0, 0, 0, 0, \ 0}}, {1., 0.987407805695152, {0.6282596768451744, -0.0434579631369375, \ -0.2598773806843178, 0.2190694587648634, -0.2111976772145868, \ -0.5693805639912003}, {0, 0, 0, 0, 0}}}][t]}\ \>", "\<\ {InterpolatingFunction[{0., 1.}, <>][t]}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[" g2 = Plot[concb, {t,0,1}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 -0.357282 1.52486 [ [(0.2)] .21429 .10018 0 2 Msboxa [(0.4)] .40476 .10018 0 2 Msboxa [(0.6)] .59524 .10018 0 2 Msboxa [(0.8)] .78571 .10018 0 2 Msboxa [(1)] .97619 .10018 0 2 Msboxa [(0.4)] .01131 .25266 1 0 Msboxa [(0.5)] .01131 .40515 1 0 Msboxa [(0.6)] .01131 .55763 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .21429 .10018 m .21429 .10643 L s P [(0.2)] .21429 .10018 0 2 Mshowa p .002 w .40476 .10018 m .40476 .10643 L s P [(0.4)] .40476 .10018 0 2 Mshowa p .002 w .59524 .10018 m .59524 .10643 L s P [(0.6)] .59524 .10018 0 2 Mshowa p .002 w .78571 .10018 m .78571 .10643 L s P [(0.8)] .78571 .10018 0 2 Mshowa p .002 w .97619 .10018 m .97619 .10643 L s P [(1)] .97619 .10018 0 2 Mshowa p .001 w .0619 .10018 m .0619 .10393 L s P p .001 w .1 .10018 m .1 .10393 L s P p .001 w .1381 .10018 m .1381 .10393 L s P p .001 w .17619 .10018 m .17619 .10393 L s P p .001 w .25238 .10018 m .25238 .10393 L s P p .001 w .29048 .10018 m .29048 .10393 L s P p .001 w .32857 .10018 m .32857 .10393 L s P p .001 w .36667 .10018 m .36667 .10393 L s P p .001 w .44286 .10018 m .44286 .10393 L s P p .001 w .48095 .10018 m .48095 .10393 L s P p .001 w .51905 .10018 m .51905 .10393 L s P p .001 w .55714 .10018 m .55714 .10393 L s P p .001 w .63333 .10018 m .63333 .10393 L s P p .001 w .67143 .10018 m .67143 .10393 L s P p .001 w .70952 .10018 m .70952 .10393 L s P p .001 w .74762 .10018 m .74762 .10393 L s P p .001 w .82381 .10018 m .82381 .10393 L s P p .001 w .8619 .10018 m .8619 .10393 L s P p .001 w .9 .10018 m .9 .10393 L s P p .001 w .9381 .10018 m .9381 .10393 L s P p .002 w 0 .10018 m 1 .10018 L s P p .002 w .02381 .25266 m .03006 .25266 L s P [(0.4)] .01131 .25266 1 0 Mshowa p .002 w .02381 .40515 m .03006 .40515 L s P [(0.5)] .01131 .40515 1 0 Mshowa p .002 w .02381 .55763 m .03006 .55763 L s P [(0.6)] .01131 .55763 1 0 Mshowa p .001 w .02381 .13067 m .02756 .13067 L s P p .001 w .02381 .16117 m .02756 .16117 L s P p .001 w .02381 .19167 m .02756 .19167 L s P p .001 w .02381 .22217 m .02756 .22217 L s P p .001 w .02381 .28316 m .02756 .28316 L s P p .001 w .02381 .31366 m .02756 .31366 L s P p .001 w .02381 .34415 m .02756 .34415 L s P p .001 w .02381 .37465 m .02756 .37465 L s P p .001 w .02381 .43565 m .02756 .43565 L s P p .001 w .02381 .46614 m .02756 .46614 L s P p .001 w .02381 .49664 m .02756 .49664 L s P p .001 w .02381 .52714 m .02756 .52714 L s P p .001 w .02381 .06968 m .02756 .06968 L s P p .001 w .02381 .03918 m .02756 .03918 L s P p .001 w .02381 .00868 m .02756 .00868 L s P p .001 w .02381 .58813 m .02756 .58813 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w s s s s .15684 0 m .18254 .05649 L s .18254 .05649 m .22222 .1344 L .2619 .2038 L .30159 .2654 L .34127 .31989 L .38095 .36787 L .42063 .4099 L .46032 .44652 L .5 .47818 L .53968 .50534 L .57937 .52838 L .61905 .54769 L .65873 .5636 L .69841 .57641 L .7381 .58642 L .75794 .59045 L .77778 .59388 L .79762 .59673 L .81746 .59904 L .8373 .60082 L .84722 .60152 L .85714 .60211 L .86706 .60257 L .87202 .60276 L .87698 .60292 L .88194 .60306 L .8869 .60316 L .88938 .6032 L .89187 .60324 L .89435 .60327 L .89559 .60328 L .89683 .60329 L .89807 .6033 L .89931 .60331 L .90055 .60331 L .90179 .60332 L .90303 .60332 L .90427 .60332 L .90551 .60332 L .90675 .60331 L .90799 .60331 L .90923 .6033 L .91047 .6033 L .91171 .60329 L .91667 .60323 L .91915 .6032 L .92163 .60316 L .92659 .60305 L .93651 .60277 L .94643 .6024 L Mistroke .95635 .60193 L .97619 .60073 L Mfstroke P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLc00005@02oc80 00?o0000cP0001D000?o00000000ol0 003700005@000ol0000h0003o`000P000ol0 003500005@02oc/000?o0000a@0001D000?o0000>`000ol0003400005@000ol0000k0003o`000<@0 000E0003o`0003`000?o0000``0001D000?o0000?0000ol0003300005@000ol0000m0003o`000<80 000E0003o`0003h000?o0000`@0001D000?o0000?P000ol0003100005@02od0000?o0000`00001D0 00?o0000@0000ol0002o00005@000ol000100003o`000;l0000E0003o`00044000?o0000_P0001D0 00?o0000@P000ol0002m00005@000ol000130003o`000;`0000200;o10000ol000040003o`0000<0 00?o0000@`000ol0002l000000D0o`00o`0:0003o`0000<000?o0000A0000ol0002k000000D0o`00 o`0700Go1002odH000?o0000^P0000050?l00?l01`001?l00?l50003o`0004D000?o0000^P000005 0?l00?l020000ol0o`050003o`0004H000?o0000^@0000050?l00?l02@02o`D000?o0000A`000ol0 002h00000P02o`/000?o00000`000ol000170003o`000;P0000E0003o`0004P000?o0000]`0001D0 00?o0000B@000ol0002f00005@000ol000190003o`000;H0000E00;oB`000ol0002e00005@000ol0 001;0003o`000;@0000E0003o`0004/000?o0000]00001D000?o0000C0000ol0002c00005@000ol0 001=0003o`000;80000E0003o`0004d000?o0000/P0001D000?o0000CP000ol0002a00005@000ol0 001?0003o`000;00000E00;oD0000ol0002`00005@000ol0001@0003o`000:l0000E0003o`000540 00?o0000[P0001D000?o0000D@000ol0002^00005@000ol0001B0003o`000:d0000E0003o`0005<0 00?o0000[00001D000?o0000E0000ol0002[00005@000ol0001E0003o`000:X0000E00;oE`000ol0 002Y00005@000ol0001G0003o`000:P0000E0003o`0005L000?o0000Z00001D000?o0000F0000ol0 002W00005@000ol0001I0003o`000:H0000E0003o`0005X000?o0000Y@0001D000?o0000F`000ol0 002T00005@000ol0001L0003o`000:<0000E00;oG@000ol0002S00005@000ol0001M0003o`000:80 000E0003o`0005h000?o0000X@0001D000?o0000G`000ol0002P00005@000ol0001P0003o`0009l0 000E0003o`00064000?o0000WP0000800_l40003o`0000800ol50003o`00068000?o0000W@000005 0?l00?l02`000ol000020003o`0006<000?o0000W00000050?l00?l02`000ol000020003o`0006@0 00?o0000V`0000050?l00?l02003o`D00_mV0003o`0009X000001@3o003o00P000?o00001@000ol0 001V00;oVP0000050?l00?l020000ol000050003o`0006P000?o0000U`0000800_l900Co10000ol0 001Y0003o`0009H0000E0003o`0006X000?o0000U@0001D000?o0000J`000ol0002D00005@000ol0 001/0003o`0009<0000E0003o`0006d000?o0000TP0001D00_m_0003o`000940000E0003o`0006l0 00?o0000T00001D000?o0000L0000ol0002?00005@000ol0001a00;oS`0001D000?o0000L`000ol0 002<00005@000ol0001d0003o`0008/0000E0003o`0007D000?o0000RP0001D000?o0000MP02ohX0 000E00;oN@000ol0002700005@000ol0001i0003o`0008H0000E0003o`0007X000?o0000Q@0001D0 00?o0000N`02ohD0000E0003o`0007d000?o0000PP0001D000?o0000OP02oh80000E0003o`000800 0_n000005@000ol000220003o`0007d0000E00;oQ002ogd0000E0003o`0008D000?o0000NP0001D0 00?o0000QP02ogX0000E0003o`0008P00_mh00005@000ol0002:0003o`0007D0000E0003o`0008/0 0_me00005@000ol0002=00;oL`0001D000?o0000S`000ol0001`00005@02oi400_m`00005@000ol0 002B00;oKP0001D000?o0000U003of/0000E0003o`0009L00_mY00005@000ol0002I00;oI`0001D0 00?o0000V`02ofD0000200;o10000ol0000300;o1@000ol0002M00;oH`0000050?l00?l020001?l0 0?l40003o`0009l00omP000000D0o`00o`080004o`00o`@00_nS00;oGP0000050?l00?l02003o`D0 00?o0000Y002oe`000001@3o003o00P000?o00001@000ol0002V00?oF@0000050?l00?l02@000ol0 00040003o`000:T00omF00000P02o`/00_l40003o`000:`00omC00005@000ol0002_00CoC`0001D0 00?o0000/`04od/0000E0003o`000;L00om800005@02ok/01Om300005@000ol0002o00Go?P0001D0 00?o0000a00:oc@0000E0003o`000"], ImageRangeCache->{{{0, 281}, {173, 0}} -> {-0.0839888, 0.223538, 0.00395033, 0.00246726}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Show[g1, g2]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.0147151 0.588604 [ [(0.2)] .21429 .01472 0 2 Msboxa [(0.4)] .40476 .01472 0 2 Msboxa [(0.6)] .59524 .01472 0 2 Msboxa [(0.8)] .78571 .01472 0 2 Msboxa [(1)] .97619 .01472 0 2 Msboxa [(0.2)] .01131 .13244 1 0 Msboxa [(0.4)] .01131 .25016 1 0 Msboxa [(0.6)] .01131 .36788 1 0 Msboxa [(0.8)] .01131 .4856 1 0 Msboxa [(1)] .01131 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .21429 .01472 m .21429 .02097 L s P [(0.2)] .21429 .01472 0 2 Mshowa p .002 w .40476 .01472 m .40476 .02097 L s P [(0.4)] .40476 .01472 0 2 Mshowa p .002 w .59524 .01472 m .59524 .02097 L s P [(0.6)] .59524 .01472 0 2 Mshowa p .002 w .78571 .01472 m .78571 .02097 L s P [(0.8)] .78571 .01472 0 2 Mshowa p .002 w .97619 .01472 m .97619 .02097 L s P [(1)] .97619 .01472 0 2 Mshowa p .001 w .0619 .01472 m .0619 .01847 L s P p .001 w .1 .01472 m .1 .01847 L s P p .001 w .1381 .01472 m .1381 .01847 L s P p .001 w .17619 .01472 m .17619 .01847 L s P p .001 w .25238 .01472 m .25238 .01847 L s P p .001 w .29048 .01472 m .29048 .01847 L s P p .001 w .32857 .01472 m .32857 .01847 L s P p .001 w .36667 .01472 m .36667 .01847 L s P p .001 w .44286 .01472 m .44286 .01847 L s P p .001 w .48095 .01472 m .48095 .01847 L s P p .001 w .51905 .01472 m .51905 .01847 L s P p .001 w .55714 .01472 m .55714 .01847 L s P p .001 w .63333 .01472 m .63333 .01847 L s P p .001 w .67143 .01472 m .67143 .01847 L s P p .001 w .70952 .01472 m .70952 .01847 L s P p .001 w .74762 .01472 m .74762 .01847 L s P p .001 w .82381 .01472 m .82381 .01847 L s P p .001 w .8619 .01472 m .8619 .01847 L s P p .001 w .9 .01472 m .9 .01847 L s P p .001 w .9381 .01472 m .9381 .01847 L s P p .002 w 0 .01472 m 1 .01472 L s P p .002 w .02381 .13244 m .03006 .13244 L s P [(0.2)] .01131 .13244 1 0 Mshowa p .002 w .02381 .25016 m .03006 .25016 L s P [(0.4)] .01131 .25016 1 0 Mshowa p .002 w .02381 .36788 m .03006 .36788 L s P [(0.6)] .01131 .36788 1 0 Mshowa p .002 w .02381 .4856 m .03006 .4856 L s P [(0.8)] .01131 .4856 1 0 Mshowa p .002 w .02381 .60332 m .03006 .60332 L s P [(1)] .01131 .60332 1 0 Mshowa p .001 w .02381 .03826 m .02756 .03826 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .08535 m .02756 .08535 L s P p .001 w .02381 .10889 m .02756 .10889 L s P p .001 w .02381 .15598 m .02756 .15598 L s P p .001 w .02381 .17952 m .02756 .17952 L s P p .001 w .02381 .20307 m .02756 .20307 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .2737 m .02756 .2737 L s P p .001 w .02381 .29724 m .02756 .29724 L s P p .001 w .02381 .32079 m .02756 .32079 L s P p .001 w .02381 .34433 m .02756 .34433 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .41497 m .02756 .41497 L s P p .001 w .02381 .43851 m .02756 .43851 L s P p .001 w .02381 .46205 m .02756 .46205 L s P p .001 w .02381 .50914 m .02756 .50914 L s P p .001 w .02381 .53269 m .02756 .53269 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57977 m .02756 .57977 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p .004 w .02381 .60332 m .06349 .55626 L .10317 .51296 L .14286 .47312 L .18254 .43647 L .22222 .40275 L .2619 .37172 L .30159 .34318 L .34127 .31691 L .38095 .29275 L .42063 .27052 L .46032 .25007 L .5 .23125 L .53968 .21394 L .57937 .19801 L .61905 .18335 L .65873 .16987 L .69841 .15746 L .7381 .14605 L .77778 .13555 L .81746 .12589 L .85714 .117 L .89683 .10882 L .93651 .1013 L .97619 .09437 L s P P p p .004 w .02381 .01472 m .06349 .06128 L .10317 .10317 L .14286 .14076 L .18254 .17443 L .22222 .20451 L .2619 .23129 L .30159 .25507 L .34127 .27611 L .38095 .29463 L .42063 .31085 L .46032 .32498 L .5 .33721 L .53968 .34769 L .57937 .35659 L .61905 .36404 L .65873 .37018 L .69841 .37513 L .7381 .37899 L .75794 .38055 L .77778 .38187 L .79762 .38297 L .81746 .38386 L .8373 .38455 L .84722 .38482 L .85714 .38504 L .86706 .38522 L .87202 .3853 L .87698 .38536 L .88194 .38541 L .8869 .38545 L .88938 .38547 L .89187 .38548 L .89435 .38549 L .89559 .3855 L .89683 .3855 L .89807 .3855 L .89931 .38551 L .90055 .38551 L .90179 .38551 L .90303 .38551 L .90427 .38551 L .90551 .38551 L .90675 .38551 L .90799 .38551 L .90923 .38551 L .91047 .3855 L .91171 .3855 L .91667 .38548 L .91915 .38547 L Mistroke .92163 .38545 L .92659 .38541 L .93651 .3853 L .94643 .38516 L .95635 .38498 L .97619 .38451 L Mfstroke P P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^CLg=gIfM[Fe]OCdm?clo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_C/k>gYjN[Vi^OShn000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`3lo ?ginO[fm_Ol0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5Q@<30d92@X61PL30`?88Q000 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9R@L71dI6AXF5QLC4a?l0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=S@/;2dY:BXV9RLS8b?mE001EEEEEEJYE00l?3di>CXf=SLcCXf=SLcl0 000I00;o3P000ol0003^00006@000ol0000>0003o`000>d0000I0003o`0000l000?o0000g@04o`/0 000I0003o`00010000?o0000e`05o`l0000I0003o`00014000?o0000d@05oa@0000I0003o`000180 0_o<00Go6@0001T00_lE0003o`000<@01OlN00006@000ol0000E0003o`000;h01OlS00006@000ol0 000F0003o`000;P01OlX00006@000ol0000G0003o`000;@00ol]00001P02o`@000?o00000P04o`@0 00?o000060000ol0002`00?o<00000D000Co003o20001?l00?l40003o`0001T000?o0000Z`04oc<0 00050004o`00o`T000?o00001003oaX000?o0000Y@05ocL000050004o`00o`X000?o00000`000ol0 000K0003o`0009l01Oll00001@001?l00?l;0003o`00008000?o00007002oi/01?m100001@001?l0 0?l80004o`00o`@000?o00007P000ol0002E00?oA@0000H00_l:00;o1@000ol0000O0003o`000900 1?m800006@000ol0000P0003o`0008`00om<00006@02ob8000?o0000R003odl0000I0003o`000280 00?o0000P`04oe80000I0003o`0002<000?o0000O`03oeH0000I0003o`0002@000?o0000N`03oeT0 000I0003o`0002D000?o0000MP04oe`0000I0003o`0002H00_mc00?oH00001T00_lY0003o`0006d0 0omS00006@000ol0000Y0003o`0006T00omV00006@000ol0000Z0003o`0006D00omY00006@000ol0 000[00;oH`02of`0000I0003o`0002d000?o0000G@03ofh0000I0003o`0002h000?o0000FP02og40 000I00;o<0000ol0001F00?oL`0001T000?o0000<002oe@00_mf00006@000ol0000b0003o`0004h0 0omh00006@000ol0000c00;oC002og/0000I0003o`0003D000?o0000A`02ogd0000I0003o`0003H0 00?o0000@`03ogl0000I00;o>002od400_n200006@000ol0000i0003o`0003`00_n400006@000ol0 000j00;o>P02ohH0000I0003o`0003`00_le00?oR00000H00_l40003o`0000@000?o00000`000ol0 000n0003o`0003000_n;00001@001?l00?l:0003o`0000<000?o0000?`02obd00on=00001@001?l0 0?l700Go1003od400_lY00;oT00000D000Co003o1`001?l00?l50003o`0004<000?o00009002oi80 00050004o`00o`P000?o0?l01@000ol0001400;o8`000ol0002B00001@001?l00?l900;o1@000ol0 001600;o7`02oiD0000600;o2`000ol000030003o`0004P00olJ00;oU`0001T000?o0000B`02oaL0 00?o0000U`0001T00_m>00;o4`02oiX0000I0003o`0004l00_l?00;oW00001T000?o0000D@02o`/0 0_nN00006@000ol0001C00;o1`02oj00000I0003o`0005D00_l300;oXP0001T000?o0000E`03oj@0 000I00;oF0001?l0oonS00006@000ol0001E00;o1003oj00000I0003o`0005@000?o00001`02oih0 000I0003o`0005<000?o00002P03oi/0000I0003o`0005400_l@00;oV@0001T000?o0000D0000ol0 000B00?oUP0001T000?o0000CP02oaP00_nD00006@02odd00_lL00?oT@0001T000?o0000BP02ob40 0on>00006@000ol000190003o`0002@00on;00006@000ol0001700;o:P03ohP0000I0003o`0004D0 0_l_00GoP`0001T000?o0000@`02ocH01Omn00006@02od<000?o0000>`05ogT0000I0003o`000440 00?o0000@@03ogH0000I0003o`00040000?o0000A@03og<0000600;o10000ol0000300;o1@000ol0 000n00;oB`05ofh000050004o`00o`P000Co003o10000ol0000m0003o`0005001OmY00001@001?l0 0?l80004o`00o`@000?o0000?0000ol0001F00OoHP0000D000Co003o2003o`D00olk0003o`0005h0 2_mH00001@001?l00?l80003o`0000D000?o0000>@02of/02_m>00001@001?l00?l90003o`0000@0 00?o0000>0000ol0001e00SoAP0000H00_l;00;o10000ol0000g0003o`0007h04?lf00006@000ol0 000f0003o`0008l0:ol;00006@000ol0000d00;ob00001T00_ld0003o`0008000050004o`00o`P000Co003o10000ol0000H0003o`000><0 00050004o`00o`P000Co003o10000ol0000G0003o`000>@0000600;o2P02o`D000?o00005P000ol0 003U00006@000ol0000E0003o`000>H0000I0003o`0001@000?o0000i`0001T00_lD0003o`000>P0 000I0003o`00018000?o0000j@0001T000?o00004@000ol0003Z00006@000ol0000@0003o`000>/0 000I0003o`0000l000?o0000k00001T000?o00003P000ol0003]00006@02o`h000?o0000kP0001T0 00?o000030000ol0003_00006@000ol0000;0003o`000?00000I0003o`0000X000?o0000l@0001T0 00?o00002@000ol0003b00006@000ol000080003o`000?<0000I00;o20000ol0003d00006@000ol0 00070003o`000?@0000I0003o`0000H000?o0000m@0001T000?o00001@000ol0003f00006@000ol0 00040003o`000?L0000I0003o`0000<000?o0000n00001T00_l30003o`000?T0000I0003o`000080 00?o0000n@0001T000Go0000o`3l00004@05o`<000Co003oo@0001<000?o00000`000ol0o`3n0000 4`000ol0000300;oo`0001<000?o00000`03ooh0000C0003o`0000<000?o0000oP0001400ol50003 o`000?h0000C0003o`0000<000?o0000oP0001T000?o0000oP000?l06`000001\ \>"], ImageRangeCache->{{{0, 281}, {173, 0}} -> {-0.105306, -0.109269, 0.00409295, 0.00662254}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{28, Automatic}, {Automatic, 31}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000VHFh09V7j0000000OlH809FV" ] (*********************************************************************** 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[1711, 51, 232, 4, 70, "Input"], Cell[1946, 57, 83, 1, 70, "Input"], Cell[CellGroupData[{ Cell[2052, 60, 386, 6, 70, "Input"], Cell[2441, 68, 8287, 207, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[10760, 277, 84, 1, 70, "Input"], Cell[10847, 280, 4115, 106, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[14994, 388, 77, 1, 70, "Input"], Cell[15074, 391, 10323, 478, 182, 3813, 393, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[25400, 871, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[25563, 880, 83, 1, 70, "Input"], Cell[25649, 883, 4115, 106, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[29796, 991, 79, 1, 70, "Input"], Cell[29878, 994, 10744, 478, 182, 3897, 388, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[40625, 1474, 131, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[40788, 1483, 65, 1, 70, "Input"], Cell[40856, 1486, 11958, 552, 182, 4731, 458, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[52817, 2040, 131, 7, 70, "Output", Evaluatable->False] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)