summaryrefslogtreecommitdiff
path: root/1892/CH1/EX1.17/Example1_17.sce
blob: 0220be3d7bdb73d0047a9ac22656650197a2ffb1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// Example 1.17

clear; clc; close;

format('v',6);
// Given data
Z1=0.07+%i*0.4;//in ohm
Z2dash=0.08+%i*0.2;//in ohm
V1_line=200;//in volt

//Calculations
R1=real(Z1);//in ohm
X1=imag(Z1);//in ohm
R2dash=real(Z2dash);//in ohm
X2dash=imag(Z2dash);//in ohm
R1e=R1+R2dash;//in ohm
X1e=X1+X2dash;//in ohm
Z1e=R1e+%i*X1e;//in ohm
Z1e_mag=abs(Z1e);//magnitude of Z1e in ohm
V1PerPhase=V1_line/sqrt(3);//in volt
Pout_max=3*V1PerPhase^2/2/(R1e+Z1e);//
S=R2dash/(R2dash+Z1e_mag);//
disp(S*100,"Slip in % : ")