Added new codeHEADmaster

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