mobile phone antenna

Text Box

10 Cshunt= 1.0E-12

20 Lcoil = 18E-9

30 PRINT

100 PRINT

110 PRINT TAB(15);"Mobile phone stub tuning Trapped for full wave vertical antenna design spec's"

120 PRINT TAB(15);"Cshunt = ";Cshunt/1E-12;"pF";" Lcoil = ";Lcoil/1E-9;"nH "

130 REM PRINT TAB(15);"leg_B = ";segments_B;"m"

140 PRINT

150 PRINT TAB(15);"performance spec's"

160 PRINT

170

180

190

200 FOR f = 500 TO 3000 STEP 100

210 PROC_sums

220 NEXT

230 PRINT

240

250 REM *CHDIR C:\Users\alastair\Pictures\antenna designs

260 REM *SCREENSAVE 50omh_mobile_phone_antenna.bmp 1,1,2000,1100

270

280 END

290

300

310

320 DEFPROC_sums

330 Xc=1/(2*PI*f*1E6*Cshunt)

340 Xl = (2*PI*f*1E6*Lcoil)

350

360 Trap_effect = ((Xc*Xl)/(Xc+Xl))

370

380 L_trap_effect_inductance = Trap_effect / (2*PI*f*1E6)

390

400 L_antenna_inductance = L_trap_effect_inductance

410

420 resonant_length = L_trap_effect_inductance/(0.3E-6)

430

440 wave_length = L_trap_effect_inductance * 2 * PI * f * 1E6

450

460 SWR_imped = (wave_length)/50

470

480 PRINT TAB(15);" freq = ";f;"MHz";TAB(38)"eqiv. stub = ";INT(resonant_length * 1000 *10)/10;" mm";TAB(62);"coax line = ";INT(50*SWR_imped*10)/10;" ohms";TAB(88);" SWR = ";INT(SWR_imped * 100)/100

490

500 ENDPROC

510