>	restart:#"m07_p12"

Suponiendo que el agua de mar contiene 0,5 moles de NaCl por kilo de agua, se desea estimar:

a)•El aumento de temperatura de ebullición.

b)•La disminución de la temperatura de congelación.

Sol.:•a) Tebu=0,5 °C; b) Tcong= 2 °C.

Datos:

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

>	su1:="H2O":su2:="NaCl":dat:=[c2=0.5*mol_/kg_];

Esquema:

>

>

Eqs. const.:

>	gdat:=get_gas_data(su1):ldat:=get_liq_data(su1):dat:=op(dat),Const,gdat,ldat,SI2,SI1:

a)•El aumento de temperatura de ebullición.

>	c1:=1/M;c1_:=subs(dat,c1):'c1'=evalf(%,3);x2:=c2/(c1+c2);x2_:=subs(dat,x1):'x2'=evalf(%,3);xdis:=2*x2;xdis_:=subs(dat,xdis):'xdis'=evalf(%,3);DTb:='xdis*R*T[b]^2/h[lv0]';DTb_:=subs(dat,DTb);

b)•La disminución de la temperatura de congelación.

>	DTf:='-xdis*R*T[f]^2/h[sl0]';DTf_:=subs(dat,DTf);

>