diff options
Diffstat (limited to '1736/CH5/EX5.11')
| -rwxr-xr-x | 1736/CH5/EX5.11/Ch05Ex11.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1736/CH5/EX5.11/Ch05Ex11.sce b/1736/CH5/EX5.11/Ch05Ex11.sce new file mode 100755 index 000000000..8564c0c35 --- /dev/null +++ b/1736/CH5/EX5.11/Ch05Ex11.sce @@ -0,0 +1,10 @@ +// Scilab Code Ex5.11: Page-181 (2006)
+clc; clear;
+gamma_expt = 4.84; // Experimental value of electronic specific heat of metal, mJ/g-atom/K-square
+gamma_theory = 2.991; // Theoretical value of electronic specific heat of metal, mJ/g-atom/K-square
+L = poly(0, 'L');
+L = roots(gamma_expt - gamma_theory*(1 + L));
+printf("\nThe electron-phonon coupling constant for metal = %5.3f", L);
+
+// Result
+// The electron-phonon coupling constant for metal = 0.618
|