summaryrefslogtreecommitdiff
path: root/1472/CH15/EX15.2.b/15_2b.sce
diff options
context:
space:
mode:
Diffstat (limited to '1472/CH15/EX15.2.b/15_2b.sce')
-rwxr-xr-x1472/CH15/EX15.2.b/15_2b.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1472/CH15/EX15.2.b/15_2b.sce b/1472/CH15/EX15.2.b/15_2b.sce
new file mode 100755
index 000000000..e4e20723f
--- /dev/null
+++ b/1472/CH15/EX15.2.b/15_2b.sce
@@ -0,0 +1,20 @@
+clc
+//initialization of varaibles
+disp("From mollier chart and table 3,")
+h1=1371 //B/lb
+h2s=1149 //B/lb
+h3=118 //B/lb
+e=0.23
+e2=0.9
+disp("Neglecting pump work,")
+Q1=h1-h3
+W=156 //B/lb
+eta1=W/Q1
+Q=h1-W-h3
+We=W/e
+UE=We+Q
+UE1=W+e2*Q
+Q2=Q+We
+fraction = UE1/UE
+//results
+printf("Fraction supplied = %.2f",fraction)