diff options
Diffstat (limited to '2825')
| -rwxr-xr-x | 2825/CH1/EX1.5/Ex1_5.sce | 54 | ||||
| -rwxr-xr-x | 2825/CH14/EX14.10/Ex14_10.sce | 38 | ||||
| -rwxr-xr-x | 2825/CH14/EX14.6/Ex14_6.sce | 34 | ||||
| -rwxr-xr-x | 2825/CH14/EX14.8/Ex14_8.sce | 36 | ||||
| -rwxr-xr-x | 2825/CH4/EX4.13/Ex4_13.sce | 78 |
5 files changed, 118 insertions, 122 deletions
diff --git a/2825/CH1/EX1.5/Ex1_5.sce b/2825/CH1/EX1.5/Ex1_5.sce index 085e5a2d3..101298f80 100755 --- a/2825/CH1/EX1.5/Ex1_5.sce +++ b/2825/CH1/EX1.5/Ex1_5.sce @@ -1,27 +1,27 @@ -//Ex1_5 Pg-45
-clc
-disp("Refer to the figure 1.55")
-disp("(a) R_L varies from 1 ohm to 10 ohm.")
-disp("Currents for two extreme values of R_L are")
-Vs=10 //supply voltage
-RL1=1 //resistance RL1
-Rs=100 //source resistance
-IL1=(Vs/(RL1+Rs))
-RL2=10
-IL2=(Vs/(RL2+Rs))
-per_var_cur=((IL1-IL2)/IL1)*100
-printf("\n Percentage variation in current = %.2f %%\n",per_var_cur)//answer in the text book took a .3 decimal round off value
-disp(" Now,load voltage for the two extreme values of R_L are")
-VL1=IL1*RL
-VL2=IL2*RL2
-per_var_vol=((VL2-VL1)/VL2)*100
-printf("\n Percentage variation in current = %.2f %%\n",per_var_vol)
-
-disp("(b) R_L varies from 1 k-ohm to 10 k-ohm (Figure 1.55(b))")
-disp("Currents for the two extreme values R_L are")
-RL11=1000
-IL11=(Vs/(RL11+Rs))
-RL22=10000
-IL22=(Vs/(RL22+Rs)) //mistake in book value
-per_var_cur11=((IL11-IL22)/IL11)*100
-printf("\n Percentage variation in current = %.2f %%\n",per_var_cur11) //mistake in book value
+//Ex1_5 Pg-45 +clc +disp("Refer to the figure 1.55") +disp("(a) R_L varies from 1 ohm to 10 ohm.") +disp("Currents for two extreme values of R_L are") +Vs=10 //supply voltage +RL1=1 //resistance RL1 +Rs=100 //source resistance +IL1=(Vs/(RL1+Rs)) +RL2=10 +IL2=(Vs/(RL2+Rs)) +per_var_cur=((IL1-IL2)/IL1)*100 +printf("\n Percentage variation in current = %.2f %%\n",per_var_cur)//answer in the text book took a .3 decimal round off value +disp(" Now,load voltage for the two extreme values of R_L are") +VL1=IL1*RL1 +VL2=IL2*RL2 +per_var_vol=((VL2-VL1)/VL2)*100 +printf("\n Percentage variation in current = %.2f %%\n",per_var_vol) + +disp("(b) R_L varies from 1 k-ohm to 10 k-ohm (Figure 1.55(b))") +disp("Currents for the two extreme values R_L are") +RL11=1000 +IL11=(Vs/(RL11+Rs)) +RL22=10000 +IL22=(Vs/(RL22+Rs)) //mistake in book value +per_var_cur11=((IL11-IL22)/IL11)*100 +printf("\n Percentage variation in current = %.2f %%\n",per_var_cur11) //mistake in book value
\ No newline at end of file diff --git a/2825/CH14/EX14.10/Ex14_10.sce b/2825/CH14/EX14.10/Ex14_10.sce index 62b0ff629..c242f8e5a 100755 --- a/2825/CH14/EX14.10/Ex14_10.sce +++ b/2825/CH14/EX14.10/Ex14_10.sce @@ -1,19 +1,19 @@ -//Ex14_10 Pg-698
-clc
-
-n1=1.48 //core refracrive index
-n2=1.47 //cladding refractive index
-lamda=850e-6 //cut-off wavelength
-V=2.405 //normalised frequency
-//In the book cut off wavelength in the question is 850 um but in
-// the calcution part it is taken as 850nm. Here I've taken 850um
-d=V*lamda/(%pi*sqrt(n1^2-n2^2)) //diamter of core
-a=d/2 //radius of core
-printf("Radius of core = %.2f mm \n",a*1e3)//answer in the book is wrong
-
-NA=sqrt(n1^2-n2^2) //numerical apperture
-printf(" Numerical apperture = %.4f \n",NA)
-
-AA_rad=asin(NA/n) //maximum Acceptance angle in rad
-AA=AA_rad*180/%pi //maximum entrance angle in degree
-printf(" Acceptance angle i0 = %.2f degree \n",AA)
+//Ex14_10 Pg-698 +clc + +n1=1.48 //core refracrive index +n2=1.47 //cladding refractive index +lamda=850e-6 //cut-off wavelength +V=2.405 //normalised frequency +//In the book cut off wavelength in the question is 850 um but in +// the calcution part it is taken as 850nm. Here I've taken 850um +d=V*lamda/(%pi*sqrt(n1^2-n2^2)) //diamter of core +a=d/2 //radius of core +printf("Radius of core = %.2f mm \n",a*1e3)//answer in the book is wrong + +NA=sqrt(n1^2-n2^2) //numerical apperture +printf(" Numerical apperture = %.4f \n",NA) + +AA_rad=asin(NA) //maximum Acceptance angle in rad +AA=AA_rad*180/%pi //maximum entrance angle in degree +printf(" Acceptance angle i0 = %.2f degree \n",AA)
\ No newline at end of file diff --git a/2825/CH14/EX14.6/Ex14_6.sce b/2825/CH14/EX14.6/Ex14_6.sce index 1d4d305c5..c570f9fc8 100755 --- a/2825/CH14/EX14.6/Ex14_6.sce +++ b/2825/CH14/EX14.6/Ex14_6.sce @@ -1,17 +1,17 @@ -//Ex14_6 Pg-697
-clc
-
-n2=1.59 //cladding refractive index
-NA=0.2 //numerical apperture
-n0=1 //when fiber is in air
-
-n1=sqrt(n2^2+NA^2) //core refractive index
-printf("Core refractive index = %.3f \n",n1)
-
-n0=1.33 //water refractive index
-NA=sqrt(n1^2-n2^2)/n0 //numerical apperture
-printf(" Numerical apperture = %.2f \n",NA)
-
-AA_rad=asin(NA/n) //maximum Acceptance angle in rad
-AA=AA_rad*180/%pi //maximum entrance angle in degree
-printf(" The maximum entrance angle i0 = %.2f degree",AA)
+//Ex14_6 Pg-697 +clc + +n2=1.59 //cladding refractive index +NA=0.2 //numerical apperture +n0=1 //when fiber is in air + +n1=sqrt(n2^2+NA^2) //core refractive index +printf("Core refractive index = %.3f \n",n1) + +n=1.33 //water refractive index +NA=sqrt(n1^2-n2^2)/n0 //numerical apperture +printf(" Numerical apperture = %.2f \n",NA) + +AA_rad=asin(NA/n) //maximum Acceptance angle in rad +AA=AA_rad*180/%pi //maximum entrance angle in degree +printf(" The maximum entrance angle i0 = %.2f degree",AA)
\ No newline at end of file diff --git a/2825/CH14/EX14.8/Ex14_8.sce b/2825/CH14/EX14.8/Ex14_8.sce index 512a21b6a..29e7e73f0 100755 --- a/2825/CH14/EX14.8/Ex14_8.sce +++ b/2825/CH14/EX14.8/Ex14_8.sce @@ -1,18 +1,18 @@ -//Ex14_8 Pg-698
-clc
-
-n1=1.52 //core refracrive index
-n2=1.46 //cladding refractive index
-
-del=(n1-n2)/n1 //fractional difference of refractive indices
-
-NA=n1*sqrt(2*del) //numerical apperture
-printf("Numerical apperture = %.3f \n",NA)
-
-AA_rad=asin(NA/n) //maximum Acceptance angle in rad
-AA=AA_rad*180/%pi //maximum entrance angle in degree
-printf(" Acceptance angle i0 = %.2f degree \n",AA)
-
-tetha_rad=asin(n2/n1) //critical angle in radians
-tetha=tetha_rad*180/%pi //critical angle in degree
-printf(" Critical angle = %.1f degree \n",tetha)
+//Ex14_8 Pg-698 +clc + +n1=1.52 //core refracrive index +n2=1.46 //cladding refractive index + +del=(n1-n2)/n1 //fractional difference of refractive indices + +NA=n1*sqrt(2*del) //numerical apperture +printf("Numerical apperture = %.3f \n",NA) + +AA_rad=asin(NA) //maximum Acceptance angle in rad +AA=AA_rad*180/%pi //maximum entrance angle in degree +printf(" Acceptance angle i0 = %.2f degree \n",AA) + +tetha_rad=asin(n2/n1) //critical angle in radians +tetha=tetha_rad*180/%pi //critical angle in degree +printf(" Critical angle = %.1f degree \n",tetha)
\ No newline at end of file diff --git a/2825/CH4/EX4.13/Ex4_13.sce b/2825/CH4/EX4.13/Ex4_13.sce index b4973df75..23e5a463d 100755 --- a/2825/CH4/EX4.13/Ex4_13.sce +++ b/2825/CH4/EX4.13/Ex4_13.sce @@ -1,41 +1,37 @@ -//Ex4_13 Pg-245
-clc
-
-V=20 //source voltage in V
-Vz=12 //zener voltage in V
-Vs=V-Vz //voltage across resistor in V
-Rs=330 //series resistance in ohm
-RL=1.5*10^3 //load resistance in ohm
- disp("Voltage across resistor ")
-printf(" = %.0f V \n ",Vr)
-
-disp("(1) Current through series resistor Is")
-Is=Vr/Rs //Current through series resistor
-printf(" Is = %.1f mA \n ",Is*10^3)
-
-disp("(2) Current through series load Il")
-VL=Vz //voltage across load
-IL=VL/RL //Current through series load
-printf(" IL = %.0f mA \n ",IL*10^3)
-
-disp("(3)Current through zener diode")
-Iz=Is-IL //Current through zener diode
-printf(" IL = %.1f mA \n ",Iz*10^3)
-
-disp("(4)Respective wattage of elements used")
-disp("(a) Series resistor -> W=Is*Vs")
-W=Vs*Is //wattage of series resistor
-printf(" = %.1f mW \n ",W*10^3)
-
-disp("(b) Zener diode -> W=Iz*Vz")
-W=Vz*Iz //wattage of zener diode
-printf(" = %.1f mW \n ",W*10^3)
-
-
-disp("(b) Load resistor -> W=IL*VL")
-W=VL*IL //wattage of zener diode
-printf(" = %.0f mW \n ",W*10^3)
-
-
-
-
+//Ex4_13 Pg-245 +clc + +V=20 //source voltage in V +Vz=12 //zener voltage in V +Vs=V-Vz //voltage across resistor in V +Rs=330 //series resistance in ohm +RL=1.5*10^3 //load resistance in ohm + disp("Voltage across resistor ") +printf(" = %.0f V \n ",Vs) + +disp("(1) Current through series resistor Is") +Is=Vs/Rs //Current through series resistor +printf(" Is = %.1f mA \n ",Is*10^3) + +disp("(2) Current through series load Il") +VL=Vz //voltage across load +IL=VL/RL //Current through series load +printf(" IL = %.0f mA \n ",IL*10^3) + +disp("(3)Current through zener diode") +Iz=Is-IL //Current through zener diode +printf(" IL = %.1f mA \n ",Iz*10^3) + +disp("(4)Respective wattage of elements used") +disp("(a) Series resistor -> W=Is*Vs") +W=Vs*Is //wattage of series resistor +printf(" = %.1f mW \n ",W*10^3) + +disp("(b) Zener diode -> W=Iz*Vz") +W=Vz*Iz //wattage of zener diode +printf(" = %.1f mW \n ",W*10^3) + + +disp("(b) Load resistor -> W=IL*VL") +W=VL*IL //wattage of zener diode +printf(" = %.0f mW \n ",W*10^3)
\ No newline at end of file |