1 files changed, 17 insertions, 0 deletions
diff --git a/257/CH4/EX4.14/example_4_14.sce b/257/CH4/EX4.14/example_4_14.sce
new file mode 100644
index 000000000..051e3f1c1
--- /dev/null
+++ b/257/CH4/EX4.14/example_4_14.sce
@@ -0,0 +1,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)
+\ No newline at end of file