310G = (RO / RA)*XA

320 CR = 1000000! / (2 * Pf * (E + G) * F)

330 CLS

340 IF DM$ = Y THEN RA = RA * 2 350 IF DM$ = Y THEN XA = XA * 2 360 PRINT

370 IF DM$ = Y THEN PRINT YAGI

ELSE PRINT VERT1CAL 380 PRINT

390 PRINT ЧАСТОТА, мГц: ; F 400 PRINT ДИАМЕТР ВИБРАТОРА см: ; DE 410 PRINT ДИАМЕТР ГАММЫ (см): ; DR 420 PRINT РАССТОЯНИЕ ОТ ГАММЫ ДО

ВИБРАТОРА (см): ; S 430 PRINT АКТИВНАЯ ЧАСТЬ

СОПРОТИВЛЕНИЯ (Ом): ; RA 440 PRINT РЕАКТИВНАЯ ЧАСТЬ

СОПРОТИВЛЕНИЯ (Ом): ; ХА 450 PRINT СОПРОТИВЛЕНИЕ КАБЕЛЯ (Ом): ; R0 460 PRINT

470 PRINT ДЛИНА ГАММЫ (в градусах): ; LDR 480 G = (29980 / F) * (LDR / 360):

PRINT ДЛИНА ГАММЫ (cm): ; G 500 PRINT ЕЕМКОСТЬ КОНДЕНСАТОРА (pf). ; CR 510 PRINT ПРОДОЛЖИТЬ ВЫЧИСЛЕНИЯ (Y/N) ; Т$ 520 IF Т$ = у OR Т$ = Y THEN GOTO 10 ELSE SYSTEM

Приложение В. Листинг пронраммы TAPER 10 CLS

20 PRINT РАСЧЕТ ТЕЛЕСКОПИЧЕСКОЙ КОНСТРУКЦИИ

ЭЛЕМЕНТОВ YAGI 30 PRINT РАСЧЕТ ПРОИЗВОДИТСЯ ДЛЯ ПОЛОВИНЫ

ЭЛЕМЕНТА 40 PRINT K1GQ АЛГОРИТМ 50 MAXPARTS% = 9

60 DIM PART(MAXPARTS%), PARTL(MAXPARTS%),

LP(MAXPARTS%), F(MAXPARTS%) 70 DIM M(MAXPARTS%), THETA(MAXPARTS% + 1) 80 DEF FNDELTAX (CAPK) =-18.7 * LOG(CAPK) + 33.9 90 DEF FNX (CAPK) = 33.25 + 1.385 * LOG(CAPK) - .066 *

LOG(CAPK) 2 100 С = 29980 110 PI02 = 2 * ATN(1) 120 INPUT ЧАСТОТА (MHz) ; FREQ 130 LAMBDA = C/FREQ

140 INPUT ДЛИНА ПОЛОВИНЫ ЭЛЕМЕНТА /СМ/ ; LOH 150 HOL=LOH / LAMBDA

160 INPUT ДИАМЕТР ЭЛЕМЕНТА /СМ/ ; LOD

170 DOL= LOD/LAMBDA

180 PRINT ЧИСЛО СЕКЦИЙ ; MAXPARTS%;

190 INPUT NPARTS%

200 IF N PARTS % MAXPARTS% GOTO 180

210 FOR 1% = 1 TO NPARTS% - 1

220 PRINT СЕКЦИЯ ; 1%

230 INPUT ДЛИНА (CM) ; PARTL(I%)

240 INPUT ДИАМЕТР (CM) ; PARTD(I%)

250 NEXT I %

260 PRINT СЕКЦИЯ ; NPARTS%

270 INPUT ДИАМЕТР (CM) ; PARTD(NPARTS%)

280 FOR 1% = 1 TO 1

290 AVGDIA = SQR(PARTD(I%) * PARTD(NPARTS%)) 300 NEXT I %

310 ADOL = AVGDIA / LAMBDA 320 CAPK = 2 / DOL 330ACAPK=2/ADOL

340 SML = 2 * HOL

350 ASML = .5 + (FNX(ACAPK) - FNX(CAPK) - 20 *

FNDELTAX(CAPK) * (.5 - SML)) / (20 *

FNDELTAX(ACAPK)) 360 HA0L = ASML/2 370 HA = HAOL* LAMBDA 380 FOR 1% = 1 TO NPARTS% 390 PDIA=PARTD(I%)/LAMBDA 400 CAPI = 2 / PDIA

410 M(l%) = FNDELTAX(CAPI) / FNDELTAX(ACAPK)

420 NEXT I %

430 PARTUNPARTS%) = HA

440 FOR 1% = 1 TO NPARTS% - 1

450 PARTL(N PARTS %) = PARTL(N PARTS %) - PARTL(I %) 460 NEXT I %

470 THETA(NP ARTS % + 1)= PI02 480 DELTA = 1

490 WHILE ABS(DELTA) .00001 * HA 500 S = 0

510 . FOR 1% = 1 TO NPARTS%

520 S = S + PARTL(I%)

530 THETA(l%) = 0

540 NEXT I %

550 SRAD = S / PI02

560 FOR 1% = 2 TO N PARTS %

570 THETA(I%) = THETA(I% - 1)+ PARTL(I% - 1) / SRAD 580 NEXT I %

590 FOR 1% = 1 TO NPARTS%

600 F(I%) = (SIN(2*THETA(I% + 1))-SIN(2*THETA(I%)))

/ (2 * (THETA(I% + 1) - THETA(I%))) 610 LP(I %) = PARTL(I %) * (M(l %) + 1 / M(l %) + (M(l %) - 1 /

M(l%))*F(l%))/2 620 NEXT I % 630 DELTA = HA 640 FOR 1% = 1 TO N PARTS % 650 DELTA = DELTA - LP(I %) 660 NEXT I %

670 PARTL(NPARTS%)= PARTL(NPARTS%) + M(NPARTS%)* DELTA