summaryrefslogtreecommitdiff
path: root/1853/CH4/EX4.40/Ex4_40.sce
blob: 01e133ea8299398d29121d5b3041158b4758e8d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

//calculate the line currnt nd voltage
R=200
Vl=440
f=50
V=Vl/1.732//star connection
I=V/R
Il=I
coso=1
P=3*V*I*coso
Vp=440//delta connection
Vl=440
I1=1.732*I
P1=3*Vp*I*coso
disp('active power='+string(P)+'watt'  , 'active power='+string(P1)+'watt' )