blob: b3b3db530fa05f47589b52c7b55e2925dcf2c46d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
// Example 7.1
// AC Power Calculations
// From Example 6.8 we already found that,
Z=complex(4.8,6.4);
V_m=80;
V_c_m=40;
I_m=10*10^-3;
// The total average power supplied by the source is,
R_omega=4.8*10^3;
R1=40*10^3;
R2=5*10^3;
P=0.5*R_omega*I_m^2; // Average Power
// This power is actually dissipated by 40kohm and 5kohm resistor
P_R1= V_m^2/(2*R1);
P_R2=V_c_m^2/(2*R2);
disp(P,"Total Average Power Dissipation(in Watt)=")
disp(P_R1,"Power dissipated across 40kohm(in Watt)=")
disp(P_R2,"Power dissipated across 5kohm(in Watt)=")
if P==(P_R1+P_R2) then
disp("This shows average power dissipation in the due to all resistors")
end
|
