1 files changed, 27 insertions, 0 deletions
diff --git a/23/CH2/EX2.13/Example_2_13.sce b/23/CH2/EX2.13/Example_2_13.sce
new file mode 100755
index 000000000..aabb6dc5e
--- /dev/null
+++ b/23/CH2/EX2.13/Example_2_13.sce
@@ -0,0 +1,27 @@
+clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+  A=round(V*10^n)/10^n;//V-Value  n-To what place
+  funcprot(0)
+endfunction  
+
+//Example 2.13
+//Caption : Program to Find the time for a certain Temperature Drop
+
+//Given values
+M=190;//Mass=190Kg
+T0=333.15;//Temperature=333.15K(60`C)
+m=0.2;//Steady rate of mass(Kg/s)
+T=308.15;//Temperature=308.15K(35`C)
+T1=283.15;//Temperature=283.15K(10`C)
+
+//Solution
+//Using the Eqn (2.29)
+t=approx(-(M/m)*log((T-T1)/(T0-T1)),1);//s
+disp('s',t,'Time Taken for temperature of water to drop from 333.15K to 308.15K')
+t=round(t/60);//min
+disp('min',t,'Time Taken for temperature of water to drop from 333.15K to 308.15K')
+
+//End
+\ No newline at end of file