summaryrefslogtreecommitdiff
path: root/257/CH4/EX4.14/example_4_14.sce
blob: 051e3f1c1f95a9116bb4cbe48e929eac7d342092 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
syms M1 X1 B1 K X2 M2 B2 K3 K1 K2 C1 C2 C3 R1 R2 M3 X3 B3 I1 I2 I3 L3 L1 L2 R3

F=M1*X1*s^2 + B1*s*X1 + K*X1 + B2*(X1-X2)*s
zero=M2*X2*s^2 + B2*s*(X2-X1)+K3*X2+K2*(X2-X3)
zro=K2*(X3-X2)+M3*s^2*X3+B3*s*X3
disp(F)
disp(zero," 0 =")
disp(zro," 0 = ")

disp("F-V equations are")

V=L1*s*I1 + R1*I1 + R2*(I1-I2)+I1/(s*C1)
zero=L2*s*I2 + I2/(s*C3) + R2*(I2-I1)+(I2-I3)/(s*C2)
zro=(I3-I2)/(s*C2)+L3*s*I3+R3*I3
disp(V)
disp(zero)
disp(zro)