: //////////////// STUBMATC /////////////////////// :  05/15/86X1:X20:Y1:Y2: @: ,( ,: " SINGLE STUB MATCHING "A2 ,: " (SHORT CIRCUIT STUB) ": ,a< AHMAD FAIZAL MOHD. ZAINoF:::QP MAG(X,Y)(XXYY)Z ANG(X,Y)(YX)dPIIi ,: "Frequency in (MHz)": "Charcteristic Imped ": "Real Load Impedance": "Imag Load Impedance"EnQQ$"Enter Working Frequency (MHz) "Ox n L,(P(T$)): T$: ,: QQ$;: "",E$: E$""  Q E1$E$:FREQ(E$):QQ$"Enter Characteristic Impedance " Q E2$E$:Z0(E$):QQ$"Real Part of Load Impedance "] Q E3$E$:RL(E$):QQ$"Imag Part of Load Impedance "~ Q E4$E$:XL(E$):Q ,: ,: E1$: ,: E2$:  ,: E3$:  ,: E4$: , Q QQ: ,: ():  ,: ():  ,LAMBDA,FREQ.BETAPILAMBDA4:gRLRLZ0:XLXLZ0 :NORMALISING XL SIGN$" -j" : SIGN$" +j" "LOAD IMPEDANCE = ###.##";RLZ0;: SIGN$;: "###.##";(XLZ0)::" RL TXL:DISTANCE((T)PI)(PI): 8,A(RL((RL)XL))a6T1(XLA)(RL): T2(XLA)(RL)@ T1 DISTANCE1((T1))(PI) : DISTANCE1((T1)PI)(PI)J T2 DISTANCE2((T2))(PI) : DISTANCE2((T2)PI)(PI)TD1DISTANCE1LAMBDA:D2DISTANCE2LAMBDA#^:YhB1(RLRLT1(XLT1)(XLT1))(RLRL(XLT1))r B1 LENGTH1((B1))(PI) : LENGTH1(PI(B1))(PI)|B2B1: B2=(RL*RL*T2-(1-XL*T2)*(XL+T2))/(RL*RL+(XL+T2)^2)( B2 LENGTH2((B2))(PI) : LENGTH2(PI(B2))(PI).:VS1LENGTH1LAMBDA:S2LENGTH2LAMBDA "FOR STUB LENGTH OF ##.###";S1;: ", DISTANCE FROM LOAD IS ##.###";D1;:" meters" "STUB REACTANCE IS ####.##";B1Z0:@ "FOR STUB LENGTH OF ##.###";S2;: ", DISTANCE FROM LOAD IS ##.###";D2;:" meters"j "STUB REACTANCE IS ####.##";B2Z0t z:B(RLRLT(XLT)(XLT))(RLRL(XLT)(XLT)) B LENGTH((B))(PI) : LENGTH(PI(B))(PI)Y "FOR STUB LENGTH OF ##.###";LENGTH;: ", DISTANCE FROM LOAD IS ##.###";DISTANCE;:" meters" "STUB IMPEDANCE IS ####.##";BZ0 ,: ,: "Run Again ? (Y/N) or Return to Start = S ";();: ,AN$ : AN$"" & AN$"Y" AN$"y" #0 AN$"N" AN$"n" F: AN$"S" AN$"s" "STARTPD  ,,: , : ,: , : "Key: Esc to End or `R' to Run Again or `S' to Return Start";();: ,: ,: "Esc";: ,: "R";: ,2: "S";();: ,bE$: E$""  : E$() : : E$"R" E$"r" : E$"S" E$"s" "STARTl @://////////////// Routine to Draw a Box //////////////////3J Y1,X1: (X2X1,"");: Y1,X1: "";: Y1,X2: "";: I Y1 Y2: I,X1: "";: I,X2: "";:: Y2,X1: "";: Y2,X1ZT (X2X1,"");: Y2,X2: "";: ,,: ,: ,: "Fault Detected";();: ,