1 files changed, 20 insertions, 0 deletions
diff --git a/965/CH7/EX7.38/38.sci b/965/CH7/EX7.38/38.sci
new file mode 100644
index 000000000..a325f4356
--- /dev/null
+++ b/965/CH7/EX7.38/38.sci
@@ -0,0 +1,20 @@
+clc;
+clear all;
+disp("heat transfer from surface")
+ta=20;//degree C
+U=35;//m/s
+ts=60;// degree C
+L=0.75;//m
+B=1;//m
+mu=1.906*10^(-5);//kg.m/s
+cp=1007;//J/kg.K
+k=0.0272;//W/m.C
+P=1.0132*10^5;//Pa
+R=287;
+Pr=mu*cp/k
+rho=P/(R*(ta+273))//kg/m^3
+ReL=rho*U*L/mu
+Nu=(0.037*(ReL^0.8)-850)*Pr^(1/3);
+h=Nu*k/L
+Q=h*L*B*(ts-ta);//W
+disp("W",Q,"Heat loss from surface is Q=")