blob: 56c441e2c7f97f51da8888ed0a7a0d9c8ce18b4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
// Example 7.4
// Power-Transfer Efficiency
// from figure 7.8
V_rms=300; // Volts
R_s=2;// Ohms
Z_R= 20;
Z_C= -%i*10;
Z_RC=(Z_C*Z_R)/(Z_C+Z_R);
// Total impedance seen by source
Z=R_s+Z_RC;
I_rms=V_rms/(abs(Z)); // RMS value of current
P=real(Z)*I_rms^2;// Real Power
Q= imag(Z)*I_rms^2; // Reactive Power
P_s= R_s*I_rms^2;
P_L=real(Z_RC)*I_rms^2;
// Power transfer efficiency
Eff=P_L/P;
disp(I_rms,"RMS valur of current(in Amps)=")
disp(P,"Real Power(in Watts)=")
disp(Q,"Reactive Power(in VAr)=")
|
