1 files changed, 14 insertions, 0 deletions
diff --git a/3821/CH9/EX9.4/Example9_4.sce b/3821/CH9/EX9.4/Example9_4.sce
new file mode 100644
index 000000000..351e4568f
--- /dev/null
+++ b/3821/CH9/EX9.4/Example9_4.sce
@@ -0,0 +1,14 @@
+///Chapter 9 Law Of Thermodynamics
+///Example 9.4 Page No:168
+/// Find Work done and compression process of heat
+///Input data
+clc;
+clear;
+Q1=-2100;         //Non flow process losses heat in KJ
+deltaU=420;      //Gain heat
+
+///Calculation
+W=Q1-deltaU;      //Work done and compression process in KJ
+
+///Output
+printf('Work done and compression process= %f KJ \n',W);