1 files changed, 33 insertions, 0 deletions
diff --git a/551/CH4/EX4.18/18.sce b/551/CH4/EX4.18/18.sce
new file mode 100755
index 000000000..3f3709894
--- /dev/null
+++ b/551/CH4/EX4.18/18.sce
@@ -0,0 +1,33 @@
+clc
+v1=0.3; //m^3/kg
+T1=20; //0C
+v2=0.55; //m^3/kg
+T2=260; //0C
+p=1.6*10^5; //Pa
+
+disp("(i)Heat added per kg = ")
+Q=integrate('1.5 + 75/(T+45)', 'T', T1,T2);
+disp("Q=")
+disp(Q)
+disp("kJ/kg")
+
+
+disp("(ii)The work done per kg of fluid")
+W=p*(v2-v1)/1000; //kJ/kg
+disp("W=")
+disp(W)
+disp("kJ/kg")
+
+
+disp("(iii)Change in internal energy")
+dU=Q-W;
+disp("dU=")
+disp(dU)
+disp("kJ/kg")
+
+
+disp("(iv)Change in enthalpy")
+dH=Q;
+disp("dH=")
+disp(dH)
+disp("kJ/kg")
+\ No newline at end of file