summaryrefslogtreecommitdiff
path: root/1076/CH13/EX13.16/13_16.sce
blob: fe4f6386e410962566e112e512f609c4995cf8ff (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
clear;
clc

E=1.5
V=1
xg=1
xm=1

xt1=.1
xt2=.1
x1=.4
x2=.4
xl=(x1*x2)/(x1+x2)
X1=xl+xg+xt1
X2=xt2+xm
xL=.8
xC=-.8


X3=xC
X=((X1*X2) + (X2*X3) + (X1*X3))/X3
P1=E*V/X
mprintf("\n(a) Steady State limit = %.3f", P1)

X3=xL
X=((X1*X2) + (X2*X3) + (X1*X3))/X3
P2=E*V/X
mprintf("\n(b) Steady State limit = %.3f", P2)