10 Cshunt= 52E-12
   20 Lcoil = 82E-6
   30 segments_A =9
   40 segments_B = 1.0
   50 PRINT
   60 PRINT
   70 PRINT
   80 PRINT
   90 PRINT
  100 PRINT
  110 PRINT
  120 
  130 PRINT
  140 REM PRINT      sqr(564/50) =  3.36 turns ratio
  150 REM PRINT             11 = squares of the turns ratio
  160 PRINT
  170 PRINT
  180 PRINT TAB(15);"matching relative to full wavelength reactance of 564 ohms"
  190 
  200 PRINT
  210 PRINT TAB(15);"Balum 50ohms to 564ohms (3 turns primary : 10 turns secondary)  "
  220 PRINT
  230 PRINT TAB(15);"Loading trap antenna design spec's"
  240 PRINT TAB(15);"1st leg = ";segments_A;"m  "
  250 PRINT TAB(15);"Cshunt = ";Cshunt/1E-12;"pF";" Lcoil = ";Lcoil/1E-6;"uH  "
  260 PRINT TAB(15);"2nd leg = ";segments_B;"m"
  270 PRINT
  280 PRINT TAB(15);"performance spec's"
  290 PRINT
  300 
  310 FOR f=1 TO 15  STEP 1
  320   Xc=1/(2*PI*f*1E6*Cshunt)
  330   Xl = (2*PI*f*1E6*Lcoil)
  340   seg_A_inductance = segments_A*0.3E-6
  350   seg_B_inductance = segments_B*0.3E-6
  360   
  370   Xseg_A = (2*PI*f*1E6*seg_A_inductance)
  380   Xseg_B = (2*PI*f*1E6*seg_B_inductance)
  390   Trap_effect = Xc*(Xl/(Xc+Xl))
  400   L_effect = Trap_effect/(2*PI*f*1E6)
  410   L_antenna =  L_effect + seg_A_inductance + seg_B_inductance
  420   Antenna_length = L_antenna/0.3E-6
  430   resonant_length = Antenna_length
  440   impedance_tap = (50/564) * resonant_length
  450   wave_length = resonant_length /  (300/f)
  460   SWR_imped = (wave_length * 564)/564
  470   IF SWR_imped <1 THEN SWR_imped = 1/SWR_imped
  480   REM IF SWR_imped >1 THEN SWR_imped = SWR_imped - 1
  490   REM PRINT TAB(15);" freq = ";f;"MHz";TAB(33)"Effect m = ";resonant_length;TAB(55);" wavelength = ";wave_length;TAB(82);" SWR = ";SWR_imped
  500   PRINT TAB(15);" freq = ";f;"MHz";TAB(33)"Effect length = ";resonant_length;TAB(63);" SWR = ";SWR_imped
  510 NEXT
  520 REM *CHDIR C:\Users\helen\Pictures\HFantenna
  530 REM *SCREENSAVE trap_log_wire_HF_full_wave_160m_20m.bmp 1,1,2000,1100