1 files changed, 17 insertions, 0 deletions
diff --git a/965/CH7/EX7.37/37.sci b/965/CH7/EX7.37/37.sci
new file mode 100644
index 000000000..f96a1ad5e
--- /dev/null
+++ b/965/CH7/EX7.37/37.sci
@@ -0,0 +1,17 @@
+clc;
+clear all;
+disp("heat loss from gases")
+U=70;//m/s
+L=1.2;//m
+B=0.8;//m
+ts=950;//degree C
+ta=280;//degree C
+ReL=5*10^5;
+Pr=0.625;
+k=0.075;//W/m.C
+v=95*10^(-6);// m^2/s
+ReL=U*L/v;
+Nu=(0.036*(ReL^0.8)-836)*Pr^(1/3)
+h=Nu*k/L;
+Q=h*L*B*(ts-ta);//W
+disp("kW",Q/1000,"Heat loss from crank is Q=")