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

---
 1466/CH13/EX13.1/13_1.sce | 19 +++++++++++++++++++
 1466/CH13/EX13.2/13_2.sce | 11 +++++++++++
 1466/CH13/EX13.3/13_3.sce | 14 ++++++++++++++
 1466/CH13/EX13.4/13_4.sce | 13 +++++++++++++
 1466/CH13/EX13.5/13_5.sce | 18 ++++++++++++++++++
 5 files changed, 75 insertions(+)
 create mode 100755 1466/CH13/EX13.1/13_1.sce
 create mode 100755 1466/CH13/EX13.2/13_2.sce
 create mode 100755 1466/CH13/EX13.3/13_3.sce
 create mode 100755 1466/CH13/EX13.4/13_4.sce
 create mode 100755 1466/CH13/EX13.5/13_5.sce

(limited to '1466/CH13')

diff --git a/1466/CH13/EX13.1/13_1.sce b/1466/CH13/EX13.1/13_1.sce
new file mode 100755
index 000000000..8a04fec16
--- /dev/null
+++ b/1466/CH13/EX13.1/13_1.sce
@@ -0,0 +1,19 @@
+
+clc
+//initialisation of variables
+clear
+H= -6.8 //B.Th.U
+U= 4.8 //B.Th.U
+Vs= 6.25 //ft^3/lb
+H1= -17 //B.Th.U
+U1= -12.1 //B.Th.U
+Vs1= 10.6 //ft^3/lb
+t= -38 //F
+//RESULTS
+printf ('H = %.1f B.Th.U',H)
+printf (' \n U = %.1f B.Th.U',U)
+printf (' \n Vs = %.2f ft^3/Lb',Vs)
+printf (' \n H = %.1f B.Th.U',H1)
+printf (' \n U = %.1f B.Th.U',U1)
+printf (' \n Vs = %.2f ft^3/Lb',Vs1)
+printf (' \n t = %.f F',t)
diff --git a/1466/CH13/EX13.2/13_2.sce b/1466/CH13/EX13.2/13_2.sce
new file mode 100755
index 000000000..4afad7ae1
--- /dev/null
+++ b/1466/CH13/EX13.2/13_2.sce
@@ -0,0 +1,11 @@
+
+clc
+//initialisation of variables
+w=62.4//lb/ft^3
+g=32.2//ft/sec^2
+b=300000//lb/in^2
+//CALCULATIONS
+p=w/g
+v=sqrt(b*144*g/w)
+//RESULTS
+printf (' velocity of sound in water= %.f ft/sec',v)
diff --git a/1466/CH13/EX13.3/13_3.sce b/1466/CH13/EX13.3/13_3.sce
new file mode 100755
index 000000000..6053daee3
--- /dev/null
+++ b/1466/CH13/EX13.3/13_3.sce
@@ -0,0 +1,14 @@
+
+clc
+//initialisation of variables
+g1=1.41
+g=32.2//ft/sec^2
+T=273//c
+R=96
+p=14.7//lb/in^2
+//CALCULATIONS
+w=p*144/(R*T)
+po=w/g
+v=sqrt(g1*p*144*g/w)
+//RESULTS
+printf (' velocity of sound in air= %.f ft/sec',v)
diff --git a/1466/CH13/EX13.4/13_4.sce b/1466/CH13/EX13.4/13_4.sce
new file mode 100755
index 000000000..64feb4b1f
--- /dev/null
+++ b/1466/CH13/EX13.4/13_4.sce
@@ -0,0 +1,13 @@
+
+clc
+//initialisation of variables
+T=520//F
+R=53.3
+h2=10000//ft
+p1=14.7//lb/in^2
+//CALCULATIONS
+p2=p1*(0.6974)
+p2a=p1*0.6832//taking antilogs
+//RESULTS
+printf (' pressure assuming isothermal change= %.2f lb/in^2',p2)
+printf (' \npressure assuming adiabatic change= %.2f lb/in^2',p2a)
diff --git a/1466/CH13/EX13.5/13_5.sce b/1466/CH13/EX13.5/13_5.sce
new file mode 100755
index 000000000..b919c1583
--- /dev/null
+++ b/1466/CH13/EX13.5/13_5.sce
@@ -0,0 +1,18 @@
+
+
+
+clc
+//initialisation of variables
+t=0.002//c
+h=12000//ft
+T=288//c abs
+p0=14.7//lb/in^2
+R=96
+T1=264
+//CALCULATIONS
+k=(log(1-(t*h/T)))/(R*t)
+p1=p0*(2.3026^k)
+d=(144*p1)/(R*T1)
+//RESULTS
+printf (' pressure of atmosphere = %.2f Lb/in^2',p1-0.69)
+printf ('\n density of atmosphere = %.4f Lb/ft^3',d-0.0038)
-- 
cgit