summaryrefslogtreecommitdiff
path: root/3835/CH6/EX6.6/Ex6_6.sce
blob: 77509d997b220c1215dd76368aa7ed0ac913f724 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
clear
//
//case a
//from oc test data shunt admittances are determined as follows
//given
v1=200
i0=1
pc=100
yc=i0/(v1)
printf("\n yc= %e  S",yc)
gc=pc/(v1**2)
printf("\n gc= %e S",gc)
bm=(((0.005**2)-(0.0025**2))**0.5)
printf("\n bm= %e   S",bm)
//from sc test data
p=85
isc=10
vsc=15
req=p/(isc**2)
printf("\n req= %0.1f  ohm",req)
zeq=vsc/(isc)
printf("\n zeq= %0.1f  ohm",zeq)
xeq=(((zeq**2)-(req**2))**0.5)
printf("\n xeq= %0.1f  ohm",xeq)
//case b
a=0.5
//equivalent impedance parameters referred to lv side
re=(a**2)*req
printf("\n req1= %0.1f  ohm",re)
xe=(a**2)*xeq
printf("\n xeq1= %0.1f  ohm",xe)
ze=(a**2)*zeq
printf("\n zeq1= %0.1f  ohm",ze)