summaryrefslogtreecommitdiff
path: root/3769/CH13/EX13.22/Ex13_22.sce
blob: 227ccfe5b9f655617c1fa24e2b0f33da12a30401 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//Given
P=60                   //W
Ev=100.0                     //V
Ev1=220                        //v
f=50                           //Hz

//Calculation
Iv=P/Ev
Vr=Ev1-Ev
R=Vr/Iv

Vl=sqrt(Ev1**2-Ev**2)
Xl=Vl/Iv
L=Xl/(2*%pi*f)

//Result
printf("\n (i) The value of non inductive resistance is %0.3f  ohm", R)
printf("\n (ii) Pure inductance is %0.2f  H",L)