X6.560Lhu$@P1=4000 P2=P1 x2=1 T2=temperature(STEAM_NBS,x=x2,p=P2) P3=5 h2=enthalpy(STEAM_NBS,T=T2,x=x2) s2=entropy(STEAM_NBS,T=T2,x=x2) s3=s2 h3i=enthalpy(STEAM_NBS,s=s3,P=P3) h3=h2-eta_t*(h2-h3i) x3=quality(STEAM_NBS,h=h3,P=P3) T3=temperature(STEAM_NBS,p=p3,x=x3) P4=P3 eta_t=.85 eta_p=.85 T4=T3 h4=enthalpy(STEAM_NBS,x=0,P=P4) s4=entropy(STEAM_NBS,x=0,P=P4) s1=s4 h1i=enthalpy(STEAM_NBS,s=s4,P=P1) h1=h4+(h1i-h4)/eta_p T1=temperature(STEAM_NBS,h=h1,P=P1) Wt=h2-h3 Wp=h1-h4 Qin=h2-h1 eta=(Wt-Wp)/Qin (,hT5?BzՔ?6A_p?d?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧs?OpDhȧOpDhȧsP11X;;; @?OpDhȧOpDhȧs@?'r<uG'r<uP2@"JW @?OpDhȧOpDhȧs\fyPlotPdT2@RFRJRCPb@@@@C#S0.WS,cSP3ZZ/MbX9@?OpDhȧOpDhȧs[[.\,\+P40.H,~`+`,@?OpDhȧOpDhȧsA-a-a-#ah2gVEL2S T5 @?OpDhȧOpDhȧskJ/kgutlet state of an R12 thrs2T14@?OpDhȧOpDhȧskJ/kg-K@s34@?OpDhȧOpDhȧskJ/kg-KP2yh3hx| @?OpDhȧOpDhȧsh4~r@?OpDhȧOpDhȧskJ/kgHzs4'r<uGA/5??OpDhȧOpDhȧskJ/kg-KAs1<8lot000/5??OpDhȧOpDhȧskJ/kg-K'h102 d\'pW,s@?OpDhȧOpDhȧsd'd'Wt ETABLEO<ˉ&@?OpDhȧOpDhȧs89OK9KL\^LWp2d@?OpDhȧOpDhȧs5TPLH2Qin 'xvi" @?OpDhȧOpDhȧs' eta, 2d@?֚??OpDhȧOpDhȧs Xp'x3=?"W 4{}??OpDhȧOpDhȧs?'<4T2eta_t2'd'??OpDhȧOpDhȧs2' d'eta_p' d??OpDhȧOpDhȧs<'\h3i8/N* @?OpDhȧOpDhȧskJ/kgy |2h1i9@t&>q㽍@?OpDhȧOpDhȧskJ/kgx2P=P3)??OpDhȧOpDhȧswb Hw)GAP% T32d)B{@?OpDhȧOpDhȧsC4T4dik"?a)B{@?OpDhȧOpDhȧsCif?sZY?);?T1?( I@@@@Ct  GTable 1 HG  eta [XHDwXw<J ~?jZ j?@MP4= ?͓V^?\?G?޷赈 $?&Ty7?zK?Y^d?T2 [[XHDwXw<@@@@@@@@@@x3 [[XHDwXw<'LAı?v4Y6?xS? XRȩ? jϦ? Xo>?pn`?oC`?K_?`; ?  xGG` @? P1y etaMME  |K® I7HG|G@ @?@NN|NNDȈNKKYC@NvL @ @@ @ @ @ @ @@ @ @ @WW?07?B比}?= rV?m$tQ?ٿ.[?1@ Ը?Ӧ<ݹ?:eFj?Pd^?  XHH` @? P1y x3MME  hK® I7|G@ @?D,dL70in the Department of Mechanical EngineeringdLdLT @ @@ @ @ @ @ @@ @ @ @dƮ?Mik"?a`=?$?o'e?~H[?J9l+?if?sZY?);?P12' d' 'b Hw)GA8'+HT2&6 eta)GA''@ H2' d'$'b Hw)G(7 xx3d '8'` @?  Plot 1h1i=enthalpy(STEAM_NBS,s=s4,P=P103!h1i=enthalpy(STEAM_NBS,s=`H`4`` 4:hGLLy etaMM^E  + n I|G@(\?xKx{XA(( .((( kLkLiCkLE((jLkL@@@@@@@@@@J ~?jZ j?@MP4= ?͓V^?\?G?޷赈 $?&Ty7?zK?Y^d?  x G6@?@fffffff? T2?pn`?oC`?K_?`; ?T2WVv VO7 uhWWWW +*VHPjj .? eta* uality(STEAM,h=h3,P=P3)#2 x3 Plot 3h1i=enthalpy(STEAM_NBS,s=s4,P=P103!h1i=enthalpy(STEAM_NBS,s=`HZ4`H  4 2(=entropy(STEAM_NBS,x=0,P=P4) s1=s4 h1i=enthalpy(STEAM_NBS,s=s4,P=P1) h1=h4+(h1i-h4)/eta_p T1=temperature(STEAM_NBS,h=h1,P=P1) Wt=h2-h3 Wp=h1-h4 Qin=h2-h1 eta=(Wt-Wp)/Qin KKR' beta_=interpolate1(File$,'T', 'beta', T=T_K)*(UnitSystem~;On? ,Y2t^dh,%|T  (((0 ((d2XPi Calculate<xSavexLoad<P{iHelp;On;On? ףp= ף?;On?#GGŧ? ColorA=000000 ColorB=FF0000 ColorC=0000FF ColorD=408000 ColorE=800080 ColorF=004080 ColorG=00FFFF ColorH=00FF00 ColorI=008080 ColorJ=FFFF80 ColorK=808080 ColorL=FF80FF ColorM=C0C0C0 ColorN=800000 ColorO=808040 ColorP=4080FF