summaryrefslogtreecommitdiff
path: root/3673/CH7/EX7.a.15/Example_a_7_15.sce
blob: 001ff6637eef721e72b3ea4a220ce44e1637670c (plain)
1
2
3
4
5
6
7
8
9
10
11
//Example_a_7_15 page no:282
clc;
Rs=2;
Rl=20;
Zt=Rs-%i*5+Rl;
Vs=50;
I=Vs/Zt;
Imag=sqrt(real(I)^2+imag(I)^2);
P=Imag^2*Rl;
disp(P,"the maximum power transferred is (in W)");
//power varies slightly due to values are rounded off in text book