blob: d953164d3e0740b9dc4c8cce0ecf9879d6ced8f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
// Scilab code Ex9.13 : Page:298 (2006)
clc; clear;
Theta_D = 350; // Debye temperature, kelvin
Lambda = 0.641; // Electron-phonon coupling constant
mu_prime = 0.143; // Reduced mass of a superconductor, amu
T_c = Theta_D/1.45*exp(-1.04*(1+Lambda)/(Lambda-mu_prime*(1+0.62*Lambda))); // Superconducting transition temperature of a superconductor using mcMillan's formula, K
printf("\nThe superconducting transition temperature of a superconductor using McMillan formula = %5.3f K", T_c);
// Result
// The superconducting transition temperature of a superconductor using McMillan formula = 5.043 K
|
