diff options
Diffstat (limited to '1952/CH13')
| -rwxr-xr-x | 1952/CH13/EX13.1.10/Ex10.sce | 8 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.1.12/Ex12.sce | 7 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.1.14/Ex14.sce | 11 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.1.15/Ex15.sce | 14 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.1.2/Ex2.sce | 8 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.1.6/Ex6.sce | 6 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.2.1/Ex2_1.sce | 8 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.2.13/Ex2_13.sce | 8 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.2.7/Ex2_7.sce | 10 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.3.11/Ex3_11.sce | 7 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.3.12/Ex3_12.sce | 19 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.3.13/Ex3_13.sce | 22 | ||||
| -rwxr-xr-x | 1952/CH13/EX13.3.14/Ex3_14.sce | 25 |
13 files changed, 153 insertions, 0 deletions
diff --git a/1952/CH13/EX13.1.10/Ex10.sce b/1952/CH13/EX13.1.10/Ex10.sce new file mode 100755 index 000000000..8cda6b328 --- /dev/null +++ b/1952/CH13/EX13.1.10/Ex10.sce @@ -0,0 +1,8 @@ +// Additional solved numerical questions , Example(set 1) 10 , pg 349
+a=4.938 //lattice constant(in Angstrom)
+h=2
+k=2
+l=0 //since (h k l)=(2 2 0) miller indices
+d=a/sqrt(h^2+k^2+l^2) //spacing
+printf("spacing of (2 2 0) planes=")
+printf("d=%.3f Angstrom",d)
diff --git a/1952/CH13/EX13.1.12/Ex12.sce b/1952/CH13/EX13.1.12/Ex12.sce new file mode 100755 index 000000000..a71e6c59f --- /dev/null +++ b/1952/CH13/EX13.1.12/Ex12.sce @@ -0,0 +1,7 @@ +// Additional solved numerical questions , Example(set 1) 12_b_3 , pg 349
+Eg=0.8*1.6*10^-19 //bandgap (in J) (converting eV into J)
+h=6.625*10^-34 //plancks constant (in J s)
+c=3*10^8 //speed of light (in m/s)
+lam=(h*c)/Eg //wavelength
+printf("wavelength of light emitted (in m)is=")
+disp(lam)
diff --git a/1952/CH13/EX13.1.14/Ex14.sce b/1952/CH13/EX13.1.14/Ex14.sce new file mode 100755 index 000000000..6f4e04705 --- /dev/null +++ b/1952/CH13/EX13.1.14/Ex14.sce @@ -0,0 +1,11 @@ +// Additional solved numerical questions , Example(set 1) 14_a_3 , pg 350
+lam=1.24*10^-13 //wavelength (in m)
+h=6.625*10^-34//plancksconstant(in J s)
+c=3*10^8//velocity of x-ray photon(in m/sec)
+m0=9.11*10^-31//rest mass of electron(in Kg)
+phi=(90*%pi)/180//angle of scattering (in radian) (converting degree into radian)
+delta_H=(h*(1-cos(phi)))/(m0*c)//change in wavelength due to compton scattering (in m)
+LAM=lam+delta_H //wavelength (in m)
+E=(h*c)/LAM //energy of scattered photon (in J)
+printf("Energy of scattered photon (in J)=")
+disp(E)
diff --git a/1952/CH13/EX13.1.15/Ex15.sce b/1952/CH13/EX13.1.15/Ex15.sce new file mode 100755 index 000000000..90c0492ee --- /dev/null +++ b/1952/CH13/EX13.1.15/Ex15.sce @@ -0,0 +1,14 @@ +// Additional solved numerical questions , Example(set 1) 15_b_3 , pg 352
+a=2.88*10^-8 //lattice constant (in cm)
+d=7200 //density (in Kg/m^3)
+C=8/a^3 // atomic concentration
+n=8 //number of atoms/cell
+n1=C/n //unit cell concentration
+
+//since density =7200 Kg/m^3
+//7200 Kg = 10^6 cc
+//hence 1Kg = (10^6)/7200 cc
+N=(n1*10^6)/7200 //number of unit cells present in 1 Kg of metal
+printf("Number of unit cells present in 1 Kg of metal=")
+disp(N)
+printf("unit cells")
diff --git a/1952/CH13/EX13.1.2/Ex2.sce b/1952/CH13/EX13.1.2/Ex2.sce new file mode 100755 index 000000000..d35de9623 --- /dev/null +++ b/1952/CH13/EX13.1.2/Ex2.sce @@ -0,0 +1,8 @@ +// Additional solved numerical questions , Example(set 1) 2 , pg 348
+l=0.7*10^-3//length(in m)
+E=8.8*10^10//youngs modulus(in N/m^2)
+d=2800//density(in kg/m^3)
+p=1//fundamental mode
+n= p*sqrt(E/d)/(2*l) //natural frequency
+printf("Fundamental frequency of quartz crystal)\n")
+printf("n=%.2f Hz",n)
diff --git a/1952/CH13/EX13.1.6/Ex6.sce b/1952/CH13/EX13.1.6/Ex6.sce new file mode 100755 index 000000000..702f63637 --- /dev/null +++ b/1952/CH13/EX13.1.6/Ex6.sce @@ -0,0 +1,6 @@ +// Additional solved numerical questions , Example(set 1) 6 , pg 348
+n1=1.5 //refractive index of core
+n2= 1.47 // cladding refractive index
+theta_c=asin(n2/n1) //critical angle (in radian)
+printf("critical angle=\n")
+printf("theta_c=%.2f degree",(theta_c*180)/%pi)
diff --git a/1952/CH13/EX13.2.1/Ex2_1.sce b/1952/CH13/EX13.2.1/Ex2_1.sce new file mode 100755 index 000000000..645a066a4 --- /dev/null +++ b/1952/CH13/EX13.2.1/Ex2_1.sce @@ -0,0 +1,8 @@ +// Additional solved numerical questions , Example(set 2) 1 , pg 352
+l=4*10^-2 //length(in m)
+E=207 *10^6 //youngs modulus(in N/m^2)
+d=8900 //density(in kg/m^3)
+p=1//fundamental mode
+n= p*sqrt(E/d)/(2*l) //natural frequency
+printf("Fundamental frequency of quartz crystal)\n")
+printf("n=%.2f Hz",n)
diff --git a/1952/CH13/EX13.2.13/Ex2_13.sce b/1952/CH13/EX13.2.13/Ex2_13.sce new file mode 100755 index 000000000..9946fa979 --- /dev/null +++ b/1952/CH13/EX13.2.13/Ex2_13.sce @@ -0,0 +1,8 @@ +// Additional solved numerical questions , Example(set 2) 13_b , pg 354
+n1=1.5//core refractive index
+n2=1.447//cladding refractive index
+n0=1//refractive index of air
+NA=sqrt(n1^2-n2^2)//numerical aperture
+alpha_m =asin(NA/n0)//angle of acceptance (in radian)
+printf("NA=%.1f \n",NA)
+printf("alpha_m=%.2f degree\n",(alpha_m*180)/%pi)
diff --git a/1952/CH13/EX13.2.7/Ex2_7.sce b/1952/CH13/EX13.2.7/Ex2_7.sce new file mode 100755 index 000000000..02ea81fd9 --- /dev/null +++ b/1952/CH13/EX13.2.7/Ex2_7.sce @@ -0,0 +1,10 @@ +// Additional solved numerical questions , Example(set 2) 7 , pg 353
+lam=0.5*10^-9 //wavelength (in m)
+h=6.625*10^-34//plancksconstant(in J s)
+c=3*10^8//velocity of x-ray photon(in m/sec)
+m0=9.11*10^-31//rest mass of electron(in Kg)
+phi=(45*%pi)/180//angle of scattering (in radian) (converting degree into radian)
+delta_H=(h*(1-cos(phi)))/(m0*c)//change in wavelength due to compton scattering (in m)
+LAM=lam+delta_H //wavelength (in m)
+printf("wavelength of scattered radiation (im m)=")
+disp(LAM)
diff --git a/1952/CH13/EX13.3.11/Ex3_11.sce b/1952/CH13/EX13.3.11/Ex3_11.sce new file mode 100755 index 000000000..42324df10 --- /dev/null +++ b/1952/CH13/EX13.3.11/Ex3_11.sce @@ -0,0 +1,7 @@ +// Additional solved numerical questions , Example(set 3) 11_a , pg 355
+Un=3*10^-3 //electron mobility (in m^2/(V*s))
+e=1.6*10^-19 //charge in electron (in C)
+Me=9.11*10^-31 //mass of electron (in Kg)
+T=(Me*Un)/e //mean free time
+printf("Mean free time(in S)")
+disp(T)
diff --git a/1952/CH13/EX13.3.12/Ex3_12.sce b/1952/CH13/EX13.3.12/Ex3_12.sce new file mode 100755 index 000000000..d728bef3a --- /dev/null +++ b/1952/CH13/EX13.3.12/Ex3_12.sce @@ -0,0 +1,19 @@ +// Additional solved numerical questions , Example(set 3) 12_b , pg 356
+ni=1.5*10^16 //intrinsic carrier density(in m^-3)
+Un=1.35 //electron mobility (in m^2/(V*s))
+up=0.48 //hole mobility (in m^2/(V*s))
+e=1.6*10^-19 //charge in electron (in C)
+
+Ix=10^-3 //current (in A)
+d=100*10^-6 //thickness (in m)
+Bz=0.1 //magnetic induction (in T)
+Un1=0.07 //electron mobility (in m^2/(V*s))
+n=10^23 //doping concentration (in atoms/m^3)
+
+sigma=ni*e*(Un+up) // electrical conductivity
+rho=1/sigma //resistivity
+Vh=-(Ix*Bz)/(d*e*n) //Hall voltage
+printf("Resistivity(in ohm*m)")
+disp(rho)
+printf("Hall voltage (in V)")
+disp(Vh)
diff --git a/1952/CH13/EX13.3.13/Ex3_13.sce b/1952/CH13/EX13.3.13/Ex3_13.sce new file mode 100755 index 000000000..ba3da2275 --- /dev/null +++ b/1952/CH13/EX13.3.13/Ex3_13.sce @@ -0,0 +1,22 @@ +// Additional solved numerical questions , Example(set 3) 13_b , pg 357
+A=250 //area of B-H loop
+f=50 //frequency (in Hz)
+d=7.5*10^3 //density (in Kg/m^3)
+M=10 //mass of core (in Kg)
+
+H=2000 //magnetic field intensity (in A/m)
+Xm=1000 //susceptibility
+U0=4*%pi*10^-7 // relative permeability
+
+V=M/d //volume of sample (in m^3)
+N=60*60*f //number of cycles per hour
+EL=A*V*N //energy loss per hour
+I=H*Xm //intensity of magnetization
+Ur=1+Xm
+B=Ur*U0*H //magnetic flux density
+printf("Energy loss per hour (in J)")
+disp(EL)
+printf("Intensity of magnetization (in Wb/m^3)")
+disp(I)
+printf("Magnetic flux density(in T)")
+disp(B)
diff --git a/1952/CH13/EX13.3.14/Ex3_14.sce b/1952/CH13/EX13.3.14/Ex3_14.sce new file mode 100755 index 000000000..244942121 --- /dev/null +++ b/1952/CH13/EX13.3.14/Ex3_14.sce @@ -0,0 +1,25 @@ +// Additional solved numerical questions , Example(set 3) 14 , pg 358
+Er1=1.0000684 //Dielectric constant (for sum 14_a_2)
+N=2.7*10^25 //(in atoms/m^3)
+E0=8.85*10^-12 //permittivity of free space (in F/m)
+Er2=6 //dielectric constant (for sum 14_a_3)
+E=100 //electric field intensity (in V/m) (for sum 14_a_3)
+A=200*10^-4 //area (in m^2)
+Er3=3.7 //dielectric constant (for sum 14_b_2)
+d=10^-3 //thickness (in m)
+V=300 //electric potential (in V)
+Alpha_e=(E0*(Er1-1))/N //electronic polarization
+R=(Alpha_e/(4*%pi*E0))^(1/3) //radius of atom
+P=E0*(Er2-1)*E //polarization
+C=(E0*Er3*A)/d //capacitance
+E1=V/d //electric flux density
+printf("Electronic polarization (in F*m^2)")
+disp(Alpha_e)
+printf("Radius of He atom(in m)")
+disp(R)
+printf("polarization(in C/m^2)")
+disp(P)
+printf("capacitance(in F)")
+disp(C)
+printf("Electric flux density (in V/m)")
+disp(E1)
|