机械振动 第五版 Singiresu S. Rao MATLAB源程序

上传文件为书中的matlab求解的源程序，非课后答案。 美国迈阿密大学Singiresu S.Rao教授的力作《机械振动》（MECHANICAL VIBRATIONS)一本书的第5版秉承了其一贯的内容详实、叙述简介、强调工程背景与计算技术的风格，很能体现美国工程与技术鉴认委员会（Accreditation Board For Engineering And Technology）所要求的能力培养目标即应用数学、科学以及工程方面知识的能力，对工程问题进行识别、公式化建模和求解的能力，利用工程实践所必需的技术、方法和现代工程工具的能力，设计和进行实验以及分析和解释实验数据的能力。

%------ Program Ex12_5.m
%------Initialization of values------------------------
A1 = 16e-4 ;
A2 = 9e-4 ;
A3 = 4e-4 ;

E1 = 20e10 ;
E2 = E1 ;
E3 = E1 ;

R1 = 7.8e3 ;
R2 = R1 ;
R3 = R1 ;

L1 = 1 ;
L2 = 0.5 ;
L3 = 0.25 ;

%------Definition of [K]-------------------------------

K11 = A1*E1/L1+A2*E2/L2 ;
K12 = -A2*E2/L2 ;
K13 = 0 ;

K21 = K12 ;
K22 = A2*E2/L2+A3*E3/L3 ;
K23 = -A3*E3/L3 ;

K31 = K13 ;
K32 = K23 ;
K33 = A3*E3/L3 ;

K = [ K11 K12 K13; K21 K22 K23; K31 K32 K33 ]

%-------- Calculation of matrix

P = [ 0 0 1000]‘

U = inv（K）*P

%------- Definition of [M]-------------------

M11 = （2*R1*A1*L1+2*R2*A2*L2）/6;
M12 = （R2*A2*L2）/6;
M13 = 0;

M21 = M12;
M22 = （2*R2*A2*L2+2*R3*A3*L3）/6;
M23 = R3*A3*L3;

M31 = M13;
M32 = M23;
M33 = 2*M23;

M= [M11 M12 M13; M21 M22 M23; M31 M32 M33 ]

MI = inv（M）

KM = MI*K

%-------------Calculation of eigen vector and eigenvalue-------------------

[LV] = eig（KM）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      36352  2002-06-27 23:49  Matlab Example Programs\Ex10_6\Ex10_6.doc

     文件        608  2002-06-27 23:44  Matlab Example Programs\Ex10_6\Ex10_6.m

     文件        235  2002-06-27 23:47  Matlab Example Programs\Ex10_6\Ex10_6_1.m

     文件      29696  2002-06-27 22:48  Matlab Example Programs\Ex10_7\Ex10_7.doc

     文件        832  2002-06-27 22:49  Matlab Example Programs\Ex10_7\Ex10_7.m

     文件        291  2002-06-25 15:33  Matlab Example Programs\Ex11_10\Dfunc11_10.m

     文件        345  2002-06-25 15:48  Matlab Example Programs\Ex11_10\Ex11_10.m

     文件        186  2002-06-24 16:13  Matlab Example Programs\Ex11_9\Dfunc11_9.m

     文件        190  2002-06-24 16:11  Matlab Example Programs\Ex11_9\Ex11_9.m

     文件        977  2002-06-24 10:57  Matlab Example Programs\Ex12_5.m

     文件         96  2002-06-25 18:35  Matlab Example Programs\Ex13_6\DFUNC1_A.M

     文件        123  2002-06-25 18:36  Matlab Example Programs\Ex13_6\DFUNC1_B.M

     文件        101  2002-06-25 18:36  Matlab Example Programs\Ex13_6\DFUNC1_C.M

     文件       1366  2002-06-26 15:45  Matlab Example Programs\Ex13_6\Ex13_6.m

     文件        184  2002-05-10 15:04  Matlab Example Programs\Ex13_7\DFUNC3_A.M

     文件        186  2002-06-25 18:18  Matlab Example Programs\Ex13_7\dfunc3_a1.m

     文件        200  2002-05-10 15:04  Matlab Example Programs\Ex13_7\DFUNC3_B.M

     文件        202  2002-06-25 18:18  Matlab Example Programs\Ex13_7\dfunc3_b1.m

     文件        603  2002-06-25 18:30  Matlab Example Programs\Ex13_7\Ex13_7.m

     文件        212  2002-06-25 17:57  Matlab Example Programs\Ex13_8\Dfunc13_8_1.m

     文件        210  2002-06-25 17:59  Matlab Example Programs\Ex13_8\Dfunc13_8_2.m

     文件        389  2002-06-25 18:01  Matlab Example Programs\Ex13_8\Ex13_8.m

     文件        234  2002-06-24 17:17  Matlab Example Programs\Ex14_10\Ex14_10.m

     文件         75  2002-06-24 17:15  Matlab Example Programs\Ex14_10\NORMP.M

     文件       1310  2002-06-25 17:39  Matlab Example Programs\Ex14_9\Ex14_9.m

     文件       2096  2002-06-24 17:07  Matlab Example Programs\Ex14_9\Ex14_9_1.m

     文件        851  2002-10-15 16:02  Matlab Example Programs\EX1_14.M

     文件        261  2002-04-12 11:43  Matlab Example Programs\EX1_15.M

     文件        257  2002-04-16 14:53  Matlab Example Programs\Ex2_17.m

     文件        369  2002-04-16 15:01  Matlab Example Programs\Ex2_18.m

............此处省略150个文件信息