summaryrefslogtreecommitdiff
path: root/3769/CH13/EX13.31/Ex13_31.sce
blob: 9f29ba91a0747bb7601d437bda78b2b02642faa7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clear
//Given
a=65                         //degree
b=20                         //degree
w=3000
L=0.01
E0=400                      //V
I=10
f=50

//calculation
//
a=a-b
Xl=w*L
Z=E0/(I*sqrt(2))
R=Z/sqrt(2)
Xc=Xl-R
C=1/(w*Xc*10**-6)

//Result
printf("\n  The value of C is %0.1f  microF",C)
printf("\n  The value of R is %0.3f  ohm",R)