summaryrefslogtreecommitdiff
path: root/1931/CH13/EX13.1/1.sce
blob: ae3f17729dc632161af6a0d14a4c077fa25d42ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
clear
//INPUT DATA
a=3.61*10^-10//lattice constant of copper which is Fcc crystal in m
x=1*10^-18//average displacement of the electrons relative to the nucleus in m
z=29//atomic number of copper
n=4//number of atoms per unit cell in FCC crystal
e=1.6*10^-19//charge of electron in coulombs

//CALCULATION
ne=((n*z)/(a*a*a))//number of electrons in electrons/m^3 
P=(ne*e*x)/(10^-7)//The electron polarisation in C/m^2 *10^-7

//OUTPUT
printf('The electron polarisation is %3.3f*10^-7 in C/m^2',P)