:////////////// LINPHASE ///////////////// :  :  ,"": MAY 29, 1986( T$"ARRAY FACTOR OF N LINEAR ELEMENTS":LC: p62: AHMAD FAIZAL MOHD ZAIN><:KF: ::XP Y(h)eZPIId LOGTEN(X)(X)( )n F(PSI)((NPSI)(PSI))Nx G(PSI)(NPSI)(PSI) "PHASE SHIFT IN DEGREES";ALP "SEPERATION IN LAMBDA ";D7 "# OF ELEMENTS ";N=: ,:"F10=QUIT =increase phase =decrease phase":ALPRALPPITTALPR(PID) TT THE0:  TT THE0: THE0I(TT(TTTT))%THE0THE0PI@ (~,)(,),,[PSI0ALPRPID()fYMAX , : "NUMBER OF ELEMENTS : ###";N;" ,(: "ELEMENTS SPACING : ##.##";D;:" LAMBDA" , ,: "PROGRESSIVE PHASE SHIFT : ####.##";ALP;:" DEG">6 ,.: "SCAN ANGLE : ####.##";THE0;:" DEG"H@ cJA$: (A$) JyTAN((A$,,))^ ANH ALPALP : h ANP ALPALP : r ANM ALPALP: | ANK ALPALP:  AND 4 J:F , : "NUMBER OF ELEMENTS : ###";N;~ ,(: "ELEMENTS SPACING : ##.##";D;:" LAMBDA" ,: "PROGRESSIVE PHASE SHIFT : ####.##";ALP;:" DEG" ,.: "SCAN ANGLE : ####.##";THE0;:" DEG" :  ,$:"PLEASE WAIT". TH ? XTHPI[ PSIALPRPID(X) (PSI) Y(TH): & Y(TH)( F(PSI)) Y(hTH)Y(TH)& Y(TH)YMAX YMAXY(TH)0 TH::D (YMAX,YMAX)(YMAX,YMAX)N:X!b  , :"180"2l  ,C:"0"Fv (,),YMAX,` (,),@YMAX,z (,),YMAX, (,),YMAX, (YMAX,)(YMAX,), (,YMAX)(,YMAX), (4YMAX,4YMAX)(4YMAX,4YMAX),> (4YMAX,4YMAX)(4YMAX,4YMAX),F:s PSI0 (YMAX,) : ( F(PSI0),) TH h XXTHPI XY(TH)(XX) YY(TH)(XX) (X,Y),  TH  ,*:F4T$"DO YOU WANT TO RUN AGAIN (Y/N)? ":LC: pP>AN$lH AN$"Y" AN$"y" R AN$"N" AN$"n" \ 4f:p 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 6@://////////////// Routine to Draw a Box //////////////////J Y1,X1: (X2X1,"");: Y1,X1: "";: Y1,X2: "";: I Y1 Y2: I,X1: "";: I,X2: "";:: Y2,X1: "";: Y2,X1T (X2X1,"");: Y2,X2: "";: ,,: ,: ,: "Fault Detected";();: ,(