summaryrefslogtreecommitdiff
path: root/1736/CH9/EX9.12/Ch09Ex12.sce
diff options
context:
space:
mode:
Diffstat (limited to '1736/CH9/EX9.12/Ch09Ex12.sce')
-rwxr-xr-x1736/CH9/EX9.12/Ch09Ex12.sce11
1 files changed, 11 insertions, 0 deletions
diff --git a/1736/CH9/EX9.12/Ch09Ex12.sce b/1736/CH9/EX9.12/Ch09Ex12.sce
new file mode 100755
index 000000000..565c9c25d
--- /dev/null
+++ b/1736/CH9/EX9.12/Ch09Ex12.sce
@@ -0,0 +1,11 @@
+// Scilab code Ex9.12 Page:298 (2006)
+clc; clear;
+Theta_D = 350; // Debye temperature, kelvin
+Lambda = 0.828; // Electron-phonon coupling constant
+mu_prime = 0.1373; // Reduced mass of a superconductor, amu
+T_c = Theta_D/1.45*exp(-1.04*(1+Lambda)/(Lambda-mu_prime*(1+0.62*Lambda))); // Transition temperature of a superconductor using McMillan formula, K
+
+printf("\nThe transition temperature of the superconductor using McMillan formula = %5.2f K", T_c);
+
+// Result
+// The transition temperature of the superconductor using McMillan formula = 11.26 K