1 files changed, 15 insertions, 0 deletions
diff --git a/1571/CH3/EX3.13/Chapter3_Example13.sce b/1571/CH3/EX3.13/Chapter3_Example13.sce
new file mode 100755
index 000000000..ea161690c
--- /dev/null
+++ b/1571/CH3/EX3.13/Chapter3_Example13.sce
@@ -0,0 +1,15 @@
+clc
+clear
+
+//INPUT DATA 
+R=64*10^7;//mean radius of the earth in cm
+cp=0.15;//specific heat of earth in kj/kg-K
+J=4.2*10^7;//joules constant in erg/cal
+
+//CALCULATIONS
+i=2/5*R^2;//moment of inertia of the earth per unit mass in joules
+w=(2*3.14)/(24*60*60);//angular velocity of the earth in rad/sec
+T=(i*w^2)/(2*J*cp);//rise in temperature in deg.C
+
+//OUTPUT
+mprintf('the rise in the temperature is %3.1f deg,C',T)