[求助]MATLAB搞振动

superwolfer

有用MATLAB搞振动的吗，提供一点关于这方面的程序可以吗？本人初学，想了解一下，谢谢！！

scin

我也是学振动的，不过水平有限，呵呵，大家可以交流交流。

lyrock

what kinds of program do you want? I have developed some GUI program in the Vibration.

In my opinion, if you wanna do some staffs in vibration with MATLAB, u'd better begain with signal processing.

superwolfer

oh ,thank u

superwolfer

楼上的前辈，可以共享你那些程序吗？小弟现在想拿来学学。hgsliuz@tom.com,QQ: 371593876.  thank u!!!

lyrock

I sent two GUI programs to you.

Both are Finite Difference Numerical Computation Program for calculating response of transient vibration. (based on differential equation and exciting force function)

One uses Runge-Kutta Method(RKM), the other uses normal method(FDN).

have fun & good luck

superwolfer

thanks a lot ,that would be very helfull for me .

prudencewang

我也是学振动的，can you sent me a piece of it? think you
my email:michellewang@hotmail.com

lyrock

Check your email.

have fun

prudencewang

i am sorry. i made a mistake in my Email,that is michelle-wang@hotmail.com(横杠不是下划线) 。i am very sorry. can you send it to me again? think you very much!

kinger

Can I get these programs? My e-mail:  kinger11@126.com
I also developed some similar progeams by GUI and simulink based on the equations listed on the book before. But the more important thing is how to solve the realistic problem. I want to know how you deal with damp effect in your systems?
Thanks!

lyrock

OK, I put it here, u can down load it.

daat

我也需要振动的例子啊
emial:xunic@sohu.com

zhaowu

Thank you

sjh163

知道help 里面很丰富，有好多程序可以学习，想问一下怎样能找到有关振动半主动控制方面的内容或程序啊。已经搜索了相关主题的关键词，仍不得要领。请达人指教，谢谢啦。:D

sjh821

需要自己编写程序

shenaheng

我也是学振动的，can you sent me a piece of it? think you


=======================================================================

不要留邮箱！严重警告你，再在MATLAB版刷屏灌水，我直接封你ID和IP，这里是讨论园地，不是垃圾站！
                                            by bainhome

=======================================================================

[ 本帖最后由 bainhome 于 2007-10-24 21:35 编辑 ]

水冗木

了解先!
谢谢分享!

timetosaybye

都是牛人。。。。

dingxinran1106

单自由度阻尼振动动画模拟
%阻尼振动的matlab编程
close all
rectangle('position',[12,8,2,0.3],'FaceColor',[0.1,0.3,0.4]);
axis([0,15,-1,10]);
hold on
plot([13,13],[7,8],'r','linewidth',2);
y=2:.2:7;
M=length(y);
x=12+mod(1:M,2)*2;
x(1)=13;x(end-3:end)=13;
D=plot(x,y);%句柄[弹簧]
C=0:.1:2*pi;r=0.3;
t1=r*sin(C);
F1=fill(13+r*cos(C),2+t1,'r'); % 句柄[球]
set(gca,'ytick',[0:2:9]);
set(gca,'yticklabels',num2str([-1:3]'));
plot([0,15],[2,2],'black');
H1=plot([0,13],[2,2],'g'); % 句柄[绿色]
Q=plot(0,2.5,'color','r');% 运动曲线
td=[];yd=[];
T=0;
text(2,8,'damp osillation','fontsize',24);
set(gcf,'doublebuffer','on');
while T<12;
  pause(0.2);
  Dy=1-0.5*exp(-T/4)*cos(pi*T);
  Y=-(y-2)*Dy+7;
  Yf=Y(end)+t1;
  td=[td,T];yd=[yd,Y(end)];
  set(D,'ydata',Y);
  set(F1,'ydata',Yf,'facecolor',rand(1,3));
  set(H1,'xdata',[T,13],'ydata',[Y(end),Y(end)]);
  set(Q,'xdata',td,'ydata',yd)
  T=T+0.1;
end
Kd=find(diff(sign(diff(yd)))==-2)+1;
X=td(Kd);Y=yd(Kd);
X=[0,X,td(end)];
Y=[yd(1),Y,yd(end)];
plot(X,Y,':');
Kx=find(diff(sign(diff(yd)))==2)+1;
X=td(Kx);Y=yd(Kx);
X=[0,X,td(end)];
Y=[-(yd(1)-4),Y,-(yd(end)-4)];
plot(X,Y,':');