initial commit / add all books

8 files changed, 248 insertions, 0 deletions

diff --git a/2321/CH10/EX10.10.1/EX10_10_1.sce b/2321/CH10/EX10.10.1/EX10_10_1.sce
new file mode 100755
index 000000000..324128ed2
--- /dev/null
+++ b/2321/CH10/EX10.10.1/EX10_10_1.sce
@@ -0,0 +1,39 @@
+//Example No. 10.10.1

+clc;

+clear;

+close;

+format('v',7);

+Gain=8.5;//dB(Gain)

+tau=0.822;sigma=0.149;//for given gain

+alfa=2*atand((1-tau)/4/sigma);//degree

+fL=54;//MHz(Lower frequency)

+fU=216;//MHz(Upper frequency)

+c=3*10^8;//m/s(Speed of light)

+lambdaU=c/(fU*10^6);//m(Upper wavelength)

+lambdaL=c/(fL*10^6);//m(Lower wavelength)

+l1=lambdaU/2;//m(Length of element1)

+lN=lambdaL/2;//m(Length of longest element)

+l2=l1/tau;l3=l2/tau;l4=l3/tau;l5=l4/tau;l6=l5/tau;l7=l6/tau;l8=l7/tau;l9=l8/tau;//m(Length of elements)

+d1=2*sigma*l1;d2=2*sigma*l2;d3=2*sigma*l3;d4=2*sigma*l4;d5=2*sigma*l5;d6=2*sigma*l6;d7=2*sigma*l7;d8=2*sigma*l8;d9=2*sigma*l9;//meter(Spacing between elements)

+d=d1+d2+d3+d4+d5+d6+d7+d8+d9;//meter(total spacing)

+disp(lN,"Length(m) of longest element : ");

+disp(l1,"Length(m) of element1 : ");

+disp(l2,"Length(m) of element2 : ");

+disp(l3,"Length(m) of element3 : ");

+disp(l4,"Length(m) of element4 : ");

+disp(l5,"Length(m) of element5 : ");

+disp(l6,"Length(m) of element6 : ");

+disp(l7,"Length(m) of element7 : ");

+disp(l8,"Length(m) of element8 : ");

+disp(l9,"Length(m) of element9 : ");

+disp(d1,"Spacing(m) of element1 : ");

+disp(d2,"Spacing(m) of element2 : ");

+disp(d3,"Spacing(m) of element3 : ");

+disp(d4,"Spacing(m) of element4 : ");

+disp(d5,"Spacing(m) of element5 : ");

+disp(d6,"Spacing(m) of element6 : ");

+disp(d7,"Spacing(m) of element7 : ");

+disp(d8,"Spacing(m) of element8 : ");

+disp(d9,"Spacing(m) of element9 : ");

+disp(d,"Total Spacing length(m) : ");

+//Answer is not accurate in the book.

diff --git a/2321/CH10/EX10.10.2/EX10_10_2.sce b/2321/CH10/EX10.10.2/EX10_10_2.sce
new file mode 100755
index 000000000..0401fd99d
--- /dev/null
+++ b/2321/CH10/EX10.10.2/EX10_10_2.sce
@@ -0,0 +1,21 @@
+//Example No. 10.10.2

+clc;

+clear;

+close;

+format('v',7);

+tau=0.895;//scale factor

+sigma=0.166;//(spacing factor)

+fU=30;//MHz(Upper frequency)

+fL=10;//MHz(Lower frequency)

+c=3*10^8;//m/s(Speed of light)

+lambdaU=c/(fU*10^6);//m(Upper wavelength)

+lambdaL=c/(fL*10^6);//m(Lower wavelength)

+l1=lambdaU/2;//m(Length of shortest element)

+disp(l1,"Length of shortest element, l1 in meter is  : ");

+l2=l1/tau;l3=l2/tau;l4=l3/tau;l4=l3/tau;l5=l4/tau;l6=l5/tau;l7=l6/tau;l8=l7/tau;l9=l8/tau;l10=l9/tau;l11=l10/tau;//m(Length of element)

+disp(l11,l10,l9,l8,l7,l6,l5,l4,l3,l2,"Other elements length(m) l2, l3, l4, l5, l6, l7, l8, l9, l10, l11 are : ");

+alfa=17.97;//degree(angle)

+R1=(l1/2)/tand(alfa/2);//m(Spacing between elements)

+R2=R1/tau;R3=R2/tau;R4=R3/tau;R4=R3/tau;R5=R4/tau;R6=R5/tau;R7=R6/tau;R8=R7/tau;R9=R8/tau;R10=R9/tau;R11=R10/tau;//m

+disp(R11,R10,R9,R8,R7,R6,R5,R4,R3,R2,R1,"Spacing between elements in meter R1, R2, R3, R4, R5, R6, R7, R8,R9, R10, R11 are : ");

+//Answer is not accurate in the book.

diff --git a/2321/CH10/EX10.5.1/EX10_5_1.sce b/2321/CH10/EX10.5.1/EX10_5_1.sce
new file mode 100755
index 000000000..496f88302
--- /dev/null
+++ b/2321/CH10/EX10.5.1/EX10_5_1.sce
@@ -0,0 +1,29 @@
+//Example No. 10.5.1

+clc;

+clear;

+close;

+format('v',6);

+N=5;//no. of turns

+f=400;//MHz(Frequency)

+c=3*10^8;//m/s(Speed of light)

+lambda=c/(f*10^6);//m(Wavelength)

+disp("Part (i)");

+S=lambda/50;//m(Spacing between turns)

+S_BY_lambda=1/50;//(Spacing/wavelength)

+C_BY_lambda=sqrt(2*S_BY_lambda);//(Circumference/wavelength)

+disp("Circumference is "+string(C_BY_lambda)+"*lambda");

+C=sqrt(2*lambda*S);//m(Circumference)

+disp(C,"Circumference in meter : ");

+disp("Part (ii)");

+Lo_BY_lambda=sqrt(S_BY_lambda^2+C_BY_lambda^2);//(Length/wavelength)

+disp("Length of single turn is "+string(Lo_BY_lambda)+"*lambda");

+Lo=sqrt(S^2+C^2);//m(Length of single turn)

+disp(Lo,"Length of single turn in meter : ");

+disp("Part (iii)");

+Ln_BY_lambda=N*Lo_BY_lambda;//(Overall length/wavelength)

+disp("Overall Length is "+string(Ln_BY_lambda)+"*lambda");

+Ln=N*Lo;//m(Overall length)

+disp(Ln,"Overall Length in meter : ");

+disp("Part (iv)");

+alfa=atand(S/C);//degree(Pitch angle)

+disp(alfa,"Pitch angle, α in degree : ");

diff --git a/2321/CH10/EX10.5.2/EX10_5_2.sce b/2321/CH10/EX10.5.2/EX10_5_2.sce
new file mode 100755
index 000000000..907733742
--- /dev/null
+++ b/2321/CH10/EX10.5.2/EX10_5_2.sce
@@ -0,0 +1,49 @@
+//Example No. 10.5.2

+clc;

+clear;

+close;

+format('v',6);

+N=5;//no. of turns

+f=300;//MHz(Frequency)

+c=3*10^8;//m/s(speed of light)

+disp("Part (i)");

+lambda=c/(f*10^6);//m(Wavelength)

+C_BY_lambda=1;//(Circumference/wavelength)

+disp("Near optimum circumference is "+string(C_BY_lambda)+"*lambda");

+C=lambda;//m(Circumference)

+disp(C,"Near optimum circumference in meter : ");

+disp("Part (ii)");

+alfa=14;//degree//(Pitch angle)//for near optimum

+S_BY_lambda=C_BY_lambda*tand(alfa);

+disp("Spacing is "+string(S_BY_lambda)+"*lambda");

+S=C*tand(alfa);//m(Spacing)

+disp(S,"Spacing in meter : ");

+disp("Part (iii)");

+Rin=140*C/lambda;//Ω(Input impedence)

+disp(Rin,"Input impedence in Ω : ");

+disp("Part (iv)");

+HPBW=52/(C/lambda*sqrt(N*S/lambda));//degree(HPBW)

+disp(HPBW,"HPBW in degree : ");

+disp("Part (v)");

+FNBW=115/(C/lambda*sqrt(N*S/lambda));//degree(FNBW)

+disp(FNBW,"FNBW in degree : ");

+disp("Part (vi)");

+Do=15*(C/lambda)^2*N*(S/lambda);//unitless////Directivity

+disp(Do,"Directivity(unitless) : ");

+Do_dB=10*log10(Do);//dB(Directivity)

+disp(Do_dB,"Directivity in dB : ");

+disp("Part (vii)");

+AR=(2*N+1)/2/N;//axial ratio

+disp(AR,"Axial ratio : ");

+disp("Part (viii)");

+Rin=140*(C/lambda);//Ω(Input impedence)

+//50 Ω line

+Zo=50;//Ω(Output impedence)

+Tau=(Rin-Zo)/(Rin+Zo);//Scaling factor

+VSWR=(1+Tau)/(1-Tau);//(VSWR)

+disp(VSWR,"VSWR for 50Ω line : ");

+//75 Ω line

+Zo=75;//Ω(Output impedence)

+Tau=(Rin-Zo)/(Rin+Zo);//Scaling factor

+VSWR=(1+Tau)/(1-Tau);//(VSWR)

+disp(VSWR,"VSWR for 75Ω line : ");

diff --git a/2321/CH10/EX10.5.3/EX10_5_3.sce b/2321/CH10/EX10.5.3/EX10_5_3.sce
new file mode 100755
index 000000000..f0d16fffb
--- /dev/null
+++ b/2321/CH10/EX10.5.3/EX10_5_3.sce
@@ -0,0 +1,42 @@
+//Example No. 10.5.3

+clc;

+clear;

+close;

+format('v',6);

+HPBW=39;//degree(HPBW)

+alfa=12.5;//degree(Pitch angle)

+f=475;//MHz(Frequency)

+c=3*10^8;//m/s(Speed of light)

+lambda=c/(f*10^6);//m(Wavelength)

+C=lambda;//m(Circumference)

+disp("Part (i)");

+//it is in axial mode as 3/4*lambda<C<4/3*lambda

+S=C*tand(alfa);//meter(Spacing)

+N=52^2/HPBW^2/(S/lambda)/(C/lambda)^2;//turns

+disp(round(N),"Number of turns : ");

+disp("Part (ii)");

+N=round(N);//turns

+Do=15*(C/lambda)^2*N*(S/lambda);//unitless(Directivity)

+Do_dB=10*log10(Do);//dB(Directivity)

+disp(Do_dB,"Directivity in decibels : ");

+disp("Part (iii)");

+AR=(2*N+1)/2/N;//axial ratio

+disp(AR,"Axial ratio : ");

+disp("Part (iv)");

+//3/4*lambda<C<4/3*lambda

+lambda1=C/(3/4);//meter(Wavelength)

+lambda2=C/(4/3);//meter(Wavelength)

+f1=c/lambda1;//Hz(Frequency)

+f2=c/lambda2;//Hz(Frequency)

+disp("Frequency range is "+string(f1/10^6)+" MHz to "+string(f2/10^6)+" MHz.")

+disp("Part (v)");

+//At  design frequency

+Rin=140*C/lambda;//Ω(Input impedence)

+disp(Rin,"At design frequency, Input impedence in Ω is : ");

+//3/4*lambda<C<4/3*lambda

+//At high frequency end

+Rin=140*C/lambda2;//Ω(Input impedence)

+disp(Rin,"At high frequency end, Input impedence in Ω is : ");

+//At low frequency end

+Rin=140*C/lambda1;//Ω(Input impedence)

+disp(Rin,"At low frequency end, Input impedence in Ω is : ");

diff --git a/2321/CH10/EX10.5.4/EX10_5_4.sce b/2321/CH10/EX10.5.4/EX10_5_4.sce
new file mode 100755
index 000000000..e6b0fd840
--- /dev/null
+++ b/2321/CH10/EX10.5.4/EX10_5_4.sce
@@ -0,0 +1,24 @@
+//Example No. 10.5.4

+clc;

+clear;

+close;

+format('v',6);

+Do_dB=14;//dB(Directivity)

+f=2.4;//GHz(Frequency)

+c=3*10^8;//m/s(Speed of light)

+lambda=c/(f*10^6);//m(Wavelength)

+Do=10^(Do_dB/10);//unitless(Directivity)

+C=lambda;//m////for optimum result(Circumference)

+alfa=14;//degree;////for optimum result(Pitch angle)

+S=C*tand(alfa);//m(Spacing)

+N=Do/15/(C/lambda)^2/(S/lambda);//turns

+N=round(N);//turns

+Rin=140*C/lambda;//Ω(Input impedence)

+disp(Rin,"Input impedence in Ω is : ");

+HPBW=52/(C/lambda*sqrt(N*S/lambda));//degree

+disp(HPBW,"HPBW in degree : ");

+format('v',4);

+FNBW=115/(C/lambda*sqrt(N*S/lambda));//degree

+disp(FNBW,"FNBW in degree : ");

+AR=(2*N+1)/2/N;//(Axial ratio)

+disp(AR,"Axial ratio : ");

diff --git a/2321/CH10/EX10.8.1/EX10_8_1.sce b/2321/CH10/EX10.8.1/EX10_8_1.sce
new file mode 100755
index 000000000..97a1040bd
--- /dev/null
+++ b/2321/CH10/EX10.8.1/EX10_8_1.sce
@@ -0,0 +1,22 @@
+//Example No. 10.8.1

+clc;

+clear;

+close;

+format('v',8);

+f=10;//MHz(Frequency)

+c=3*10^8;//m/s(Speed of light)

+lambda=c/(f*10^6);//m(Wavelength)

+d0=10^-3*lambda;//m(spacing)

+Lo=1*lambda;//m(Length)

+fi=%pi;fi0=0;//radian

+r0=d0/2;//m

+disp("Part (i)");

+//R=r0*exp(a*fi-a*fi0);//m

+//a=sqrt(1/Lo^2/(R-r0)^2-1);//per adian

+a=1.166;//rad^-1(by above equation)

+disp(a,"Rate of spiral in rad^-1 : ");

+R_BY_lambda=r0/lambda*exp(a*2*%pi);//m(Radius/wavelength)

+disp("Radius of terminal point is "+string(R_BY_lambda)+"*lambda");

+disp("Part (ii)");

+R=r0*exp(a*2*%pi);//m(Radius)

+disp(R,"Radius at terminal point in meter : ");

diff --git a/2321/CH10/EX10.8.2/EX10_8_2.sce b/2321/CH10/EX10.8.2/EX10_8_2.sce
new file mode 100755
index 000000000..b3bcb5551
--- /dev/null
+++ b/2321/CH10/EX10.8.2/EX10_8_2.sce
@@ -0,0 +1,22 @@
+//Example No. 10.8.2

+clc;

+clear;

+close;

+format('v',5);

+fU=900;//MHz(Upper frequency)

+fL=450;//MHz(Lower frequency)

+c=3*10^8;//m/s(Speed of light)

+lambdaU=c/(fU*10^6);//m(Upper wavelength)

+lambdaL=c/(fL*10^6);//m(Lower wavelength)

+Exp_ratio=4;//expansion ratio

+a=log(Exp_ratio)/(2*%pi);//rad^-1////rate of spiral

+Beta=atand(1/a);//degree

+r0=lambdaU/4;//meter////minimum radius

+disp(r0*100,"Minimum radius in cm : ");

+R=lambdaL/4;//meter////minimum radius

+disp(R*100,"Maximum radius in cm : ");

+fi_m=log(R/r0)/a;//radian

+fi_m=fi_m*180/%pi;//degree

+disp(fi_m,"Φm in degree is ");

+N=1/2;//for Φm=180;//degree

+disp(N,"Number of turns, N is  ");