diff options
Diffstat (limited to '2666/CH12')
| -rwxr-xr-x | 2666/CH12/EX12.1/12_1.sce | 30 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.2/Ex12_2.sce | 15 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.3/Ex12_3.sce | 27 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.4/12_4.sce | 21 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.5/12_5.sce | 18 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.6/12_6.sce | 15 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.7/Ex12_7.sce | 27 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.8/12_8.sce | 23 | ||||
| -rwxr-xr-x | 2666/CH12/EX12.9/12_9.sce | 15 |
9 files changed, 191 insertions, 0 deletions
diff --git a/2666/CH12/EX12.1/12_1.sce b/2666/CH12/EX12.1/12_1.sce new file mode 100755 index 000000000..5d10fc976 --- /dev/null +++ b/2666/CH12/EX12.1/12_1.sce @@ -0,0 +1,30 @@ +clc
+//initialisation of variables
+p=5//tons
+t1=20//F
+t2=60//F
+p1=147//psia
+t=460//F
+h=14.7//ft
+q=0.4/1.4//ft
+w1=200//ft
+h1=480//R
+m=0.24//ft
+t3=520//R
+q1=42.4//tons
+s=53.3//ft
+g=144//ft
+//CALCULATIONS
+T=(t1+t)*(p1/h)^q//R
+T1=(t2+t)/(p1/h)^q//R
+W=p*(w1)/((m)*(h1-T1))//lb per min
+Q=W*m*(T-t3)//Btu per min
+J=Q-p*w1//Btu per min
+H1=J/q1//hp
+C=p*w1/J//hp
+V=(W*s*h1)/(g*h)//cu ft per min
+V1=(W*s*T1)/(g*h)//cu ft per min
+//RESULTS
+printf('The air cooler is=% f Btu per min',Q)
+printf('the net horsepower=% f hp',C)
+printf('the air after is volume is=% f hp',V1)
diff --git a/2666/CH12/EX12.2/Ex12_2.sce b/2666/CH12/EX12.2/Ex12_2.sce new file mode 100755 index 000000000..7a1660f02 --- /dev/null +++ b/2666/CH12/EX12.2/Ex12_2.sce @@ -0,0 +1,15 @@ +
+clc
+//initialisation of variables
+p=5//tons
+w=200//ft
+d=1000//ft
+t1=520//F
+h=480//F
+q=42.4//tons
+//CALCULATIONS
+Wk=(p*w)*((t1-h)/h)//Btu per min
+H=Wk/q//hp
+Cp=d/Wk
+//RESULTS
+printf('the work per minute=% f',Cp)
diff --git a/2666/CH12/EX12.3/Ex12_3.sce b/2666/CH12/EX12.3/Ex12_3.sce new file mode 100755 index 000000000..8a8fe9eca --- /dev/null +++ b/2666/CH12/EX12.3/Ex12_3.sce @@ -0,0 +1,27 @@ + +clc
+//initialisation of variables
+p=5//tons
+q=200//ft
+t1=20//F
+t2=60//F
+s=0.01468//Btu per lb
+g=80.49//ft
+f=67.94//ft
+h=21.57//Btu per lb
+h1=84.82//ft
+d=42.4//tons
+v=1.121//ft
+v2=1.1097//ft per min
+//CALCULATIONS
+H=g-s*f//Btu per lb
+H1=(p*q)/(H-h)//lb per min
+H2=H1*(h1-H)//Btu per min
+G=H2/d//hp
+Cv=(p*q)/H2//hp
+V=v-s*v2//cu ft per lb
+D=V*H1//cu ft per min
+//RESULTS
+printf('the horsepower required=% f Btu per min',H2)
+printf('The cp=% f hp',Cv)
+printf('The piston displacement of the compressor=% f cu ft per lb',D)
diff --git a/2666/CH12/EX12.4/12_4.sce b/2666/CH12/EX12.4/12_4.sce new file mode 100755 index 000000000..6b97c0c78 --- /dev/null +++ b/2666/CH12/EX12.4/12_4.sce @@ -0,0 +1,21 @@ +clc
+//initialisation of variables
+p=5//ft
+h=200//ft
+p1=80.49//Btu per lb
+P2=0.16949//ft
+p3=72.41//psia
+h1=85.92//Btu per lb
+q=21.57//psia
+d=42.4//tons
+v=1.121//ft
+//CALCULATIONS
+W=p*h/(p1-q)//lb per min
+H=W*(h1-p1)//Btu per min
+H1=H/d//hp
+Cv=p*h/H//hp
+V=W*v//cu ft per min
+//RESULTS
+printf('the compressior work is=% f Btu per min',H)
+printf('the horsepower is =% f hp',H1)
+printf('The piston displacement of the horsepower=% f cu ft per min',V)
diff --git a/2666/CH12/EX12.5/12_5.sce b/2666/CH12/EX12.5/12_5.sce new file mode 100755 index 000000000..f67c3c558 --- /dev/null +++ b/2666/CH12/EX12.5/12_5.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+p=5//ft
+p1=200//ft
+t1=70//F
+t2=10//F
+h1=23.90//ft
+h2=79.36//hp
+s1=0.17015//ft
+p2=84.82//psia
+h3=87.87//Btu
+g=42.4//ft
+//CALCULATIONS
+W=p*p1/(h2-h1)//lb per min
+W1=W*(h3-h2)//Btu per min
+H=W1/g//hp
+//RESULTS
+printf('the horse power is =% f hp',H)
diff --git a/2666/CH12/EX12.6/12_6.sce b/2666/CH12/EX12.6/12_6.sce new file mode 100755 index 000000000..90ef0d666 --- /dev/null +++ b/2666/CH12/EX12.6/12_6.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+p1=27.0//psia
+p2=90//psia
+h1=23.90//Btu
+h2=79.36//Btu per lb
+h3=0.1720//Btu
+h4=89.02//Btu per lb
+w=18.03//lb per min
+d=42.4//tond
+//CALCULATIONS
+W=w*(h4-h2)//Btu per min
+H=W/d//hp
+//RESULTS
+printf('the horse power is =% f hp',H)
diff --git a/2666/CH12/EX12.7/Ex12_7.sce b/2666/CH12/EX12.7/Ex12_7.sce new file mode 100755 index 000000000..a38c6e1f0 --- /dev/null +++ b/2666/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,27 @@ +
+clc
+//initialisation of variables
+p=200//ft
+p1=30//psia
+p2=90//psia
+t1=62//f
+t2=68//F
+t3=20//f
+t4=30//F
+t5=140//F
+w=250//Btu
+s=42.4//ft
+h=42.8//tons
+h1=82.15//ft
+h2=96.69//hp
+h3=95.08//ft
+h4=22.03//ft
+h5=23.42//ft
+h6=80.73//ft
+//CALCULATIONS
+W=(h*p)/(h6-h5)//lb per min
+J=W*(h2-h1)+w//Btu per min
+E=J/s//hp
+Cv=h*p/J
+//RESULTS
+printf('the horsepower equals=% f',Cv)
diff --git a/2666/CH12/EX12.8/12_8.sce b/2666/CH12/EX12.8/12_8.sce new file mode 100755 index 000000000..9d75f56c3 --- /dev/null +++ b/2666/CH12/EX12.8/12_8.sce @@ -0,0 +1,23 @@ +clc
+//initialisation of variables
+t1=35//F
+t2=70//F
+h=40000//Btu per hr
+d=0.8//ft
+p1=40//psia
+p2=200//psia
+q=80//percent
+h1=39.21//ft
+h2=81.16//ft
+s=0.16914//ft
+h3=93.79//ft
+g=2544//ft
+//CALCULATIONS
+H=h3-h2//Btu
+W=H/d//Btu
+H1=h2-h1//Btu per lb
+P=W+H1//Btu per lb
+W1=h*(W/P)//Btu per hr
+H2=W1/g//hp
+//RESULTS
+printf('The horsepower input is=% f hp',H2)
diff --git a/2666/CH12/EX12.9/12_9.sce b/2666/CH12/EX12.9/12_9.sce new file mode 100755 index 000000000..e123781c8 --- /dev/null +++ b/2666/CH12/EX12.9/12_9.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+p1=140000//Btu per gal
+h=0.75//percent
+p2=40000//Btu per gal
+h1=4.3//ft
+h2=0.746//ft
+p3=1.25//ft
+f=10//cents a gal
+//CALCULATIONS
+H=h1*h2*p3//cents per hr
+B=p2/(p1*h)*f//cents per lb
+//RESULTS
+printf('the cost of operating the heat pump is=% f cents per hr',H)
+printf('the oil burner the cost is =% f cents per lb',B)
|