Maple 解《机械振动》多自由度系统习题
本帖最后由 wrj001 于 2016-11-24 19:53 编辑以下为本人原创，权作抛砖。
Maple 解《机械振动》习题
如图系统，求固有频率：
解：首先，利用定义（或牛顿受力分析或能量法）写出系统的质量阵、刚度阵；
将上述两阵代入特征（频率）方程中，利用Maple计算频率；
with(linalg):M := array([, , ]);
K := array([, [-k, 2*k, -k], ]);
Q := matadd(-omega2*M, K);
eqn := det(Q) = 0;
solve(eqn, omega2);
页:
[1]