diff options
Diffstat (limited to '3845/CH15/EX15.2/Ex15_2.sce')
| -rw-r--r-- | 3845/CH15/EX15.2/Ex15_2.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3845/CH15/EX15.2/Ex15_2.sce b/3845/CH15/EX15.2/Ex15_2.sce new file mode 100644 index 000000000..e8ab459fe --- /dev/null +++ b/3845/CH15/EX15.2/Ex15_2.sce @@ -0,0 +1,19 @@ +//Example 15.2
+//See Figure 15.12 (b)
+P_AB=1.50*10^6;//Pressure along path AB (N/m^2)
+delta_V_AB=500*10^-6;//Volume change along path AB (m^3)
+W_AB=P_AB*delta_V_AB;//Work along path AB (J)
+W_BC=0;//Work along isochoric path BC is zero as delta_V_BC=0, (J)
+P_CD=2*10^5;//Pressure along path CD (N/m^2)
+delta_V_CD=-500*10^-6;//Volume change along path CD (m^3)
+W_CD=P_CD*delta_V_CD;//Work along path CD (J)
+W_DA=0;//Work along isochoric path DA is zero as delta_V_DA=0, (J)
+W=W_AB+W_BC+W_CD+W_DA;//Total work (J)
+printf('a.Total work = %0.1f J',W)
+area=(P_AB-P_CD)*delta_V_AB;//Area inside the rectangle (J)
+printf('\nb.Area inside the rectangle ABCDA = %0.1f J',area)
+if area==W
+ printf('\nArea = %0.1fJ = W',area)
+end
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
|