summaryrefslogtreecommitdiff
path: root/1616/CH2/EX2.14/ex2_14.sce
blob: debec0db2a61d225bc385b07b338feee65b7217c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//ex2.14  find the power delivered to the load and the peak voltage at the load-end of the line

ZL=50;
Z0=50+%i*50;
Tl=(ZL-Z0)/(ZL+Z0);
VSWR=(1+abs(Tl))/(1-abs(Tl));
disp('VSWR = '+string(VSWR));
vmax=50;
PL=0.5*vmax^2/(VSWR*real(Z0));
RL=50;
VL=sqrt(PL*RL*2);
disp('Peak voltage at the load = '+string(VL)+' V','Power delivered to the load = '+string(PL)+' W');