://////////// YAGI //////////////// : :  ,"":  ,"" ,:"F1 = Change director spacing and reactance F10 = QUIT"6(T$"3-ELEMENT YAGI ARRAY DESIGN":L: @2::b<: MAY 22, 86F: AHMAD FAIZAL MOHD ZAINP:Z LOGTEN(X)(X)( )d RZ(,),XZ(,)n XX(),YY()x D(),ZR(),ZX():  :MAIN PROG:E: OPERN IS TYPE OF OPERATION`: OPERN=1 IS ADDN: OPERN=2 IS SUBTRACTION: OPERN=3 IS MULTIPLICATION:: SUBROUTINE TO CONVERT RECTANGULAR TO POLAR COORD : PARAMETERS INPUTS X,Y>: PARAMETERS OUTPUT Z,TH (TH IN RADIANS)V: TH IN RADIANS^:Z(XXYY) :MAGNITUDE X TH(YX) X THPI(Y)(YX)" X TH(PI)(Y), Y X THPI6@:8J: SUBROUTINE TO CONVERT POLAR TO RECTANGULARYT: PARAMETER INPUTS Z,THy^: PARAMETER OUTPUT X,Yh:rXZ(TH)|YZ(TH):: SUBROUTINE TO ADD TWO VECTORS IN POLAR FORM: INPUTS Z1,Z2,TH1,TH2: OUTPUT X,Y:bZZ1:THTH1: J:X1X:Y1Y :TAKES CARE OF FIRST VECTORZZ2:THTH2: J:X2X:Y2Y :-------------SECOND ------- OPERN  :SUBTRACTXX1X2:YY1Y2:  :ADDXX1X2:YY1Y2K :RETURNS X,YS:: SUBROUTINE TO MULT/DIVIDE TWO VECTORS: INPUT X1,X2,Y1,Y2: OUTPUT Z,TH&:0XX1:YY1:  :RECT TO POLAR:Z1Z:TH1TH DXX2:YY2: NZ2Z:TH2THAX OPERN l :DIVIDE_bZZ1Z2:THTH1TH2: vvlZZ1Z2:THTH1TH2|v::MAIN PROG STARTS HERE : ,:"F1 = Change director spacing and reactance F10 = QUIT"0T$"3-ELEMENT YAGI ARRAY DESIGN":L: :::ZRZ(,)ZR():XZ(,)ZX()zRZ(,)ZR():XZ(,)ZX()RZ(,)ZR():XZ(,)ZX()"SEPERATION BETWEEN REFLECTOR AND DRIVER (IN LAMBDA) ";SR"SEPERATION BETWEEN DIRECTOR AND DRIVER (IN LAMBDA) ";SD! 4M  ,: "DIRECTOR SPACING = ";] ,: SD  ,(: "DIRECTOR REACTANCE = ";* ,=: XZ(,)4MRdSR:MDdSD :TO GET OFFSET>MRDMRMDH:R\ ,: "DIRECTOR SPACING = ##.## ";SDLf ,(: "DIRECTOR REACTANCE = ###.## ";XZ(,)Tp:z XZ(,) SIGN$" -j" : SIGN$" +j" "SELF-IMPEDANCE OF DIRECTOR :###.##";ZR();: SIGN$;: "###.##";(XZ(,))RZ(,)ZR(MR):XZ(,)ZX(MR)RZ(,)ZR(MRD):XZ(,)ZX(MRD)>RZ(,)ZR(MD):XZ(,)ZX(MD)D:j: FIND DRIVING POINT IMPEDANCEX1RZ(,):Y1XZ(,)X2RZ(,):Y2XZ(,)OPERN:  :Z(1,3)*Z(1,2)ZTEM1Z:THTEM1TH :TEMPORARY STOREX1RZ(,):Y1XZ(,)4X2RZ(,):Y2XZ(,)YOPERN:  :Z11*Z23}Z1ZTEM1:TH1THTEM1:Z2Z:TH2THOPERN:  :Z13*Z12 - Z11*Z23XTEMX:YTEMY$X1RZ(,):Y1XZ(,).X2RZ(,):Y2XZ(,)8OPERN:  :Z13*Z13-BZTEM1Z:THTEM1THGLX1RZ(,):Y1XZ(,)aVX2RZ(,):Y2XZ(,)`OPERN:  :Z11*Z33jZ1ZTEM1:TH1THTEM1:Z2Z:TH2THtOPERN:  :Z13*Z13 - Z11*Z33~X1XTEM:Y1YTEM:X2X:Y2Y9 OPERN:  : (Z31*Z12-Z11*Z32)/(Z13*Z13-Z11*Z33)I AZZ:ATHTHi MAGI3BY2AZ:ANGI3BY2PIATH XRZ(,):YXZ(,): :Z1Z:TH1TH Z2AZ:TH2ATH:OPERN: X : Z13*AZ  J:X1X:Y1Y X2RZ(,):Y2XZ(,)!OPERN: :X1X:Y1Y :Z13*AZ-Z12G!X2RZ(,):Y2XZ(,):OPERN: b!MAGI1BY2Z:ANGI1BY2THv! J:X1X:Y1Y!X2RZ(,):Y2XZ(,)!OPERN: : J! BXX:BYY!ZAZ:THATH: J:X1X:Y1Y!X2RZ(,):Y2XZ(,)"(OPERN: : J:CXX:CYY,"2DXRZ(,):DYXZ(,)J"<ZDRBXDXCX:ZDXBYDYCYs"F ZDX SIGN$" -j" : SIGN$" +j""P "DRIVING POINT IMPEDANCE : ###.##";ZDR;: SIGN$;: "###.##";(ZDX)"Z:"d:"nTH1ANGI3BY2PISD: Z1MAGI3BY2#xTH2ANGI1BY2PISR: Z2MAGI1BY2.#OPERN: H#EFRONTXX:EFRONTYYn#TH1ANGI3BY2PISD: Z1MAGI3BY2#TH2ANGI1BY2PISR: Z2MAGI1BY2#OPERN: #EBACKXX:EBACKYY#X1EFRONTX:Y1EFRONTY#X2EBACKX:Y2EBACKY$OPERN: $MAGEFTOBZ@$ "FRONT TO BACK RATIO = ##.###";MAGEFTOBq$ "BACK TO FRONT RATIO = ##.###";MAGEFTOB{$JJ$XX(J)MAGEFTOB:YY(J)XZ(,)$: CALCULATE GAIN ETC$MAGEFRONT(EFRONTXEFRONTXEFRONTYEFRONTY)(%"MAGEBACK(EBACKXEBACKXEBACKYEBACKY)I%,POWERMAGEFRONTMAGEFRONTk%6POWERBCKMAGEBACKMAGEBACK}%@WATTRADZDR%JDPOWERWATTRAD%TDBACKPOWERBCKWATTRAD%^:&h "DIRECTIVITY (FRONT)= ###.##";D;: " OR ###.##"; LOGTEN(D);:" dB"^&r "DIRECTIVITY (BACK) = ###.##";DBACK;: " OR ###.##"; LOGTEN(DBACK);:" dB"g&|A$}& (A$) |&ANS((A$,,))& ANS;  & ANSD & |&:'T$"DO YOU WANT TO RUN THIS PROGRAM AGAIN (Y/N)? ":L: 'AN$8' AN$"Y" AN$"y" T' AN$"N" AN$"n" ^' d':' L,(P(T$)): T$: :SUBROUTINE TO CENTRE TEXT'' 05/22/86 AHMAD FAIZAL MOHD ZAIN'PII'&::'0 I (: D(I),ZR(I),ZX(I)(D I(N%(X:\(b ZEROTH-ORDER MUTUAL IMPEDANCE BETWEEN PARALLEL,(l SIDE-BY-SIDE, HALF-WAVE DIPOLE(v:( 0.0, 73.1296, 42.5445( .01, 73.0903, 38.8086( .02, 72.9246, 35.1090( .03, 72.6347, 31.4521) .04, 72.2232, 27.8467):7) .05, 71.6917, 24.2932S) .06, 71.0431, 20.7999o) .07, 70.2800, 17.3723) .08, 69.4058, 14.0181) .09, 68.4223, 10.7371) .10, 67.3336, 7.5383) .11, 66.1719, 4.4274) .12, 64.8997, 1.4039*  .13, 63.5223, -1.52810* .14, 62.0465, -4.36226* :R** .15, 60.4753, -7.0992n*4 .16, 58.8152, -9.7331*> .17, 57.0716, -12.2608*H .18, 55.2514, -14.6774*R .19, 53.3572, -16.9839*\:*f .20, 51.3967, -19.1747+p .21, 49.3797, -21.2491"+z .22, 47.3045, -23.2050?+ .23, 45.1764, -25.0407\+ .24, 43.0023, -26.7536b+:+ .25, 40.7842, -28.3450+ .26, 38.5292, -29.8126+ .27, 36.2428, -31.1558+ .28, 33.9325, -32.3732+ .29, 31.6002, -33.4663+:, .30, 29.2551, -34.43363, .31, 26.8992, -35.2747P, .32, 24.5401, -35.9916m, .33, 22.1832, -36.5854, .34, 19.8358, -37.0571, :, .35, 17.5000, -37.4087,$ .36, 15.1829, -37.6416,. .37, 12.8898, -37.7579-8 .38, 10.6278, -37.7597 -B .39, 8.3985, -37.6493&-L :B-V .40, 6.2100, -37.4296^-` .41, 4.0667, -37.1015z-j .42, 1.9724, -36.6699-t .43, -0.0687, -36.1382-~ .44, -2.0509, -35.5106- :- .45, -3.9731, -34.7899- .46, -5.8299, -33.9805. .47, -7.6178, -33.0864.. .48, -9.3320, -32.1128L. .49, -10.9718, -31.0624R. :p. .50, -12.5321, -29.9413. .51, -14.0105, -28.7513. .52, -15.4049, -27.4993. .53, -16.7132, -26.1904. .54, -17.9325, -24.8309. : / .55, -19.0631, -23.4237*/ .56, -20.1024, -21.9750H/ .57, -21.0492, -20.4901f/( .58, -21.9020, -18.9754/2 .59, -22.6613, -17.4340/< :/F .60, -23.3256, -15.8729/P .61, -23.8922, -14.2970/Z .62, -24.3642, -12.71090d .63, -24.7424, -11.11980n .64, -25.0274, -9.5299%0x :B0 .65, -25.2206, -7.9438_0 .66, -25.3233, -6.3674|0 .67, -25.3369, -4.80550 .68, -25.2634, -3.26400 .69, -25.1045, -1.74500 :0 .70, -24.8626, -0.25480 .71, -24.5389, 1.20231 .72, -24.1371, 2.6231-1 .73, -23.6602, 4.0039I1 .74, -23.1116, 5.3397O1 :k1 .75, -22.4936, 6.62931 .76, -21.8100, 7.86831 .77, -21.0642, 9.05351 .78, -20.2606, 10.18131" .79, -19.4016, 11.25061, :26 .80, -18.4922, 12.25742@ .81, -17.5345, 13.1984:2J .82, -16.5337, 14.0734W2T .83, -15.4941, 14.8807t2^ .84, -14.4207, 15.6184z2h :2r .85, -13.3162, 16.28642| .86, -12.1855, 16.88322 .87, -11.0330, 17.40792 .88, -9.8640, 17.8597 3 .89, -8.6809, 18.23913 :+3 .90, -7.4896, 18.5454G3 .91, -6.2939, 18.7768c3 .92, -5.0977, 18.93603 .93, -3.9052, 19.02383 .94, -2.7212, 19.04093 :3 .95, -1.5478, 18.98873 .96, -0.3900, 18.86863 .97, 0.7486, 18.68194 .98, 1.8635, 18.4307*4 .99, 2.9528, 18.116604 :L4& 1.00, 4.0116, 17.7420h40 1.01, 5.0360, 17.30734: 1.02, 6.0244, 16.81674D 1.03, 6.9738, 16.27284N 1.04, 7.8808, 15.67884X :4b 1.05, 8.7444, 15.03684l 1.06, 9.5616, 14.35025v 1.07, 10.3300, 13.622245 1.08, 11.0473, 12.8566Q5 1.09, 11.7126, 12.0554W5 :t5 1.10, 12.3236, 11.22335 1.11, 12.8772, 10.36245 1.12, 13.3742, 9.47695 1.13, 13.8139, 8.57035 1.14, 14.1952, 7.64695 :6 1.15, 14.5182, 6.7088#6 1.16, 14.7824, 5.7604?6 1.17, 14.9876, 4.8051[6 1.18, 15.1339, 3.8473w6 1.19, 15.2219, 2.8891}6 :6 1.20, 15.2518, 1.93516 1.21, 15.2224, 0.98866* 1.22, 15.1367, 0.052764 1.23, 14.9957, -0.8697 7> 1.24, 14.8009, -1.77477H :.7R 1.25, 14.5535, -2.6605K7\ 1.26, 14.2553, -3.5237h7f 1.27, 13.9081, -4.36127p 1.28, 13.5141, -5.17007z 1.29, 13.0748, -5.94857 :7 1.30, 12.5930, -6.69307 1.31, 12.0693, -7.40087 1.32, 11.5076, -8.07088 1.33, 10.9104, -8.701298 1.34, 10.2808, -9.2899?8 :[8 1.35, 9.6207, -9.8361x8 1.36, 8.9333, -10.33798 1.37, 8.2216, -10.79418 1.38, 7.4890, -11.20338 1.39, 6.7374, -11.5652|9 ,,: , : ,: , : "Key: Esc to End or `R' to Run Again or `S' to Return Start";();: ,: ,: "Esc";: ,: "R";: ,2: "S";();: ,9E$: E$""  : E$() : : E$"R" E$"r" : E$"S" E$"s" "START9 ,:://////////////// Routine to Draw a Box //////////////////: Y1,X1: (X2X1,"");: Y1,X1: "";: Y1,X2: "";: I Y1 Y2: I,X1: "";: I,X2: "";:: Y2,X1: "";: Y2,X1: (X2X1,"");: Y2,X2: "";:; ,,: ,: ,: "Fault Detected";();: ,;