summaryrefslogtreecommitdiff
path: root/1340/CH2/EX2.17/2_17.sce
blob: bcd57db19acaa830c91d6f552ca24797fe4da7be (plain)
1
2
3
4
5
6
7
8
clc;
syms M1 M2 K1 K2 K3 fv1 fv2 fv3 X1 X2 F s delta;
A = [M1*s^2+s*(fv1+fv3)+(K1+K2) -(fv3*s+K2);-(fv3*s+K2) M2*s^2+s*(fv3+fv2)+(K3+K2)];
B = [X1;X2];
C = [F;0];
B = inv(A)*C;

disp(B(2)/(F),"X2(s)/F(s)=");