Radiation Shield Temperature

M.M. Yovanovich

RADSHIELD3.MWS

> restart:

> heatbalance:= Q13-Q32=0;

> Q13:= (Eb1-Eb3)/Rtotal13;

> Q32:= (Eb3-Eb2)/Rtotal32;

> Eb3:= solve(heatbalance, Eb3);

> eq:= sigma*T3^4 - subs(Eb1=sigma*T1^4, Eb2=sigma*T2^4, Eb3)=0;

> eq2:= simplify(eq/sigma);

> #solve(eq2, T3);

> assume(sigma>0, C1>0):
eq3:= sigma*T3^4 - C1=0;

> solve(eq3, T3);

> T3:= (C1/sigma)^(1/4);

> C2:= (sigma*T1^4*Rtotal32+sigma*T2^4*Rtotal13)/(Rtotal32+Rtotal13);

> T3:= simplify(subs(C1=C2, T3));

>