diff options
Diffstat (limited to '3840/CH6')
| -rw-r--r-- | 3840/CH6/EX6.1/Ex6_1.sce | 14 | ||||
| -rw-r--r-- | 3840/CH6/EX6.10/Ex6_10.sce | 18 | ||||
| -rw-r--r-- | 3840/CH6/EX6.11/Ex6_11.sce | 15 | ||||
| -rw-r--r-- | 3840/CH6/EX6.12/Ex6_12.sce | 17 | ||||
| -rw-r--r-- | 3840/CH6/EX6.2/Ex6_2.sce | 18 | ||||
| -rw-r--r-- | 3840/CH6/EX6.3/Ex6_3.sce | 15 | ||||
| -rw-r--r-- | 3840/CH6/EX6.5/Ex6_5.sce | 16 | ||||
| -rw-r--r-- | 3840/CH6/EX6.6/Ex6_6.sce | 21 | ||||
| -rw-r--r-- | 3840/CH6/EX6.8/Ex6_8.sce | 23 | ||||
| -rw-r--r-- | 3840/CH6/EX6.9/Ex6_9.sce | 16 |
10 files changed, 173 insertions, 0 deletions
diff --git a/3840/CH6/EX6.1/Ex6_1.sce b/3840/CH6/EX6.1/Ex6_1.sce new file mode 100644 index 000000000..b9441fe3e --- /dev/null +++ b/3840/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,14 @@ +clear +// +// +// + +//Variable declaration +alpha_e=10**-40 //polarisability(Fm**2) +N=3*10**28 //density of atoms +epsilon0=8.85*10**-12 + +//Calculation +epsilonr=(N*alpha_e/epsilon0)+1 //dielectric constant + +//Result diff --git a/3840/CH6/EX6.10/Ex6_10.sce b/3840/CH6/EX6.10/Ex6_10.sce new file mode 100644 index 000000000..7545e36da --- /dev/null +++ b/3840/CH6/EX6.10/Ex6_10.sce @@ -0,0 +1,18 @@ +clear +// +// +// + +//Variable declaration +N=3*10**25 //number of atoms +epsilon0=8.85*10**-12 +r=0.2*10**-9 //radius(m) +E=1 //field + +//Calculation +p=4*%pi*epsilon0*r**3 //dipole moment per unit electric field(F-m**2) +P=N*p //polarisation(C-m) +epsilonr=1+(4*%pi*r**3*N/E) //dielectric constant +alphae=epsilon0*(epsilonr-1)/N //polarisability(Fm**2) + +//Result diff --git a/3840/CH6/EX6.11/Ex6_11.sce b/3840/CH6/EX6.11/Ex6_11.sce new file mode 100644 index 000000000..6be9127de --- /dev/null +++ b/3840/CH6/EX6.11/Ex6_11.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +N=2.7*10**25 //number of atoms +epsilon0=8.85*10**-12 +epsilonr=1.000435 //dielectric constant + +//Calculation +alphae=epsilon0*(epsilonr-1)/N //polarisability(Fm**2) + +//Result +printf("\n polarisability is %0.3f *10**-40 F-m**2",alphae*10**40) diff --git a/3840/CH6/EX6.12/Ex6_12.sce b/3840/CH6/EX6.12/Ex6_12.sce new file mode 100644 index 000000000..4b8c2866b --- /dev/null +++ b/3840/CH6/EX6.12/Ex6_12.sce @@ -0,0 +1,17 @@ +clear +// +// +// + +//Variable declaration +epsilon0=8.85*10**-12 +epsilonr=4 //dielectric constant +NA=6.02*10**26 //avagadro number +D=2.08*10**3 //density(kg/m**3) +M=32 //atomic weight(kg) + +//Calculation +N=NA*D/M //number of atoms +alphae=epsilon0*(epsilonr-1)/N //polarisability(Fm**2) + +//Result diff --git a/3840/CH6/EX6.2/Ex6_2.sce b/3840/CH6/EX6.2/Ex6_2.sce new file mode 100644 index 000000000..a24d58abc --- /dev/null +++ b/3840/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,18 @@ +clear +// +// +// + +//Variable declaration +A=100*10**-4 //area(m**2) +epsilon0=8.85*10**-12 +d=1*10**-2 //seperation(m) +V=100 //potential(V) + +//Calculation +C=A*epsilon0/d //capacitance(PF) +Q=C*V //charge on plates(C) + +//Result +printf("\n capacitance is %e F",C) +printf("\n charge on plates is %e C",Q) diff --git a/3840/CH6/EX6.3/Ex6_3.sce b/3840/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..1c4c582fe --- /dev/null +++ b/3840/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,15 @@ +clear +// +// +// + +//Variable declaration +epsilonr=1.0000684 //dielectric constant +N=2.7*10**25 //number of atoms +epsilon0=8.85*10**-12 + +//Calculation +alpha_e=epsilon0*(epsilonr-1)/N //polarisability(Fm**2) + +//Result +printf("\n polarisability is %e Fm**2",alpha_e) diff --git a/3840/CH6/EX6.5/Ex6_5.sce b/3840/CH6/EX6.5/Ex6_5.sce new file mode 100644 index 000000000..c6731bc23 --- /dev/null +++ b/3840/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,16 @@ +clear +// +// +// + +//Variable declaration +epsilonr=5 //relative permittivity +V=12 //potential(V) +d=2*10**-3 //separation(m) +epsilon0=8.85*10**-12 + +//Calculation +P=epsilon0*(epsilonr-1)*V/d //polarisation(C-m) + +//Result +printf("\n polarisation is %0.3f *10**-9 C-m",P*10**9) diff --git a/3840/CH6/EX6.6/Ex6_6.sce b/3840/CH6/EX6.6/Ex6_6.sce new file mode 100644 index 000000000..99c33605f --- /dev/null +++ b/3840/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,21 @@ +clear +// +// +// + +//Variable declaration +epsilonr=3.75 //relative dielectric constant +gama=1/3 //internal field constant +D=2050 //density(kg/m**3) +M=32 //atomic weight(amu) +Na=6.02*10**26 //avagadro number +epsilon0=8.85*10**-12 + +//Calculation +N=Na*D/M //number of atoms per m**3 +x=(epsilonr-1)/(epsilonr+2) +alpha_e=x*3*epsilon0/N //electronic polarisability(F-m**2) + +//Result +printf("\n electronic polarisability is %0.2f *10**-40 Fm**2",alpha_e*10**40) +printf("\n answer in the book varies due to rounding off errors") diff --git a/3840/CH6/EX6.8/Ex6_8.sce b/3840/CH6/EX6.8/Ex6_8.sce new file mode 100644 index 000000000..ba23f1c60 --- /dev/null +++ b/3840/CH6/EX6.8/Ex6_8.sce @@ -0,0 +1,23 @@ +clear +// +// +// + +//Variable declaration +epsilonr=1.0000684 //dielectric constant +N=2.7*10**25 //number of atoms +epsilon0=8.85*10**-12 +E=10**6 //electric field(V/m) +Z=2 +e=1.6*10**-19 //charge(coulomb) + +//Calculation +alphae=epsilon0*(epsilonr-1)/N //polarisability(Fm**2) +r=(alphae/(4*%pi*epsilon0))**(1/3) //radius of electron cloud(m) +d=alphae*E/(Z*e) //displacement(m) + +//Result +printf("\n polarisability is %e Fm**2",alphae) +printf("\n radius of electron cloud is %0.3f *10**-11 m",r*10**11) +printf("\n answer for radius given in the book varies due to rounding off errors") +printf("\n displacement is %0.1f *10**-16 m",d*10**16) diff --git a/3840/CH6/EX6.9/Ex6_9.sce b/3840/CH6/EX6.9/Ex6_9.sce new file mode 100644 index 000000000..8a0e9fe28 --- /dev/null +++ b/3840/CH6/EX6.9/Ex6_9.sce @@ -0,0 +1,16 @@ +clear +// +// +// + +//Variable declaration +A=750*10**-6 //area(m**2) +epsilon0=8.85*10**-12 +epsilonr=3.5 //dielectric constant +d=5*10**-3 //seperation(m) +Q=2.5*10**-10 //charge on plates(C) + +//Calculation +V=Q*d/(epsilon0*epsilonr*A) //voltage across plates(V) + +//Result |