summaryrefslogtreecommitdiff
path: root/3775/CH2/EX2.9/Ex2_9.sce
blob: 2ae72759f71a63a4f326e8ba45c3cc2455e18539 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Ex 2.9 page 72

clc;
clear;
close;

Vf1=1;// V
If1=0;//A
Vf2=1.9;// V
If2=60;//A
IT=20*%pi;// A
// PAV = 1/T*integrate(VT*IT,0,T)*dt = ITAV+0.015*IRMS**2
ITAV=IT/%pi;//A
ITRMS=IT/2;// A
dt=ITAV+0.015*ITRMS**2;// W
printf('Average power loss = %.1f W',dt)