summaryrefslogtreecommitdiff
path: root/1931/CH13/EX13.4/4.sce
blob: 0131ff13296180341b06f1806020ce5f2ab8d139 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
clear
//INPUT DATA
z=1.75*10^-40//electronic polarisability in Fm^2
d=1.8*10^3//density of argon atom in Kg/m^3
Z=39.95//atomic weight of argon
NA=6.025*10^26//Avagadro number in mole^-1
ro=8.85*10^-12//permittivity of free space

//CALCULATION
N=((NA*d)/Z)//The number of atoms/unit volume in atoms/m^3 
rp=(((N*z)/ro)+1)//The static dielectric constant of solid argon

//OUTPUT
printf('The static dielectric constant of solid argon is %3.5f',rp)