: ////////////// MUTUAL ////////////// : :  ,"":  ,"":X1:X24:Y1:Y2: @ : ,f ,: " MUTUAL IMPEDANCE ": ,: " BETWEEN TWO DIPOLES OF " : ,: " ANY LENGTH AND SEPERATION ": ,l(:2: MAY 28, 86<: AHMAD FAIZAL MOHD ZAINF:PPIIZ " :MAIN PROGd:n: SUBROUTINE TO GET SI(X) AND CI(X)x:+: INPUT XG: OUTPUT SI,CI,CINO:X1X: X2XX: X3X2X: X4X3X: X5X4X: X6X5X: X7X6X X SIXX3X5XX7  X "CI(X) UNDEFINED FOR X=0 ": CIh(X)X2X4`X6 HFX((X4gX21)(X4X2 e))X|GX((X4qX2r3H)(X41KX2{))X2SIPIFX(X)GX(X)CIFX(X)GX(X)CIN(X)hCI:":MAIN PROGRAM6:@ ,+T "LENGTH OF DIPOLE IN TERMS OF LAMBDA ";Hd^ "SEPERATION BETWEEN DIPOLES IN TERMS OF LAMBDA ";D` D H R21[B:X21-*: fhU0PIDrU1PI((DDHH)H)|V1PI((DDHH)H)XU0: n:SIU0SI:CIU0CIXU1: n:SIU1SI:CIU1CI7XV1: n:SIV1SI:CIV1CItR21(CIU0CIU1CIV1) :REAL PART OF MUTUAL IMPX21(SIU0SIU1SIV1) :IMAG PART OF MUTUAL IMP f:COLLINEAR"LENGTH OF DIPOLES IN TERMS OF LAMBDA ";H3"SEPERATION BETWEEN DIPOLES IN TERMS OF LAMBDA ";DEV0PI(HD)YV1PI(HD)gV2PIDV3((HD)(HD)HH)((HD)(HD))CV0(V0):SV0(V0)XV0: n:SI2V0SI:CI2V0CIXV1: n:SIV1SI:CIV1CI &XV2: n:SIV2SI:CIV2CI(0XV3: n:SIV3SI:CIV3CIS:AACV0(CI2V0CIV2CIV1(V3))uDBBSV0(SI2V0SIV2SIV1)NR21AABBXCCCV0(SI2V0SIV2S1V1)bDDSV0(CI2V0CIV2CIV1(V3))lX21CCDDv f:ECHELON%"LENGTH OF DIPOLES IN TERMS OF LAMBDA ";HX"SEPERATION OF DIPOLES IN TERMS OF LAMBDA ";D"HEIGHT OF SECOND DIPOLE ABOVE END OF FIRST ";LW0PILW1PI((DDLL)L)W11PI((DDLL)L)W2PI((DD(LH)(LH))(LH))%W22PI((DD(LH)(LH))(LH))MW3PI((DD(HL)(HL))(HL))vW33PI((DD(HL)(HL))(HL))CW0(W0):SW0(W0)XW1: n:SIW1SI:CIW1CIXW11: n:SIW11SI:CIW11CIXW2: n:SIW2SI:CIW2CI XW22: n:SIW22SI:CIW22CI1XW3: n:SIW3SI:CIW3CIS XW33: n:SIW33SI:CIW33CI*AACW0(CIW1CIW11CIW2CIW22CIW3CIW33)4BBSW0(SIW1SIW11SIW2SIW22SIW3SIW33)>CCCW0(SIW1SIW11SIW2SIW22SIW3SIW33)*HDDSW0(CIW1CIW11CIW2CIW22CIW3CIW33)8RR21AABBF\X21CCDDof X21 SIGN$" -j" : SIGN$" +j"wp:z  , "MUTUAL IMPEDANCE BETWEEN THE DIPOLES IS ###.###";R21;: SIGN$;: "###.###";(X21)0 ,: ,: "R - Run Again E - End S - Start Program ";();: ,:AN$V AN$"R" AN$"r" y AN$"E" AN$"e" ,: AN$"S" AN$"s" "START :Y ,,: , : ,: , : "Key: Esc to End or `R' to Run Again or `S' to Return Start";();: ,: ,: "Esc";: ,: "R";: ,2: "S";();: ,E$: E$""  : E$() : : E$"R" E$"r" : E$"S" E$"s" "START  @://////////////// Routine to Draw a Box ////////////////// J Y1,X1: (X2X1,"");: Y1,X1: "";: Y1,X2: "";: I Y1 Y2: I,X1: "";: I,X2: "";:: Y2,X1: "";: Y2,X1 T (X2X1,"");: Y2,X2: "";:  ,,: ,: ,: "Fault Detected";();: ,