summaryrefslogtreecommitdiff
path: root/2141/CH9
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2141/CH9
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2141/CH9')
-rwxr-xr-x2141/CH9/EX9.1/Ex9_1.sce21
-rwxr-xr-x2141/CH9/EX9.10/Ex9_10.sce30
-rwxr-xr-x2141/CH9/EX9.11/Ex9_11.sce22
-rwxr-xr-x2141/CH9/EX9.12/Ex9_12.sce24
-rwxr-xr-x2141/CH9/EX9.13/Ex9_13.sce12
-rwxr-xr-x2141/CH9/EX9.14/Ex9_14.sce24
-rwxr-xr-x2141/CH9/EX9.15/Ex9_15.sce22
-rwxr-xr-x2141/CH9/EX9.2/Ex9_2.sce22
-rwxr-xr-x2141/CH9/EX9.3/Ex9_3.sce22
-rwxr-xr-x2141/CH9/EX9.4/Ex9_4.sce30
-rwxr-xr-x2141/CH9/EX9.5/Ex9_5.sce23
-rwxr-xr-x2141/CH9/EX9.6/Ex9_6.sce17
-rwxr-xr-x2141/CH9/EX9.7/Ex9_7.sce29
-rwxr-xr-x2141/CH9/EX9.8/Ex9_8.sce23
-rwxr-xr-x2141/CH9/EX9.9/Ex9_9.sce29
15 files changed, 350 insertions, 0 deletions
diff --git a/2141/CH9/EX9.1/Ex9_1.sce b/2141/CH9/EX9.1/Ex9_1.sce
new file mode 100755
index 000000000..01bc2fbae
--- /dev/null
+++ b/2141/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,21 @@
+
+clc
+//initialisation of variables
+p1=1//lbf/in^2
+p2=300//lbf/in^2
+v=0.01614 //lbf
+Wp=v*(p2-p1)*144/774//Btu/lbm
+h1=69.7//lbm
+h2=h1+Wp //Btu/lbm
+h3=1202.8//lbm
+qH=h3-h2 //Btu/lbm
+s4=1.9782
+x=0.2535
+h4=843.3 //Btu/lbm
+Wt=h3-h4 //Btu/lbm
+qL=h4-h1//Btu/lbm
+//CALCULATIONS
+n=(Wt-Wp)/qH*100 //per-cent
+N=(qH-qL)/qH*100//per-cent
+//RESULTS
+printf('The thermal efficiency=% f per-cent',N)
diff --git a/2141/CH9/EX9.10/Ex9_10.sce b/2141/CH9/EX9.10/Ex9_10.sce
new file mode 100755
index 000000000..247be50da
--- /dev/null
+++ b/2141/CH9/EX9.10/Ex9_10.sce
@@ -0,0 +1,30 @@
+
+clc
+//initialisation of variables
+P1=14.7 //lbf/in^2
+T1=520 //R
+a=15 //lbm
+v1=(53.34*T1)/(P1*144) //ft^3/lbm
+V2=2.955
+P=44.2 //lbm
+qH=800//Btu/lbm
+Cp=0.24
+Cv=0.171//lbm
+T3=3333//R
+V3=3.17
+T5=1.860 //R
+g=144//ft
+T=778//F
+//CALCULATIONS
+v2=v1/a//ft^3/lbm
+T2=(V2*T1)//lbf/in^2
+P2=P*P1//lbf/in^2
+V4=V3*V2//ft3/lbm
+T4=T3+T2//R
+T6=T4/T5//R
+qL=Cv*(T1-T6)//Btu/lbm
+Wnet=qH+qL//Btu/lbm
+Nth=Wnet/qH//lbf/in^2
+mep=(Wnet*T)/((v1-v2)*g)//lbf/in^2
+//RESULTS
+printf('The pressure and temperature at each point in the cycle=% flbf/in^2',mep)
diff --git a/2141/CH9/EX9.11/Ex9_11.sce b/2141/CH9/EX9.11/Ex9_11.sce
new file mode 100755
index 000000000..769d29ee0
--- /dev/null
+++ b/2141/CH9/EX9.11/Ex9_11.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+P1=14.7 //lbf/in^2
+T1=520//R
+T3=2060//R
+P2=70//lbf/in^2
+T=1.563 //lbf/in^2
+Cp=0.24
+s=0.286
+//CALCULATIONS
+T2=T*T1//R
+Wc=Cp*(T2-T1)//Btu/lbm
+T4=T3/T//R
+Wt=Cp*(T3-T4)//Btu/lbm
+Wnet=Wt-Wc//Btu/lbm
+qH=Cp*(T3-T2)//Btu/lbm
+qL=Cp*(T4-T1)//Btu/lbm
+Nth=(Wnet/qH)*100//per cent
+nth=(1-1/(P2/P1)^s)*100//per cent
+//RESULTS
+printf('The compressor Work Turbine work and cycle efficiency=% f per cent',nth)
diff --git a/2141/CH9/EX9.12/Ex9_12.sce b/2141/CH9/EX9.12/Ex9_12.sce
new file mode 100755
index 000000000..42c2f42d5
--- /dev/null
+++ b/2141/CH9/EX9.12/Ex9_12.sce
@@ -0,0 +1,24 @@
+
+clc
+//initialisation of variables
+T=1.563//R
+T1=520//R
+nc=0.80
+T3=367//R
+Cp=0.24
+t=2060//R
+P3=68//lbf/in^2
+nt=0.85
+//CALCULATIONS
+Wc=Cp*(T4-T1)//Btu/lbm
+T2=T*T1//R
+T4=T1+T3//R
+T4s=t/T//R
+T6=nt*(t-T4s)//R
+T7=t-T6//R
+Wt=Cp*(t-T7)//Btu/lbm
+Wnet=Wt-Wc//Btu/lbm
+qH=Cp*(t-T4)//Btu/lbm
+Nth=(Wnet/qH)*100//per cent
+//RESULTS
+printf('The compressor work turbine work and cycle efficiency =% f per cent',Nth)
diff --git a/2141/CH9/EX9.13/Ex9_13.sce b/2141/CH9/EX9.13/Ex9_13.sce
new file mode 100755
index 000000000..31b563465
--- /dev/null
+++ b/2141/CH9/EX9.13/Ex9_13.sce
@@ -0,0 +1,12 @@
+
+clc
+//initialisation of variables
+T3=2060//R
+Tx=1318 //Btu/lbm
+Cp=0.24 //lbm
+Wnet=107.2 //Btu/lbm
+//CALCULATIONS
+qH=Cp*(T3-Tx)//Btu/lbm
+Nth=(Wnet/qH)*100//per-cent
+//RESULTS
+printf('The thermal efficiency of the cycle =% f per-cent',Nth)
diff --git a/2141/CH9/EX9.14/Ex9_14.sce b/2141/CH9/EX9.14/Ex9_14.sce
new file mode 100755
index 000000000..c998a8dd4
--- /dev/null
+++ b/2141/CH9/EX9.14/Ex9_14.sce
@@ -0,0 +1,24 @@
+
+clc
+//initialisation of variables
+P1=14.7//lbf/in^2
+T1=520 //R
+P2=70 //lbf/in^2
+T2=814 //R
+Wc=70.6 //Btu/lbm
+P3=70 //lbf/in^2
+T3=2060 //R
+Cp=0.24 //R
+Wt=70.6 //lbf/in^2
+T=294//R
+T5=1318//R
+P=1.167 //Btu/lbm
+p=1.715 //Btu/lbm
+g=32.17//lbf/in^2
+t=778//F
+//CALCULATIONS
+T4=T3-T//R
+P4=P3/p//lbf/in^2
+V=sqrt (2*g*t)*Cp*(T4-T5)//ft/sec
+//RESULTS
+printf('The velocity of the air leaving the nozzle=% f ft/sec',V)
diff --git a/2141/CH9/EX9.15/Ex9_15.sce b/2141/CH9/EX9.15/Ex9_15.sce
new file mode 100755
index 000000000..918dee44f
--- /dev/null
+++ b/2141/CH9/EX9.15/Ex9_15.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+P1=14.7 //lbf/in^2
+P2=80.0 //lbf/in^2
+T1=460 //R
+T3=520 //R
+Cp=0.24 //lbm
+T2=T1*(1.624) //R
+Wc=Cp*(T2-T1)//Btu/lbm
+T3=520 //R
+T4=T3/1.624//R
+Wt=Cp*(T3-T4)//Btu/lbm
+A=200//Btu/lbm 12000 //Btu/lbm
+//CALCULATIONS
+qH=Cp*(T2-T3)//Btu/lbm
+qL=Cp*(T1-T4)//Btu/lbm
+Wnet=Wc-Wt//Btu/lbm
+Beta=(qL/Wnet)
+Beta1=(A/qL)
+//RESULTS
+printf('Thecoefficient of performance for the cycle =% f',Beta1)
diff --git a/2141/CH9/EX9.2/Ex9_2.sce b/2141/CH9/EX9.2/Ex9_2.sce
new file mode 100755
index 000000000..c021d393a
--- /dev/null
+++ b/2141/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+p1=1//lbf/in^2
+p2=600//lbf/in^2
+T=800//F
+v=0.01614//lbm
+Wp=v*(p2-p1)*144/778//Btu/lbm
+h1=69.70
+h2=h1+Wp//Btu/lbm
+h3=1407.7//lbm
+s3=1.6343//lbm
+h4=913.3//lbm
+Wt=h3-h4//Btu/lbm
+Wnet=Wt-Wp//Btu/lbm
+qH=h3-h2//Btu/lbm
+//CALCULATIONS
+N=Wnet/qH*100//per-cent
+qL=h4-h1//Btu/lbm
+Wnet=qH-qL//Btu/lbm
+//RESULTS
+printf('The cycle efficiency=% f Btu/lbm',Wnet)
diff --git a/2141/CH9/EX9.3/Ex9_3.sce b/2141/CH9/EX9.3/Ex9_3.sce
new file mode 100755
index 000000000..ed93ae6b5
--- /dev/null
+++ b/2141/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+h3=1407.7
+s3=1.6343
+h4=1170.5
+h5=1430.5
+s5=1.9015
+v=0.01614
+h1=69.7
+p1=1 //lbf/in^2
+p2=600//lbf/in^2
+h6=1106.0-0.0416*1036.8//Btu/lbm
+Wp=v*(p2-p1)*144/778//Btu/lbm
+//CALCULATIONS
+Wt=(h3-h4)+(h5-h6)//Btu/lbm
+h2=h1+Wp//Btu/lbm
+qH=(h3-h2)+(h5-h4)//Btu/lbm
+Wnet=Wt-Wp//Btu/lbm
+N=Wnet/qH*100//per-cent
+//RESULTS
+printf('Determine the cycle efficiecy=% f per-cent',N)
diff --git a/2141/CH9/EX9.4/Ex9_4.sce b/2141/CH9/EX9.4/Ex9_4.sce
new file mode 100755
index 000000000..7b457cafc
--- /dev/null
+++ b/2141/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,30 @@
+
+clc
+//initialisation of variables
+h5=1407.7
+h6=1170.5
+h7=913.3
+h1=69.7
+v=0.01614
+v2=0.01738
+p1=1//lbf/in^2
+p2=60//lbf/in^2
+Wp=0.2//Btu/lbm
+h3=262.1
+h6=1170.5
+h7=913.3
+h4=263.8
+p1=60//lbf/in^2
+p2=600//lbf/in^2
+g=144//ft
+T=778//F
+//CALCULATIONS
+h2=h1+Wp//Btu/lbm
+m=(h3-h1)/(h6-h2)//Btu/lbm
+Wt=(h5-h6)+(1-m)*(h6-h7)//Btu/lbm
+qH=(h5-h4)//Btu/lbm
+Wp2=v2*(p2-p1)*g/T//Btu/lbm
+Wnet=Wt-0.825*Wp-Wp2//Btu/lbm
+N=Wnet/qH*100//per-cent
+//RESULTS
+printf('determine the cycle efficiency=% f per-cent',N)
diff --git a/2141/CH9/EX9.5/Ex9_5.sce b/2141/CH9/EX9.5/Ex9_5.sce
new file mode 100755
index 000000000..3fe78ce1b
--- /dev/null
+++ b/2141/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,23 @@
+
+clc
+//initialisation of variables
+h1=61.0
+h3=63.0+2.1
+h4=1407.7
+h5=1387.3
+s4=1.6343
+s5=1.6251
+h6=1106.0-0.1912*(1036.3)
+nth=0.86
+v=0.01615
+p1=1//lbf/in^2
+p2=800//lbf/in^2
+np=0.8
+Wp=v*(p2-p1)*144/(np*778)//Btu/lbm
+//CALCULATIONS
+Wt=nth*(h5-h6)//Btu/lbm
+Wnet=Wt-Wp//Btu/lbm
+qH=h4-h3//Btu/lbm
+Nth=Wnet/qH*100//per-cent
+//RESULTS
+printf('Determine the thermal efficiency of the this cycle=% f per-cent',Nth)
diff --git a/2141/CH9/EX9.6/Ex9_6.sce b/2141/CH9/EX9.6/Ex9_6.sce
new file mode 100755
index 000000000..6f1dd3496
--- /dev/null
+++ b/2141/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,17 @@
+
+clc
+//initialisation of variables
+h1=77.271
+s1=0.16888
+p2=132.86
+h2=90.306
+Wc=h2-h1
+h4=31.100
+r=200//lbm/hr
+T=12000//Btu
+//CALCULATIONS
+qL=h1-h4//Btu/lbm
+beta=qL/Wc //Btu/lbm
+Capacity=qL*r/T//tons
+//RESULTS
+printf('The coefficient of performance and the capacity of the plant in tons =%f tons',Capacity)
diff --git a/2141/CH9/EX9.7/Ex9_7.sce b/2141/CH9/EX9.7/Ex9_7.sce
new file mode 100755
index 000000000..97bdfc27b
--- /dev/null
+++ b/2141/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,29 @@
+
+clc
+//initialisation of variables
+p1=18 //lbf/in^2
+p2=180 //lbf/in^2
+p3=175 //lbf/in^2
+p4=170 //lbf/in^2
+p5=168 //lbf/in^2
+p6=20 //lbf/in^2
+p7=20 //lbf//in^2
+p8=19 //lbf/in^2
+T1=20//F
+T2=220//F
+T3=180//F
+T4=110//F
+T5=104//F
+q=2.0 //Btu/lbm
+h1=80.527//lbm
+h2=106.896//lbm
+h5=32.067//lbm
+h6=32.067//lbm
+h7=32.067//lbm
+h8=77.621//lbm
+//CALCULATIONS
+Wc=h2-h1-(-q)//Btu/lbm
+qL=h8-h7//Btu/lbm
+Beta=qL/Wc//Btu/lbm
+//RESULTS
+printf('The properties of the vapious points of the cycle =% f Btu/lbm',Beta)
diff --git a/2141/CH9/EX9.8/Ex9_8.sce b/2141/CH9/EX9.8/Ex9_8.sce
new file mode 100755
index 000000000..2bded304f
--- /dev/null
+++ b/2141/CH9/EX9.8/Ex9_8.sce
@@ -0,0 +1,23 @@
+
+clc
+//initialisation of variables
+P3=14.7 //lbf/in^2
+T3=500// R
+T1=2000//R
+R=53.34 //F
+P2=128*P3//lbf/in^2
+T2=4 //f
+P1=1882*1.44 //lbf/in^2
+Q=50 //Btu/lbm
+P=128//lbf/in^2
+P4=P1/P //lbf/in^2
+g=144//ft
+T=778//F
+//CALCULATIONS
+nth=1-(T3/T1)//F
+Wnet=nth*Q //Btu/lbm
+V3=(R*T3)/(P3*g)//ft^3/lbm
+v1=(R*T1)/(P1*g)//ft^3/lbm
+Mep=(Wnet*T)/(V3-v1)//lbf/ft^2
+//RESULTS
+printf('The cycle effieciency and the mean effective pressure=% f lbf/ft^2',Mep)
diff --git a/2141/CH9/EX9.9/Ex9_9.sce b/2141/CH9/EX9.9/Ex9_9.sce
new file mode 100755
index 000000000..dbf79d4df
--- /dev/null
+++ b/2141/CH9/EX9.9/Ex9_9.sce
@@ -0,0 +1,29 @@
+
+clc
+//initialisation of variables
+T1=520 //R
+P1=14.7 //lbf/in^2
+v1=(53.34*T1)/(P1*144)//ft^3/lbm
+T=2.3 //lbf
+T2=T*T1//R
+P2=18.4*(P1)//lbf/in^2
+v2=v1/8 //ft^3/lbm
+Q=800 //Btu/lbm
+T3=Q/0.171 //R
+T4=T2+T3//R
+T5=4.92 //R
+T6=T5*P2//lbf/in^2
+t=T4/T//R
+p=18.4 //lbf/in^2
+p1=T6/p//lbf/in^2
+nth=0.565 //btu/lbm
+Cv=0.171 //Btu
+g=144//ft
+T=778//f
+//CALCULATIONS
+Q1=Cv*(T1-t)//Btu/lbm
+Nth=1-(-Q1/Q)//Btu/lbm
+Wnet=Q+Q1 //Btu/lbm
+Mep=(Wnet*T)/((v1-v2)*g)//lbf/in^2
+//RESULTS
+printf('The pressure and thermal efficiency and the mean efficiency pressure=% f lbf/in^2',Mep)
generated by cgit (git 2.34.1) at 2024-12-20 04:15:51 +0000