summaryrefslogtreecommitdiff
path: root/3845/CH15/EX15.9/Ex15_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '3845/CH15/EX15.9/Ex15_9.sce')
-rw-r--r--3845/CH15/EX15.9/Ex15_9.sce10
1 files changed, 10 insertions, 0 deletions
diff --git a/3845/CH15/EX15.9/Ex15_9.sce b/3845/CH15/EX15.9/Ex15_9.sce
new file mode 100644
index 000000000..2cf84fba8
--- /dev/null
+++ b/3845/CH15/EX15.9/Ex15_9.sce
@@ -0,0 +1,10 @@
+//Example 15.9
+Wi=1.4*10^28;//Number of microstates for the initial macrostate, see Table 15.4
+Wf=1*10^29;//Number of microstates for the final macrostate, see Table 15.4
+k=1.38*10^-23;//Boltzmann’s constant (J/K)
+Si=k*log(Wi);//Entropy of the system in the initial macrostate (J/K)
+Sf=k*log(Wf);//Entropy of the system in the final macrostate (J/K)
+delta_S=Sf-Si;//Change in entropy (J/K)
+printf('Change in entropy = %0.1e J/K',delta_S)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest