Assignment #2 Problem 3.53 in Felder

restart;

T:=r->a*r+b;

eq1:=T(23.624)=0; eq2:=T(33.028)=100;

s:=solve({eq1,eq2},{a,b});

assign(s);

T(r);

T(23.624); T(33.028);

Con:=12.186*kmol/s*K/atm/m^3*s;

atm:=760*mmHg;Con;

ndot:=(PmmHG,TC,Vm3pmin)->.01603*PmmHG*Vm3pmin/(TC+273.15);

T1:=T(26.159);T2:=T(26.157);T3:=T(44.789);Temps in C

29.76000 in = 755.9021 mm

P1:=232+756; P2:=156+756; P3:=74+756;Ps in mm Hg

NCH4:=ndot(P1,T1,947/60.);

Nair:=ndot(P2,T2,195);

NCH4+Nair;kmol/min of the combined stream

eq:=ndot(P3,T3,V3)=10.33;

solve(eq,V3);Flow meter 3 reading in m^3/min

WCH4:=NCH4*16.04; WN2:=.79*Nair*28.02; WO2:=.21*Nair*32;

Wtot:=WCH4+WN2+WO2;

massfracCH4:=WCH4/Wtot;