diff options
Diffstat (limited to '3689/CH13')
| -rw-r--r-- | 3689/CH13/EX13.1/13_1.sce | 14 | ||||
| -rw-r--r-- | 3689/CH13/EX13.3/13_3.sce | 11 | ||||
| -rw-r--r-- | 3689/CH13/EX13.4/13_4.sce | 11 | ||||
| -rw-r--r-- | 3689/CH13/EX13.5/13_5.sce | 16 | ||||
| -rw-r--r-- | 3689/CH13/EX13.6/13_6.sce | 13 |
5 files changed, 65 insertions, 0 deletions
diff --git a/3689/CH13/EX13.1/13_1.sce b/3689/CH13/EX13.1/13_1.sce new file mode 100644 index 000000000..ae83be9c8 --- /dev/null +++ b/3689/CH13/EX13.1/13_1.sce @@ -0,0 +1,14 @@ +////
+//Variable Declaration
+
+aH = 40 //Number of heads
+N = 100 //Total events
+
+//Calculations
+aT = 100 - aH
+We = factorial(N)/(factorial(aT)*factorial(aH))
+Wexpected = factorial(N)/(factorial(N/2)*factorial(N/2))
+
+//Results
+printf("\n The observed weight %5.2e compared to %5.2e",We,Wexpected)
+
diff --git a/3689/CH13/EX13.3/13_3.sce b/3689/CH13/EX13.3/13_3.sce new file mode 100644 index 000000000..e3e99328f --- /dev/null +++ b/3689/CH13/EX13.3/13_3.sce @@ -0,0 +1,11 @@ +////Variable Declaration
+p0 = 0.633 //Probabilities of Energy level 1,2,3
+p1 = 0.233
+p2 = 0.086
+
+//Calculation
+p4 = 1. -(p0+p1+p2)
+
+//Results
+printf("\n Probability of finding an oscillator at energy level of n>3 is %4.3f i.e.%4.1f percent",p4,p4*100)
+
diff --git a/3689/CH13/EX13.4/13_4.sce b/3689/CH13/EX13.4/13_4.sce new file mode 100644 index 000000000..a83b21005 --- /dev/null +++ b/3689/CH13/EX13.4/13_4.sce @@ -0,0 +1,11 @@ +////Variable Declaration
+p0 = 0.394 //Probabilities of Energy level 1,2,3
+p1by2 = 0.239
+p2 = 0.145
+
+//Calculation
+p4 = 1. -(p0+p1by2+p2)
+
+//Results
+printf("\n Probability of finding an oscillator at energy level of n>3 is %4.3f",p4)
+
diff --git a/3689/CH13/EX13.5/13_5.sce b/3689/CH13/EX13.5/13_5.sce new file mode 100644 index 000000000..f29137a9b --- /dev/null +++ b/3689/CH13/EX13.5/13_5.sce @@ -0,0 +1,16 @@ +////
+//Variable Declaration
+I2 = 208 //Vibrational frequency, cm-1
+T = 298 //Molecular Temperature, K
+c = 3.00e10 //speed of light, cm/s
+h = 6.626e-34 //Planks constant, J/K
+k = 1.38e-23 //Boltzman constant, J/K
+//Calculation
+q = 1./(1.-exp(-h*c*I2/(k*T)))
+p2 = exp(-2*h*c*I2/(k*T))/q
+
+//Results
+printf("\n Partition function is %4.3f",q)
+
+printf("\n Probability of occupying the second vibrational state n=2 is %4.3f",p2)
+
diff --git a/3689/CH13/EX13.6/13_6.sce b/3689/CH13/EX13.6/13_6.sce new file mode 100644 index 000000000..ce6525e40 --- /dev/null +++ b/3689/CH13/EX13.6/13_6.sce @@ -0,0 +1,13 @@ +////Variable Declaration
+B = 1.45 //Magnetic field streangth, Teslas
+T = 298 //Molecular Temperature, K
+c = 3.00e10 //speed of light, cm/s
+h = 6.626e-34 //Planks constant, J/K
+k = 1.38e-23 //Boltzman constant, J/K
+gnbn = 2.82e-26 //J/T
+//Calculation
+ahpbyahm = exp(-gnbn*B/(k*T))
+
+//Results
+printf("\n Occupation Number is %7.6f",ahpbyahm)
+
|