1 files changed, 11 insertions, 0 deletions
diff --git a/551/CH4/EX4.40/40.sce b/551/CH4/EX4.40/40.sce
new file mode 100755
index 000000000..4690e366e
--- /dev/null
+++ b/551/CH4/EX4.40/40.sce
@@ -0,0 +1,11 @@
+clc
+p1=6.87; //bar
+C1=50; //m/s
+p2=1.37; //bar
+C2=500; //m/s
+disp("From steam table corresponding to p1")
+h1=2850; //kJ/kg
+h2=h1 - (C2^2-C1^2)/2/1000;
+disp("Final enthalpy of steam = ")
+disp(h2)
+disp("kJ")
+\ No newline at end of file