Problem 3.12

restart;

rdat:=[0,.8821,1.7683,2.6412,3.4093,4.2064];

rhodat:=[.98803,.98984,.99148,.99297,.99439,.9958];

l:=[[rhodat[n],rdat[n]] $n=1...6];

plot(l,x=0.986...1.0);

with(stats):

fit[leastsquare[[rho,r]]]([rhodat,rdat]);

assign(%);

r:=unapply(r,rho);

V:=150*L/h;

rhol:=.994;

ratio:=r(rhol);

Msol:=V*rhol*g/cc;

cc:=L/1000;

Msol;

eq1:=ratio=gIle*100/gH2O;

eq2:=Msol=gIle+gH2O;

solve({eq1,eq2},{gIle,gH2O});

assign(%);

g:=kg/1000;

gIle;

Since the temp. error increased the density, the ratio was calculated as being too high.

Thus the mass flow of Ile was calculated as being too high.