blob: 897f6b83a1fe4e3ff4e9f4ea12e0bf877d831780 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
// Scilab Code Ex9.6 Page:284 (2006)
clc; clear;
h = 6.6e-034; // Planck's constant, Js
e = 1.6e-019; // Energy eqivalent of 1 eV, eV/J
k = 0.86e-004; // Boltzmann constant, eV/K
T_c = 0.56; // Critical temperature for superconducting Zr, K
E_g = 3.52*k*T_c; // Energy gap of aluminium, J
c = 3e+08; // Speed of light, m/s
lambda = h*c/(E_g*e); // Wavelength of photon required to break a Cooper pair, m
printf("\nThe wavelength of photon required to break a Cooper pair = %3.1e m", lambda);
// Result
// The wavelength of photon required to break a Cooper pair = 7.3e-03 m (Answer given in the textbook is wrong)
|
