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

---
 2165/CH6/EX16.28/6_28.sce | 23 +++++++++++++++++++++++
 2165/CH6/EX6.1/6_1.sce    | 15 +++++++++++++++
 2165/CH6/EX6.10/6_10.sce  | 25 +++++++++++++++++++++++++
 2165/CH6/EX6.11/6_11.sce  | 25 +++++++++++++++++++++++++
 2165/CH6/EX6.13/6_13.sce  | 23 +++++++++++++++++++++++
 2165/CH6/EX6.15/6_15.sce  | 14 ++++++++++++++
 2165/CH6/EX6.16/6_16.sce  | 20 ++++++++++++++++++++
 2165/CH6/EX6.18/6_18.sce  | 10 ++++++++++
 2165/CH6/EX6.19/6_19.sce  | 20 ++++++++++++++++++++
 2165/CH6/EX6.2/6_2.sce    | 11 +++++++++++
 2165/CH6/EX6.23/6_23.sce  | 23 +++++++++++++++++++++++
 2165/CH6/EX6.25/6_25.sce  | 22 ++++++++++++++++++++++
 2165/CH6/EX6.4/6_4.sce    | 23 +++++++++++++++++++++++
 2165/CH6/EX6.5/6_5.sce    | 18 ++++++++++++++++++
 2165/CH6/EX6.6/6_6.sce    | 25 +++++++++++++++++++++++++
 2165/CH6/EX6.8/6_8.sce    | 22 ++++++++++++++++++++++
 16 files changed, 319 insertions(+)
 create mode 100755 2165/CH6/EX16.28/6_28.sce
 create mode 100755 2165/CH6/EX6.1/6_1.sce
 create mode 100755 2165/CH6/EX6.10/6_10.sce
 create mode 100755 2165/CH6/EX6.11/6_11.sce
 create mode 100755 2165/CH6/EX6.13/6_13.sce
 create mode 100755 2165/CH6/EX6.15/6_15.sce
 create mode 100755 2165/CH6/EX6.16/6_16.sce
 create mode 100755 2165/CH6/EX6.18/6_18.sce
 create mode 100755 2165/CH6/EX6.19/6_19.sce
 create mode 100755 2165/CH6/EX6.2/6_2.sce
 create mode 100755 2165/CH6/EX6.23/6_23.sce
 create mode 100755 2165/CH6/EX6.25/6_25.sce
 create mode 100755 2165/CH6/EX6.4/6_4.sce
 create mode 100755 2165/CH6/EX6.5/6_5.sce
 create mode 100755 2165/CH6/EX6.6/6_6.sce
 create mode 100755 2165/CH6/EX6.8/6_8.sce

(limited to '2165/CH6')

diff --git a/2165/CH6/EX16.28/6_28.sce b/2165/CH6/EX16.28/6_28.sce
new file mode 100755
index 000000000..21c506dac
--- /dev/null
+++ b/2165/CH6/EX16.28/6_28.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+p=100//lb/in62
+p1=0.5//lb/in^2
+T1=659.3//C.H.U/lb
+T2=26.2//C H U/lb
+W=181//C H U/lb
+H1=66//C H U/lb
+H2=115//C H U /lb
+D=0.912//C H U/lb
+H3=533.4//C H U/lb
+T3=108.5 //Degree C
+T4=26.4//Degree C
+W1=82.1/(D*H3)//lb
+s=1-W1//lb
+//CALCULATIONS
+T=W/(T1-T2)*100//percent
+Wd=H1+(H2*s)//C H U/lb
+H=T1-T3//C H U//lb
+TE=Wd/H*100//percent
+//RESULTS
+printf('the without bleeding % f pecent',T)
+printf('the proper weight of steam is bled=% f percent',TE)
diff --git a/2165/CH6/EX6.1/6_1.sce b/2165/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..2fdc931b6
--- /dev/null
+++ b/2165/CH6/EX6.1/6_1.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+p1=150//lb/in^2
+p2=10//lb/in^2
+n=10//percent
+T=183.6+479.4//C.H.U
+x2=0.852//C.H.U
+H=553.9//C.H.U/lb
+h1=T-H//C.H.U/lb
+//CALCULATIONS
+V=sqrt(2*32.2*1400*h1)//ft/sec
+V1=sqrt(2*32.2*1400*0.9*h1)//ft/sec
+//RESULTS
+printf('the neglecting friction=% f ft/sec',V)
+printf('the frictional drop in the nozzle is 10 recent of the total heat drop=% f ft/sec',V1)
diff --git a/2165/CH6/EX6.10/6_10.sce b/2165/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..163541329
--- /dev/null
+++ b/2165/CH6/EX6.10/6_10.sce
@@ -0,0 +1,25 @@
+clc
+//initialisation of variables
+d=0.15//lb
+p=20//lb/in^2
+p1=100//lb/iN62
+t=200//degree C
+f=10//percent
+Pt=0.5457*p1//lb/in^2
+x1=0.996//in
+x2=0.952//in
+h=29//C.H.U/lb
+h1=65//C.H.U/lb
+v=7.73//ft^3
+v1=20.12//ft^3
+T=0.364//in
+T1=0.465//in
+v2=sqrt(2*32.2*1400*h)//ft/sec
+v3=sqrt(2*32.2*1400*h1)//ft/sec
+//CALCULATIONS
+V1=d*v*x1//ft^3
+V2=d*v1*x2//ft^3
+A1=(V1/v2)*144//in^2
+A2=(V2/v3)*144//in^2
+//RESULTS
+printf('the throat and exit diameters of the nozzle=% f in^2',A2)
diff --git a/2165/CH6/EX6.11/6_11.sce b/2165/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..972c6707c
--- /dev/null
+++ b/2165/CH6/EX6.11/6_11.sce
@@ -0,0 +1,25 @@
+clc
+//initialisation of variables
+h=0.5//lb
+p1=2.5//lb/in^2
+p2=100//lb/in^2
+t=250//Degree C
+pv=1.3//constant
+pt=0.5457*p2//lb/in^2
+t1=18//degree C
+h1=32//C.H.U/lb
+h2=151//C.H.U/lb
+D=0.887//in
+V1=sqrt(2*32.2*1400*h1)//ft/sec
+V2=sqrt(2*32.2*1400*h2)//ft.sec
+s1=8.74//ft^3
+s2=140.8//ft^3
+T1=0.687//in
+T1=1.77//in
+V3=h*s1//ft^3/sec
+V4=h*s2//ft^3/sec
+//CALCULATIONS
+A1=(V3/V1)*144//in^2
+A2=(V4/V2)*144//in^2
+//RESULTS
+printf('the size os nozzle=% f in^2',A2)
diff --git a/2165/CH6/EX6.13/6_13.sce b/2165/CH6/EX6.13/6_13.sce
new file mode 100755
index 000000000..4dcd43367
--- /dev/null
+++ b/2165/CH6/EX6.13/6_13.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+h=500//gallons
+p1=150//lb/in^2
+p2=0.6//lb/in^2
+P=p2*p1//lb/in^2
+h=25//C.H.U/lb
+p=62.4//lb/ft^2
+V=sqrt(2*32.2*1400*h)//ft/sec
+D=0.996//in^2
+d=4.898//in^2
+v1=1.2//in
+vi=163.2//ft/sec
+m=V/32.2//ft.lb.sec
+//CALCULATIONS
+W=V/vi-1//lb
+W1=(5000)/(3600*W)//ft/sec
+V1=W1*d*D//ft^3
+A=V1/V*144//in^2
+I=(50/36+W1)//lb/sec
+A1=(I*144)/(62.4*vi)//in^2
+//RESULTS
+printf('the aera of the stream and water orifices=% f in^2',A1)
diff --git a/2165/CH6/EX6.15/6_15.sce b/2165/CH6/EX6.15/6_15.sce
new file mode 100755
index 000000000..3f444f00d
--- /dev/null
+++ b/2165/CH6/EX6.15/6_15.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+a=50//degree c
+v=2000//ft/sec
+p=800//ft/sec
+b=20//Degree C
+v1=0.9//in^2
+v2=513//ft/sec
+W=(1/32.2)*[1810-(-313)]*p//ft/lb lb stream /sec
+K=(v^2)/(2*32.2)//ft/lb sec
+//CALCULATIONS
+D=(W/K)*100//percent/lb
+//RESULTS
+printf('the work done per lb=% f percent/lb',D)
diff --git a/2165/CH6/EX6.16/6_16.sce b/2165/CH6/EX6.16/6_16.sce
new file mode 100755
index 000000000..c6114a56f
--- /dev/null
+++ b/2165/CH6/EX6.16/6_16.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+t=65//B.Th.U per lb
+n=0.98//dry
+p=105//lb/in^2
+a=14//Degree C
+b=20//Degree C
+p1=800//ft/sec
+v=0.80//ft/lb
+p2=3.5//lb/sec
+q=1400//in
+V=sqrt(2*32.2*778*t)//ft/sec
+W=(p1)*(1750-b)/32.2//ft lb/lb stream/sec
+H=(W*p2/550)//ft/lb
+E=1/64.4*[(1053)^2-(825)^2]//ft.lb steam /sec
+//CALCULATIONS
+Hd=(E/q)//C.H.U
+//RESULTS
+printf('the steam as it leaves the blades and hourse power=% f C.H.U',Hd)
diff --git a/2165/CH6/EX6.18/6_18.sce b/2165/CH6/EX6.18/6_18.sce
new file mode 100755
index 000000000..009a08855
--- /dev/null
+++ b/2165/CH6/EX6.18/6_18.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+p=300//ft/sec
+W=880//ft/sec
+a=18//degree C
+g=32.2//ft
+//CALCULATIONS
+Wd=(p*W)/g//ft lb
+//RESULTS
+printf('the work done /lb steam sec=% f ft lb',Wd)
diff --git a/2165/CH6/EX6.19/6_19.sce b/2165/CH6/EX6.19/6_19.sce
new file mode 100755
index 000000000..4315eb69b
--- /dev/null
+++ b/2165/CH6/EX6.19/6_19.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+a=35//Degree C
+b=20//degree C
+f=2//ft
+w=422//ft
+w1=222//ft
+g=32.2//ft
+s=1500//r p m
+j=0.8//ft
+p=3//lb/sec
+h=80//percent
+i=1400//ft
+P=(%pi*(31/12)*(s/60))//ft/sec
+W=P/g*[w-(-w1)]//ft lb
+H=(p*W)/550//ft lb
+//CALCULATIONS
+E=W/(j*i)//C.H.U
+//RESULTS
+printf('the house -power developed per pair of rings if the steam=% f ft lb',E)
diff --git a/2165/CH6/EX6.2/6_2.sce b/2165/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..e7bbcbdb9
--- /dev/null
+++ b/2165/CH6/EX6.2/6_2.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+v=((3140*%pi*60*60)/(4*4*144))//ft/sec
+v1=0.852*38.37//ft^3
+//CALCULATIONS
+W=(v/v1)//lb
+V=(2970*%pi*60*60)/(4*4*144)//ft^3
+W1=(V/v1)//lb
+//RESULTS
+printf('the weight of steam per hour=% f lb',W)
+printf('the weight of steam per hour=% f lb',W1)
diff --git a/2165/CH6/EX6.23/6_23.sce b/2165/CH6/EX6.23/6_23.sce
new file mode 100755
index 000000000..bab1576e2
--- /dev/null
+++ b/2165/CH6/EX6.23/6_23.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+d=7//ft
+h=2//in
+s=750//r p m
+s1=31.3//lb/sec
+h1=1.5//in
+a=25//Degree c
+p=5.7//lb/in^2
+d1=0.97//in
+h2=370//ft/sec
+j=32.2//in
+k=1400//in
+e=0.75//percent
+w=326//in
+p=290//in
+vi=155//ft/sec
+//CALCULATIONS
+P=(%pi*7.69*s)/(60)//ft/sec
+H=(P*h2*s1)/(550*j)//ft/sec
+E=(P*h2)/(j*e*k)//C.H.U/lb
+//RESULTS
+printf('the drop in pressure while the steam is passing through the turbine=% f C.H.U/lb',E) 
diff --git a/2165/CH6/EX6.25/6_25.sce b/2165/CH6/EX6.25/6_25.sce
new file mode 100755
index 000000000..ec68fca44
--- /dev/null
+++ b/2165/CH6/EX6.25/6_25.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+p=300//lb/in^2
+ab=100//degree C
+w=26.4//C
+t=40//lb/in^2
+t1=180//Degree C
+p1=0.5//lb/in^2
+T=732.38//C.H.U
+W=26.2//C.H.U/lb
+W1=102//C.H.U/lb
+x=0.963//in
+d=335//C.H.U/lb
+E=743.85//C.H.U/lb
+//CALCULATIONS
+H=T-w//C.H.U/lb
+h=T-W1//C.H.U/lb
+H1=E-h//C.H.U/lb
+T1=H+H1//C.H.U/lb
+Wd=W1+d//C.H.U
+//RESULTS
+printf('the total work done per lb steam=% f C.H.U',Wd)
diff --git a/2165/CH6/EX6.4/6_4.sce b/2165/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..2b5bdb2c4
--- /dev/null
+++ b/2165/CH6/EX6.4/6_4.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+p1=300//lb
+p=75//lb/in^2
+p2=8//lb/in^2
+h=90//C.H.U/lb
+Pt=0.58*p//lb/in^2 absolute
+h1=24//lb/C.H.U
+D=0.968//C.H.U
+D1=0.886//C.H.U
+v=9.7//ft^3
+v1=47.24//ft^3
+V=sqrt(2*32.2*1400*24)//ft/sec
+V1=sqrt(2*32.2*1400*90)//ft/sec
+//CALCULATIONS
+H=(p1*v*D/3600)//ft^3
+V2=(p1*v1*D1/3600)//ft^3
+A=0.768//in^2
+A1=1.72//in^2
+d=sqrt(4*0.768/%pi)//in
+d1=sqrt((4*A1)/(%pi))//in
+//RESULTS
+printf('the diameters at the throat and exit of the nozzle=% f in',d1)
diff --git a/2165/CH6/EX6.5/6_5.sce b/2165/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..923614b66
--- /dev/null
+++ b/2165/CH6/EX6.5/6_5.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+d=2.15//in^2
+a=0.98//dry
+p=100//lb/in^2
+p1=11000//lb
+P=0.58*p//lb/in^2
+H=24//C.H.U/lb
+D=0.947//lb
+s=7.407//ft^3
+//CALCULATION
+V=sqrt(2*32.2*1400*H)//ft/sec
+V1=V*(d/144)//ft^3
+T=V1/(s*D)//lb
+A=(p1/3600)//lb
+C=A/T//lb
+//RESULTS
+printf('the coefficient of discharge for the nozzles=% f lb',C)
diff --git a/2165/CH6/EX6.6/6_6.sce b/2165/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..7fbc750c1
--- /dev/null
+++ b/2165/CH6/EX6.6/6_6.sce
@@ -0,0 +1,25 @@
+clc
+//initialisation of variables
+p=9.5//lb
+p1=120//lb
+e=0.88//in
+p2=80//lb/in^2
+d=25//in
+d1=0.125//in
+t=14//degree C
+T=e*19//C.H.U/lb
+D=0.975//in
+V=sqrt(2*32.2*1400*T)//ft/sec
+S=5.467//ft^3
+//CALCULATIONS
+V1=p*S*D//ft^3
+T1=(V1*144/V)//in^2
+C=25*%pi//in
+N=C/2.5//in
+P=C/31//in
+W=d1/sind(t)//in
+L=P-W//in
+W1=L*sind(t)//in
+T2=(T1)/(31*W1)//in
+//RESULTS
+printf('The number of nozzles their breadth and heigh=% f in',T2)
diff --git a/2165/CH6/EX6.8/6_8.sce b/2165/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..1f8143fea
--- /dev/null
+++ b/2165/CH6/EX6.8/6_8.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+p1=100//lb/in^2
+p2=15//lb/in^2
+d1=95//percent
+d2=30//percent
+P=0.58*p1//lb/in^2
+H=0.95*25//C.H.U/lb
+H1=0.95*76.5//C.H.U/lb
+D=0.97//in
+D1=0.905//in
+V=7.407//ft^3
+V1=sqrt(2*32.2*1400*H)//ft/sec
+V2=sqrt(2*32.2*1400*H1)//ft/sec
+//CALCULATIONS
+V3=(2*%pi*1*V1)/(64*4*144)//ft^3
+W=(V3*3600)/(V*D)//lb
+K=V2/(2*32.2)//ft lb sec
+E=[((V2)^2*W)/(2*32.2*3600)]//ft.lb
+W1=(E*d2)/(p1*550)//ft.lb
+//RESULTS
+printf('the quantity of steam used per hour and horse power developed=% f ft.lb',W1)
-- 
cgit