summaryrefslogtreecommitdiff
path: root/2075/CH5/EX5.9/pe5_8.sce
blob: 8b4cbb8213742a8b7a9c364a05cb6f661569abb2 (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
27
28
29
30
31
32
//example 5.8
clc; funcprot(0);
// Initialization of Variable
P=50;//power
Z=4.7//impedence
R=4;//resistance
Ta=40;//degreeC
Tj=140;//degreeC
Vd=28;
R2=22;
pi=3.1428;
//calculation
Vr=(P*R)^.5;
Vp=Vr*2^.5;
disp(Vp,"load rms voltage in V:")
Av=-Vr/1.23;
Rf=-Av*Z;
disp(Rf,"resistance in kohm:")
I=(Vd-2)/R2;
disp(I,"current in mA:")
Vm=.63*Vd;
Ip=Vm/R;
disp(Ip,"load current in A:")
Ps=Vd*Ip/pi;
disp(round(Ps),"supply power in watt:")
Pl=Ip^2/2*R;
disp(round(Pl),"load power in W:")
Pq=round(Ps)-Pl/2;
disp(Pq,"power in W:")
Qs=(Tj-Ta)/Pq-2.1;
disp(Qs,"thermal resistance in degreC/W:")
clear()