1 files changed, 14 insertions, 0 deletions
diff --git a/551/CH5/EX5.19/19.sce b/551/CH5/EX5.19/19.sce
new file mode 100755
index 000000000..4b5c65c31
--- /dev/null
+++ b/551/CH5/EX5.19/19.sce
@@ -0,0 +1,14 @@
+clc
+P1=0.124*10^5; //N/m^2
+T1=433; //K
+T2=323; //K
+h_f1=687; //kJ/kg
+h2=2760; //kJ/kg
+h3=2160; //kJ/kg
+h_f4=209; //kJ/kg
+Q1=h2-h_f1;
+Q2=h_f4-h3;
+disp("Let A=ΣdQ/T")
+A=Q1/T1+Q2/T2;
+disp(A)
+disp("A<0. Hence classius inequality is verified")
+\ No newline at end of file