summaryrefslogtreecommitdiff
path: root/2414/CH14/EX14.8/Ex14_8.sce
blob: d3fc831aa21643513e67895461ffb8ccf7fca203 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc;
close();
clear();
//page no 481
//prob no. 14.8
Rin=50   //ohm
Rout=50;   //ohm
Vrms=400;  //V

l=50;      //m
Ldb=.01*l;   //dB
L=10^(Ldb/10);
mprintf('The abslute loss is, L = %f \n',L);
Irms=Vrms/(Rin+Rout);  //A
Pin=Irms^2*Rin;

PL=Pin/L;
mprintf(' The actual Power reaching the load is, PL = %.1f W \n',PL);