10 REM POLPLXIN PROGRAM CALCULATES DIMENSIONS FOR CIRC. WG POLAPLEXERS
20 REM DIMENSIONS ARE IN INCHES
30 REM VERSION 1.4 OF 30 APR 1999
40 REM BY ED MUNN, W6OYJ
50 REM
60 REM MODIFY NEXT LINE IF PROBE DIAMETER NOT AS STATED
70 PD=.0403:REM ASSUMES PROBE DIAMETER IN INCHES (#18 AWG WIRE SIZE)
80 REM SEE LINES AT END OF PROGRAM FOR ALTERNATE PROBE SIZES
90 REM
100 KEY OFF: CLS: REM CLEARS SCREEN
110 REM
120 PRINT " POLPLXIN PROGRAM GIVES INCH DIMENSIONS FOR CIRCULAR WAVEGUIDE"
130 PRINT " POLAPLEXERS OPERATING IN THE DOMINANT (TE11) MODE"
140 PRINT
150 INPUT " ENTER OPERATING FREQUENCY IN MHZ = "; FO
160 WO = 30000 / FO: REM OPERATING WAVELENGTH IN CM
170 WI=WO/2.54:REM CONVERTS TO INCHES
180 PRINT " THE OPERATING WAVELENGTH IS "; WO; "CM, OR ";WI;" INCHES"
190 PRINT
200 INPUT " ENTER INSIDE DIAMETER OF THE CIRCULAR GUIDE IN INCHES ";DG
210 DG=2.54*DG:REM CONVERTS TO CM
220 PRINT
230 C1 = 1.71 * DG: REM C1 IS CUTOFF WAVELENGTH OF DOMINANT TE11 MODE IN CM
240 C2 = 1.31 * DG: REM C2 IS CUTOFF WAVELENGTH OF TM01 MODE IN CM
250 C3 = 1.03 * DG: REM C3 IS CUTOFF WAVELENGTH OF TE21 MODE IN CM
260 PRINT " THE TE11 MODE CUTOFF FREQUENCY IS "; 30000 / C1; " MHZ"
270 PRINT " THE TM01 MODE CUTOFF FREQUENCY IS "; 30000 / C2; " MHZ"
280 PRINT " THE TE21 MODE CUTOFF FREQUENCY IS "; 30000 / C3; " MHZ"
290 WG = WO / SQR(1 - ((WO / C1) ^ 2)): REM TE11 GUIDE WAVELENGTH IN CM
300 WG=WG/2.54:REM CONVERTS TO INCHES
310 PRINT " THE TE11 MODE GUIDE WAVELENGTH IS "; WG; " INCHES"
320 PRINT
330 PRINT " MEASURING FROM THE SHORTED END OF THE GUIDE...."
340 PRINT " THE FIRST PROBE SHOULD BE SPACED "; WG / 4; " INCHES"
350 PRINT" THE LO ADJUST SCREW SHOULD BE SPACED ";WG/3;" INCHES"
360 PRINT" THE SECOND PROBE SHOULD BE SPACED ";3*WG/4;" INCHES"
370 PRINT " AND THE OPEN END SHOULD BE SPACED "; 5 * WG / 4; " INCHES"
380 PRINT
390 PRINT " QUARTER WAVELENGTH PROBE FORMULA GIVES "; WI / 4; " INCHES"
400 WM=WO*10:REM OPERATING WAVELENGTH IN MM
410 PM=PD*25.4:REM PROBE DIAMETER IN MM
420 P=PM*3.1416/WM
430 L=2950.7*(1+P-SQR(P))/FO:REM EMPIRICAL PROBE LENGTH FROM K6MBL - INCHES
440 PRINT" K6MBL EMPIRICAL PROBE LENGTH =";L; "INCHES"
450 PRINT
460 END
470 REM WIRE SIZE REFERENCE DATA FOR PROBE CALCULATIONS
480 REM AWG DIA (IN.) DIA (MM.)
490 REM 20 .032 .813
500 REM 18 .0403 1.024
510 REM 16 .0508 1.29
520 REM 14 .0641 1.63