|
| |
|
Ñòðîèòåëüíûé áëîêíîò Âåðòèêàëüíûå àííòåíû 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
|