1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
{
"cells": [
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Chapter 8: Steam engines"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Example 8.1: Example_1.sce"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {
"collapsed": true
},
"outputs": [],
"source": [
"clc\n",
"clear\n",
"//Initialization of variables\n",
"area1=2.7\n",
"len=3.4\n",
"scale=60\n",
"area2=2.75\n",
"dia=12 //ft\n",
"d2=2.5 //ft\n",
"L=15/12 //ft\n",
"n=250 //rpm\n",
"F=600 //lb\n",
"r=3 //ft\n",
"//calculations\n",
"Ah=dia^2 *%pi/4\n",
"Ac=(dia^2 -d2^2)*%pi/4\n",
"Pih=area1/len *scale\n",
"Pic=area2/len *scale\n",
"Hihp=Pih*L*Ah*n/33000\n",
"Cihp=Pic*L*Ac*n/33000\n",
"Tihp=Hihp+Cihp\n",
"Bhp=2*%pi*r*F*n/33000\n",
"Fhp=Tihp-Bhp\n",
"eff=Bhp/Tihp *100\n",
"//results\n",
"printf('Ihp = %.1f ihp',Tihp)\n",
"printf('\n Bhp = %.1f bhp',Bhp)\n",
"printf('\n Fhp = %.1f fhp',Fhp)\n",
"printf('\n Efficiency = %.1f percent',eff)\n",
"disp('The answer is a bit different due to rounding off error in the textbook.')"
]
}
,
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Example 8.2: Example_2.sce"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {
"collapsed": true
},
"outputs": [],
"source": [
"clc\n",
"clear\n",
"//Initialization of variables\n",
"Ihp=101.1\n",
"Bhp=85.7\n",
"md=3000 //lb/hr\n",
"h1=1172 //Btu/hr\n",
"h2=180 //Btu/hr\n",
"h3=1025 //Btu/hr\n",
"//calculations\n",
"eta1=Ihp*2545/(md*(h1-h2)) *100\n",
"eta2=Bhp*2545/(md*(h1-h2)) *100\n",
"etat=(h1-h3)/(h1-h2) *100\n",
"engeff=eta1/etat *100\n",
"rate1= md/Ihp\n",
"rate2=md/Bhp\n",
"h22=h1-2545/rate1\n",
"//results\n",
"printf('Actual thermal efficiency based upon Ihp = %.2f lb per ihp hr',eta1)\n",
"printf('\n Actual thermal efficiency based upon Bhp = %.2f lb per ihp hr',eta2)\n",
"printf('\n Ideal thermal efficiency = %.2f percent ',etat)\n",
"printf('\n Engine efficiency = %.1f percent',engeff)\n",
"printf('\n Steam rate = %.2f lb per ihp hr',rate1)\n",
"printf('\n Steam rate = %.2f lb per bhp hr',rate2)\n",
"printf('\n Enthalpy of exhaust steam = %d Btu/lb of steam',h22)"
]
}
],
"metadata": {
"kernelspec": {
"display_name": "Scilab",
"language": "scilab",
"name": "scilab"
},
"language_info": {
"file_extension": ".sce",
"help_links": [
{
"text": "MetaKernel Magics",
"url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md"
}
],
"mimetype": "text/x-octave",
"name": "scilab",
"version": "0.7.1"
}
},
"nbformat": 4,
"nbformat_minor": 0
}
|
