summaryrefslogtreecommitdiff
path: root/3557/CH15/EX15.3/Ex15_3.sce
blob: 5599950f2597a976b523803d0bb81214971a2dd8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 15.3//

pcu=8.93;// g cm^-3 //Density of Copper
a=63.55;//amu //atomic mass of copper
c=10^6;//cm^3/m^3 //given
d=1;//g.atom //given
h=0.6023*10^24;//atoms/g.atom //Avogardo's Number
p=pcu*c*(d/a)*(h)
mprintf("p = %e atoms/m^3",p)
a1=104*10^27;//m^-3 //density of free electrons in copper at room temperature
e=a1/p
mprintf("\ne = %f",e)