summaryrefslogtreecommitdiff
path: root/2321/CH6
diff options
context:
space:
mode:
Diffstat (limited to '2321/CH6')
-rwxr-xr-x2321/CH6/EX6.10.1/EX6_10_1.sce16
-rwxr-xr-x2321/CH6/EX6.10.2/EX6_10_2.sce25
-rwxr-xr-x2321/CH6/EX6.14.1/EX6_14_1.sce21
-rwxr-xr-x2321/CH6/EX6.2.1/EX6_2_1.sce15
-rwxr-xr-x2321/CH6/EX6.2.2/EX6_2_2.sce16
-rwxr-xr-x2321/CH6/EX6.2.3/EX6_2_3.sce15
-rwxr-xr-x2321/CH6/EX6.6.1/EX6_6_1.sce12
-rwxr-xr-x2321/CH6/EX6.6.2/EX6_6_2.sce34
-rwxr-xr-x2321/CH6/EX6.8.1/EX6_8_1.sce33
-rwxr-xr-x2321/CH6/EX6.8.2/EX6_8_2.sce10
10 files changed, 197 insertions, 0 deletions
diff --git a/2321/CH6/EX6.10.1/EX6_10_1.sce b/2321/CH6/EX6.10.1/EX6_10_1.sce
new file mode 100755
index 000000000..3fa2ab27e
--- /dev/null
+++ b/2321/CH6/EX6.10.1/EX6_10_1.sce
@@ -0,0 +1,16 @@
+//Example No. 6.10.1
+clc;
+clear;
+close;
+format('v',6);
+n=10;//no. of elements
+//d=lambda/4;(spacing)
+dBYlambda=1/4;///(Spacing/wavelength)
+//Broadside array
+D=2*n*dBYlambda;//unitless(Directivity)
+D=10*log10(D);//dB(Directivity)
+disp(D,"Directivity for broadside array in dB : ");
+//Endfire array
+D=4*n*dBYlambda;//unitless(Directivity)
+D=10*log10(D);//dB(Directivity)
+disp(D,"Directivity for Ordinary endfire array in dB : ");
diff --git a/2321/CH6/EX6.10.2/EX6_10_2.sce b/2321/CH6/EX6.10.2/EX6_10_2.sce
new file mode 100755
index 000000000..765355076
--- /dev/null
+++ b/2321/CH6/EX6.10.2/EX6_10_2.sce
@@ -0,0 +1,25 @@
+//Example No. 6.10.2
+clc;
+clear;
+close;
+format('v',6);
+D=20;//dB(Directivity)
+//d=lambda/4;(spacing)
+dBYlambda=1/4;//(spacing/wavelength)
+D=10^(D/10);//unitless(Directivity)
+n=D/4/dBYlambda;//no. of elements
+disp(n,"(i) No. of elements : ");
+LBYlambda=(n-1)*dBYlambda;//(length/wavelength)
+disp("(ii) Length of the array is "+string(LBYlambda)+"*lambda");
+HPBW=2*acosd(1-1.391/%pi/n/dBYlambda);//degree(HPBW)
+disp(HPBW,"(iii) HPBW in degree : ");
+SLL=-13.46;//dB(Side lobe level)
+disp(SLL,"(iv) SLL in dB : ");
+Beta_into_lambda=2*%pi;//(temorary calculatuion)
+//alfa=-Beta*d;//for theta=0
+//alfa=Beta*d;//for theta=180
+alfa1=-Beta_into_lambda*dBYlambda;//radian////for theta=0
+alfa1=alfa1*180/%pi;//degree(angle)
+alfa2=Beta_into_lambda*dBYlambda;//radian////for theta=180
+alfa2=alfa2*180/%pi;//degree(angle)
+disp(alfa2,alfa1,"(v) Progressive phase shift, α for theta equals to 0° & 180° are : ");
diff --git a/2321/CH6/EX6.14.1/EX6_14_1.sce b/2321/CH6/EX6.14.1/EX6_14_1.sce
new file mode 100755
index 000000000..2cd8d71c4
--- /dev/null
+++ b/2321/CH6/EX6.14.1/EX6_14_1.sce
@@ -0,0 +1,21 @@
+//Example No. 6.14.1
+clc;
+clear;
+close;
+format('v',6);
+SLL=19.1;//dB(Side Lobe Level)
+//d=lambda/2;(spacing)
+dBYlambda=1/2;//(Spacing/wavelength)
+n=4;//(no. of elements)
+r=round(10^(SLL/20));//(ratio of main lobe to side lobe)
+m=n-1;//(degree )
+//T3(x0)=r=4*x0^3-3*x0;
+x0=roots([4 0 -3 -r]);//(Coefficient)
+x0=x0(1);//taking real value(Coefficient)
+//E4(z)=T3(x)=4*x^3-3*x=4*a1*z^3-3*a1*z+a0*z
+//4*a1*z^3=4*x^3 where z^3=(x/x0)^3
+a1=4*x0^3/4;//(Coefficient)
+//a0*z-3*z*a1=-3*x
+a0=(3/x0*a1-3)*x0;//(Coefficient)
+disp(a0,a1,"Coefficients of array polynomial a1 & a0 are : ");
+disp(a0/a1,a1/a1,"Relative current amplitudes are :");
diff --git a/2321/CH6/EX6.2.1/EX6_2_1.sce b/2321/CH6/EX6.2.1/EX6_2_1.sce
new file mode 100755
index 000000000..4128561f9
--- /dev/null
+++ b/2321/CH6/EX6.2.1/EX6_2_1.sce
@@ -0,0 +1,15 @@
+//Example No. 6.2.1
+clc;
+clear;
+close;
+format('v',5);
+n=2;//(No. of point source)
+//E=E0*{exp(%i*%pi/2)-exp(-%i*si/2)} where exp(-%i*si)=-1
+//si=Beta*d*cosd(fi)=2*%pi*cosd(fi)
+//E=2*%i*E0*sind(%pi*cosd(fi)); But 2*%i*E0=1
+fi=[0 30 60 90 120 150 180 210 240 270 300 330];//degree(angle)
+En=sin(%pi*cosd(fi));//Normalized field
+disp("Different values of fi : ");
+disp(string(fi));
+disp("Corresponding normalized field is : ");
+disp(string(abs(En)));
diff --git a/2321/CH6/EX6.2.2/EX6_2_2.sce b/2321/CH6/EX6.2.2/EX6_2_2.sce
new file mode 100755
index 000000000..3c64174f5
--- /dev/null
+++ b/2321/CH6/EX6.2.2/EX6_2_2.sce
@@ -0,0 +1,16 @@
+//Example No. 6.2.2
+clc;
+clear;
+close;
+format('v',5);
+n=2;//(No. of point source)
+//E=E0*{exp(%i*(%pi/4+si/2))-exp(-%i*(%pi/4+si/2))} as exp(%i*theta)+exp(-%i*theta)=2*cos(theta)
+//E=2*E0*cos(%pi/4+si/2);
+//si=Beta*d*cosd(fi)=2*%pi*cosd(fi)
+//En=cos(%pi/4+Beta*d*cosd(%pi/4)); But 2*E0=1
+fi=[0 30 60 90 120 150 180 210 240 270 300 330];//degree(angle)
+En=cos(%pi/4+%pi/4*cosd(fi));//Normalized field
+disp("Different values of fi : ");
+disp(string(fi));
+disp("Corresponding normalized field is : ");
+disp(string(abs(En)));
diff --git a/2321/CH6/EX6.2.3/EX6_2_3.sce b/2321/CH6/EX6.2.3/EX6_2_3.sce
new file mode 100755
index 000000000..242f28a87
--- /dev/null
+++ b/2321/CH6/EX6.2.3/EX6_2_3.sce
@@ -0,0 +1,15 @@
+//Example No. 6.2.3
+clc;
+clear;
+close;
+format('v',5);
+//E=cos(fi)+sin(fi)<si;
+//En=cos(%pi/4+%pi*cosd(fi)) as 2*E0=1
+fi=[0 30 60 90 120 150 180 210 240 270 300 330];//degree(Angle)
+si=%pi/2*(cosd(fi)+1);//(Phase)
+En=cos(%pi/4+%pi*cosd(fi));//Normalized field
+disp("Different values of fi : ");
+disp(string(fi));
+disp("Corresponding normalized field is : ");
+disp(string(abs(En)));
+//Answer in the book is wrong.
diff --git a/2321/CH6/EX6.6.1/EX6_6_1.sce b/2321/CH6/EX6.6.1/EX6_6_1.sce
new file mode 100755
index 000000000..c4a8147e7
--- /dev/null
+++ b/2321/CH6/EX6.6.1/EX6_6_1.sce
@@ -0,0 +1,12 @@
+//Example No. 6.6.1
+clc;
+clear;
+close;
+format('v',5);
+n=80;//(no. of elements)
+N=1;//for first null
+//d=lambda/2;(spacing)
+dBYlambda=1/2;//(spacing/wavelength)
+fi01=acosd(N/n/dBYlambda);//degree(Angle)
+Null_1st=(%pi/2*180/%pi)-fi01;//degree(First Null)
+disp(Null_1st,"Location of 1st null from maxima in degree : ");
diff --git a/2321/CH6/EX6.6.2/EX6_6_2.sce b/2321/CH6/EX6.6.2/EX6_6_2.sce
new file mode 100755
index 000000000..f80b29538
--- /dev/null
+++ b/2321/CH6/EX6.6.2/EX6_6_2.sce
@@ -0,0 +1,34 @@
+//Example 6.6.2
+clc;
+clear;
+close;
+n=4;//(No. of elements)
+//d=lambda/2;(Spacing)
+dBYlambda=1/2;//(Spacing/wavelength)
+alfa=0;//degree(angle)
+N=1;//(For first null)
+disp("Part (i)");
+theta01=[acosd(+N/2) acosd(-N/2)];//degree(Angle)
+N=2;//(For second null)
+theta02=[acosd(+N/2) acosd(-N/2)];//degree(angle)
+//N=3;//not possible as N/2 is greater than 1
+disp(theta01,"Null directions for N=1 : theta01(degree) ");
+disp(theta02,"Null directions for N=2 : theta02(degree) ");
+disp("Part (ii)");
+m=0;//for maxima
+theta_m=acosd(m/dBYlambda);//degree(angle)
+disp(theta_m,"Direction of maxima : theta_m(degree) ");
+disp("Part (iii)");
+S=1;//for side lobe maxima
+//S=2 & onwards not possible
+theta_S=[acosd((2*S+1)/2/n/dBYlambda) acosd(-(2*S+1)/2/n/dBYlambda)];//degree(angle for side lobe)
+disp(theta_S,"Side lobe maxima : theta_S(degree) ");
+disp("Part (iv)");
+HPBW=2*[90-acosd(1.391/%pi/n/dBYlambda)];//degree(HPBW)
+disp(HPBW,"HPBW(degree) ");
+disp("Part (v)");
+FNBW=2*[90-acosd(1/n/dBYlambda)];//degree(FNBW)
+disp(FNBW,"FNBW(degree) ");
+disp("Part (vi)");
+SLL=-13.46;//dB////for isotropic sources array(Side lobe level)
+disp(SLL,"Side lobe level(dB) ");
diff --git a/2321/CH6/EX6.8.1/EX6_8_1.sce b/2321/CH6/EX6.8.1/EX6_8_1.sce
new file mode 100755
index 000000000..ddb7c85e8
--- /dev/null
+++ b/2321/CH6/EX6.8.1/EX6_8_1.sce
@@ -0,0 +1,33 @@
+//Example No. 6.8.1
+clc;
+clear;
+close;
+format('v',5);
+n=4;//(No. of elements)
+//d=lambda/2;(spacing)
+dBYlambda=1/2;//(spacing/wavelength)
+theta=0;//degree(angle)
+//Beta=2*%pi/lambda
+disp("Part (i)");
+Beta_into_lambda=2*%pi;//(Coefficient)
+//alfa=-Beta*d
+alfa=-Beta_into_lambda*dBYlambda;//radian(Progressive phase shift)
+alfa=alfa*180/%pi;//degree(Progressive phase shift)
+disp(alfa,"Progressive phase shift(degree) ");
+disp("Part (ii)");
+N=1:3;//as N=4 is not allowed
+theta01=acosd(1-N(1)/n/dBYlambda);//degree(angle)
+theta02=acosd(1-N(2)/n/dBYlambda);//degree(angle)
+theta03=acosd(1-N(3)/n/dBYlambda);//degree(angle)
+disp(theta03,theta02,theta01,"Null directions, theta01, theta02 & theta03 in degree are : ");
+disp("Part (iii)");
+m=0:1;//as m=2 & onwards is not allowed
+theta0=acosd(1-m(1)/dBYlambda);//degree(angle)
+theta1=acosd(1-m(2)/dBYlambda);//degree(angle)
+disp(theta1,theta0,"Maxima directions, theta0, theta1 in degree are : ");
+disp("Part (iv)");
+FNBW=2*acosd(1-1/n/dBYlambda);//degree(FNBW)
+disp(FNBW,"FNBW in degree : ");
+disp("Part (v)");
+HPBW=2*acosd(1-1.391/n/%pi/dBYlambda);//degree(HPBW)
+disp(HPBW,"HPBW in degree : ");
diff --git a/2321/CH6/EX6.8.2/EX6_8_2.sce b/2321/CH6/EX6.8.2/EX6_8_2.sce
new file mode 100755
index 000000000..a06fa6f9d
--- /dev/null
+++ b/2321/CH6/EX6.8.2/EX6_8_2.sce
@@ -0,0 +1,10 @@
+//Example No. 6.8.2
+clc;
+clear;
+close;
+format('v',6);
+n=16;//no. of point source
+//d=lambda/4;(spacing)
+dBYlambda=1/4;//(Spacing/wavelength)
+HPBW=2*acosd(1-1.391/n/%pi/dBYlambda);//degree(HPBW)
+disp(HPBW,"HPBW in degree : ");
generated by cgit (git 2.34.1) at 2025-03-21 09:28:30 +0000