:///////////// TAYLOR ////////////// : :  TAYLOR LINE SOURCE [FROM DR. FERRARO]  A(),Y(),F(),YY(),W(),I()L(" TAYLOR LINE SOURCE SYNTHESIS"::n2 ARCOSH(X)(X(XX))< LOGTEN(X)(X)( )FYMAX:YMIN(PPIIZ "NUMBER OF EQUAL SIDELOBES ";NBd"S.L.L (dB) ";RRn"Aperture length ";L5xR (RR): CHANGE FROM DB TO RATIONA(PI) ARCOSH(R)SNB(A(NB)): S ==> SIGMA EQN 10-76J"n a(n) wn" NNB NBXNB CPCCXNBN DPXNBN& .EP<FC(DE)D"PU, M NBr6XMS(A(M))@PP((NXM))J MTSAFP^A(J)SAhW(J)NLr:IF N N NBoH SUMSUMA(NNB)(PINSL)yR N\ I(I)(SUM)Lf Y(I)(I(I))p Y(I)YMAX YMAXY(I)z Y(I)YMIN YMINY(I) II S4 ,:" TYPE RETURN TO CONTINUE...";: WD : ~W ,K:" "a g: set up screen : K C  : ,K:"+": K K  : K,C:"-": K (4,)(,),, (,)(,) :  (,Y()):$ (,YMIN)(,YMAX)I. X [8 (X,Y(X))cB XL ,:"MAGNITUDE OF SYNTHESISED PATTERN"V K  : K,D: "###.##";(YMAXYMIN)(K): K` ,:"180": ,%:"90": ,C:"0"jt:)~: MAY 29, 1986O: RECTANGULAR PLOT OF DATA ,:"MAGNITUDE OF CURRENT DISTRIBUTION": (,YMIN)(I,YMAX): (,Y()) X I (X,Y(X)) X K  : K,D: "##.##";(K)YMAX: KF ,:L: ,%:"0 ": ,B: LL ,:"TYPE TO CONTINUE...";: W: , "I'm doing some calculation. Please wait..."T$"DO YOU WANT TO RUN THIS PROGRAM AGAIN (Y/N)? ":LC: Z(AN$$2 AN$"Y" AN$"y" @< AN$"N" AN$"n" JF PP:Z LC,(P(T$)): T$: :SUBROUTINE TO CENTRE TEXT=  ,,: , : ,: , : "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 //////////////////s!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";();: ,!