summaryrefslogtreecommitdiff
path: root/761/CH14/EX14.20/14_20.sce
blob: 8719662a369aec6dac33906bda897151b8cc9aca (plain)
1
2
3
4
5
6
7
8
clc;
//page no 504
//prob no. 14.20
//Frwd power in Tx line is 150W,Reverse power=20W
Pi=150;Pr=20;//All power in watt
//Determination of SWR
SWR=(1+sqrt(Pr/Pi))/(1-sqrt(Pr/Pi));
disp(SWR,'The value of SWR is');