> restart:#"m07_p11"

Determinar la masa molar de la hemoglobina humana sabiendo que si se disuelven 4 gramos en 100 cm3 de agua a 7 °C la presión osmótica es de 1,32 kPa.

Datos:

> read"../therm_eq.m":read"../therm_proc.m":with(therm_proc):

> dat:=[m=4e-3*kg_,V=100e-6*m_^3,T=(7+273)*K_,Dp=1320*Pa_];

`:=`(dat, [m = `+`(`*`(0.4e-2, `*`(kg_))), V = `+`(`*`(0.100e-3, `*`(`^`(m_, 3)))), T = `+`(`*`(280, `*`(K_))), Dp = `+`(`*`(1320, `*`(Pa_)))])

Esquema:

> `:=`(Sistemas, [mezcla])

> `:=`(Estados, [1, 2])

Eqs. const.:

> dat:=op(dat),Const,SI2,SI1:

a) Determinar la masa molar de la hemoglobina humana sabiendo que si se disuelven 4 gramos en 100 cm3 de agua a 7 °C la presión osmótica es de 1,32 kPa.

> eqOSM:=Dp*V=Dn*R[u]*T;Dn:=m/M;M:=solve(eqOSM,M);M_:=subs(dat,M);

`:=`(eqOSM, `*`(Dp, `*`(V)) = `*`(Dn, `*`(R[u], `*`(T))))

`:=`(Dn, `/`(`*`(m), `*`(M)))

`:=`(M, `/`(`*`(m, `*`(R[u], `*`(T))), `*`(Dp, `*`(V))))

`:=`(M_, `+`(`/`(`*`(70.54303030, `*`(kg_)), `*`(mol_))))

>