From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 914/CH13/EX13.6/ex13_6.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 914/CH13/EX13.6/ex13_6.sce

(limited to '914/CH13/EX13.6')

diff --git a/914/CH13/EX13.6/ex13_6.sce b/914/CH13/EX13.6/ex13_6.sce
new file mode 100755
index 000000000..ab238cbe1
--- /dev/null
+++ b/914/CH13/EX13.6/ex13_6.sce
@@ -0,0 +1,29 @@
+clc;
+warning("off");
+printf("\n\n example13_6 - pg684");
+// given
+d=1*0.0254;  //[m]
+Lr=d/2;  //[m];
+Lz=(1.2/2)*(0.0254);
+x=Lz;
+r=Lr;
+k=0.481;
+h=20;
+mr=k/(h*Lr);
+mz=k/(h*Lz);
+nr=r/Lr;
+nz=x/Lz;
+t=1.2;  //[sec]
+alpha=1.454*10^-4;
+Xr=(alpha*t)/(Lr^2);
+Xz=(alpha*t)/(Lz^2);
+// using the above value of m,n,X the value for Ycz and Ycr from fig 13.14 is
+Ycr=0.42;
+Ycz=0.75;
+Yc=Ycr*Ycz;
+T_infinity=400;  //[K]
+To=295;
+Tc=T_infinity-(Yc*(T_infinity-To));
+printf("\n\n The temperature t the centre is \n Tc = %f K",Tc);
+
+
-- 
cgit