wykdya 发表于 2010-10-24 21:36

振动分析MATLAB实例

请问哪位大侠有个振动分析的MATLAB实例啊,我需要结合自己课题写个MATLAB 程序,但是我还没开始接触课题,但又不想随便找个程序交上去,所以来问下哪位有,不要特别复杂的,最好有具体的流程,题目的背景什么的,比如一般的一个二自由度的无阻尼振动或者一个弹性杆的固有振型之类的,小弟万分感激

ChaChing 发表于 2010-10-25 00:29

试着自行搜索下吧! 如此学的多:@)
或待高人路过

happy 发表于 2010-10-25 07:15

三自由度系统振动分析的实例
%Calculate the natural frequencies,the normalized mode shapes and the FRFS
clear
close
a=0.001;b=0.001;
M=;
K1=;
K=1.0e+5*K1;
C=a*M+b*K;         %比例阻尼
=eig(K,M);
for j=1:1:3
    omega(j)=sqrt(D(j,j));
    for k=1:1:3
      Y(k,j)=V(k,j)/V(3,j);
    end
end
omega
Y
w=0:0.1:70;                   %频率取值范围和步长
H=zeros(701,3,3);
for j=1:1:701
    Z=K-w(j)^2*M+w(j)*C*i;    %动刚度矩阵
    HH=inv(Z);                %频响函数矩阵      
    H(j,:,:)=HH;
end;
Hr=real(H);Hi=imag(H);      
Habs=abs(H);Hang=(180/pi)*angle(H);
figure(1)
subplot(2,1,1),plot(w,Hr(:,1,1)),grid on
title('实频曲线'),xlabel('\omega'),ylabel('Hr')
subplot(2,1,2),plot(w,Hi(:,1,1)),grid on
title('虚频曲线'),xlabel('\omega'),ylabel('Hi')
figure(2)
subplot(2,1,1),plot(w,Habs(:,1,1)),grid on
title('幅频曲线'),xlabel('\omega'),ylabel('|H|')
subplot(2,1,2),plot(w,Hang(:,1,1)),grid on
title('相频曲线'),xlabel('\omega'),ylabel('\psi')
figure(3)
plot(Hr(:,1,1),Hi(:,1,1)),grid on
title('乃奎斯特圆'),xlabel('Re(H)'),ylabel('Im(H)')
%画跨点 的频响
figure(4)
subplot(2,1,1),plot(w,Hr(:,2,1)),grid on
title('实频曲线'),xlabel('\omega'),ylabel('Hr')
subplot(2,1,2),plot(w,Hi(:,2,1)),grid on
title('虚频曲线'),xlabel('\omega'),ylabel('Hi')
figure(5)
subplot(2,1,1),plot(w,Habs(:,2,1)),grid on
title('幅频曲线'),xlabel('\omega'),ylabel('|H|')
subplot(2,1,2),plot(w,Hang(:,2,1)),grid on
title('相频曲线'),xlabel('\omega'),ylabel('\psi')
figure(6)
plot(Hr(:,2,1),Hi(:,2,1)),grid on
title('乃奎斯特圆'),xlabel('Re(H)'),ylabel('Im(H)')
%画跨点 的频响
figure(7)
subplot(2,1,1),plot(w,Hr(:,3,1)),grid on
title('实频曲线'),xlabel('\omega'),ylabel('Hr')
subplot(2,1,2),plot(w,Hi(:,3,1)),grid on
title('虚频曲线'),xlabel('\omega'),ylabel('Hi')
figure(8)
subplot(2,1,1),plot(w,Habs(:,3,1)),grid on
title('幅频曲线'),xlabel('\omega'),ylabel('|H|')
subplot(2,1,2),plot(w,Hang(:,3,1)),grid on
title('相频曲线'),xlabel('\omega'),ylabel('\psi')
figure(9)
plot(Hr(:,3,1),Hi(:,3,1)),grid on
title('乃奎斯特圆'),xlabel('Re(H)'),ylabel('Im(H)')

happy 发表于 2010-10-25 07:16

单自由度系统阻尼振动实例
http://forum.vibunion.com/thread-15380-1-1.html

想要流程图有点过分了,除了教师上课讲解需要,一般人对于这类问题是不会做流程图的

ChaChing 发表于 2010-10-25 10:03

应该是要交报告吧:@)

wykdya 发表于 2010-10-28 22:18

回复 ChaChing 的帖子

是啊,哎

zhouyang664 发表于 2010-10-28 22:44

我介意以后不要直接要代码或者流程图什么的!

xiwang001 发表于 2010-10-28 23:36

这方面的东西应该是很多的,想做深就很难了,现在就感觉出现瓶颈了

ChaChing 发表于 2010-10-28 23:42

zhouyang664 发表于 2010-10-28 22:44 static/image/common/back.gif
我介意以后不要直接要代码或者流程图什么的!

针对可能是作业或报告的帖, 以前我的想法与作法是, 不马上回覆或仅仅使用提示!:@)
当然原因除了个人水平/时间有限外:@L, 个人不想扼杀了同学们思考空间, 不小心当了帮凶
当然若是有心学习的话, 将尽量讨论, 不论是多麽基础/无厘头的问题
总之, 个人以为如此才能一代超越一代, 不然怎有未来...
不过每个人的看法不同, 依循自然不同:@)

ChaChing 发表于 2010-10-28 23:45

回复 xiwang001 的帖子

什麽问题? 个人不一定懂, 但所知高手如云
建议可以整理贴出, 大家一起讨论!:@)

lmf001 发表于 2010-10-29 15:33

学习一下!

pengcheng5251 发表于 2010-11-2 09:59

回复 ChaChing 的帖子

顶你!!!!!!!!

M一蓑烟雨 发表于 2011-5-8 19:27

学习中,好难啊。。。

右手在忙 发表于 2011-5-9 11:02

9楼说的好顶

aaronlbx 发表于 2011-5-9 15:51

学习一下
页: [1] 2
查看完整版本: 振动分析MATLAB实例