1 files changed, 24 insertions, 0 deletions
diff --git a/1922/CH4/EX4.7/4_7.sce b/1922/CH4/EX4.7/4_7.sce
new file mode 100755
index 000000000..a4a3c8192
--- /dev/null
+++ b/1922/CH4/EX4.7/4_7.sce
@@ -0,0 +1,24 @@
+clc
+clear
+//Initialization of variables
+Q=6 //kJ/kg
+p1=1.5 //Mpa
+p2=0.1 //Mpa
+t1=500 //C
+t2=140.8 //C
+h1=3473.1 //kJ
+h2=2758.1 //kJ
+s1=7.5698 //kJ/K
+s2=7.5698 //kJ/K
+eff=0.85
+Ts=293.1 //K
+//calculations
+Wideal=h2-h1
+Ws=eff*Wideal
+dH=-Q-Ws
+H2=h1+dH
+S2=7.8005
+ds=S2-s1
+Wlost=Ts*ds+Q
+//results
+printf("lost work = %.1f kJ",Wlost)