summaryrefslogtreecommitdiff
path: root/3769/CH13/EX13.21/Ex13_21.sce
blob: a6279c03e650e8cf77dde1e9e6c463fb432b2653 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//Given
Vr=150                     //V
R=75.0                        //ohm
f=50                          //Hz
L=318*10**-3                      //H

//Calculation
//
Iv=Vr/R
Xl=2*%pi*f*L
Vl=Iv*Xl
Z=sqrt(R**2+Xl**2)
Ev=Iv*Z
a=Xl/R
a1=atan(a)*180/3.14

//Result
printf("\n (i) The supply voltage is %0.0f  V",Ev)
printf("\n (ii) The phase angle is %0.2f  degree lag",a1)