>	restart:#"m07_p05"

Calcular el coste energético mínimo para el enriquecimiento de uranio fisionable (U 235), partiendo de hexafluoruro de uranio gaseoso en condiciones ambientes, procedente de uranio natural cuya composición isotópica es del 0,72% de U 235, hasta conseguir un 3% de U 235 en el UF6.

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

>	dat:=[x0=0.72/100,x1=.03,M=(0.238+6*0.019)*kg_/mol_];M[UF6]:=subs(dat,M);

Esquema:

>

>

Eqs. const.:

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

a) Calcular el coste energético mínimo para el enriquecimiento de uranio fisionable (U 235), partiendo de hexafluoruro de uranio gaseoso en condiciones ambientes, procedente de uranio natural cuya composición isotópica es del 0,72% de U 235, hasta conseguir un 3% de U 235 en el UF6

>	wmin:=Sum(x[i]*(mu[i]-mu[i0]),i=1..C);wmin:=combine(x1*R[u]*T*(ln(x1/x10))+x2*R[u]*T*(ln(x2/x20)),ln);wmin_:=subs(x2=1-x1,x20=1-x10,wmin);

>	wminUF6_:=subs(dat,evalf(subs(T=T0,x10=x0,dat,wmin_)));

>	wminUF6__:=subs(dat,wminUF6_/M);

>