1 files changed, 21 insertions, 0 deletions
diff --git a/3745/CH1/EX1.57/Ex1_57.sce b/3745/CH1/EX1.57/Ex1_57.sce
new file mode 100644
index 000000000..632e61881
--- /dev/null
+++ b/3745/CH1/EX1.57/Ex1_57.sce
@@ -0,0 +1,21 @@
+// Ex 57 Page 401
+
+clc;clear;close;
+// Given
+theta1=30;//degree C
+theta2=45;//degree C
+t1=0.5;//hour
+t2=1;//hour
+theta_m_dashBYthetam=60/100;//temperature rise
+
+//theta=theta_m*(1-e**(-t/alfa))
+//theta1/theta2=(1-%e**(-t1/alfa))/(1-%e**(-t2/alfa))
+ee1=theta2/theta1-1;//let ee1=exp(-1/2/alfa)
+theta_m=theta1/(1-ee1);//degree C
+theta_2=theta_m*(1-ee1**4);// degree C (after 2 hours)
+printf("temperature rise after 2 hours full load = %.f degree C",theta_2)
+alfa=-1/2/log(ee1);//hour
+alfa_dash=theta_m_dashBYthetam*alfa;//hour
+theta_m_dash=theta_m_dashBYthetam*theta_m
+theta_dash=theta_m_dash*(1-%e**(-t2/alfa))
+printf("\n temperature rise of cold water after 1 hour = %.f degree C",theta_dash)