blob: afe7a53d212943185897303a41bbee33ca7d24f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
// Scilab Code Ex9.7 :Page:285 (2006)
clc; clear;
Lambda_0 = 390; // Penetration depth at absolute zero, angstorm
T_c = 7; // Transition temperature of Pb, K
T = 2; // Givn temperature, K
Lambda = Lambda_0*[1-(T/T_c)^2]^(-1/2); // London penetration depth in Pb at 2K, angstorm
printf("\nThe London penetration depth in Pb at 2K = %7.4f angstorm", Lambda);
printf("\nThe London penetration depth at T = T_c becomes %d", %inf);
// Result
// The London penetration depth in Pb at 2K = 406.9644 angstorm
// The London penetration depth at T = T_c becomes Inf
|
