summaryrefslogtreecommitdiff
path: root/3369/CH12/EX12.4/Ex12_4.sce
blob: 22c60b7b058f64153c5d943541bc5345cf4390cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Chapter 12, Exmaple 4, page 406
//Calculate resistivity
clear
clc
// Baased on Equation 12.1*10**2
c4 = 0.5*10**2/10 // micro F
Ic = 2*10**4*2*%pi*5*50*10**-6/sqrt(3)
C = (sqrt(3)*10000*Ic)*(10**-9*10**6)
printf("\n C4 = %f mircoF ",c4)
printf("\n Line charging current = %f A ",Ic)
printf("\n Charging = %f kVA ",C)

// Answers may vary due to round off error