1 files changed, 16 insertions, 0 deletions
diff --git a/1019/CH4/EX4.9/Example_4_9.sce b/1019/CH4/EX4.9/Example_4_9.sce
new file mode 100644
index 000000000..cedce2d3f
--- /dev/null
+++ b/1019/CH4/EX4.9/Example_4_9.sce
@@ -0,0 +1,16 @@
+//Example 4.9
+clear;
+clc;
+
+//Given
+R=8.314;// gas constant in J K^-1 mol^-1
+Cp=20.9; //specific heat capacity at constant pressure of the gas in J K^-1 mol^-1
+n=1;//moles of gas
+delSm=146;//molar entropy of the gas at 298 K in J K^-1 mol^-1
+T1=298; //initial temperature in K
+T2=500;//final temperature in K
+
+//to calculate the molar entropy at 500 K
+delS=delSm+(Cp*log(T2/T1));//molar entropy in J K^-1 mol^-1
+mprintf('Molar Entropy at 500K = %f J K^-1 mol^-1',delS);
+//end
+\ No newline at end of file