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

---
 1280/CH9/EX9.1/9_1.sce |  9 +++++++++
 1280/CH9/EX9.2/9_2.sce | 13 +++++++++++++
 1280/CH9/EX9.3/9_3.sce | 11 +++++++++++
 1280/CH9/EX9.4/9_4.sce | 11 +++++++++++
 1280/CH9/EX9.5/9_5.sce | 15 +++++++++++++++
 1280/CH9/EX9.6/9_6.sce | 14 ++++++++++++++
 6 files changed, 73 insertions(+)
 create mode 100755 1280/CH9/EX9.1/9_1.sce
 create mode 100755 1280/CH9/EX9.2/9_2.sce
 create mode 100755 1280/CH9/EX9.3/9_3.sce
 create mode 100755 1280/CH9/EX9.4/9_4.sce
 create mode 100755 1280/CH9/EX9.5/9_5.sce
 create mode 100755 1280/CH9/EX9.6/9_6.sce

(limited to '1280/CH9')

diff --git a/1280/CH9/EX9.1/9_1.sce b/1280/CH9/EX9.1/9_1.sce
new file mode 100755
index 000000000..5569458d0
--- /dev/null
+++ b/1280/CH9/EX9.1/9_1.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+t= 4 //hr
+Ihp= 8 //ihp
+Ohp= 5 //hp
+//CALCULATIONS
+Hl= t*2544*(Ihp-Ohp)
+//RESULTS
+printf ('total Btu heat loss over a period of 4hr = %.f Btu',Hl)
diff --git a/1280/CH9/EX9.2/9_2.sce b/1280/CH9/EX9.2/9_2.sce
new file mode 100755
index 000000000..cf0872c62
--- /dev/null
+++ b/1280/CH9/EX9.2/9_2.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+t= 1 //sec
+P= 1000 //psi
+Q= 3 //gpm
+Sg= 0.85
+s= 0.42
+//CALCULATIONS
+Hl= 2544*t*P*Q/1714
+Wf= 62.4*Q*60*Sg
+Tr= Hl/(Wf*s)
+//RESULTS
+printf ('rise in temperature of the fluid = %.2f F',Tr)
diff --git a/1280/CH9/EX9.3/9_3.sce b/1280/CH9/EX9.3/9_3.sce
new file mode 100755
index 000000000..3432e0914
--- /dev/null
+++ b/1280/CH9/EX9.3/9_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+P= 1500 //psi
+d= 12 //in
+V= 50 //gal
+//CALCULATIONS
+F= P*(%pi*d^2/4)
+S= V*231*4/(%pi*d^2)
+//RESULTS
+printf ('Weight = %.f lb',F)
+printf ('Stroke length = %.1f in',S)
diff --git a/1280/CH9/EX9.4/9_4.sce b/1280/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..a3e339147
--- /dev/null
+++ b/1280/CH9/EX9.4/9_4.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+P= 1500 //psig
+V= 5 //gal
+P1= 3000 //psig
+P2= 2000 //psig
+//CALCULATIONS
+V2= V*231*(P2+14.7)/(P1-P2)
+V1= V2*(P1+14.7)/((P+14.7)*231)
+//RESULTS
+printf ('Size of accumulator = %.2f gal',V1)
diff --git a/1280/CH9/EX9.5/9_5.sce b/1280/CH9/EX9.5/9_5.sce
new file mode 100755
index 000000000..bf8003beb
--- /dev/null
+++ b/1280/CH9/EX9.5/9_5.sce
@@ -0,0 +1,15 @@
+clc
+//Initialization of variables
+beta=1.4
+p3=2000+14.7 //non guage
+p2=3000+14.7 //non guage
+p1=1500+14.7 //non guage
+deltav=1155
+//Calculations
+v2=(p3/p2)^(1/beta) *(deltav) /(1-(p3/p2)^(1/beta))
+v1=v2*(p2/p1)^(1/beta)
+perdiff=(v1-4627.25)*100/v1
+//Results
+printf('volume 2 = %.1f',v2)
+printf('\n volume 1 = %.1f',v1)
+printf('\n percentage difference in volume = %.2f',perdiff)
diff --git a/1280/CH9/EX9.6/9_6.sce b/1280/CH9/EX9.6/9_6.sce
new file mode 100755
index 000000000..2fbf22927
--- /dev/null
+++ b/1280/CH9/EX9.6/9_6.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+Fr= 20 //gpm
+P= 2500 //psi
+sf= 4
+Ts= 55000 //psi
+V= 15 //fps
+//CALCULATIONS
+A= Fr*0.3208/V
+ID= 2*sqrt(A/%pi)
+Wt= P*ID/(2*(Ts-P))
+Wt1= Wt*sf
+//RESULTS
+printf ('Wall thcikness = %.3f in',Wt1)
-- 
cgit