From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2780/CH12/EX12.1/Ex12_1.sce | 13 +++++++++++++ 2780/CH12/EX12.11/Ex12_11.sce | 7 +++++++ 2780/CH12/EX12.12/Ex12_12.sce | 16 ++++++++++++++++ 2780/CH12/EX12.13/Ex12_13.sce | 15 +++++++++++++++ 2780/CH12/EX12.14/Ex12_14.sce | 12 ++++++++++++ 2780/CH12/EX12.2/Ex12_2.sce | 13 +++++++++++++ 2780/CH12/EX12.3/Ex12_3.sce | 7 +++++++ 2780/CH12/EX12.4/Ex12_4.sce | 10 ++++++++++ 2780/CH12/EX12.5/Ex12_5.sce | 11 +++++++++++ 2780/CH12/EX12.6/Ex12_6.sce | 13 +++++++++++++ 2780/CH12/EX12.7/Ex12_7.sce | 8 ++++++++ 2780/CH12/EX12.8/Ex12_8.sce | 17 +++++++++++++++++ 2780/CH12/EX12.9/Ex12_9.sce | 17 +++++++++++++++++ 13 files changed, 159 insertions(+) create mode 100755 2780/CH12/EX12.1/Ex12_1.sce create mode 100755 2780/CH12/EX12.11/Ex12_11.sce create mode 100755 2780/CH12/EX12.12/Ex12_12.sce create mode 100755 2780/CH12/EX12.13/Ex12_13.sce create mode 100755 2780/CH12/EX12.14/Ex12_14.sce create mode 100755 2780/CH12/EX12.2/Ex12_2.sce create mode 100755 2780/CH12/EX12.3/Ex12_3.sce create mode 100755 2780/CH12/EX12.4/Ex12_4.sce create mode 100755 2780/CH12/EX12.5/Ex12_5.sce create mode 100755 2780/CH12/EX12.6/Ex12_6.sce create mode 100755 2780/CH12/EX12.7/Ex12_7.sce create mode 100755 2780/CH12/EX12.8/Ex12_8.sce create mode 100755 2780/CH12/EX12.9/Ex12_9.sce (limited to '2780/CH12') 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") -- cgit