summaryrefslogtreecommitdiff
path: root/1736/CH9/EX9.4/Ch09Ex4.sce
blob: e2b76c7cda2ad4b56f879aeedc910d4b0908dae8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
// Scilab Code Ex9.4 Page:280 (2006)
clc;clear;
e = 1.6e-019;   // Energy equivalent of 1 eV, J/eV
E_g = 3.4e-04;    // Energy gap of aluminium, eV
v_F = 2.02e+08;    // Fermi velocity of aluminium, cm/sec
h_bar = 1.05e-034;    // Planck's constant
L = h_bar*v_F/(2*E_g*e);    // Coherence Length of aluminium, cm

printf("\nThe coherence length of aluminium = %4.2e cm", L);

// Result 
// The coherence length of aluminium = 1.95e-04 cm