blob: 9d96feb2d358bd5923159dd88645d690b04781d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
// Scilab Code Ex5.9: Page-180 (2006)
clc; clear;
gamma_expt = 7.0e-04; // Experimental value of electronic specific heat, cal/mol/K-square
gamma_theory = 3.6e-04; // Theoretical value of electronic specific heat, cal/mol/K-square
L = poly(0, 'L');
L = roots(gamma_expt - gamma_theory*(1 + L));
printf("\nThe electron-phonon coupling constant of superconductor = %3.1f", L);
// Result
// The electron-phonon coupling constant of superconductor = 0.9
|
