(*^ ::[ 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 = subsubsection; inactive; Cclosed; preserveAspect; startGroup] def des quantités physiques :[font = input; preserveAspect] ValAir={ka->0.026,ra->1.2,Cpa->10^3,Pra->0.71, B->1/300,nu-> (Pra ka/ra/Cpa ) } :[font = input; preserveAspect] ValWater={kw->0.6,rw->1000,Cpw->4.18 10^3,Prw->7} :[font = text; inactive; preserveAspect] valeur de alpha :[font = input; preserveAspect; startGroup] 10^5 alpha/.{alpha->ka/ra/Cpa/.ValAir} :[font = output; output; inactive; preserveAspect; endGroup] 2.166666666666666 ;[o] 2.16667 :[font = text; inactive; preserveAspect] valeur de nu :[font = input; preserveAspect; startGroup] 10^5 nu//.ValAir :[font = output; output; inactive; preserveAspect; endGroup; endGroup] 1.538333333333333 ;[o] 1.53833 :[font = subsubsection; inactive; preserveAspect; startGroup] facteurs :[font = text; inactive; preserveAspect] si le diamètre > 35 L/Gr^-1/4 Nu= 0.59 Ra^.25 :[font = input; preserveAspect; startGroup] Ra=g B (Ts-Tinf) d^3 Pra/nu^2 :[font = output; output; inactive; preserveAspect; endGroup] (B*d^3*g*Pra*(-Tinf + Ts))/nu^2 ;[o] 3 B d g Pra (-Tinf + Ts) ----------------------- 2 nu :[font = input; preserveAspect; startGroup] NuExt= 0.59 Ra^.25 :[font = output; output; inactive; preserveAspect; endGroup] 0.59*((B*d^3*g*Pra*(-Tinf + Ts))/nu^2)^0.25 ;[o] 3 B d g Pra (-Tinf + Ts) 0.25 0.59 (-----------------------) 2 nu :[font = input; preserveAspect; startGroup] qext2=-(NuExt ka/d1 (3.14 d1 L)) /.R->Ra/.d->d2//.ValAir /.g->9.81 :[font = output; output; inactive; preserveAspect; endGroup] -4.793815416337739*L*(d2^3*(-Tinf + Ts))^0.25 ;[o] 3 0.25 -4.79382 L (d2 (-Tinf + Ts)) :[font = input; preserveAspect; startGroup] qint=sigm eps (Ts^4-Tinf^4) :[font = output; output; inactive; preserveAspect; endGroup] eps*sigm*(-Tinf^4 + Ts^4) ;[o] 4 4 eps sigm (-Tinf + Ts ) :[font = input; preserveAspect; startGroup] qint2=qint (3.14 d2 L) /.eps->0.9/.sigm->5.67 10^(-8) :[font = output; output; inactive; preserveAspect; endGroup] 1.602342*10^-7*d2*L*(-Tinf^4 + Ts^4) ;[o] -7 4 4 1.60234 10 d2 L (-Tinf + Ts ) :[font = input; preserveAspect; startGroup] FindRoot[(qext2+qint2)/.L->.1/.d2->0.04/.Tinf->300,{Ts,200,400}] :[font = output; output; inactive; preserveAspect; endGroup; endGroup] {Ts -> 300.5261654499361 + 6.947278526051818*10^-6*I} ;[o] -6 {Ts -> 300.526 + 6.94728 10 I} :[font = subsubsection; inactive; preserveAspect; startGroup] deux cylindres :[font = input; preserveAspect; startGroup] NuInt= 0.11 Ra^.29 :[font = output; output; inactive; preserveAspect; endGroup] 0.11*((B*d^3*g*Pra*(-Tinf + Ts))/nu^2)^0.29 ;[o] 3 B d g Pra (-Tinf + Ts) 0.29 0.11 (-----------------------) 2 nu :[font = input; preserveAspect; startGroup] QclNum= -(Ts -Tinf) (NuInt ka/d1 (3.14 d1 L)) /. R->Ra/. d->((d2-d1)/2)/.L->.1/.d2->0.04/.d1->0.01//. ValAir /.g->9.81/. Tinf->300.5 :[font = output; output; inactive; preserveAspect; endGroup] -0.004831584558435662*(-300.5 + Ts)^1.29 ;[o] 1.29 -0.00483158 (-300.5 + Ts) :[font = input; preserveAspect; startGroup] Qrad=sigm eps (3.1416 d1 L) (T1^4-T2^4)/ (1/eps - (1-eps)/eps (d1/d2)) :[font = output; output; inactive; preserveAspect; endGroup] (3.1416*d1*eps*L*sigm*(T1^4 - T2^4))/(eps^(-1) - (d1*(1 - eps))/(d2*eps)) ;[o] 4 4 3.1416 d1 eps L sigm (T1 - T2 ) -------------------------------- 1 d1 (1 - eps) --- - ------------ eps d2 eps :[font = input; preserveAspect; startGroup] QradNum=Qrad/.eps->0.9/.sigm->5.67 10^(-8) :[font = output; output; inactive; preserveAspect; endGroup] (1.60315848*10^-7*d1*L*(T1^4 - T2^4))/ (1.111111111111111 - (0.1111111111111111*d1)/d2) ;[o] -7 4 4 1.60316 10 d1 L (T1 - T2 ) ----------------------------- 0.111111 d1 1.11111 - ----------- d2 :[font = input; preserveAspect; startGroup] QradNum=QradNum/.T2->300.5/.T1->Ts/.d2->0.04/.d1->0.01/.L->.1 :[font = output; output; inactive; preserveAspect; endGroup] 1.479838596923077*10^-10*(-(8.1541351500625*10^9) + Ts^4) ;[o] -10 9 4 1.47984 10 (-8.15414 10 + Ts ) :[font = input; preserveAspect; startGroup] bil=QradNum + QclNum :[font = output; output; inactive; preserveAspect; endGroup] -0.004831584558435662*(-300.5 + Ts)^1.29 + 1.479838596923077*10^-10*(-(8.1541351500625*10^9) + Ts^4) ;[o] 1.29 -10 9 4 -0.00483158 (-300.5 + Ts) + 1.47984 10 (-8.15414 10 + Ts ) :[font = input; preserveAspect; startGroup] FindRoot[bil==0,{Ts,200,400}] :[font = output; output; inactive; preserveAspect; endGroup] {Ts -> 314.3626544518939 - 81.7564520429023*I} ;[o] {Ts -> 314.363 - 81.7565 I} :[font = input; preserveAspect; startGroup] Plot[{QclNum,QradNum},{Ts,300.5,310}] :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Plot[QclNum+QradNum,{Ts,300.5,310}] :[font = output; output; inactive; preserveAspect; endGroup; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = subsubsection; inactive; preserveAspect; startGroup] on recommence a ZERO :[font = input; preserveAspect; startGroup] expr =Ec - c1 *(-Tinf + T1)* Abs[(-Tinf + T1)]^(1/4) - c2*(-Tinf^4 + T1^4) :[font = output; output; inactive; preserveAspect; endGroup] Ec - c2*(-Tinf^4 + T1^4) - c1*(-Tinf + T1)*Abs[-Tinf + T1]^(1/3) ;[o] 4 4 1/3 Ec - c2 (-Tinf + T1 ) - c1 (-Tinf + T1) Abs[-Tinf + T1] :[font = input; preserveAspect; startGroup] v1={c1->(0.00047/0.0003), c2->(4.9 *10^-12)/0.0003} :[font = output; output; inactive; preserveAspect; endGroup] {c1 -> 1.566666666666667, c2 -> 1.633333333333333*10^-8} ;[o] -8 {c1 -> 1.56667, c2 -> 1.63333 10 } :[font = input; preserveAspect; startGroup] v2={c1->(1.566), c2->(0.8 *10^-8) } :[font = output; output; inactive; preserveAspect; endGroup] {c1 -> 1.566, c2 -> 8.*10^-9} ;[o] -9 {c1 -> 1.566, c2 -> 8. 10 } :[font = input; preserveAspect; startGroup] v3={c1->(1.566), c2->(3.2 *10^-8) } :[font = output; output; inactive; preserveAspect; endGroup] {c1 -> 1.566, c2 -> 3.2*10^-8} ;[o] -8 {c1 -> 1.566, c2 -> 3.2 10 } :[font = input; preserveAspect; startGroup] exprN=(expr/.Ec->10 /.Tinf->300) /.v1 :[font = output; output; inactive; preserveAspect; endGroup] 10 - 1.633333333333333*10^-8*(-8100000000 + T1^4) - 1.566666666666667*(-300 + T1)*Abs[-300 + T1]^(1/3) ;[o] -8 4 1/3 10 - 1.63333 10 (-8100000000 + T1 ) - 1.56667 (-300 + T1) Abs[-300 + T1] :[font = input; preserveAspect; startGroup] FindRoot[exprN==0,{T1,300,400}] :[font = output; output; inactive; preserveAspect; endGroup] {T1 -> 301.8789697353636} ;[o] {T1 -> 301.879} :[font = input; preserveAspect; startGroup] Plot[ exprN ,{T1,280,310}] :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] ssm=exprN/.T1->T[t] solu=NDSolve[{T'[t]==ssm,T[0]==287},T[t],{t,0,5}] :[font = output; output; inactive; preserveAspect] 10 - 1.566666666666667*Abs[-300 + T[t]]^(1/3)*(-300 + T[t]) - 1.633333333333333*10^-8*(-8100000000 + T[t]^4) ;[o] 1/3 -8 4 10 - 1.56667 Abs[-300 + T[t]] (-300 + T[t]) - 1.63333 10 (-8100000000 + T[t] ) :[font = output; output; inactive; preserveAspect; endGroup] {{T[t] -> InterpolatingFunction[{0., 5.}, {{0., 0., {287., 0}, {0}}, {0.000892852480721952, 0., {287.0704623437721, 78.91823710355175}, {0}}, {0.001785704961443904, 0.000892852480721952, {287.1405215655607, 78.46673812445398}, {0}}, {0.003571409922887808, 0.001785704961443904, {287.2798397997062, 77.57049888110284, -250.9482984878065}, {0, 0}}, {0.005357114884331712, 0.003571409922887808, {287.4175686583507, 76.68662826839684, -247.4850638235698}, {0, 0}}, {0.007142819845775616, 0.005357114884331712, {287.5537300397215, 75.81491516777512, -244.0809426650379}, {0, 0}}, {0.02199023396789252, 0.007142819845775616, {288.6278222508458, 69.0136485578596, -214.441694707856, 655.4256598370292}, {0, 0, 0}}, {0.03683764809000941, 0.02199023396789252, {289.6064986256949, 62.93861193815259, -192.3540886521859, 549.0618703138703}, {0, 0, 0}}, {0.05168506221212632, 0.03683764809000941, {290.4998211853356, 57.50145870598954, -172.3603684889112, 482.2679461453994}, {0, 0, 0}}, {0.0665324763342432, 0.05168506221212632, {291.3166832585039, 52.62649403236948, -154.7027097299554, 425.0393203040964}, {0, 0, 0}}, {0.0904879518360364, 0.0665324763342432, {292.4931201625362, 45.78163382066714, -131.7474117193698, 267.8435096653355, -1302.056235922646}, {0, 0, 0, 0}}, {0.1144434273378297, 0.0904879518360364, {293.5187469040149, 39.99902823792831, -111.6237994120458, 224.4089175608936, -877.670415779575}, {0, 0, 0, 0}}, {0.1383989028396229, 0.1144434273378297, {294.4166357285744, 35.09531235470786, -94.4542444225517, 202.0001813942346, -555.7643008072997}, {0, 0, 0, 0}}, {0.1623543783414162, 0.1383989028396229, {295.2060445350674, 30.91984470977877, -80.5986369567853, 167.753441375295, -456.5821099200865}, {0, 0, 0, 0}}, {0.1863098538432094, 0.1623543783414162, {295.9029117376795, 27.35143431255994, -68.98795997551043, 141.1093843043045, -367.3201104936937}, {0, 0, 0, 0}}, {0.2277399622328045, 0.1863098538432094, {296.9276632341239, 22.33395593725459, -53.0489541295714, 111.6528479390022, -116.6155729235236, 931.240672090569}, {0, 0, 0, 0, 0}}, {0.2691700706223996, 0.2277399622328045, {297.7691071177842, 18.45860233246117, -40.59520251214976, 98.3445894288586, 24.73994329889506, 831.696653136303}, {0, 0, 0, 0, 0}}, {0.3106001790119947, 0.2691700706223996, {298.4688153667433, 15.44597045822138, -31.91575109138818, 67.2707457839362, -58.73715873515394, 337.8268093744941}, {0, 0, 0, 0, 0}}, {0.3520302874015898, 0.3106001790119947, {299.0580970071391, 13.10032112542007, -24.81876798878326, 53.20418855079394, -41.15723152026196, 236.6422719094653}, {0, 0, 0, 0, 0}}, {0.3934603957911849, 0.3520302874015898, {299.5616978327715, 11.29311721296256, -18.87548033430729, 45.78336380081788, -16.24999978336305, 190.0803022226992}, {0, 0, 0, 0, 0}}, {0.4348905041807801, 0.3934603957911849, {300.000913476268, 9.99822085046003, -12.33228004984105, 56.32112284341996, 74.68233542887094, 289.635142115158}, {0, 0, 0, 0, 0}}, {0.4356673038984888, 0.4348905041807801, {300.0086674294714, 9.98192072773371}, {0}}, {0.4364441036161974, 0.4356673038984888, {300.016407867506, 9.96452220331631}, {0}}, {0.4372209033339061, 0.4364441036161974, {300.0241343022471, 9.94649529973819}, {0}}, {0.4379977030516147, 0.4372209033339061, {300.0318463695231, 9.92799958617931}, {0}}, {0.4387745027693234, 0.4379977030516147, {300.0395437747627, 9.90912466122006}, {0}}, {0.4403281022047407, 0.4387745027693234, {300.0549085184316, 9.87041866080799, -12.45687901581841}, {0, 0}}, {0.4418817016401581, 0.4403281022047407, {300.070212359124, 9.83072224274341, -12.7756283761508}, {0, 0}}, {0.4434353010755754, 0.4418817016401581, {300.0854539065821, 9.79022651742125, -13.03287205150158}, {0, 0}}, {0.4589712954297488, 0.4434353010755754, {300.2342143091421, 9.36019271789257, -13.83991876300965}, {0, 0}}, {0.4745072897839223, 0.4589712954297488, {300.3761362371354, 8.90988704113926, -14.49233523415735}, {0, 0}}, {0.4900432841380958, 0.4745072897839223, {300.5110354449243, 8.45613469052745, -14.60326066898693}, {0, 0}}, {0.5427670384208282, 0.4900432841380958, {300.9178393051378, 6.975386290776897, -14.04251669759708}, {0, 0}}, {0.5752199336663577, 0.5427670384208282, {301.1307847046503, 6.147966673658345, -12.74800924322042}, {0, 0}}, {0.6076728289118872, 0.5752199336663577, {301.3180867679321, 5.395044319026625, -11.60023395347812}, {0, 0}}, {0.6401257241574168, 0.6076728289118872, {301.482186247225, 4.718042852473787, -10.43052494131622}, {0, 0}}, {0.7050315146484758, 0.6401257241574168, {301.7495684118008, 3.582811027957632, -7.317724466150402, 14.6623092910764}, {0, 0, 0}}, {0.7586379317445357, 0.7050315146484758, {301.9209388012578, 2.838638413821059, -6.163258938329747, 9.67320479483534}, {0, 0, 0}}, {0.812244348840595, 0.7586379317445357, {302.0563790611821, 2.238504028310672, -4.925858691982149, 8.35397091884958}, {0, 0, 0}}, {0.865850765936655, 0.812244348840595, {302.1630235512013, 1.76067603726483, -3.886426442816641, 7.093561704357097}, {0, 0, 0}}, {0.919457183032715, 0.865850765936655, {302.2468103572952, 1.381818079277082, -3.072140979581623, 5.740092653809451}, {0, 0, 0}}, {1.018577129554949, 0.919457183032715, {302.3571598281676, 0.879358748774735, -2.089115008969228, 1.947002831582958, -7.939492463152956}, {0, 0, 0, 0}}, {1.117697076077184, 1.018577129554949, {302.4272251220115, 0.5535148722836994, -1.406254536319076, 0.897335497191426, -5.293479964317235}, {0, 0, 0, 0}}, {1.216817022599418, 1.117697076077184, {302.4712120580493, 0.3498654085715316, -0.810596706507351, 1.149703153784434, -2.328479549410606}, {0, 0, 0, 0}}, {1.315936969121652, 1.216817022599418, {302.4991388963291, 0.2225247569723479, -0.5270455111737569, 0.5160974192500344, -1.963278914612767}, {0, 0, 0, 0}}, {1.415056915643887, 1.315936969121652, {302.5168637209774, 0.1399521333355551, -0.3566497302165206, 0.224386120674005, -1.349516091640768}, {0, 0, 0, 0}}, {1.511828891095165, 1.415056915643887, {302.5277635257936, 0.0891824150806997, -0.2077649895927403, 0.3016137075183348, -0.5750034597377489}, {0, 0, 0, 0}}, {1.608600866546444, 1.511828891095165, {302.5347386651501, 0.0572214944585312, -0.1348779877779849, 0.1452939702893432, -0.4894193518095539}, {0, 0, 0, 0}}, {1.705372841997722, 1.608600866546444, {302.5392084133741, 0.03636383495836526, -0.0923539125146414, 0.0604696858555991, -0.3542768879490974}, {0, 0, 0, 0}}, {1.802144817449001, 1.705372841997722, {302.5420395502397, 0.02312780321381069, -0.05469435894455924, 0.0736799443151363, -0.1600748023599005}, {0, 0, 0, 0}}, {1.89891679290028, 1.802144817449001, {302.5438469129079, 0.01482284830274238, -0.03480484288083849, 0.03987489084901959, -0.1237032627432708}, {0, 0, 0, 0}}, {2.016922602817321, 1.89891679290028, {302.5451912154626, 0.00856444616454155, -0.01884449822358551, 0.04334729669181039}, {0, 0, 0}}, {2.134928412734363, 2.016922602817321, {302.5459665880447, 0.005030969166682552, -0.00919876076107737, 0.03261343517357363}, {0, 0, 0}}, {2.252934222651405, 2.134928412734363, {302.5464223694569, 0.00293301257636358, -0.005848001837872378, 0.01718111483450714}, {0, 0, 0}}, {2.370940032568447, 2.252934222651405, {302.5466853034515, 0.001660920474023441, -0.003640328637016736, 0.00988441023281666}, {0, 0, 0}}, {2.494280111908993, 2.370940032568447, {302.5468417938559, 0.000876622964369745, -0.003179410593243714}, {0, 0}}, {2.617620191249538, 2.494280111908993, {302.5469243496816, 0.0004620469334213341, -0.001680621713416269}, {0, 0}}, {2.740960270590083, 2.617620191249538, {302.5469694359531, 0.0002690418053816757, -0.0007824104260009701}, {0, 0}}, {2.864297559742786, 2.740960270590083, {302.5469959672152, 0.0001611810768054056, -0.0004372591992139858}, {0, 0}}, {2.98763484889549, 2.864297559742786, {302.547011658809, 0.0000932690406898473, -0.000275310234974747}, {0, 0}}, {3.110972138048194, 2.98763484889549, {302.5470206633842, 0.00005274641330288432, -0.00016427565282707}, {0, 0}}, {3.774919629148272, 3.110972138048194, {302.5470404333398, -0.00003624383406725602, -0.0000994359029734612}, {0, 0}}, {4.43886712024835, 3.774919629148272, {302.5470373478106, -0.00002185906521779837, -0.00002592346038765264}, {0, 0}}, {5., 4.43886712024835, {302.54703210132, -0.00001036844813572985, -(1.815309117592801*10^-6)}, {0, 0}}}][t]}} ;[o] {{T[t] -> InterpolatingFunction[{0., 5.}, <>][t]}} :[font = input; preserveAspect; startGroup] pz2=Plot[(Evaluate[T[t]/.solu[[1]]]), {t,0. ,3},PlotRange->{{0,3},{287,305}}] :[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 2.77556e-17 0.333333 -9.85421 0.0343352 [ [(0.5)] .16667 .10301 0 2 Msboxa [(1)] .33333 .10301 0 2 Msboxa [(1.5)] .5 .10301 0 2 Msboxa [(2)] .66667 .10301 0 2 Msboxa [(2.5)] .83333 .10301 0 2 Msboxa [(3)] 1 .10301 0 2 Msboxa [(287.5)] -0.0125 .01717 1 0 Msboxa [(290)] -0.0125 .10301 1 0 Msboxa [(292.5)] -0.0125 .18884 1 0 Msboxa [(295)] -0.0125 .27468 1 0 Msboxa [(297.5)] -0.0125 .36052 1 0 Msboxa [(300)] -0.0125 .44636 1 0 Msboxa [(302.5)] -0.0125 .5322 1 0 Msboxa [(305)] -0.0125 .61803 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 .16667 .10301 m .16667 .10926 L s P [(0.5)] .16667 .10301 0 2 Mshowa p .002 w .33333 .10301 m .33333 .10926 L s P [(1)] .33333 .10301 0 2 Mshowa p .002 w .5 .10301 m .5 .10926 L s P [(1.5)] .5 .10301 0 2 Mshowa p .002 w .66667 .10301 m .66667 .10926 L s P [(2)] .66667 .10301 0 2 Mshowa p .002 w .83333 .10301 m .83333 .10926 L s P [(2.5)] .83333 .10301 0 2 Mshowa p .002 w 1 .10301 m 1 .10926 L s P [(3)] 1 .10301 0 2 Mshowa p .001 w .03333 .10301 m .03333 .10676 L s P p .001 w .06667 .10301 m .06667 .10676 L s P p .001 w .1 .10301 m .1 .10676 L s P p .001 w .13333 .10301 m .13333 .10676 L s P p .001 w .2 .10301 m .2 .10676 L s P p .001 w .23333 .10301 m .23333 .10676 L s P p .001 w .26667 .10301 m .26667 .10676 L s P p .001 w .3 .10301 m .3 .10676 L s P p .001 w .36667 .10301 m .36667 .10676 L s P p .001 w .4 .10301 m .4 .10676 L s P p .001 w .43333 .10301 m .43333 .10676 L s P p .001 w .46667 .10301 m .46667 .10676 L s P p .001 w .53333 .10301 m .53333 .10676 L s P p .001 w .56667 .10301 m .56667 .10676 L s P p .001 w .6 .10301 m .6 .10676 L s P p .001 w .63333 .10301 m .63333 .10676 L s P p .001 w .7 .10301 m .7 .10676 L s P p .001 w .73333 .10301 m .73333 .10676 L s P p .001 w .76667 .10301 m .76667 .10676 L s P p .001 w .8 .10301 m .8 .10676 L s P p .001 w .86667 .10301 m .86667 .10676 L s P p .001 w .9 .10301 m .9 .10676 L s P p .001 w .93333 .10301 m .93333 .10676 L s P p .001 w .96667 .10301 m .96667 .10676 L s P p .002 w 0 .10301 m 1 .10301 L s P p .002 w 0 .01717 m .00625 .01717 L s P [(287.5)] -0.0125 .01717 1 0 Mshowa p .002 w 0 .10301 m .00625 .10301 L s P [(290)] -0.0125 .10301 1 0 Mshowa p .002 w 0 .18884 m .00625 .18884 L s P [(292.5)] -0.0125 .18884 1 0 Mshowa p .002 w 0 .27468 m .00625 .27468 L s P [(295)] -0.0125 .27468 1 0 Mshowa p .002 w 0 .36052 m .00625 .36052 L s P [(297.5)] -0.0125 .36052 1 0 Mshowa p .002 w 0 .44636 m .00625 .44636 L s P [(300)] -0.0125 .44636 1 0 Mshowa p .002 w 0 .5322 m .00625 .5322 L s P [(302.5)] -0.0125 .5322 1 0 Mshowa p .002 w 0 .61803 m .00625 .61803 L s P [(305)] -0.0125 .61803 1 0 Mshowa p .001 w 0 .03434 m .00375 .03434 L s P p .001 w 0 .0515 m .00375 .0515 L s P p .001 w 0 .06867 m .00375 .06867 L s P p .001 w 0 .08584 m .00375 .08584 L s P p .001 w 0 .12017 m .00375 .12017 L s P p .001 w 0 .13734 m .00375 .13734 L s P p .001 w 0 .15451 m .00375 .15451 L s P p .001 w 0 .17168 m .00375 .17168 L s P p .001 w 0 .20601 m .00375 .20601 L s P p .001 w 0 .22318 m .00375 .22318 L s P p .001 w 0 .24035 m .00375 .24035 L s P p .001 w 0 .25751 m .00375 .25751 L s P p .001 w 0 .29185 m .00375 .29185 L s P p .001 w 0 .30902 m .00375 .30902 L s P p .001 w 0 .32618 m .00375 .32618 L s P p .001 w 0 .34335 m .00375 .34335 L s P p .001 w 0 .37769 m .00375 .37769 L s P p .001 w 0 .39486 m .00375 .39486 L s P p .001 w 0 .41202 m .00375 .41202 L s P p .001 w 0 .42919 m .00375 .42919 L s P p .001 w 0 .46353 m .00375 .46353 L s P p .001 w 0 .48069 m .00375 .48069 L s P p .001 w 0 .49786 m .00375 .49786 L s P p .001 w 0 .51503 m .00375 .51503 L s P p .001 w 0 .54936 m .00375 .54936 L s P p .001 w 0 .56653 m .00375 .56653 L s P p .001 w 0 .5837 m .00375 .5837 L s P p .001 w 0 .60087 m .00375 .60087 L s P p .002 w 0 0 m 0 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w 0 0 m .01042 .07721 L .02083 .14084 L .04167 .23791 L .0625 .3068 L .08333 .35707 L .10417 .39479 L .125 .42392 L .14583 .44728 L .16667 .46675 L .1875 .48243 L .20833 .49472 L .22917 .50419 L .25 .51146 L .27083 .51698 L .29167 .52117 L .3125 .52432 L .33333 .52671 L .35417 .52849 L .375 .52983 L .39583 .53083 L .41667 .53158 L .4375 .53214 L .45833 .53256 L .47917 .53288 L .5 .53311 L .52083 .53329 L .54167 .53342 L .5625 .53352 L .58333 .53359 L .60417 .53365 L .625 .53369 L .64583 .53372 L .66667 .53374 L .6875 .53376 L .70833 .53377 L .72917 .53378 L .75 .53379 L .77083 .5338 L .79167 .5338 L .8125 .5338 L .83333 .5338 L .85417 .53381 L .875 .53381 L .89583 .53381 L .91667 .53381 L .9375 .53381 L .95833 .53381 L .97917 .53381 L 1 .53381 L Mistroke Mfstroke P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Show[pz3 ,PlotRange->{{0,3},{300,302.6}}] :[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 2.77556e-17 0.333333 -71.3116 0.237705 [ [(0.5)] .16667 0 0 2 Msboxa [(1)] .33333 0 0 2 Msboxa [(1.5)] .5 0 0 2 Msboxa [(2)] .66667 0 0 2 Msboxa [(2.5)] .83333 0 0 2 Msboxa [(3)] 1 0 0 2 Msboxa [(300)] -0.0125 0 1 0 Msboxa [(300.5)] -0.0125 .11885 1 0 Msboxa [(301)] -0.0125 .23771 1 0 Msboxa [(301.5)] -0.0125 .35656 1 0 Msboxa [(302)] -0.0125 .47541 1 0 Msboxa [(302.5)] -0.0125 .59426 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 .16667 0 m .16667 .00625 L s P [(0.5)] .16667 0 0 2 Mshowa p .002 w .33333 0 m .33333 .00625 L s P [(1)] .33333 0 0 2 Mshowa p .002 w .5 0 m .5 .00625 L s P [(1.5)] .5 0 0 2 Mshowa p .002 w .66667 0 m .66667 .00625 L s P [(2)] .66667 0 0 2 Mshowa p .002 w .83333 0 m .83333 .00625 L s P [(2.5)] .83333 0 0 2 Mshowa p .002 w 1 0 m 1 .00625 L s P [(3)] 1 0 0 2 Mshowa p .001 w .03333 0 m .03333 .00375 L s P p .001 w .06667 0 m .06667 .00375 L s P p .001 w .1 0 m .1 .00375 L s P p .001 w .13333 0 m .13333 .00375 L s P p .001 w .2 0 m .2 .00375 L s P p .001 w .23333 0 m .23333 .00375 L s P p .001 w .26667 0 m .26667 .00375 L s P p .001 w .3 0 m .3 .00375 L s P p .001 w .36667 0 m .36667 .00375 L s P p .001 w .4 0 m .4 .00375 L s P p .001 w .43333 0 m .43333 .00375 L s P p .001 w .46667 0 m .46667 .00375 L s P p .001 w .53333 0 m .53333 .00375 L s P p .001 w .56667 0 m .56667 .00375 L s P p .001 w .6 0 m .6 .00375 L s P p .001 w .63333 0 m .63333 .00375 L s P p .001 w .7 0 m .7 .00375 L s P p .001 w .73333 0 m .73333 .00375 L s P p .001 w .76667 0 m .76667 .00375 L s P p .001 w .8 0 m .8 .00375 L s P p .001 w .86667 0 m .86667 .00375 L s P p .001 w .9 0 m .9 .00375 L s P p .001 w .93333 0 m .93333 .00375 L s P p .001 w .96667 0 m .96667 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w 0 0 m .00625 0 L s P [(300)] -0.0125 0 1 0 Mshowa p .002 w 0 .11885 m .00625 .11885 L s P [(300.5)] -0.0125 .11885 1 0 Mshowa p .002 w 0 .23771 m .00625 .23771 L s P [(301)] -0.0125 .23771 1 0 Mshowa p .002 w 0 .35656 m .00625 .35656 L s P [(301.5)] -0.0125 .35656 1 0 Mshowa p .002 w 0 .47541 m .00625 .47541 L s P [(302)] -0.0125 .47541 1 0 Mshowa p .002 w 0 .59426 m .00625 .59426 L s P [(302.5)] -0.0125 .59426 1 0 Mshowa p .001 w 0 .02377 m .00375 .02377 L s P p .001 w 0 .04754 m .00375 .04754 L s P p .001 w 0 .07131 m .00375 .07131 L s P p .001 w 0 .09508 m .00375 .09508 L s P p .001 w 0 .14262 m .00375 .14262 L s P p .001 w 0 .16639 m .00375 .16639 L s P p .001 w 0 .19016 m .00375 .19016 L s P p .001 w 0 .21393 m .00375 .21393 L s P p .001 w 0 .26148 m .00375 .26148 L s P p .001 w 0 .28525 m .00375 .28525 L s P p .001 w 0 .30902 m .00375 .30902 L s P p .001 w 0 .33279 m .00375 .33279 L s P p .001 w 0 .38033 m .00375 .38033 L s P p .001 w 0 .4041 m .00375 .4041 L s P p .001 w 0 .42787 m .00375 .42787 L s P p .001 w 0 .45164 m .00375 .45164 L s P p .001 w 0 .49918 m .00375 .49918 L s P p .001 w 0 .52295 m .00375 .52295 L s P p .001 w 0 .54672 m .00375 .54672 L s P p .001 w 0 .57049 m .00375 .57049 L s P p .002 w 0 0 m 0 .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 s s s s .15146 0 m .16667 .10377 L s .16667 .10377 m .1875 .21959 L .20833 .31158 L .22917 .38369 L .25 .43983 L .27083 .4834 L .29167 .51704 L .3125 .54295 L .33333 .56289 L .35417 .57819 L .375 .58989 L .39583 .59886 L .41667 .60573 L .4375 .61099 L .45833 .61501 L s .47884 .61803 m .45833 .61501 L s s s s s s s s s s s s s s s s s s s s s s s s s s s P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Show[p1,p2,p3 ,PlotRange->{{0,2},{287,305}}] :[font = message; inactive; preserveAspect] Show::gcomb: An error was encountered in combining the graphics objects in Show[-Graphics-, p2, p3, PlotRange -> {{0, 2}, {300, 305}}]. :[font = output; output; inactive; preserveAspect; endGroup] Show[Graphics["<<>>"], p2, p3, PlotRange -> {{0, 2}, {300, 305}}] ;[o] Show[-Graphics-, p2, p3, PlotRange -> {{0, 2}, {300, 305}}] :[font = input; preserveAspect; startGroup] Show[p1,p2,p3,PlotRange->{{0,3},{300,305}}] :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect] NDSolve[] :[font = input; preserveAspect; startGroup] NDSolve[{T'[t]==ssm,T[0]==287},T[t],{t,0,5}, StartingStepSize -> 1] :[font = output; output; inactive; preserveAspect; endGroup] {{T[t] -> InterpolatingFunction[{0., 5.}, {{0., 0., {287., 0}, {0}}, {1.330510599868543*10^-8, 0., {287.0000012074049, 90.7474819030672}, {0}}, {2.661021199737086*10^-8, 1.330510599868543*10^-8, {287.0000024148096, 90.7474737617}, {0}}, {3.99153179960563*10^-8, 2.661021199737086*10^-8, {287.0000036222142, 90.7474656203333}, {0}}, {5.322042399474172*10^-8, 3.99153179960563*10^-8, {287.0000048296187, 90.7474574789676}, {0}}, {6.652552999342715*10^-8, 5.322042399474172*10^-8, {287.0000060370232, 90.7474493376027}, {0}}, {9.3135741990798*10^-8, 6.652552999342715*10^-8, {287.0000084518318, 90.7474330548751, -305.948849975074}, {0, 0}}, {1.197459539881689*10^-7, 9.3135741990798*10^-8, {287.00001086664, 90.7474167721497, -305.9488118241585}, {0, 0}}, {1.463561659855398*10^-7, 1.197459539881689*10^-7, {287.0000132814478, 90.7474004894275, -305.9487501697659}, {0, 0}}, {4.124582859592484*10^-7, 1.463561659855398*10^-7, {287.0000374295018, 90.7472376623792, -305.9484236235314}, {0, 0}}, {6.78560405932957*10^-7, 4.124582859592484*10^-7, {287.0000615775124, 90.7470748356461, -305.9478314543061}, {0, 0}}, {9.44662525906666*10^-7, 6.78560405932957*10^-7, {287.0000857254798, 90.7469120092284, -305.9472388886256}, {0, 0}}, {3.605683725643752*10^-6, 9.44662525906666*10^-7, {287.00032720277, 90.7452837623989, -305.9439792529599}, {0, 0}}, {6.266704925380839*10^-6, 3.605683725643752*10^-6, {287.0005686757275, 90.743655547108, -305.9380532318153}, {0, 0}}, {8.92772612511793*10^-6, 6.266704925380839*10^-6, {287.0008101443523, 90.742027363355, -305.9321273365949}, {0, 0}}, {0.00003553793812248879, 8.92772612511793*10^-6, {287.0032245923217, 90.7257472603042, -305.868426864686, 779.3995947480246}, {0, 0, 0}}, {0.00006214815011985965, 0.00003553793812248879, {287.0056386071164, 90.7094703103423, -305.8106680800698, 742.1442172095743}, {0, 0, 0}}, {0.0000887583621172305, 0.00006214815011985965, {287.0080521888199, 90.6931965129064, -305.7514381055062, 742.0116841796874}, {0, 0, 0}}, {0.0001153685741146014, 0.0000887583621172305, {287.0104653375162, 90.6769258673136, -305.6922220854445, 741.8509722784988}, {0, 0, 0}}, {0.00038147069408831, 0.0001153685741146014, {287.0345730275157, 90.5143926236848, -305.1003897026127, 741.5236405910532}, {0, 0, 0}}, {0.0006475728140620186, 0.00038147069408831, {287.0586375089297, 90.3521738672716, -304.5099994343127, 740.2102183305407}, {0, 0, 0}}, {0.000913674934035727, 0.0006475728140620186, {287.0826588653613, 90.1902689645077, -303.9208705952402, 738.7189897421605}, {0, 0, 0}}, {0.001179777054009436, 0.000913674934035727, {287.1066371802436, 90.028677283117, -303.3329285766281, 737.2307982549265}, {0, 0, 0}}, {0.003840798253746522, 0.001179777054009436, {287.3440712770008, 88.4298494716949, -297.5182666123819, 720.8051494384414, -1470.655499283433}, {0, 0, 0, 0}}, {0.00650181945348361, 0.003840798253746522, {287.5772917641553, 86.861657655831, -291.8224779505285, 705.7031556565394, -1444.735560043335}, {0, 0, 0, 0}}, {0.00916284065322069, 0.00650181945348361, {287.8063793385477, 85.3234903698659, -286.2357584848685, 692.2968445117986, -1352.121835817306}, {0, 0, 0, 0}}, {0.01182386185295778, 0.00916284065322069, {288.0314130993277, 83.8147483309773, -280.762358533409, 678.4782411877383, -1325.182170936697}, {0, 0, 0, 0}}, {0.01448488305269487, 0.01182386185295778, {288.2524705637333, 82.3348443149084, -275.3981716159791, 664.9405359776926, -1298.517304854685}, {0, 0, 0, 0}}, {0.04109509505006575, 0.01448488305269487, {290.2603414949441, 69.00082073010549, -227.3338538889618, 543.0378595901849, -1014.785096098883, 2055.467126841475}, {0, 0, 0, 0, 0}}, {0.0677053070474366, 0.04109509505006575, {291.9452580064321, 57.98587884441941, -187.8437566140151, 450.6859077392855, -732.3821494022173, 2082.286504915291}, {0, 0, 0, 0, 0}}, {0.0943155190448075, 0.0677053070474366, {293.3631610661927, 48.86885454261516, -155.6537819709603, 368.7225584363449, -606.3428682035176, 1628.291939245474}, {0, 0, 0, 0, 0}}, {0.1209257310421783, 0.0943155190448075, {294.5598358469981, 41.3069066839023, -129.2569423065707, 302.2231390359363, -498.3267367793309, 1301.711039938976}, {0, 0, 0, 0, 0}}, {0.1475359430395492, 0.1209257310421783, {295.5728268891868, 35.02156265172209, -107.5484515858238, 248.8185851055326, -402.2756977827335, 1069.791069751604}, {0, 0, 0, 0, 0}}, {0.1741461550369201, 0.1475359430395492, {296.4329873271646, 29.7861761650754, -89.683612644549, 204.9650658983987, -329.2745921001971, 861.342583526133}, {0, 0, 0, 0, 0}}, {0.2163304698176378, 0.1741461550369201, {297.543935346249, 23.19966931310478, -67.33003685871356, 156.8083513404588, -187.8485263903464, 785.0115246728324}, {0, 0, 0, 0, 0}}, {0.2585147845983555, 0.2163304698176378, {298.4128827807361, 18.23196750334728, -50.88502666562571, 117.1418689925437, -133.7164815078644, 573.6650618687799}, {0, 0, 0, 0, 0}}, {0.3006990993790732, 0.2585147845983555, {299.0990233547532, 14.47478884556961, -38.49899230150881, 88.840174064799, -93.7259426320218, 420.0386738843088}, {0, 0, 0, 0, 0}}, {0.3428834141597909, 0.3006990993790732, {299.6470291914361, 11.64397356066621, -28.81785575623695, 70.80408567675728, -54.38237628929129, 326.6358968391559}, {0, 0, 0, 0, 0}}, {0.3850677289405086, 0.3428834141597909, {300.0924356511626, 9.60047829374503, -19.67442099592274, 73.17531568474604, 43.64465997935551, 381.8838798211873}, {0, 0, 0, 0, 0}}, {0.385802783177164, 0.3850677289405086, {300.0994690805449, 9.56858559757143}, {0}}, {0.3865378374138193, 0.385802783177164, {300.1064789705784, 9.53656163573942}, {0}}, {0.3872728916504747, 0.3865378374138193, {300.1134653047209, 9.50451516926984}, {0}}, {0.3880079458871301, 0.3872728916504747, {300.1204280718039, 9.47245350848897}, {0}}, {0.3887430001237855, 0.3880079458871301, {300.127367265482, 9.44038321541018}, {0}}, {0.3902131085970963, 0.3887430001237855, {300.1411984232515, 9.37613001548999, -21.85321732602719}, {0, 0}}, {0.3916832170704071, 0.3902131085970963, {300.1549351437252, 9.31190657918609, -21.84309439400354}, {0, 0}}, {0.3931533255437179, 0.3916832170704071, {300.1685774960283, 9.24774742022441, -21.82123296561329}, {0, 0}}, {0.4078544102768258, 0.3931533255437179, {300.2998751091418, 8.61455532779058, -21.53555686295173}, {0, 0}}, {0.4225554950099336, 0.4078544102768258, {300.4220422761953, 8.00560152068408, -20.7111862206704}, {0, 0}}, {0.4372565797430415, 0.4225554950099336, {300.5354805559236, 7.42703923852099, -19.67753715683744}, {0, 0}}, {0.468658290338561, 0.4372565797430415, {300.7505674777786, 6.302043867185546, -16.47870418744034, 30.44969981485702}, {0, 0, 0}}, {0.5000600009340804, 0.468658290338561, {300.9327484992114, 5.326043178304417, -14.3543668570495, 25.18331542286861}, {0, 0, 0}}, {0.5314617115296, 0.5000600009340804, {301.0864725105039, 4.487705591769498, -12.25261332533284, 23.26803394166899}, {0, 0, 0}}, {0.5628634221251195, 0.5314617115296, {301.2158507055565, 3.77312024126411, -10.39289293659932, 20.9167974512954}, {0, 0, 0}}, {0.6232409835103109, 0.5628634221251195, {301.409248558251, 2.69143129650854, -7.605216328169909, 12.83290786424329, -26.09562941241704}, {0, 0, 0, 0}}, {0.6836185448955022, 0.6232409835103109, {301.5469507481634, 1.910165992585689, -5.551943383360562, 8.33492347977543, -22.36001670906026}, {0, 0, 0, 0}}, {0.7439961062806936, 0.6836185448955022, {301.6445150632455, 1.352507478186112, -3.904271106059626, 6.711102949456187, -14.54181299905638}, {0, 0, 0, 0}}, {0.804373667665885, 0.7439961062806936, {301.7135636676394, 0.956498288253897, -2.781140943304762, 4.557821468378564, -11.72885708513629}, {0, 0, 0, 0}}, {0.864751229051076, 0.804373667665885, {301.7623638154236, 0.6752108310973881, -1.983925119169349, 3.099486693170068, -8.88362711102461}, {0, 0, 0, 0}}, {0.942705361683229, 0.864751229051076, {301.8047827757076, 0.4294935029901126, -1.301691049527735, 1.641559320747929, -6.779610352158351}, {0, 0, 0, 0}}, {1.020659494315381, 0.942705361683229, {301.831743190633, 0.2731345733112676, -0.818028786254451, 1.146023155106835, -4.184400903254111}, {0, 0, 0, 0}}, {1.098613626947534, 1.020659494315381, {301.8489059817831, 0.1740739785013829, -0.5201655928316477, 0.6921975646047834, -2.81991297817704}, {0, 0, 0, 0}}, {1.176567759579687, 1.098613626947534, {301.8598453708531, 0.1107466819555611, -0.337692122091811, 0.3885858938155459, -1.89679993878398}, {0, 0, 0, 0}}, {1.254521892211839, 1.176567759579687, {301.8667986708258, 0.07042045797663832, -0.2121103898616238, 0.2816385760881068, -1.119890745628477}, {0, 0, 0, 0}}, {1.34920272630343, 1.254521892211839, {301.8719198637038, 0.04077294849503232, -0.108793764959586, 0.3363705236572532}, {0, 0, 0}}, {1.443883560395021, 1.34920272630343, {301.874887709953, 0.02407728791820318, -0.05396940269112167, 0.2407999367755588}, {0, 0, 0}}, {1.538564394486613, 1.443883560395021, {301.8766376425678, 0.0139887794432525, -0.03583054843733185, 0.1228397443558844}, {0, 0, 0}}, {1.633245228578203, 1.538564394486613, {301.8776421310753, 0.007895505746773778, -0.02162875066816976, 0.07427914648577643}, {0, 0, 0}}, {1.732166010228566, 1.633245228578203, {301.8782393954882, 0.004180104714919253, -0.01877967889996392}, {0, 0}}, {1.831086791878929, 1.732166010228566, {301.8785553036096, 0.002206988394277687, -0.00997321436265826}, {0, 0}}, {1.930007573529293, 1.831086791878929, {301.8787279543091, 0.001283697720054988, -0.004666818533066606}, {0, 0}}, {2.028922371532255, 1.930007573529293, {301.8788294386478, 0.000768256908827425, -0.002605478763714025}, {0, 0}}, {2.127837169535218, 2.028922371532255, {301.8788894239891, 0.0004446119936574177, -0.001635978244429684}, {0, 0}}, {2.22675196753818, 2.127837169535218, {301.8789238548613, 0.000251560325182254, -0.000975848267260181}, {0, 0}}, {2.325665553888795, 2.22675196753818, {301.8789433852198, 0.000143337065196647, -0.0005470596304232318}, {0, 0}}, {2.424579140239409, 2.325665553888795, {301.8789545632824, 0.0000826796642741101, -0.0003066181460023472}, {0, 0}}, {2.523492726590023, 2.424579140239409, {301.8789610126637, 0.00004772469230829301, -0.0001766944929178578}, {0, 0}}, {3.108451194969595, 2.523492726590023, {301.8789760827028, -0.00003689794667670343, -0.0001071196156621002}, {0, 0}}, {3.693409663349167, 3.108451194969595, {301.8789732158751, -0.00002023265202992661, -0.00002620996996689804}, {0, 0}}, {4.27836813172874, 3.693409663349167, {301.878970508228, -(4.492723645917055*10^-6), 2.326002716221534*10^-7}, {0, 0}}\ , {5., 4.27836813172874, {301.8789698841187, -(8.64858393668329*10^-7)}, {0}}}][ t]}} ;[o] {{T[t] -> InterpolatingFunction[{0., 5.}, <>][t]}} :[font = input; preserveAspect; startGroup] p4=Plot[(Evaluate[T[t]/.%[[1]]]), {t,0. ,3},PlotRange->{{0,3},{287,305}}] :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Show[p4,p3,PlotRange->{{0,3},{300,305}}] :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] exprN :[font = output; output; inactive; preserveAspect; endGroup] 10 - 1.633333333333333*10^-8*(-8100000000 + T1^4) - 1.566666666666667*(-300 + T1)*Abs[-300 + T1]^(1/4) ;[o] -8 4 1/4 10 - 1.63333 10 (-8100000000 + T1 ) - 1.56667 (-300 + T1) Abs[-300 + T1] :[font = input; preserveAspect; startGroup] Join[{{0,1}},{{0,2}}] :[font = output; output; inactive; preserveAspect; endGroup] {{0, 1}, {0, 2}} ;[o] {{0, 1}, {0, 2}} :[font = input; preserveAspect; startGroup] dt=0.2; T0=287; Tm1=T0; Join[{{0,T0}}, Table[{i*dt ,Tp1=Tm1+ dt *N[exprN/.T1->Tm1];Tm1=Tp1;Tp1},{i,1,15}]] :[font = output; output; inactive; preserveAspect; endGroup] {{0, 287}, {0.2, 301.0313660834856}, {0.4, 302.33995325313}, {0.6000000000000001, 302.5979003657354}, {0.8, 302.6359481679716}, {1., 302.6412646881767}, {1.2, 302.6420016926272}, {1.4, 302.6421037466433}, {1.6, 302.6421178760259}, {1.8, 302.6421198321977}, {2., 302.6421201030232}, {2.2, 302.6421201405181}, {2.4, 302.6421201457091}, {2.6, 302.6421201464278}, {2.8, 302.6421201465273}, {3., 302.6421201465411}} ;[o] {{0, 287}, {0.2, 301.031}, {0.4, 302.34}, {0.6, 302.598}, {0.8, 302.636}, {1., 302.641}, {1.2, 302.642}, {1.4, 302.642}, {1.6, 302.642}, {1.8, 302.642}, {2., 302.642}, {2.2, 302.642}, {2.4, 302.642}, {2.6, 302.642}, {2.8, 302.642}, {3., 302.642}} :[font = input; preserveAspect; startGroup] ListPlot[%,PlotJoined->True] :[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.31746 -235.208 0.779177 [ [(0.5)] .18254 .10299 0 2 Msboxa [(1)] .34127 .10299 0 2 Msboxa [(1.5)] .5 .10299 0 2 Msboxa [(2)] .65873 .10299 0 2 Msboxa [(2.5)] .81746 .10299 0 2 Msboxa [(3)] .97619 .10299 0 2 Msboxa [(301.9)] .01131 .02508 1 0 Msboxa [(302.1)] .01131 .18091 1 0 Msboxa [(302.2)] .01131 .25883 1 0 Msboxa [(302.3)] .01131 .33675 1 0 Msboxa [(302.4)] .01131 .41466 1 0 Msboxa [(302.5)] .01131 .49258 1 0 Msboxa [(302.6)] .01131 .5705 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 .18254 .10299 m .18254 .10924 L s P [(0.5)] .18254 .10299 0 2 Mshowa p .002 w .34127 .10299 m .34127 .10924 L s P [(1)] .34127 .10299 0 2 Mshowa p .002 w .5 .10299 m .5 .10924 L s P [(1.5)] .5 .10299 0 2 Mshowa p .002 w .65873 .10299 m .65873 .10924 L s P [(2)] .65873 .10299 0 2 Mshowa p .002 w .81746 .10299 m .81746 .10924 L s P [(2.5)] .81746 .10299 0 2 Mshowa p .002 w .97619 .10299 m .97619 .10924 L s P [(3)] .97619 .10299 0 2 Mshowa p .001 w .05556 .10299 m .05556 .10674 L s P p .001 w .0873 .10299 m .0873 .10674 L s P p .001 w .11905 .10299 m .11905 .10674 L s P p .001 w .15079 .10299 m .15079 .10674 L s P p .001 w .21429 .10299 m .21429 .10674 L s P p .001 w .24603 .10299 m .24603 .10674 L s P p .001 w .27778 .10299 m .27778 .10674 L s P p .001 w .30952 .10299 m .30952 .10674 L s P p .001 w .37302 .10299 m .37302 .10674 L s P p .001 w .40476 .10299 m .40476 .10674 L s P p .001 w .43651 .10299 m .43651 .10674 L s P p .001 w .46825 .10299 m .46825 .10674 L s P p .001 w .53175 .10299 m .53175 .10674 L s P p .001 w .56349 .10299 m .56349 .10674 L s P p .001 w .59524 .10299 m .59524 .10674 L s P p .001 w .62698 .10299 m .62698 .10674 L s P p .001 w .69048 .10299 m .69048 .10674 L s P p .001 w .72222 .10299 m .72222 .10674 L s P p .001 w .75397 .10299 m .75397 .10674 L s P p .001 w .78571 .10299 m .78571 .10674 L s P p .001 w .84921 .10299 m .84921 .10674 L s P p .001 w .88095 .10299 m .88095 .10674 L s P p .001 w .9127 .10299 m .9127 .10674 L s P p .001 w .94444 .10299 m .94444 .10674 L s P p .002 w 0 .10299 m 1 .10299 L s P p .002 w .02381 .02508 m .03006 .02508 L s P [(301.9)] .01131 .02508 1 0 Mshowa p .002 w .02381 .18091 m .03006 .18091 L s P [(302.1)] .01131 .18091 1 0 Mshowa p .002 w .02381 .25883 m .03006 .25883 L s P [(302.2)] .01131 .25883 1 0 Mshowa p .002 w .02381 .33675 m .03006 .33675 L s P [(302.3)] .01131 .33675 1 0 Mshowa p .002 w .02381 .41466 m .03006 .41466 L s P [(302.4)] .01131 .41466 1 0 Mshowa p .002 w .02381 .49258 m .03006 .49258 L s P [(302.5)] .01131 .49258 1 0 Mshowa p .002 w .02381 .5705 m .03006 .5705 L s P [(302.6)] .01131 .5705 1 0 Mshowa p .001 w .02381 .04066 m .02756 .04066 L s P p .001 w .02381 .05624 m .02756 .05624 L s P p .001 w .02381 .07183 m .02756 .07183 L s P p .001 w .02381 .08741 m .02756 .08741 L s P p .001 w .02381 .11858 m .02756 .11858 L s P p .001 w .02381 .13416 m .02756 .13416 L s P p .001 w .02381 .14974 m .02756 .14974 L s P p .001 w .02381 .16533 m .02756 .16533 L s P p .001 w .02381 .19649 m .02756 .19649 L s P p .001 w .02381 .21208 m .02756 .21208 L s P p .001 w .02381 .22766 m .02756 .22766 L s P p .001 w .02381 .24325 m .02756 .24325 L s P p .001 w .02381 .27441 m .02756 .27441 L s P p .001 w .02381 .29 m .02756 .29 L s P p .001 w .02381 .30558 m .02756 .30558 L s P p .001 w .02381 .32116 m .02756 .32116 L s P p .001 w .02381 .35233 m .02756 .35233 L s P p .001 w .02381 .36791 m .02756 .36791 L s P p .001 w .02381 .3835 m .02756 .3835 L s P p .001 w .02381 .39908 m .02756 .39908 L s P p .001 w .02381 .43025 m .02756 .43025 L s P p .001 w .02381 .44583 m .02756 .44583 L s P p .001 w .02381 .46142 m .02756 .46142 L s P p .001 w .02381 .477 m .02756 .477 L s P p .001 w .02381 .50817 m .02756 .50817 L s P p .001 w .02381 .52375 m .02756 .52375 L s P p .001 w .02381 .53933 m .02756 .53933 L s P p .001 w .02381 .55492 m .02756 .55492 L s P p .001 w .02381 .00949 m .02756 .00949 L s P p .001 w .02381 .58608 m .02756 .58608 L s P p .001 w .02381 .60167 m .02756 .60167 L s P p .001 w .02381 .61725 m .02756 .61725 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 .004 w s s .12789 0 m .15079 .36788 L s .15079 .36788 m .21429 .56886 L .27778 .59851 L .34127 .60265 L .40476 .60323 L .46825 .60331 L .53175 .60332 L .59524 .60332 L .65873 .60332 L .72222 .60332 L .78571 .60332 L .84921 .60332 L .9127 .60332 L .97619 .60332 L s % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] p0p2=% :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- :[font = input; preserveAspect; startGroup] Show[p0p1,p0p2,p0p01,PlotRange->{{0,1.5},{287,303}}] :[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 2.77556e-17 0.666667 -11.086 0.0386271 [ [(0.2)] .13333 .03863 0 2 Msboxa [(0.4)] .26667 .03863 0 2 Msboxa [(0.6)] .4 .03863 0 2 Msboxa [(0.8)] .53333 .03863 0 2 Msboxa [(1)] .66667 .03863 0 2 Msboxa [(1.2)] .8 .03863 0 2 Msboxa [(1.4)] .93333 .03863 0 2 Msboxa [(288)] -0.0125 .03863 1 0 Msboxa [(290)] -0.0125 .11588 1 0 Msboxa [(292)] -0.0125 .19314 1 0 Msboxa [(294)] -0.0125 .27039 1 0 Msboxa [(296)] -0.0125 .34764 1 0 Msboxa [(298)] -0.0125 .4249 1 0 Msboxa [(300)] -0.0125 .50215 1 0 Msboxa [(302)] -0.0125 .57941 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 .13333 .03863 m .13333 .04488 L s P [(0.2)] .13333 .03863 0 2 Mshowa p .002 w .26667 .03863 m .26667 .04488 L s P [(0.4)] .26667 .03863 0 2 Mshowa p .002 w .4 .03863 m .4 .04488 L s P [(0.6)] .4 .03863 0 2 Mshowa p .002 w .53333 .03863 m .53333 .04488 L s P [(0.8)] .53333 .03863 0 2 Mshowa p .002 w .66667 .03863 m .66667 .04488 L s P [(1)] .66667 .03863 0 2 Mshowa p .002 w .8 .03863 m .8 .04488 L s P [(1.2)] .8 .03863 0 2 Mshowa p .002 w .93333 .03863 m .93333 .04488 L s P [(1.4)] .93333 .03863 0 2 Mshowa p .001 w .02667 .03863 m .02667 .04238 L s P p .001 w .05333 .03863 m .05333 .04238 L s P p .001 w .08 .03863 m .08 .04238 L s P p .001 w .10667 .03863 m .10667 .04238 L s P p .001 w .16 .03863 m .16 .04238 L s P p .001 w .18667 .03863 m .18667 .04238 L s P p .001 w .21333 .03863 m .21333 .04238 L s P p .001 w .24 .03863 m .24 .04238 L s P p .001 w .29333 .03863 m .29333 .04238 L s P p .001 w .32 .03863 m .32 .04238 L s P p .001 w .34667 .03863 m .34667 .04238 L s P p .001 w .37333 .03863 m .37333 .04238 L s P p .001 w .42667 .03863 m .42667 .04238 L s P p .001 w .45333 .03863 m .45333 .04238 L s P p .001 w .48 .03863 m .48 .04238 L s P p .001 w .50667 .03863 m .50667 .04238 L s P p .001 w .56 .03863 m .56 .04238 L s P p .001 w .58667 .03863 m .58667 .04238 L s P p .001 w .61333 .03863 m .61333 .04238 L s P p .001 w .64 .03863 m .64 .04238 L s P p .001 w .69333 .03863 m .69333 .04238 L s P p .001 w .72 .03863 m .72 .04238 L s P p .001 w .74667 .03863 m .74667 .04238 L s P p .001 w .77333 .03863 m .77333 .04238 L s P p .001 w .82667 .03863 m .82667 .04238 L s P p .001 w .85333 .03863 m .85333 .04238 L s P p .001 w .88 .03863 m .88 .04238 L s P p .001 w .90667 .03863 m .90667 .04238 L s P p .001 w .96 .03863 m .96 .04238 L s P p .001 w .98667 .03863 m .98667 .04238 L s P p .002 w 0 .03863 m 1 .03863 L s P p .002 w 0 .03863 m .00625 .03863 L s P [(288)] -0.0125 .03863 1 0 Mshowa p .002 w 0 .11588 m .00625 .11588 L s P [(290)] -0.0125 .11588 1 0 Mshowa p .002 w 0 .19314 m .00625 .19314 L s P [(292)] -0.0125 .19314 1 0 Mshowa p .002 w 0 .27039 m .00625 .27039 L s P [(294)] -0.0125 .27039 1 0 Mshowa p .002 w 0 .34764 m .00625 .34764 L s P [(296)] -0.0125 .34764 1 0 Mshowa p .002 w 0 .4249 m .00625 .4249 L s P [(298)] -0.0125 .4249 1 0 Mshowa p .002 w 0 .50215 m .00625 .50215 L s P [(300)] -0.0125 .50215 1 0 Mshowa p .002 w 0 .57941 m .00625 .57941 L s P [(302)] -0.0125 .57941 1 0 Mshowa p .001 w 0 .05408 m .00375 .05408 L s P p .001 w 0 .06953 m .00375 .06953 L s P p .001 w 0 .08498 m .00375 .08498 L s P p .001 w 0 .10043 m .00375 .10043 L s P p .001 w 0 .13133 m .00375 .13133 L s P p .001 w 0 .14678 m .00375 .14678 L s P p .001 w 0 .16223 m .00375 .16223 L s P p .001 w 0 .17768 m .00375 .17768 L s P p .001 w 0 .20859 m .00375 .20859 L s P p .001 w 0 .22404 m .00375 .22404 L s P p .001 w 0 .23949 m .00375 .23949 L s P p .001 w 0 .25494 m .00375 .25494 L s P p .001 w 0 .28584 m .00375 .28584 L s P p .001 w 0 .30129 m .00375 .30129 L s P p .001 w 0 .31674 m .00375 .31674 L s P p .001 w 0 .33219 m .00375 .33219 L s P p .001 w 0 .36309 m .00375 .36309 L s P p .001 w 0 .37855 m .00375 .37855 L s P p .001 w 0 .394 m .00375 .394 L s P p .001 w 0 .40945 m .00375 .40945 L s P p .001 w 0 .44035 m .00375 .44035 L s P p .001 w 0 .4558 m .00375 .4558 L s P p .001 w 0 .47125 m .00375 .47125 L s P p .001 w 0 .4867 m .00375 .4867 L s P p .001 w 0 .5176 m .00375 .5176 L s P p .001 w 0 .53305 m .00375 .53305 L s P p .001 w 0 .54851 m .00375 .54851 L s P p .001 w 0 .56396 m .00375 .56396 L s P p .001 w 0 .02318 m .00375 .02318 L s P p .001 w 0 .00773 m .00375 .00773 L s P p .001 w 0 .59486 m .00375 .59486 L s P p .001 w 0 .61031 m .00375 .61031 L s P p .002 w 0 0 m 0 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .004 w 0 0 m .06667 .271 L .13333 .40584 L .2 .4802 L .26667 .52568 L .33333 .55689 L .4 .57643 L .46667 .58813 L .53333 .59497 L .6 .59892 L .66667 .60119 L .73333 .60249 L .8 .60323 L .86667 .60365 L .93333 .60389 L 1 .60403 L s 1 .60403 m 1 .60403 L s s s s s s s s s s s s s s s s 0 0 m .13333 .54199 L .26667 .59254 L .4 .6025 L .53333 .60397 L .66667 .60418 L .8 .60421 L .93333 .60421 L s 1 .60421 m .93333 .60421 L s s s s s s s s s 0 0 m .00667 .0271 L .01333 .05278 L .02 .07712 L .02667 .10021 L .03333 .12211 L .04 .1429 L .04667 .16264 L .05333 .18139 L .06 .19921 L .06667 .21615 L .07333 .23227 L .08 .2476 L .08667 .2622 L .09333 .2761 L .1 .28934 L .10667 .30197 L .11333 .314 L .12 .32548 L .12667 .33644 L .13333 .3469 L .14 .35689 L .14667 .36644 L .15333 .37556 L .16 .38429 L .16667 .39264 L .17333 .40063 L .18 .40829 L .18667 .41562 L .19333 .42265 L .2 .4294 L .20667 .43587 L .21333 .44208 L .22 .44804 L .22667 .45378 L .23333 .45929 L .24 .46459 L .24667 .4697 L .25333 .47462 L .26 .47936 L .26667 .48394 L .27333 .48836 L .28 .49263 L .28667 .49677 L .29333 .50077 L .3 .50467 L .30667 .50847 L .31333 .51216 L .32 .51573 L .32667 .51919 L Mistroke .33333 .52253 L .34 .52576 L .34667 .52888 L .35333 .53189 L .36 .53479 L .36667 .53758 L .37333 .54028 L .38 .54287 L .38667 .54536 L .39333 .54776 L .4 .55007 L .40667 .55229 L .41333 .55442 L .42 .55648 L .42667 .55845 L .43333 .56034 L .44 .56216 L .44667 .5639 L .45333 .56558 L .46 .56719 L .46667 .56874 L .47333 .57022 L .48 .57164 L .48667 .57301 L .49333 .57432 L .5 .57557 L .50667 .57678 L .51333 .57793 L .52 .57904 L .52667 .5801 L .53333 .58112 L .54 .5821 L .54667 .58303 L .55333 .58393 L .56 .58479 L .56667 .58561 L .57333 .5864 L .58 .58716 L .58667 .58788 L .59333 .58858 L .6 .58924 L .60667 .58988 L .61333 .59049 L .62 .59107 L .62667 .59163 L .63333 .59217 L .64 .59268 L .64667 .59318 L .65333 .59365 L .66 .5941 L Mistroke .66667 .59453 L .67333 .59494 L .68 .59534 L .68667 .59572 L .69333 .59608 L .7 .59643 L .70667 .59676 L .71333 .59708 L .72 .59739 L .72667 .59768 L .73333 .59796 L .74 .59823 L .74667 .59849 L .75333 .59873 L .76 .59897 L .76667 .59919 L .77333 .59941 L .78 .59961 L .78667 .59981 L .79333 .6 L .8 .60018 L .80667 .60035 L .81333 .60052 L .82 .60068 L .82667 .60083 L .83333 .60097 L .84 .60111 L .84667 .60125 L .85333 .60137 L .86 .6015 L .86667 .60161 L .87333 .60172 L .88 .60183 L .88667 .60193 L .89333 .60203 L .9 .60212 L .90667 .60221 L .91333 .6023 L .92 .60238 L .92667 .60246 L .93333 .60254 L .94 .60261 L .94667 .60268 L .95333 .60274 L .96 .60281 L .96667 .60287 L .97333 .60292 L .98 .60298 L .98667 .60303 L .99333 .60308 L Mistroke 1 .60313 L Mfstroke 1 .60313 m 1 .60313 L s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; endGroup] Graphics["<<>>"] ;[o] -Graphics- ^*)