initial commit / add all books

1 files changed, 38 insertions, 0 deletions

diff --git a/534/CH5/EX5.7/5_7_Spherical_Tumor.sce b/534/CH5/EX5.7/5_7_Spherical_Tumor.sce
new file mode 100644
index 000000000..3104f4932
--- /dev/null
+++ b/534/CH5/EX5.7/5_7_Spherical_Tumor.sce
@@ -0,0 +1,38 @@
+clear;

+clc;

+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 5.7   Page 293 \n'); //Example 5.7

+// Spherical Tumor

+

+//Operating Conditions

+

+k = .5;         //[W/m.K] Thermal Conductivity Healthy Tissue

+kappa = .02*10^3;    //[m] extinction coefficient

+p = .05;            // reflectivity of skin

+D = .005;            //[m] Laser beam Dia

+rho = 989.1  ;      //[kg/m^3] Density

+c = 4180 ;           //[J/kg.K]  Specific Heat

+Tb = 37+273;        //[K] Temp of healthy tissue

+Dt = .003 ;         //[m] Dia of tissue

+d = .02  ;          //[m] depth beneath the skin

+Ttss = 55+273 ;       //[K] Steady State Temperature

+Tb = 37+273 ;       //[K] Body Temperature

+Tt = 52+273 ;       //[K] Tissue Temperature

+q = .170 ;           //[W] 

+

+//Case 12 of Table 4.1

+q = 2*%pi*k*Dt*(Ttss-Tb);

+

+//Energy Balancing

+P = q*(D^2)*exp(kappa*d)/((1-p)*Dt^2);

+

+//Using Eqn 5.14

+t = rho*(%pi*Dt^3/6)*c*(Tt-Tb)/q;

+

+alpha=k/(rho*c);

+Fo = 10.3;

+//Using Eqn 5.68

+t2 = Fo*Dt^2/(4*alpha);

+

+printf("\n (a) Heat transferred from the tumor to maintain its surface temperature at Ttss = 55 degC is %.2f W \n\n (b) Laser power needed to sustain the tumor surface temperautre at Ttss = 55 degC is %.2f W \n\n (c) Time for tumor to reach Tt = 52 degC when heat transfer to the surrounding tissue is neglected is %.2f sec \n\n (d) Time for tumor to reach Tt = 52 degC when Heat transfer to thesurrounding tissue is considered and teh thermal mass of tumor is neglected is %.2f sec" ,q,P,t,t2);

+

+//END
\ No newline at end of file