initial commit / add all books

16 files changed, 319 insertions, 0 deletions

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)