clc;
//page no 476
//prob no. 14.6
//A 50ohm line terminated in 25ohm resistance
Zo=50;Zl=25;
//Determination of SWR
SWR=Zo/Zl;//In this case Zo>Zl
disp(SWR,'The value of SWR is');