1 files changed, 24 insertions, 0 deletions
diff --git a/551/CH13/EX13.1/1.sce b/551/CH13/EX13.1/1.sce
new file mode 100755
index 000000000..450b4c5e2
--- /dev/null
+++ b/551/CH13/EX13.1/1.sce
@@ -0,0 +1,24 @@
+clc
+T1=671; //K
+T2=T1;
+T3=313; //K
+T4=T3;
+W=130; //kJ
+
+disp("(i) Engine thermal efficiency =")
+n_th=(T2-T3)/T2;
+disp(n_th)
+
+
+disp("(ii) Heat added =")
+Q=W/n_th;
+disp(Q)
+disp("kJ")
+
+
+disp("(iii) The entropy changes during heat rejection process")
+Q_rejected=Q-W;
+dS=Q_rejected/T3;
+disp("dS=")
+disp(dS)
+disp("kJ/K")
+\ No newline at end of file