Procedure menghitung SWR

SWR = [1 + Rc] / [1 - Rc]

Dimana:

• RC = | [ZL - Zo] / [ZL + Zo] |
• ZL = impedansi input antenna (beban)
• Zo = impedansi saluran transmisi (coax, feeder, dll)
• Bila ZL atau Zo merupakan bilangan imajiner atau khayal, maka ZL atau Zo ini merupakan magnitudo dari bilangan tersebut.

dalam program procedure pascal ini nilay ZL=50 dan ZO=100

listing program:

uses crt;

function besar (zo,zl : integer) : integer;

begin

besar:=zo ;

besar := zl;

end;

var

zo,zl: integer;

begin

clrscr;

write( ‘nilai zo  = ‘); readln(zo);

writeln;

write (‘nilai zl = ‘); readln(zl);

writeln;

write(‘vswr =’, zo/zl);

readln;

end.

 

output program