initial commit / add all books

13 files changed, 159 insertions, 0 deletions

diff --git a/2780/CH12/EX12.1/Ex12_1.sce b/2780/CH12/EX12.1/Ex12_1.sce
new file mode 100755
index 000000000..b33820620
--- /dev/null
+++ b/2780/CH12/EX12.1/Ex12_1.sce
@@ -0,0 +1,13 @@
+clc

+//to calculate electric flux

+//electric flux through a surface is phi=vector(E)*vector(s)

+//where vector E=2i+4j+7k,vector s=10j

+E=4                  //E=4j

+s=10                   //s=10j

+phi=E*s

+disp("electric flux is phi="+string(phi)+"units")

+//to calculate flux coming out of any face of the cube

+q=1          //charge in coulomb

+epsilon0=8.85*10^-12             //permittivity in free space in coul^2/N-m^2

+phi1=q/(6*epsilon0)

+disp("flux coming out of any face of the cube is phi1="+string(phi1)+"N-m^2/coul^2")

diff --git a/2780/CH12/EX12.11/Ex12_11.sce b/2780/CH12/EX12.11/Ex12_11.sce
new file mode 100755
index 000000000..520fe1f7e
--- /dev/null
+++ b/2780/CH12/EX12.11/Ex12_11.sce
@@ -0,0 +1,7 @@
+clc

+//to calculate skin depth 

+f=10^8 //frequency

+sigma=3*10^7 //conductivity of the medium

+muo=4*%pi*10^-7 //permeability of free space

+del=sqrt(2/(2*%pi*f*sigma*muo))

+disp("skin depth is del="+string(del)+"m")

diff --git a/2780/CH12/EX12.12/Ex12_12.sce b/2780/CH12/EX12.12/Ex12_12.sce
new file mode 100755
index 000000000..77a828413
--- /dev/null
+++ b/2780/CH12/EX12.12/Ex12_12.sce
@@ -0,0 +1,16 @@
+clc

+//to calculate frequency 

+muo=4*%pi*10^-7            //permeability of free space

+sigma=4.3  // in mhos/m

+del=0.1     //skin depth in m

+f=2/(2*%pi*muo*del^2)

+disp("frequency is f="+string(f)+"Hz")

+//value of frequency is given incorrect in the book 

+//show that for frequencies less than 10^8 ,it can be considered as good conductor

+epsilon=80*8.854*10^-12

+f=10^8                                    //frequency in Hz

+sigma=4.3

+//formula is sigma/(omega*epsilon)>4.3/(2*%pi*10^8*80*epsilon)

+sigma1=sigma/(2*%pi*f*epsilon)  //where sigma1=sigma/(omega*epsilon)

+disp("sigma1="+string(sigma1)+"unitless")

+//the ocean water to be good conductor ,the value of sigma/(omega*epsilon) should be greater than 1

diff --git a/2780/CH12/EX12.13/Ex12_13.sce b/2780/CH12/EX12.13/Ex12_13.sce
new file mode 100755
index 000000000..e07399806
--- /dev/null
+++ b/2780/CH12/EX12.13/Ex12_13.sce
@@ -0,0 +1,15 @@
+clc

+//to show that for frequency <10^9 Hz ,a sample of silicon will act like a good conductor

+sigma=200 //in mhos/m

+omega=2*%pi*10^9 

+epsilon0=8.85*10^-12              //permittivity in free space

+epsilon=12*epsilon0 

+sigma1=sigma/(omega*epsilon)         //sigma1=sigma/(omega*epsilon)

+disp("sigma1="+string(sigma1)+"unitless")

+//if sigma/(omega*epsilon) is greater than 1 , silicon is a good conductor at frequency <10^9 Hz

+//to calculate penetration depth

+f=10^6 //frequency in Hz

+muo=4*%pi*10^-7       //permeability of free space

+sigma=200

+del=sqrt(2/(2*%pi*f*muo*sigma))

+disp("penetration depth is del="+string(del)+"m")

diff --git a/2780/CH12/EX12.14/Ex12_14.sce b/2780/CH12/EX12.14/Ex12_14.sce
new file mode 100755
index 000000000..26ad797bc
--- /dev/null
+++ b/2780/CH12/EX12.14/Ex12_14.sce
@@ -0,0 +1,12 @@
+clc

+//to calculate conduction current and displacement current densities 

+sigma=10^-3        //conductivity in mhos/m

+E=4*10^-6        //where E=4*10^-6*sin(9*10^9t) v/m

+J=sigma*E

+disp("conduction current density is J="+string(J)+"sin(9*10^9t)    A/m")

+epsilon0=8.85*10^-12            //permittivity in free space

+epsilonr=2.45                    //relative permittivity

+//formula is epsilon0*epsilonr*(delE/delt)

+//delE/delt=4*10^-6*9*10^9*cos(9*10^9*t)

+Jd=epsilon0*epsilonr*4*10^-6*9*10^9

+disp("displacement current density is Jd="+string(Jd)+"cos(9*10^9*t)  A/m^2")

diff --git a/2780/CH12/EX12.2/Ex12_2.sce b/2780/CH12/EX12.2/Ex12_2.sce
new file mode 100755
index 000000000..a4f177cbe
--- /dev/null
+++ b/2780/CH12/EX12.2/Ex12_2.sce
@@ -0,0 +1,13 @@
+clc

+//to calculate electric field at a point from centre of the shell

+q=0.2*10^-6 //charge

+r=3 //radius

+epsilon0=8.85*10^-12

+E=q/(4*%pi*epsilon0*r^2)

+disp("electric field at a point from centre of the shell is E="+string(E)+"N/coulomb")

+//to calculate electric field at a point just outside the shell

+R=0.25 //radius

+E=q/(4*%pi*epsilon0*R^2)

+disp("electric field at a point just outside the shell is E="+string(E)+"N/coulomb")

+//to calculate the electric field at a point inside the shell

+//when the point is situated inside the spherical shell,the electric field is zero

diff --git a/2780/CH12/EX12.3/Ex12_3.sce b/2780/CH12/EX12.3/Ex12_3.sce
new file mode 100755
index 000000000..2ae4fed33
--- /dev/null
+++ b/2780/CH12/EX12.3/Ex12_3.sce
@@ -0,0 +1,7 @@
+clc

+//to calculate electric field at a point on earth vertically below the wire

+lambda=10^-4 //wavelength in coulomb/m

+r=4 //radius in m

+epsilon0=8.854*10^-12

+E=2*lambda/(4*%pi*epsilon0*r)

+disp("electric field at a point on earth vertically below the wire is E="+string(E)+"N/coulomb")

diff --git a/2780/CH12/EX12.4/Ex12_4.sce b/2780/CH12/EX12.4/Ex12_4.sce
new file mode 100755
index 000000000..e05f85111
--- /dev/null
+++ b/2780/CH12/EX12.4/Ex12_4.sce
@@ -0,0 +1,10 @@
+clc

+//to calculate separation between those equipotential surfaces 

+V=5 //potential difference

+epsilon0=8.85*10^-12 //permittivity of free space

+sigma=1*10^-7  //in c/m^2

+//electric field due to an infinite sheet of surface charge density is given by E=sigma/(2*epsilon0)                  eq(1)

+//E=V/d                    eq(2)

+//from eq(1) and eq(2),we get  

+d=(2*epsilon0*V)/sigma

+disp("separation between those equipotential surfaces is d="+string(d)+"m")

diff --git a/2780/CH12/EX12.5/Ex12_5.sce b/2780/CH12/EX12.5/Ex12_5.sce
new file mode 100755
index 000000000..37c8dce99
--- /dev/null
+++ b/2780/CH12/EX12.5/Ex12_5.sce
@@ -0,0 +1,11 @@
+clc

+//to calculate force per unit area

+//force of attraction per unit area is given by F=(epsilon0*E^2)/2              eq(1)

+//E=V/d                            eq(2)

+epsilon0=8.85*10^-12 //permittivity  of free space

+d=1*10^-3 //distance

+V=100 //potential difference in volts

+//from eq(1) and eq(2),we get

+F=(epsilon0*V^2)/(2*d^2)

+disp("force per unit area is F="+string(F)+"N/m^2")

+//answer is given incorrect in the book ,F=4.425*10^-12

diff --git a/2780/CH12/EX12.6/Ex12_6.sce b/2780/CH12/EX12.6/Ex12_6.sce
new file mode 100755
index 000000000..ce0443396
--- /dev/null
+++ b/2780/CH12/EX12.6/Ex12_6.sce
@@ -0,0 +1,13 @@
+clc

+//to calculate charge

+//let charge be q coulomb ,then the surface density of charge i.e. sigma=q/(4*%pi*r^2)..............eq(1)

+//outward pull per unit area =sigma^2/(2*epsilon0)............eq(2)

+//put eq(1) in eq(2),we get q^2/(4*%pi*r^2)^2*(2*epsilon0)..............eq(3)

+//pressure due to surface tension =4*T/r............eq(4)

+T=27

+r=1.5*10^-2

+epsilon0=8.85*10^-12

+//equate eq(3) and eq(4),we get

+q=sqrt(4*T*((4*%pi*r^2)^2)*2*epsilon0/r)

+disp("charge is q="+string(q)+"coulomb")

+//answer is given wrong in the book,square of 4*%pi*r^2 is not taken in the solution.

diff --git a/2780/CH12/EX12.7/Ex12_7.sce b/2780/CH12/EX12.7/Ex12_7.sce
new file mode 100755
index 000000000..c0706a59c
--- /dev/null
+++ b/2780/CH12/EX12.7/Ex12_7.sce
@@ -0,0 +1,8 @@
+clc

+//to calculate increase in radius 

+q=4.8*10^-8         //charge in coulomb

+r=10*10^-2 //radius in m

+epsilon0=8.85*10^-12  //C^2/N-m^2

+P=10^5 //N/m^2

+dr=(q^2)/(96*((%pi)^2)*(r^3)*epsilon0*P)

+disp("increase in radius is dr="+string(dr)+"m")

diff --git a/2780/CH12/EX12.8/Ex12_8.sce b/2780/CH12/EX12.8/Ex12_8.sce
new file mode 100755
index 000000000..0a93694a6
--- /dev/null
+++ b/2780/CH12/EX12.8/Ex12_8.sce
@@ -0,0 +1,17 @@
+//in page no.340,numbering is done wrongly,it should be like ex-8,ex-9,ex-10,ex-11,ex-12,ex-13,ex-14

+clc

+//to calculate average values of intensities of electric and magnetic fields of radiation

+//energy of lamp=1000 J/s

+//area illuminated =4*%pi*r^2=16*%pi m^2

+//energy radiated per unit area per second =1000/16*%pi

+//from poynting theorem |s|=|E*H|=E*H           eq(1)

+s=1000/(16*%pi)

+muo=4*%pi*10^-7             //permeability of free space

+epsilon0=8.85*10^-12              //permittivity in free space

+//E/H=sqrt(muo/epsilon0)        eq(2)

+//from eq(1) and eq(2),we get

+E=sqrt(s*sqrt(muo/epsilon0))

+H=s/E

+disp("average value of intensity of electric fields of radiation is E="+string(E)+"V/m")

+disp("average value of intensity of magnetic fields of radiation is H="+string(H)+"ampere-turn/m")

+//answer is given wrong in the book E=48.87 V/m,solution of magnetic fields is not given in the book .

diff --git a/2780/CH12/EX12.9/Ex12_9.sce b/2780/CH12/EX12.9/Ex12_9.sce
new file mode 100755
index 000000000..6abc1b8f0
--- /dev/null
+++ b/2780/CH12/EX12.9/Ex12_9.sce
@@ -0,0 +1,17 @@
+clc

+//to calculate amplitudes of electric and magnetic fields of radiation

+//energy received by an electromagnetic wave per sec per unit area is given by    poynting vector |s|=|E*H|=E*H*sin 90 (becoz E is perpendicular to H)

+//it is given that energy received by earth's surface is

+s=1400                //|s|=2 cal min^-1 cm^-2

+muo=4*%pi*10^-7 //permittivity of free space

+epsilon0=8.85*10^-12 //permeability of free space

+//E*H=1400                          eq(1)

+//E/H=sqrt(muo/epsilon0)               eq(2)

+//from eq(1) and eq(2) ,we get

+E=sqrt(sqrt(muo/epsilon0)*s)

+//from eq(1) ,we get

+H=1400/E

+Eo=E*sqrt(2)

+Ho=H*sqrt(2)

+disp("amplitude of electric field is Eo="+string(Eo)+"V/m")

+disp("amplitude of magnetic field is Ho="+string(Ho)+"amp-turn/m")