summaryrefslogtreecommitdiff
path: root/2075/CH5/EX5.5/pe5_5.sce
blob: f29446559611ee8118a27fdce0bfe25a8c09554d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//example 5.5
clc; funcprot(0);
// Initialization of Variable
R1=22;//resistance
Vg=3.6;//voltage
Vd=56;
G=.98;//gain
Vi=40;
Rl=8;//load resistance
Vp=36.5;
pi=3.1428;
//calculation
Vr=Vd-Vg;
Ir=Vr/R1;
R2=Vg/Ir;
disp(R2,"resistance in kohm:")
Va=(R1/(R1+R2))*Vi;
Vl=G*Va;
disp(Vl,"load voltage in V:")
Il=Vp/Rl;
Pl=Vp*4.6/4;
Ps=Vd*4.6/pi;
Pq=Ps-Pl;
disp(Pq,"Pq in watt:")
disp(Ps,"Ps in watt:")
disp(Pl,"Pl in watt:")