diff options
Diffstat (limited to '551/CH13/EX13.32')
-rwxr-xr-x | 551/CH13/EX13.32/32.sce | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/551/CH13/EX13.32/32.sce b/551/CH13/EX13.32/32.sce new file mode 100755 index 000000000..a2a9536c3 --- /dev/null +++ b/551/CH13/EX13.32/32.sce @@ -0,0 +1,25 @@ +clc
+p1=101.325; //kPa
+T1=300; //K
+rp=6;
+y=1.4;
+
+T2=T1*rp^((y-1)/y);
+
+//T3/T4=rp^((y-1)/y)
+//T4=T3/1.668
+
+//W_T=2.5*W_C
+
+T3=2.5*(T2-T1)/(1-1/1.668);
+disp("(i) Maximum temperature in the cycle =")
+disp(T3)
+disp("K")
+
+
+disp("(ii) Cycle efficiency")
+T4=T3/1.668;
+
+n_cycle=((T3-T4) - (T2-T1))/(T3-T2);
+disp(" Cycle efficiency =")
+disp(n_cycle)
\ No newline at end of file |