diff options
Diffstat (limited to '1019/CH2/EX2.17/Example_2_17.sce')
-rw-r--r-- | 1019/CH2/EX2.17/Example_2_17.sce | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/1019/CH2/EX2.17/Example_2_17.sce b/1019/CH2/EX2.17/Example_2_17.sce new file mode 100644 index 000000000..5a18e776e --- /dev/null +++ b/1019/CH2/EX2.17/Example_2_17.sce @@ -0,0 +1,28 @@ +//Example 2.17
+clear;
+clc;
+
+//Given
+R=8.314;// gas constant in J K^-1 mol^-1
+v1=11.2; //initial gas volume in dm^3
+Cv=2.5*R; //specific heat capacity at constant volume of the gas in J K^-1 mol^-1
+n=2;//moles of the gas
+T1=273; //initial temperature in K
+T2=373; //final temperature in K
+
+// To determine q,w,delE and delH
+Cp=Cv+R;//specific heat capacity at constant pressure of the gas in J K^-1 mol^-1
+delE=n*Cv*(T2-T1);//internal energy change in J
+delH=delE+(n*R*(T2-T1));//enthalpy change in J
+q=delE;//heat absorbed in J
+w=n*R*(T2-T1);//work done in J
+mprintf('(a) For isochoric process,');
+mprintf('\n delE = %f J',delE);
+mprintf('\n delH = %f J',delH);
+mprintf('\n Heat absorbed,q = %f J',delE);
+mprintf('\n (b) For isobaric process,');
+mprintf('\n delE = %f J',delE);
+mprintf('\n delH = %f J',delH);
+mprintf('\n Work done by the system,w = %f J',w);
+mprintf('\n Heat absorbed,q = %f J',delE);
+//end
\ No newline at end of file |