1 files changed, 30 insertions, 0 deletions
diff --git a/2409/CH6/EX6.2/Ex6_2.sce b/2409/CH6/EX6.2/Ex6_2.sce
new file mode 100755
index 000000000..7220c9c56
--- /dev/null
+++ b/2409/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,30 @@
+
+//Varable Declaration
+
+N=5   //Number of elements of dipole
+s=0.25 //Space between dipole elements(wavelengths)
+phi0=0//Angle between array factor and array(degrees)
+
+//Calculation
+
+alpha=-2*3.142*s*cos(phi0)  //Current phase(radians)
+phi= -180:2:182
+for k = 1:180
+    Si(k)=alpha+2*3.142*s*cos(phi(k)*3.142/180)
+end;    
+AFR=linspace(0,0,181)
+AFI=linspace(0,0,181)
+for i = 1:180
+  for j = 1:N-1
+     AFR(i)=AFR(i)+cos(j*Si(i))  //Real part of Array factor
+     AFI(i)=AFI(i)+sin(j*Si(i))//Imaginary part of Array factor
+end
+end
+
+teta= linspace(-3.142,3.142,181)
+for k = 1:length(teta)
+   AF(k)=(AFR(k)**2+AFI(k)**2)**0.5
+end
+//Result
+polarplot(teta,AF)
+