1 files changed, 8 insertions, 0 deletions
diff --git a/779/CH7/EX7.12/7_12.sce b/779/CH7/EX7.12/7_12.sce
new file mode 100755
index 000000000..2a08d5b56
--- /dev/null
+++ b/779/CH7/EX7.12/7_12.sce
@@ -0,0 +1,8 @@
+T1 = 300; T2 = 330; T3 = 270;
+P1 = 4; P2 =1 ; P3 =1 ;
+cp = 1.0005; R = 0.287;
+S21 = cp*log(T2/T1)-R*log(P2/P1); // S21 = S2-S1
+S31 = cp*log(T3/T1)-R*log(P3/P1); // S31 = S3-S1
+Sgen = 1*S21 + 1*S31;
+disp("kW/K",Sgen,"The entropy generated during the process is")
+disp("As the entropy generated is positive so such device is possible")
+\ No newline at end of file