机械动力学试验报告..docVIP

机 械 动 力 学 大 作 业 江西机械  院 系： 机械工程学院 专 业： 机械设计及理论 班 级： 4班 学 号：姓 名： 王昌荣 日 期： 2005.4.20 汽车配件网 机械动力学课程大作业 实验任务： 观察激振试验； 进行锤击试验，绘制特性曲线图及数据表，并利用所得数据对模态参数进行识别。 仪器设备 GF－10型功率放大器； XD-18A型超低频信号发生器； MO-1251型示波器； PDM-2000数据采集分析仪； 带有传感器的力锤； 加速度传感器。 实验框图 锤击实验框图： （四）绘制实频、虚频、幅频、相频及Nyqiust圆图 1．绘制实频、虚频、幅频、相频及Nyqiust圆源程序清单： %原始数据读入------------------------------------------------- clc; for j=1:4 fid=0; while fid1 switch j case 1 filename=wcry01.txt; case 2 filename=wcry02.txt; case 3 filename=wcry03.txt; case 4 filename=wcry04.txt; end [fid,j]=fopen(filename,r); if fid==-1 disp(message) end end data_all=fscanf(fid,%g); N=length(data_all); %数据长度 fs=2560; %采样频率 f=1000; %分析频率 data_Re=data_all(1:N/2); %前半段数据为实频 data_Im=data_all(N/2+1:N); %后半段数据为虚频 for i=1:N/2 Aw(i)=sqrt(data_Re(i)*data_Re(i)+data_Im(i)*data_Im(i)); %幅频 Qw(i)=atan(data_Im(i)/data_Re(i)); %相频 end figure subplot(221); plot(data_Re(1:400),b); title(—实频特性—) subplot(222); plot(data_Im(1:400),g); title(—虚频特性—) subplot(223); plot(Aw(1:400),c); title(—幅频特性—) subplot(224); plot(Qw(1:400),r); title(—相频特性—) figure plot(data_Re(1:400),data_Im(1:400),k); title(—Nyquist特性—) end 第一组数据绘图：江西机械  第二组数据绘图： 第三组数据绘图 第四组数据绘图: 2．用五点求拟合圆，并计算各阶固有频率，阻尼比： 采用第一组数据计算： 源程序清单：江西机械  clc; fprintf(‘----------采用第1组数据计算----------\n) fid=0; while fid1 filename=wcry01.txt;