(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = leftheader, inactive, L2, 12, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times"; fontset = leftfooter, inactive, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; paletteColors = 128; automaticGrouping; currentKernel; ] :[font = input; preserveAspect] (* CR418 HW 2.5 Numerical Solution of ODEs *) (* Use the NDSolve[ ] function to numerically solve the *) (* simple system: A --> B --> C *) :[font = input; preserveAspect] ka = 2; kb = 0.5; cao = 1; :[font = input; preserveAspect; startGroup] sol = NDSolve[{ ca'[t] == -ka ca[t], (* ODEs to solve *) cb'[t] == ka ca[t] - kb cb[t], ca[0] == cao, cb[0] == 0}, (* Initial conditions *) {ca[t], cb[t]}, {t,0,1}] (* Limits on independent varialbe *) :[font = output; output; inactive; preserveAspect; endGroup] {{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]}} ;[o] {{ca[t] -> InterpolatingFunction[{0., 1.}, <>][t], cb[t] -> InterpolatingFunction[{0., 1.}, <>][t]}} :[font = input; preserveAspect; startGroup] conca = Evaluate[ ca[t] /. sol] :[font = output; output; inactive; preserveAspect; endGroup] {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]} ;[o] {InterpolatingFunction[{0., 1.}, <>][t]} :[font = input; preserveAspect; startGroup] g1 = Plot[conca,{t,0,1}] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174] %! %%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 :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] concb = Evaluate[cb[t] /. sol] :[font = output; output; inactive; preserveAspect; endGroup] {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]} ;[o] {InterpolatingFunction[{0., 1.}, <>][t]} :[font = input; preserveAspect; startGroup] g2 = Plot[concb, {t,0,1}] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174] %! %%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 :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Show[g1, g2] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174] %! %%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 :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- ^*)