:///////////// TXNLINE ////////////// : : X1:X27:Y1:Y2: @: ,( ,: " TRANSMISSION LINE CALCULATION "82 ,: " LOSSLESS LINE ": ,[<: AHMAD FAIZAL MOHD ZAINwF: JULY 8, 1986PPIId MAG(X,Y)(XXYY)n ANG(X,Y)(YX)x REAL(MAG,THETA)MAG(THETA) IMAG(MAG,THETA)MAG(THETA) ,: "Working Frequency in (MHz)": "Charcteristic Impedance ": "Load Impedance (Real Part)": "Load Impedance (Imag Part)": "Length of Line in (Meters)":QQQ$"Enter Frequency in (MHz) " ,: QQ$;: "",E$: E$"" @ Q E1$E$:FREQ(E$):QQ$"Enter Characteristic Impedance " Q E2$E$:Z0(E$):QQ$"Load Impedance (Real Part) " Q E3$E$:RL(E$):QQ$"Load Impedance (Imag Part) " Q E4$E$:XL(E$):QQ$"Length of Line in (Meters) " Q E5$E$:L(E$):Qr ,: ,: E1$: ,: E2$:  ,: E3$:  ,: E4$:  ,: E5$: , Q QQ: ,: ():  ,: (): ,:LAMBDA,FREQBETAPILAMBDABLBETAL"ZL MAG(RL,XL)%,XRL:YXL: :THETATPIC6AXZ0ZL(THETA)(BL)^@AYZL(THETA)(BL)tJMAGA MAG(AX,AY)TXAX:YAY: :ANGATPI^BXRLhBYXLZ0(BL)rMAGB MAG(BX,BY)|XBX:YBY: :ANGBTPIMAGZINZ0MAGAMAGBANGZINANGAANGBIREALMAGZIN(ANGZIN):IMAGMAGZIN(ANGZIN)s IMAG SIGN$" -j" : SIGN$" +j" "INPUT IMPEDANCE OF LINE IS : ###.##";REAL;: SIGN$;: "###.##";(IMAG): REFLECTION COEFFICIENTXRLZ0: YXLMAGA MAG(X,Y)- :ANGATPI?XRLZ0: YXLSMAGB MAG(X,Y)j :ANGBTPIGAMMAMAGAMAGB:ANGAMMA(ANGAANGB)PI "COEFFICIENT OF REFLECTION IS MAGNITUDE = ##.##";GAMMA;: " AND ANGLE = ####.##";ANGAMMA;:" DEGREES" &0:!: FIND SWRJD GAMMA "SWR IS INFINITE": l^NGAMMA(GAMMA)xXS(GAMMA)(GAMMA)b "SWR IS ##.##";Sl ,: ,: "Run Again (Y/N) Return to Start = S";();: ,vAN$: AN$"" v AN$"Y" AN$"y" < AN$"N" AN$"n" ,: ();:_ AN$"S" AN$"s" "STARTi l X T(PI)(YX) X T(Y)(PI)(YX) X TZ(Y) Y X T ,,: , : ,: , : "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,X1T (X2X1,"");: Y2,X2: "";:' ,,: ,: ,: "Fault Detected";();: ,1