summaryrefslogtreecommitdiff
path: root/779/CH18
diff options
context:
space:
mode:
Diffstat (limited to '779/CH18')
-rwxr-xr-x779/CH18/EX18.10/18_10.sce27
-rwxr-xr-x779/CH18/EX18.8/18_8.sce29
-rwxr-xr-x779/CH18/EX18.9/18_9.sce18
3 files changed, 36 insertions, 38 deletions
diff --git a/779/CH18/EX18.10/18_10.sce b/779/CH18/EX18.10/18_10.sce
index 95e7d7eae..2d66740a0 100755
--- a/779/CH18/EX18.10/18_10.sce
+++ b/779/CH18/EX18.10/18_10.sce
@@ -1,14 +1,13 @@
-T1 = 278; P21 = 2.5; // P2/P1
-cp = 1.005; ns = 0.84; V2 = 120;
-T2s = T1*(P21)^((g-1)/g);
-T2 = T1 + (T2s-T1)/ns;
-mg = 0.04*(13+1);
-P = mg*cp*(T2-T1);
-T02 = T2 + V2^2/(2*cp*1000);
-P1 = 0.6;
-P2 = P21*0.6;
-P02 = P2*(T02/T2)^(g/(g-1));
-disp("kW",P,"Power required to drive the compressor is")
-disp("K",T02,"Stagnation temperature is")
-disp("bar",P02,"Stagnation pressure is")
-
+T1 = 278; P21 = 2.5; // P2/P1
+cp = 1.005; ns = 0.84; V2 = 120; g = 1.4;
+T2s = T1*(P21)^((g-1)/g);
+T2 = T1 + (T2s-T1)/ns;
+mg = 0.04*(13+1);
+P = mg*cp*(T2-T1);
+T02 = T2 + V2^2/(2*cp*1000);
+P1 = 0.6;
+P2 = P21*0.6;
+P02 = P2*(T02/T2)^(g/(g-1));
+disp("kW",P,"Power required to drive the compressor is")
+disp("K",T02,"Stagnation temperature is")
+disp("bar",P02,"Stagnation pressure is") \ No newline at end of file
diff --git a/779/CH18/EX18.8/18_8.sce b/779/CH18/EX18.8/18_8.sce
index c16c17b6d..d7f257c10 100755
--- a/779/CH18/EX18.8/18_8.sce
+++ b/779/CH18/EX18.8/18_8.sce
@@ -1,15 +1,14 @@
-// For Blower
-m_dot = 1; R = 0.287; T1 = 343;
-P1 = 100; P2 = 2*P1; g = 1.4;
-V_dot = (m_dot*R*T1)/P1;
-PRb = V_dot*(P2-P1);
-disp("kW",PRb,"Power required by the blower is")
-// For van compressor
-P1v = 1; V21 = 0.7 // V2/V1
-P2v = P1v*(1/V12)^g;
-V2_dot = 0.7;
-V1_dot = 0.7*V_dot;
-P3v = 2;
-PRv = ((g*P1v*100*V_dot)/(g-1))*((P2v/P1v)^((g-1)/g)-1) + V1_dot*100*(P3v-P2v);
-disp("kW",PRv,"Power Required by van compressor is")
-
+// For Blower
+m_dot = 1; R = 0.287; T1 = 343;
+P1 = 100; P2 = 2*P1; g = 1.4;
+V_dot = (m_dot*R*T1)/P1;
+PRb = V_dot*(P2-P1);
+disp("kW",PRb,"Power required by the blower is")
+// For van compressor
+P1v = 1; V21 = 0.7 // V2/V1
+P2v = P1v*(1/V21)^g;
+V2_dot = 0.7;
+V1_dot = 0.7*V_dot;
+P3v = 2;
+PRv = ((g*P1v*100*V_dot)/(g-1))*((P2v/P1v)^((g-1)/g)-1) + V1_dot*100*(P3v-P2v);
+disp("kW",PRv,"Power Required by van compressor is") \ No newline at end of file
diff --git a/779/CH18/EX18.9/18_9.sce b/779/CH18/EX18.9/18_9.sce
index 4ac12f61f..d0bf35826 100755
--- a/779/CH18/EX18.9/18_9.sce
+++ b/779/CH18/EX18.9/18_9.sce
@@ -1,10 +1,10 @@
-T1 = 283; P21 = 2.5; // P2/P1
-P32 = 2.1; // P3/P2
-ns = 0.85; ma = 5; cp = 1.005;
-T2s = T1*(P21)^((g-1)/g);
-T2 = T1 + (T2s-T1)/ns;
-T3 = T2-50;
-T4s = T3*(P32)^((g-1)/g);
-T4 = T3 + (T4s-T3)/ns;
-P = ma*cp*((T2-T1)+(T4-T3));
+T1 = 283; P21 = 2.5; // P2/P1
+P32 = 2.1; // P3/P2
+ns = 0.85; ma = 5; cp = 1.005; g = 1.4;
+T2s = T1*(P21)^((g-1)/g);
+T2 = T1 + (T2s-T1)/ns;
+T3 = T2-50;
+T4s = T3*(P32)^((g-1)/g);
+T4 = T3 + (T4s-T3)/ns;
+P = ma*cp*((T2-T1)+(T4-T3));
disp("kW",P,"Total compressor power is") \ No newline at end of file