Antenas e Linhas de Transmissão
Programa com informações sobre construção e funcionamento de vários tipos de antenas, para freqüências diversas.
Teste o programa no WebMSX – The Online MSX Emulator
Além de cálculos sobre linhas de transmissão.
Ideal para radioamadores.
Funções:
F1 = Dipolo Simples
F2 = Dipolo Reduzido
F3 = Dipolo em Leque
F4 = Plano Terra
F5 = Hertz
F6 = Antenas com Linha Aberta
F7 = Quarto Inclinado
F8 = Linhas de Transmissão
F10 = Gráfico (Ganho/Ângulos)
Contribuição: Jeimes Uchôa
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 |
10 CLS:CLEAR:KEYOFF:SCREEN2:COLOR15,1,1 20 KEY1,"A":KEY2,"B":KEY3,"C":KEY4,"D":KEY5,"E" 30 KEY6,"F":KEY7,"G":KEY8,"H":KEY9,"I":KEY10,"J" 40 SCREEN0:LOCATE4,5:PRINT"ANTENAS E LINHAS DE TRANSMISSŽO" 50 PP$="L16V12N40V4R9N40R9N40R9N40V2R9N40":PLAYPP$:PA$="L16V10N45R9V4N45" 60 PRINT:LOCATE9,7:PRINT"F1 - Dipolo Simples" 70 LOCATE9,8:PRINT"F2 - Dipolo Reduzido":LOCATE9,9:PRINT"F3 - Dipolo em Leque" 80 LOCATE9,10:PRINT"F4 - Plano Terra":LOCATE9,11:PRINT"F5 - Hertz" 90 LOCATE9,12:PRINT"F6 - Antenas com Linha Aberta" 100 LOCATE9,13:PRINT"F7 - Quarto Inclinado" 110 LOCATE9,14:PRINT"F8 - Linhas de Transmiss„o" 120 LOCATE9,15:PRINT"F10 - Gr fico (Ganho/Angulos)" 130 LOCATE9,16:PRINT"RETorno - Card pio" 140 DEFFNC(X)=(142.65/F)/2:DEFFNH(X)=INT((300/F)*.2) 150 IN$=INKEY$:IFIN$=""THEN150ELSEPLAYPA$ 160 IFIN$="A"THEN210 ELSE IFIN$="B"THEN 520 ELSE IFIN$="C"THEN830 170 IFIN$="D"THEN1140 ELSE IFIN$="E"THEN 1490 ELSE IFIN$="F"THEN2060 180 IFIN$="G" THEN5030 ELSE IFIN$="H" THENRUN"ANT-2.BAS" ELSE IFIN$="J" THEN4410 190 IFIN$<>"A"ANDIN$<>"B"ANDIN$<>"C"ANDIN$<>"E"ANDIN$<>"F"THEN20 200 IFIN$<>"G"ANDIN$<>"H"ANDIN$<>"I"ANDIN$<>"J"THEN20 210 CLS:LOCATE13,9:PRINT"Dipolo Simples":GOSUB1970 220 SCREEN2:CIRCLE(37,66),2:LINE(37,66)-(207,66):CIRCLE(207,66),2 230 DRAW"BM117,66U1R10D2L10U1R3C1R5C15R2" 240 DRAW"BM37,70C15D5BD3D5BD3D5":DRAW"BM124,70C15D5BD3D5BD3D5" 250 DRAW"BM120,70C15D5BD3D5BD3D5":DRAW"BM207,70C15D5BD3D5BD3D5" 260 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(50,80):PRINT#1,USING"###.###";FNC(F) 270 PRESET(137,80):PRINT#1,USING"###.###";FNC(F) 280 PRESET(78,90):PRINT#1,"m":PRESET(165,90):PRINT#1,"m" 290 PRESET(63,110):PRINT#1,"Eis o seu Dipolo.":FORT=1TO1000:NEXT 300 PRESET(63,110):COLOR 1:PRINT#1,"Eis o seu Dipolo.":COLOR 15 310 FORC=1TO2:IFC=2THENCOLOR1 320 PRESET(5,120):PRINT#1,"Proximidade … terra, rvores,mas-" 330 PRESET(5,128):PRINT#1,"tros,etc.,pode dessintoniz -la." 340 PRESET(5,140):PRINT#1,"Se f“r o caso, ajuste-a por in-" 350 PRESET(5,148):PRINT#1,"crementos iguais, nos extremos," 360 PRESET(5,156):PRINT#1,"procurando o m¡nino de rela`„o" 370 PRESET(5,164):PRINT#1,"de ondas estacion rias na fre-" 380 PRESET(5,172):PRINT#1,"quˆncia acima." 390 PRESET(10,5):PRINT#1,F;"MHz" 400 IFZ$="Z"THEN490 410 IFC=2THEN430 420 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC 430 COLOR15:PRESET(5,103):PRINT#1,"Se instalada …";INT((300/F)*.2);"m de solo bom" 440 PRESET(5,111):PRINT#1,"condutor (ou mais alta),cabo de" 450 PRESET(5,119):PRINT#1,"70 Ohms casar melhor. Do con-" 460 PRESET(5,127):PRINT#1,"tr rio,use cabo (preferivelmen-" 470 PRESET(5,135):PRINT#1,"te RG 213) de 50 Ohms." 480 IFIN$="A"THENGOSUB2010 490 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7" 500 IS$=INKEY$:IFIS$=""THEN500 510 CLOSE:SCREEN0:GOTO20 520 CLS:LOCATE9,10:PRINT" Dipolo Reduzido":GOSUB1970 530 SCREEN2:CIRCLE(37,46),2:DRAW"R80U1R10D2L10U1R3BR4R3R80":CIRCLE(207,46),2 540 FORT=1TO1000:NEXT 550 CIRCLE(42,80),2:DRAW"BM37,46C1R40C15G33":FORT=1TO1000:NEXT 560 CIRCLE(77,86),2:DRAW"BM37,46C1R40G33E33C15D40":FORT=1TO1000:NEXT 570 DRAW"BM37,40C1R130D6R40L40C15E31":CIRCLE(199,14),2:FORT=1TO1000:NEXT 580 DRAW"BM37,42C15U5BU3U5BU3U5":DRAW"BM124,50C15D5BD3D5BD3D3" 590 DRAW"BM120,42C15U5BU3U5BU3U5":DRAW"BM207,50C15D5BD3D5BD3D5" 600 DRAW"BM167,80C15D5":DRAW"BM167,49D5":OPEN"GRP:" FOR OUTPUT AS#1 610 PRESET(50,20):PRINT#1,USING"###.###";FNC(F) 620 PRESET(137,57):PRINT#1,USING"###.###";FNC(F) 630 PRESET(78,30):PRINT#1,"m":PRESET(167,67):PRINT#1,"m" 640 PRESET(102,88):PRINT#1,"m(min)" 650 PRESET(93,80):PRINT#1,USING"###.###";FNC(F) 660 PRESET(80,80):PRINT#1,"--":PRESET(152,80):PRINT#1,"--" 670 PRESET(14,120):PRINT#1," Eis o seu Dipolo Reduzido." 680 FORT=1TO1500:NEXT 690 PRESET(14,120):COLOR 1:PRINT#1," Eis o seu Dipolo Reduzido.":COLOR15 700 FORC=1TO2:IFC=2THENCOLOR1 710 PRESET(5,120):PRINT#1,"Este poupa espa`o, sem a perda" 720 PRESET(5,130):PRINT#1,"de sinal inerente a antenas en-" 730 PRESET(5,140):PRINT#1,"curtadas por bobinas." 740 IFC=2THENCOLOR15:GOTO760 750 A$=INKEY$:IFA$="" THEN750 ELSE NEXTC 760 FORC=1TO2:IFC=2THENCOLOR1 770 PRESET(5,105):PRINT#1,"As extremidades podem ser dobra" 780 PRESET(5,115):PRINT#1,"-das em qualquer dire`„o, desde" 790 PRESET(5,125):PRINT#1,"que no m¡nimo em ƒngulo reto" 800 PRESET(5,135):PRINT#1,"com a extens„o central linear." 810 IFC=2 THEN COLOR15:GOTO310 820 A$=INKEY$:IFA$="" THEN 820 ELSE NEXTC 830 CLS:LOCATE12,10:PRINT"Dipolo em Leque":GOSUB1970 840 DEFFNC(X)=(125.73/F)/2:DEFFND(X)=13.716/F 850 SCREEN2:LINE(37,40)-(217,80):LINE(217,40)-(37,80) 860 DRAW"BM123,60C15UR10D2L10U2D1L2R3C1R7C15R2" 870 CIRCLE(37,40),2:CIRCLE(217,80),2:CIRCLE(217,40),2:CIRCLE(37,80),2 880 DRAW"BM123,65D5BD3D5BD3D5BD3D5":DRAW"BM131,65D5BD3D5BD3D5BD3D5" 890 DRAW"BM217,46D5":DRAW"BM37,46D5":DRAW"BM217,69D5" 900 DRAW"BM217,88D6":DRAW"BM37,88D6":OPEN"GRP:" FOR OUTPUT AS#1 910 PRESET(50,80):PRINT#1,USING"###.###";FNC(F) 920 PRESET(137,80):PRINT#1,USING"###.###";FNC(F) 930 PRESET(3,57):PRINT#1,USING"###.###";FND(F) 940 PRESET(63,57):PRINT#1,"m" 950 PRESET(175,57):PRINT#1,USING"###.###";FND(F) 960 PRESET(235,57):PRINT#1,"m":PRESET(78,90):PRINT#1,"m" 970 PRESET(165,90):PRINT#1,"m" 980 PRESET(28,145):PRINT#1,"Eis o seu Dipolo em Leque.":FORT=1TO1500:NEXT 990 PRESET(28,145):COLOR1:PRINT#1,"Eis o seu Dipolo em Leque." 1000 FORC=1TO2:IFC=2THENCOLOR1 ELSE COLOR15 1010 PRESET(5,145):PRINT#1,"Caracteriza-se por alta eficiˆn" 1020 PRESET(5,155):PRINT#1,"-cia,excelente largura de faixa" 1030 PRESET(5,165):PRINT#1,"operacional e tamanho reduzido." 1040 IFC=2THENCOLOR15:GOTO1060 1050 A$=INKEY$:IFA$=""THEN1050:ELSE NEXTC 1060 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15 1070 PRESET(5,130):PRINT#1,"Corretamente instalada, cortada" 1080 PRESET(5,145):PRINT#1,"para o centro da faixa de 80 m" 1090 PRESET(5,155):PRINT#1,"ou 40 m, cobri-las- satisfato-" 1100 PRESET(5,165):PRINT#1,"riamente sem sintonizador,o que" 1110 PRESET(5,175):PRINT#1,"n„o ocorre com dipolos comuns." 1120 IFC=2THENCOLOR15:GOTO310 1130 A$=INKEY$:IFA$=""THEN1130 ELSE NEXTC 1140 CLS:LOCATE10,10:PRINT"Plano Terra - ¬ Onda":GOSUB1970 1150 DEFFNC(X)=71.33/F:DEFFNR(X)=73.16/F 1160 SCREEN2:LINE(127,10)-(127,76):CIRCLE(127,10),2 1170 DRAW"BM127,82L1U10R2D10L1U1" 1180 LINE(45,50)-(209,110):CIRCLE(45,50),2:CIRCLE(209,110),2 1190 LINE(209,50)-(45,110):CIRCLE(209,50),2:CIRCLE(45,110),2:LINE(134,7)-(140,5) 1200 DRAW"BM140,7C1D3C15D5C1D3C15D5C1D3C15D5C1D19C15D5C1D3C15D5C1D3C15D5" 1210 LINE(214,52)-(222,54):LINE(159,80)-(166,78) 1220 LINE(200,65)-(207,63):OPEN"GRP:" FOR OUTPUT AS#1 1230 PRESET(175,69):PRINT#1,"RA":PRESET(135,37):PRINT#1,"EV" 1240 PRESET(7,70):PRINT#1,"EV= m" 1250 PRESET(23,70):PRINT#1,USING"###.###";FNC(F) 1260 PRESET(7,80):PRINT#1,"RA= m" 1270 PRESET(23,80):PRINT#1,USING"###.###";FNR(F) 1280 PRESET(44,130):PRINT#1,"Eis o seu Plano Terra":FORT=1TO1000:NEXT 1290 PRESET(44,130):COLOR1:PRINT#1,"Eis o seu Plano Terra":COLOR15 1300 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15 1310 PRESET(5,130):PRINT#1,"Instalada livre de obst culos,‚" 1320 PRESET(5,138):PRINT#1,"excelente antena para DX,embora" 1330 PRESET(5,146):PRINT#1,"sens¡vel a ru¡dos de igni`„o e" 1340 PRESET(5,154):PRINT#1,"motores de escova. Em 15 e 10 m" 1350 PRESET(5,162):PRINT#1,"pode ser feita de tubo de alu-" 1360 PRESET(5,170):PRINT#1,"m¡nio. Em todo caso, cuide do" 1370 PRESET(5,178):PRINT#1,"bom isolamento dos elementos." 1380 IFC=2THENCOLOR15:GOTO1400 1390 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC 1400 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15 1410 PRESET(5,130):PRINT#1,"Sua impedƒncia,de aprox.35 Ohms" 1420 PRESET(5,138):PRINT#1,"resultar em estacion ria 1:1.5" 1430 PRESET(5,146):PRINT#1,"com coaxial de 50 Ohms, o que" 1440 PRESET(5,154):PRINT#1,"poder ser corrigido inclinando" 1450 PRESET(5,162):PRINT#1,"os radiais para baixo, at‚ que" 1460 PRESET(5,170):PRINT#1,"se obtenha casamento melhor." 1470 IFC=2THENCOLOR15:Z$="Z":GOTO310 1480 A$=INKEY$:IFA$=""THEN1480 ELSE NEXTC:CLS 1490 CLS:LOCATE13,10:PRINT"Hertz Multibanda":GOSUB1970 1500 SCREEN2:CIRCLE(70,50),2:LINE(70,50)-(250,50):CIRCLE(250,50),2 1510 DRAW"BM70,75R7U5BU5U5R10BR10R10BR10R10BR65R10BR10R10BR10R10" 1520 DRAW"BM70,50D20":DRAW"BM250,54DR4BD2D4" 1530 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5 1540 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5 1550 CIRCLE(59,70),6,15,,3,5:CIRCLE(57,70),6,15,,3,5:DRAW"BM52,70R4L2U9R5D2" 1560 DRAW"BM66,70R4" 1570 DRAW"BM52,70R4BD8D20L3G3E3R6G3E3L3G3E3U20R4U3D6U3BR2U3D6U3R4U8" 1580 DRAW"BM61,78E3G6":DRAW"BM52,70U5L24D10R24U5":OPEN"GRP:"FOR OUTPUT AS#1 1590 PRESET(30,67):PRINT#1,"ROE" 1600 DRAW"BM52,85U5L24D10R12D5R16L16U5R12U5":DRAW"BM28,85L3U15R3" 1610 PRESET(33,82):PRINT#1,"TR":PRESET(130,57):PRINT#1,USING"###.###";FNC(F)*2 1620 PRESET(157,65):PRINT#1,"m" 1630 PRESET(27,130):PRINT#1,"Eis sua Hertz Multibanda":FORT=1TO1000:NEXT 1640 PRESET(27,130):COLOR1:PRINT#1,"Eis sua Hertz Multibanda":COLOR15 1650 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15 1660 PRESET(5,110):PRINT#1,"Excelente conjunto para emergˆn" 1670 PRESET(5,118):PRINT#1,"cia ou excurs”es, j que opera" 1680 PRESET(5,126):PRINT#1,"em todas as faixas superiores …" 1690 PRESET(5,134):PRINT#1,"fundamental prevista e ‚ de mon" 1700 PRESET(70,25):PRINT#1,"Acima de";F;"MHz" 1710 PRESET(5,142):PRINT#1,"tagem r pida.Condi`„o essencial" 1720 PRESET(5,150):PRINT#1,"‚ bom aterramento.Na falta des-" 1730 PRESET(5,158):PRINT#1,"-te (e at‚ al‚m dele) , ligue" 1740 PRESET(5,166):PRINT#1,"fio de meio comprimento da an-" 1750 PRESET(5,174):PRINT#1,"tena a chassis,fazendo-o acom-" 1760 PRESET(5,182):PRINT#1,"panhar a antena, solto no ch„o." 1770 IFC=2THENCOLOR15:GOTO1790 1780 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC 1790 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15 1800 PRESET(5,110):PRINT#1,"Como a irradia`„o ocorre a par-" 1810 PRESET(5,118):PRINT#1,"tir do ponto de conex„o com o a" 1820 PRESET(5,126):PRINT#1,"coplador, este n„o deve situar-" 1830 PRESET(5,134):PRINT#1,"se pr¢ximo ao transmissor.Entre" 1840 PRESET(5,142):PRINT#1,"ligue equipamento com acoplador" 1850 PRESET(5,150):PRINT#1,"mediante coaxial de 50 Ohms e" 1860 PRESET(5,158):PRINT#1,"sintonize o acoplador para es-" 1870 PRESET(5,166):PRINT#1,"tacion ria (ROE) de 1:1.1." 1880 IFC=2THENCOLOR15:GOTO1910 1890 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC 1900 FORC=1TO2 1910 PRESET(45,115):PRINT#1,"Dados para o Acoplador." 1920 PRESET(5,130):PRINT#1,"Bobina:- Diametro = 65 mm" 1930 PRESET(5,138):PRINT#1,"40 espiras, fio 2mm diam." 1940 PRESET(5,146):PRINT#1,"Passo de 6 esp/25 mm" 1950 PRESET(5,162):PRINT#1,"Capacitor Vari vel: 150 pF" 1960 GOTO490 1970 PRINT:PRINT" Cobre ou Aluminio (diam.2-3 mm)" 1980 PLAY"R4V8N82":LOCATE2,16:PRINT"Para que Frequˆncia? (MHz)- Ex:27.125" 1990 LOCATE18,20:LINEINPUT F$ 2000 F=VAL(F$):IF F<=0 THEN 20 ELSE RETURN 2010 PRESET(5,146):PRINT#1,"A mesma antena, suportada por" 2020 PRESET(5,154):PRINT#1,"mastro central (n„o condutor)" 2030 PRESET(5,162):PRINT#1,"e as pernas inclinadas para" 2040 PRESET(5,170):PRINT#1,"baixo (45§),ser 'V Invertida'," 2050 PRESET(5,178):PRINT#1,"onidirecional.":RETURN 2060 CLS:LOCATE1,12:PRINT"Algumas destas antenas s„o de grande" 2070 LOCATE1,13:PRINT"extens„o.Use fio adequado … tra`„o pa-" 2080 LOCATE1,14:PRINT"ra evitar alongamento ou ruptura.":A$=INKEY$:IF A$="" THEN 2080 2090 CLS:LOCATE1,12:PRINT"Para todas as antenas alimentadas por" 2100 LOCATE1,13:PRINT"linha aberta,‚ necess rio acoplador a" 2110 LOCATE1,14:PRINT"propriado, que casar a alta impedƒn" 2120 LOCATE1,15:PRINT"cia da ponta da linha (<5000 Ohms),com" 2130 LOCATE1,16:PRINT"a do equipamento.":A$=INKEY$:IFA$="" THEN 2130 2140 CLS:LOCATE1,5:PRINT"Linha aberta de 300 Ohms ‚ altamente" 2150 LOCATE1,6:PRINT"recomendada por facilitar o trabalho" 2160 LOCATE1,7:PRINT"do acoplador." 2170 LOCATE1,9:PRINT"Evite linha paralela fechada (tipo fi-" 2180 LOCATE1,10:PRINT"ta de TV),que introduzir perdas e in-" 2190 LOCATE1,11:PRINT"convenientes t‚cnicos." 2200 LOCATE1,13:PRINT"Mantenha a linha aberta distante de pa" 2210 LOCATE1,14:PRINT"-redes e metais (minimo 20 cm) e evite" 2220 LOCATE1,15:PRINT"dobras e curvas abruptas." 2230 LOCATE1,17:PRINT"Corretamente instalada, a linha aberta" 2240 LOCATE1,18:PRINT"‚ a melhor linha de transmiss„o.":A$=INKEY$:IFA$="" THEN 2240 2250 CLEAR 300:SCREEN0:KEYOFF:DEFFNC(X)=142.65/F:DEFFNH(X)=(300/F)*.2 2260 DEFFNL(X)=(75/F)*.975:DEFFNZ(X)=365.2/F:DEFFNN(X)=N-.025 2270 DEFFNW(X)=(300*FNN(N))/F:PA$="L16V10N45R9V4N45":PLAYPA$ 2280 ON KEY GOSUB 2470,2490,2510,2530,2550,2590,,,,2450 2290 KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON:KEY(5)ON 2300 KEY(6)ON:KEY7,"":KEY8,"":KEY9,"":KEY(10)ON 2310 LOCATE2,3:PRINT"F1= Z e p p e l i n" 2320 LOCATE6,4:PRINT"(Alimenta`„o Central)" 2330 LOCATE2,6:PRINT"F2= Z e p p e l i n" 2340 LOCATE6,7:PRINT"(Alimenta`„o pelo Extremo)" 2350 LOCATE2,9:PRINT"F3= Z e p p e l i n Direcional" 2360 LOCATE6,10:PRINT"(Dupla ou Colinear)" 2370 LOCATE2,12:PRINT"F4= Z e p p e l i n Direcional" 2380 LOCATE6,13:PRINT"(Dupla Expandida ou Colinear 5/8)" 2390 LOCATE2,15:PRINT"F5= L o n g W i r e" 2400 LOCATE6,16:PRINT"(Direcional Monobanda)" 2410 LOCATE2,18:PRINT"F6= L o n g W i r e" 2420 LOCATE6,19:PRINT"(Direcional Multibanda)" 2430 LOCATE2,21:PRINT"F10= Card pio Principal" 2440 GOTO2440 2450 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:KEY(5)OFF:KEY(6)OFF:KEY(10)OFF 2460 RUN20 2470 H=1:CLS:GOSUB1980 2480 H=1:SCREEN2,2:GOTO2640 2490 H=2:CLS:GOSUB1980 2500 H=2:SCREEN2,2:GOTO2640 2510 H=3:CLS:GOSUB1980 2520 H=3:SCREEN2,2:GOTO2650 2530 H=4:CLS:GOSUB1980 2540 H=4:SCREEN2,2:GOTO2880 2550 H=5:CLS:GOSUB1980 2560 PLAY"V8N82" 2570 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$) 2580 H=5:SCREEN2,2:GOTO2880 2590 H=6:CLS:GOSUB1980 2600 PLAY"V8N82" 2610 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$) 2620 H=6:SCREEN2,2:GOTO2880 2630 CIRCLE(115,50),2,1:CIRCLE(123,50),2,1 2640 LINE(70,50)-(170,50):CIRCLE(70,50),2:CIRCLE(170,50),2:GOTO2670 2650 CIRCLE(70,50),2,1:CIRCLE(170,50),2,1 2660 LINE(30,50)-(220,50):CIRCLE(30,50),2:CIRCLE(220,50),2 2670 FORI=1TO32:READ A:A$=A$+CHR$(A):NEXTI:SPRITE$(0)=A$ 2680 IFH=2THEN2720 2690 IFH=3ORH=4THEN2730 2700 IFH=5ORH=6THEN2740 2710 FORI=255TO115 STEP -.5:GOTO2750 2720 FORI=255TO62 STEP -.5:GOTO2750 2730 FORI=255TO118 STEP -.5:GOTO2750 2740 FORI=255TO25 STEP -.5 2750 J=50 2760 PUT SPRITE 1,(I,J),15,0 2770 NEXTI 2780 IFH=2THEN2810 ELSE IFH=3THEN2850 ELSE IFH=4THEN2930 2790 IFH=5THEN2950 ELSE IFH=6THEN2980 2800 LINE(116,50)-(122,50),1:CIRCLE(115,50),2:CIRCLE(123,50),2 2810 IFH=2THENCIRCLE(62,50),2 2820 IFH=1ORH=2THEN2830 ELSE 2850 2830 GOTO3070 2840 H$=INKEY$:IFH$=""THEN2840 ELSE RETURN2250 2850 CIRCLE(118,50),2:CIRCLE(126,50),2:LINE(119,50)-(125,50),1:IF H<>3 THEN 2870 2860 GOTO3070 2870 CIRCLE(30,50),2,1:CIRCLE(220,50),2,1 2880 LINE(5,50)-(245,50):CIRCLE(5,50),2:CIRCLE(245,50),2:IFH=4THEN2910 2890 IFH=5 OR H=6 THEN2920 2900 CIRCLE(118,50),2,1:CIRCLE(126,50),2,1:LINE(117,50)-(127,50),15 2910 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670 2920 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670 2930 LINE(119,50)-(125,50),1:CIRCLE(118,50),2:CIRCLE(126,50),2:IF H<>4 THEN 2950 2940 GOTO3070 2950 LINE(26,50)-(32,50),1:CIRCLE(25,50),2:CIRCLE(35,50),2 2960 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1" 2970 GOTO3070 2980 LINE(22,50)-(36,50),15 2990 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1C1R30L30D1C15D7L4G2E2R4G2E2R4G2" 3000 CIRCLE(245,50),2,1:CIRCLE(5,50),2,1 3010 DRAW"R27C1":CIRCLE(25,50),2:CIRCLE(33,50),2 3020 GOTO3070 3030 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128 3040 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128 3050 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128 3060 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128 3070 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(69,30):PRINT#1,"< >" 3080 IFH=3THEN3100 ELSE IFH=4THEN3110 ELSE IFH=5 OR H=6 THEN3120 3090 PRESET(89,30):PRINT#1,USING"###.###";FNC(F):GOTO3130 3100 PRESET(89,30):PRINT#1,USING"###.###";FNC(F)*2:GOTO3130 3110 PRESET(89,30):PRINT#1,USING"###.###";FNZ(F):GOTO3130 3120 PRESET(89,30):PRINT#1,USING"###.###";FNW(F):GOTO3130 3130 PRESET(118,37):PRINT#1,"m":IF H=1 OR H=2 THEN3170 3140 IFH=3 OR H=4 THEN3160:ELSE PRESET(61,110) 3150 PRINT#1,"Eis a sua Long Wire":FORT=1TO1200:NEXT:COLOR15:GOTO3230 3160 PRESET(15,110):PRINT#1,"Eis sua Zeppelin Direcional":COLOR15:GOTO3180 3170 PRESET(53,110):PRINT#1,"Eis sua Zeppelin":COLOR15 3180 FORT=1TO1000:NEXT:IFH=3 OR H=4 THEN3200 3190 PRESET(53,110):COLOR1:PRINT#1,"Eis sua Zeppelin":COLOR15:GOTO3240 3200 PRESET(15,110):COLOR 1:PRINT#1,"Eis sua Zeppelin Direcional":COLOR 15 3210 IFH=3 THEN 3240:ELSE PRESET(25,130):PRINT#1,"Dupla, expandida, 2 x 5/8" 3220 FORT=1TO1400:NEXT:LINE(24,128)-(240,140),1,BF 3230 PRESET(61,110):COLOR1:PRINT#1,"Eis a sua Long Wire":COLOR15:GOTO3240 3240 PRESET(130,60):PRINT#1,USING"###.##";FNL(F) 3250 PRESET(180,60):PRINT#1,"m":IF H=5 OR H=6 THEN3300 3260 IFH<>1 THEN3280 3270 DRAW "BM132,61F3H3L7E2G2F2U3":GOTO 3310 3280 IFH=2 THEN DRAW "BM105,61F3H3L32E2G2F2U3":GOTO3310 3290 IFH=3 OR H=4 THEN DRAW "BM132,61F3H3L3E2G2F2U3":GOTO3310 3300 DRAW "BM132,61F3H3L85E2G2F2U3":GOTO 3310 3310 PRESET(117,68):PRINT#1,"ou m£ltiplo ¡mpar" 3320 PRESET(10,10):PRINT#1,F;"MHz" 3330 IFH=3THEN3680 ELSE IFH=4THEN3800 ELSE IFH=5 OR H=6 THEN3900 3340 PRESET(5,90):PRINT#1,"Excelente multibanda, podendo" 3350 PRESET(5,98):PRINT#1,"trabalhar em qualquer frequˆn-" 3360 PRESET(5,106):PRINT#1,"cia acima da aqui especificada" 3370 PRESET(5,114):PRINT#1,"e, eventualmente,… metade desta." 3380 PRESET(5,126):PRINT#1,"Apresenta ganho a partir do se-" 3390 PRESET(5,134):PRINT#1,"gundo harm“nico.":IFH=2 THEN 3430 3400 PRESET(5,146):PRINT#1,"O Dipolo em Leque com esta ali-" 3410 PRESET(5,154):PRINT#1,"menta`„o,‚ uma das melhores an-" 3420 PRESET(5,162):PRINT#1,"tenas multibanda para uso geral." 3430 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7" 3440 IK$=INKEY$:IFIK$=""THEN3440 3450 IFH=2THEN3570 3460 LINE(4,89)-(255,170),1,BF 3470 PRESET(5,90):PRINT#1,"NOTA: O ganho harm“nico de an-" 3480 PRESET(5,98):PRINT#1,"tenas alimentadas pelo centro" 3490 PRESET(5,106):PRINT#1,"distribui-se por igual em for-" 3500 PRESET(5,114):PRINT#1,"ma de trevo,com centro no pon-" 3510 PRESET(5,122):PRINT#1,"to de alimenta`„o. No entanto," 3520 PRESET(5,130):PRINT#1,"esta antena, no segundo harm“-" 3530 PRESET(5,138):PRINT#1,"nico, torna-se colinear,bidi-" 3540 PRESET(5,146):PRINT#1,"recional a 90/180§, com ganho" 3550 PRESET(5,154):PRINT#1,"de 1.8 dBd." 3560 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840 3570 LINE(4,89)-(255,170),1,BF 3580 PRESET(4,90):PRINT#1,"Batizada a Zeppelin Verdadeira" 3590 PRESET(4,98):PRINT#1,"porque era a antena de arraste" 3600 PRESET(4,106):PRINT#1,"usada nos dirig¡veis do mesmo" 3610 PRESET(4,114):PRINT#1,"nome. Operada acima desta fre-" 3620 PRESET(4,122):PRINT#1,"quˆncia, acent£a l¢bulos m xi-" 3630 PRESET(4,130):PRINT#1,"mos,sempre em trevo, que v„o se" 3640 PRESET(4,138):PRINT#1,"alinhando com o fio da antena." 3650 PRESET(4,152):PRINT#1,"Um lado da linha realmente fica" 3660 PRESET(4,160):PRINT#1,"em aberto,isolado da antena" 3670 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840 3680 PRESET(4,90):PRINT#1,"Multibanda por excelˆncia,pois" 3690 PRESET(4,98):PRINT#1,"trabalha com alta eficiˆncia a" 3700 PRESET(4,106):PRINT#1,"partir da metade desta frequˆn-" 3710 PRESET(4,114):PRINT#1,"cia.Aqui ‚ uma colinear de duas" 3720 PRESET(4,122):PRINT#1,"meias ondas em fase, resultando" 3730 PRESET(4,130):PRINT#1,"um ganho de 1.8 dBd, bidirecio-" 3740 PRESET(4,138):PRINT#1,"nal a 90/180§ da antena,com l¢-" 3750 PRESET(4,146):PRINT#1,"bulo de 46§ a -3 dB." 3760 PRESET(4,160):PRINT#1,"Em frequˆncias superiores,forma" 3770 PRESET(4,168):PRINT#1,"l¢bulos m£ltiplos bem aprovei-" 3780 PRESET(4,176):PRINT#1,"t veis e uniformes." 3790 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840 3800 PRESET(4,90):PRINT#1,"Alto ganho para uma antena sim-" 3810 PRESET(4,98):PRINT#1,"ples(3.2 dBd),aliado a alta bi-" 3820 PRESET(4,106):PRINT#1,"direcionalidade,praticamente i-" 3830 PRESET(4,114):PRINT#1,"senta de l¢bulos secund rios. " 3840 PRESET(4,122):PRINT#1,"ideal para alto rendimente a 90" 3850 PRESET(4,130):PRINT#1,"e 180§ do fio.O l¢bulo ‚ de 32§" 3860 PRESET(4,138):PRINT#1,"nesta frequˆncia. Naturalmente" 3870 PRESET(4,146):PRINT#1,"tamb‚m ‚ boa multibanda, acima" 3880 PRESET(4,154):PRINT#1,"e abaixo da frequˆncia de corte." 3890 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840 3900 IFH=6 THEN3930 ELSE PRESET(12,64):PRINT#1,"A" 3910 DRAW"BM14,53D1L1R2L1D1L2R4L2D6BD11D9R3" 3920 DRAW"BM233,47UL1R2L1U1L2R4L2U4L4U3" 3930 DRAW"BM221,46U1L1R2L1U1L2R4L2U2L6" 3940 PRESET(134,10):PRINT#1,"+-550 Ohms":DRAW"BM215,47U3BU2U3BU2U3BU2U3" 3950 IFH=6THEN3980 3960 IFH=5THENDRAW"BM5,47BU2U1BU2U3BU2U3BU2U3" 3970 PRESET(69,76):PRINT#1,"m" 3980 IFH=6THENDRAW"BM33,47BU2U1BU2U3BU2U3BU2U3":GOTO4280 3990 PRESET(226,29):PRINT#1,"B=A" 4000 PRESET(12,76):PRINT#1,USING"###.###";FNC(F)/2 4010 PRESET(2,90):PRINT#1,"Nesta conforma`„o ela ‚ monoban-" 4020 PRESET(2,98):PRINT#1,"da e unidirecional (na dire`„o " 4030 PRESET(2,106):PRINT#1,"do resistor n„o indutivo dimen-" 4040 PRESET(2,114):PRINT#1,"sionado para absor`„o da metade" 4050 PRESET(2,122):PRINT#1,"da potˆncia do transmissor).Tor-" 4060 PRESET(2,130):PRINT#1,"na-se bidirecional com elimina-" 4070 PRESET(2,138):PRINT#1,"`„o do resistor e da se`„o B,en-" 4080 PRESET(2,146):PRINT#1,"bora ainda predomine sinal nesta" 4090 PRESET(2,154):PRINT#1,"dire`„o.A partir de 4 comprimen-" 4100 PRESET(2,162):PRINT#1,"tos de onda os l¢bulos princi-" 4110 PRESET(2,170):PRINT#1,"pais estar„o a aprox.20§ do fio" 4120 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7" 4130 IK$=INKEY$:IFIK$=""THEN4130 4140 LINE(1,89)-(255,190),1,BF 4150 PRESET(2,90):PRINT#1,"Formar-se- um cone de sinal ao" 4160 PRESET(2,98):PRINT#1,"redor do fio,resultando conside-" 4170 PRESET(2,106):PRINT#1,"ravel ganho pr tico.Embora o ga-" 4180 PRESET(2,114):PRINT#1,"nho calculado possa decepcionar" 4190 PRESET(2,122):PRINT#1,"se comparado a outras antenas, o" 4200 PRESET(2,130):PRINT#1,"ganho efetivo ‚ da ordem de pos-" 4210 PRESET(2,138):PRINT#1,"sibilitar comunica`„o imposs¡vel" 4220 PRESET(2,146):PRINT#1,"com Yagis e outras direcionais." 4230 PRESET(2,154):PRINT#1,"A raz„o ‚ sua grande rea e seu" 4240 PRESET(2,162):PRINT#1,"baixo ƒngulo, al‚m da polariza-" 4250 PRESET(2,170):PRINT#1,"`„o m£ltipla.Veja a outra L-W do" 4260 PRESET(2,178):PRINT#1,"programa." 4270 COLOR 15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO 2840 4280 PRESET(2,90):PRINT#1,"Nesta conforma`„o ela ‚ multi-" 4290 PRESET(2,98):PRINT#1,"banda unidirecional … extremida-" 4300 PRESET(2,106):PRINT#1,"de do resistor.Bom aterramento ‚" 4310 PRESET(2,114):PRINT#1,"essencial. Eliminado resistor e" 4320 PRESET(2,122):PRINT#1,"terra,torna-se semi-bidirecional" 4330 PRESET(2,130):PRINT#1,"com algum sinal para o lado ali-" 4340 PRESET(2,138):PRINT#1,"mentado, sem perda alguma. Veja" 4350 PRESET(2,146):PRINT#1,"tamb‚m LW Monobanda s“bre carac-" 4360 PRESET(2,154):PRINT#1,"ter¡sticas de irradia`„o,etc.No-" 4370 PRESET(2,162):PRINT#1,"te-se que s¢ ‚ LW antena alimen-" 4380 PRESET(2,170):PRINT#1,"tada no ponto correto e com um" 4390 PRESET(2,178):PRINT#1,"comprimento de onda ou mais." 4400 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840 4410 PLAY"V8N82N72N62":SCREEN 2:COLOR 14:FORF=10TO100 STEP10:FORG=25TO225 4420 LINE (G,F)-(G,F):NEXTG:NEXTF:FORG=25TO225 STEP10:FORF=10TO100 4430 LINE(G,F)-(G,F):NEXT F:NEXT G:COLOR 15:OPEN"GRP:"FOR OUTPUT AS #1 4440 PRESET(18,7):PRINT#1,"9":PRESET(18,17):PRINT#1,"8" 4450 PRESET(18,27):PRINT#1,"7":PRESET(18,37):PRINT#1,"6" 4460 PRESET(18,47):PRINT#1,"5":PRESET(18,57):PRINT#1,"4" 4470 PRESET(18,67):PRINT#1,"3":PRESET(18,77):PRINT#1,"2" 4480 PRESET(18,87):PRINT#1,"1":PRESET(18,97):PRINT#1,"0" 4490 PRESET(9,47):PRINT#1,"d":PRESET(9,55):PRINT#1,"B" 4500 PRESET(22,105):PRINT#1,"O":PRESET(42,105):PRINT#1,"1" 4510 PRESET(62,105):PRINT#1,"2":PRESET(82,105):PRINT#1,"3" 4520 PRESET(102,105):PRINT#1,"4":PRESET(122,105):PRINT#1,"5" 4530 PRESET(142,105):PRINT#1,"6":PRESET(162,105):PRINT#1,"7" 4540 PRESET(182,105):PRINT#1,"8":PRESET(202,105):PRINT#1,"9" 4550 PRESET(222,105):PRINT#1,"10":PRESET(45,113):PRINT#1,"Comprimentos de Onda" 4560 GOTO4650 4570 COLOR14 4580 DRAW"BM36,20M37,30M40,40M45,48M55,58M65,64M75,68M85,72M95,73M105,75" 4590 DRAW"M115,76M125,78M135,79M145,80M155,80M165,81M175,82M185,82M195,82" 4600 DRAW"M205,83M215,83M225,83" 4610 COLOR15:LINE(35,100)-(125,60):LINE(125,60)-(155,50) 4620 LINE(155,50)-(185,39):LINE(185,39)-(225,26) 4630 COLOR14:DRAW"BM35,20D20":COLOR15 4640 GOTO4730 4650 PRESET(228,97):PRINT#1,"0§":PRESET(228,87):PRINT#1,"10§" 4660 PRESET(228,77):PRINT#1,"20§":PRESET(228,67):PRINT#1,"30§" 4670 PRESET(228,57):PRINT#1,"40§":PRESET(228,47):PRINT#1,"50§" 4680 PRESET(228,37):PRINT#1,"60§":PRESET(228,27):PRINT#1,"70§" 4690 PRESET(228,17):PRINT#1,"80§":PRESET(228,7):PRINT#1,"90§" 4700 LINE(41,31)-(96,39),1,BF:LINE(132,31)-(179,39),1,BF 4710 COLOR14:PRESET(52,32):PRINT#1,"ƒngulo":DRAW"BM50,35L3G3U2R1":PRESET(52,32) 4720 COLOR15:PRESET(133,32):PRINT#1,"ganho":DRAW"BM171,35R3F3U2L1":GOTO 4570 4730 LINE(0,123)-(255,124),2,B 4740 PLAY"V8N82":PRESET(3,128):PRINT#1,"Eis ganho e ƒngulo de irradia`„o" 4750 PRESET(3,136):PRINT#1,"para qualquer antena unifilar" 4760 PRESET(3,144):PRINT#1,"desconsiderada altura e cercani-" 4770 PRESET(3,152):PRINT#1,"as, desde que esticada, sem do-" 4780 PRESET(3,160):PRINT#1,"bras e comprimento m¡nimo = meia" 4790 PRESET(3,168):PRINT#1,"onda. Importante ‚ observar que," 4800 PRESET(3,176):PRINT#1,"para antenas alimentadas pelo" 4810 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7" 4820 IK$=INKEY$:IFIK$=""THEN4820 4830 LINE(1,127)-(255,190),1,BF 4840 PRESET(3,128):PRINT#1,"centro, os dados correspondem s¢" 4850 PRESET(3,136):PRINT#1,"a antenas cujas pernas(lados)se-" 4860 PRESET(3,144):PRINT#1,"jam iguais ou maiores que 1 com-" 4870 PRESET(3,152):PRINT#1,"primento de onda, j que elemen-" 4880 PRESET(3,160):PRINT#1,"tos menores ser„o colineares ou" 4890 PRESET(3,168):PRINT#1,"dipolos simples, com ƒngulos/ga-" 4900 PRESET(3,176):PRINT#1,"nhos bastante diferentes." 4910 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7" 4920 IK$=INKEY$:IFIK$=""THEN4920 4930 LINE(1,127)-(255,190),1,BF 4940 PRESET(3,128):PRINT#1,"EXEMPLOS:- Alimentada num extre-" 4950 PRESET(3,136):PRINT#1,"mo, 4 comprimentos de onda, ter " 4960 PRESET(3,144):PRINT#1,"ganho de +3dBd e l¢bulos princi-" 4970 PRESET(3,152):PRINT#1,"pais a 25§ do fio . Alimentada" 4980 PRESET(3,160):PRINT#1,"no centro,cada perna 6,5 ondas =" 4990 PRESET(3,168):PRINT#1,"5dBd a 20§ de cada lado do fio." 5000 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7" 5010 IK$=INKEY$:IFIK$=""THEN5010 5020 LINE(1,127)-(255,190),1,BF:CLOSE:GOTO 20 5030 CLS:LOCATE12,10:PRINT"Quarto Inclinado":GOSUB1970 5040 DEFFNC(X)=71.32/F:DEFFNP(X)=73.16/F 5050 SCREEN2:LINE(80,100)-(83,0),,BF:DRAW"BM83,0F5":CIRCLE(88,5),2 5060 CIRCLE(93,9),2:LINE(93,9)-(175,70):CIRCLE(175,70),2 5070 DRAW"BM70,100R5":DRAW"BM70,0R5":LINE(72,95)-(72,60):LINE(72,40)-(72,5) 5080 OPEN"GRP:" FOR OUTPUT AS#1 5090 PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'":FORT=1TO1500:NEXT 5100 COLOR1:PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'" 5110 COLOR15:PRESET(70,47):PRINT#1,"A" 5120 PRESET(122,42):PRINT#1,"B":PRESET(97,0):PRINT#1,"52 Ohms" 5130 PRESET(90,73):PRINT#1,"A>=" 5140 PRESET(105,73):PRINT#1,USING"###.###";FNP(F) 5150 PRESET(161,73):PRINT#1,"m":PRESET(90,83):PRINT#1,"B=" 5160 PRESET(105,83):PRINT#1,USING"###.###";FNC(F):PRESET(161,83):PRINT#1,"m" 5170 PRESET(2,105):PRINT#1,"Reduzido espa`o,possibilidade de" 5180 PRESET(2,113):PRINT#1,"uso em torre ou poste met licos" 5190 PRESET(2,121):PRINT#1,"j existentes e sens¡vel ganho" 5200 PRESET(2,129):PRINT#1,"em dire`„o … extremidade baixa." 5210 PRESET(2,137):PRINT#1,"Incline de forma que o fio n„o" 5220 PRESET(2,145):PRINT#1,"fique a menos de 45§ ou mais de" 5230 PRESET(2,153):PRINT#1,"60§ da vertical. A malha do cabo" 5240 PRESET(2,161):PRINT#1,"coaxial vai ao poste, que servi-" 5250 PRESET(2,169):PRINT#1,"r de refletor. Para os demais" 5260 PRESET(2,177):PRINT#1,"lados o sinal ser reduzido." 5270 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5270 5280 LINE(0,104)-(255,190),1,BF:COLOR15 5290 PRESET(2,105):PRINT#1,"Ajuste a ROE por aproxima`„o ou" 5300 PRESET(2,113):PRINT#1,"afastamento do poste. Giro em" 5310 PRESET(2,121):PRINT#1,"torno do poste ou fios em v -" 5320 PRESET(2,129):PRINT#1,"rias dire`”es, convenientemente" 5330 PRESET(2,137):PRINT#1,"alimentados, resultam num inte-" 5340 PRESET(2,145):PRINT#1,"ressante sistema direcional pa-" 5350 PRESET(2,153):PRINT#1,"ra DX. Havendo espa`o, um dipo-" 5360 PRESET(2,161):PRINT#1,"lo normal,assim inclinado,trar " 5370 PRESET(2,169):PRINT#1,"¢tima direcionabilidade e ganho" 5380 PRESET(2,177):PRINT#1,"relativo" 5390 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5390 5400 CLOSE:SCREEN0:GOTO20 5410 KEYOFF:CLS:TL=0:PLAYPA$:PB$="V8N82" |