blob: 297c8fd893768995d3653f79f2a204b900a26230 (
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
|
//Chapter 17
//Page 402
//Example 17_1
clear;clc;
kva=[15000 20000];
x=[30 50];
vl=12000;
base=input("Enter base kVA: ");
for i=1:2;
per_x(i)=base*x(i)/kva(i);
printf("%% Reactance of alternator %i is = %.2f %% \n\n", i, per_x(i));
end;
i=base*1000/sqrt(3)/vl;
printf("Line current = %.0f A \n\n", i);
tx=per_x(1)*per_x(2)/(per_x(1)+per_x(2));
printf("Total percentage reactance from generator nuetral upto fault point = %.2f %% \n\n", tx);
isc=i*100/tx;
printf("Short circuit current = %.0f A \n\n", isc);
|
