function[ride]=yallmax %Y.S.J ver.2002.9.27
%------------------------------
%close all;
clc;
frs=2500;
waf1=0.4;
waf2=100;
waq1=0.71;
wag1=tf([4*pi*pi*waf2*waf2,0,0],[1,2*pi*waf1/waq1,4*pi*pi*waf1*waf1]);
wag2=tf([1],[1,2*pi*waf2/waq1,4*pi*pi*waf2*waf2]);
wag=wag1*wag2;
%H(a)传函系数
[wab,waa]=tfdata(wag,'v');
wab;
waa;
[wabz,waaz]=bilinear(wab,waa,frs);
wabz;
waaz;
w=logspace(0,3);
f=w/(2*pi);
wah=freqs(wab,waa,w);
wamag=abs(wah);
waphase=angle(wah);
%figure(1)
%subplot(2,1,1),loglog(f,wamag)
%subplot(2,1,2),loglog(f,waphase)
%pause;
w=logspace(0,3);
f=w/(2*pi);
wah=freqz(wabz,waaz,w);
wamag=abs(wah);
waphase=angle(wah);
%figure(2)
%subplot(2,1,1),loglog(f,wamag)
%subplot(2,1,2),loglog(f,waphase)
%pause;
Wbf3=16;
Wbf4=16;
Wbf5=2.5;
Wbf6=4;
Wbq2=0.63;
Wbq3=0.8;
Wbq4=0.8;
Wbk=0.4;
%depict the transfer function of Hb
wbg1=tf([2*pi*Wbk*Wbf4*Wbf4*Wbf6*Wbf6/Wbf3,4*pi*pi*Wbk*Wbf4*Wbf4*Wbf6*Wbf6],[1,2*pi*Wbf4/Wbq2,4*pi*pi*Wbf4*Wbf4]);
wbg2=tf([1/(Wbf5*Wbf5),2*pi/(Wbf5*Wbq3),4*pi*pi],[1,2*pi*Wbf6/Wbq4,4*pi*pi*Wbf6*Wbf6]);
wbg=wbg1*wbg2;
%H(b)传函系数
[wbb,wba]=tfdata(wbg,'v');
[wbbz,wbaz]=bilinear(wbb,wba,frs);
[H,W]=freqz(wbbz,wbaz);
%loglog(W*243/(2*pi),abs(H));grid
w1=logspace(0,3);
wbh=freqs(wbb,wba,w1);
wbmag=abs(wbh);
%wbmag=abs(wbh-wah)
wbphase=angle(wbh);
f1=w1/(2*pi);
%figure(2)
%loglog(f1,wbmag)
%pause;
%loglog(f1,wbphase)
%depict the transfer function of Hc
Wcf3=8;
Wcf4=8;
Wcq2=0.63;
Wck=1.0;
%H(c)传函系数
Wcb=[2*pi*Wck*Wcf4*Wcf4/Wcf3,4*pi*pi*Wck*Wcf4*Wcf4];
Wca=[1,2*pi*Wcf4/Wcq2,4*pi*pi*Wcf4*Wcf4];
[wcbz,wcaz]=bilinear(Wcb,Wca,frs);
w3=logspace(0,3);
wch=freqs(Wcb,Wca,w3);
wcmag=abs(wch);
f3=w3/(2*pi);
%mag = 20*log10(mag);
%figure(3)
%subplot(2,1,1), loglog(f3,wcmag)
%pause;
%depict the transfer function of Hd
Wdf3=2;
Wdf4=2;
Wdq2=0.63;
Wdk=1.0;
%H(d)传函系数
Wdb=[2*pi*Wdk*Wdf4*Wdf4/Wdf3,4*pi*pi*Wdk*Wdf4*Wdf4];
Wda=[1,2*pi*Wdf4/Wdq2,4*pi*pi*Wdf4*Wdf4];
[wdbz,wdaz]=bilinear(Wdb,Wda,frs);
w4=logspace(0,3);
wdh=freqs(Wdb,Wda,w4);
wdmag=abs(wdh);
f4=w4/(2*pi);
%figure(4)
% %subplot(2,1,1), loglog(f4,wdmag)
% fs=243;
% % 40Hz巴特沃斯低通滤波器参数计算
% Wp=40;Ws=45;rp=0.3;rs=30;F=fs; %fs=243
% % Wp=40;Ws=45;rp=0.3;rs=40;F=frs; %fs=243--973
% [N,Wn]=buttord(Wp/(F/2),Ws/(F/2),rp,rs);
% [b,a]=butter(N,Wn);
fs=2500;
wp=2*80*pi/fs;
wdelta=wp;
N=12;
wn=wp/pi;
b=fir1(N,wn,hanning(N+1));
disp(' ');
disp(' ');
disp('------------------------------------------------------');
disp('| 舒 适 度 计 算 程 序 |');
disp('| 2004.10 V2.0 |');
disp('| |');
disp('| SWJTU_TPL_YSJ |');
disp('------------------------------------------------------');
disp(' ');
disp(' 计算每段5秒数据的三向振动舒适度 ');
disp('');
for k=1:3
[filename,pathname,fileIndex]=uigetfile('*.txt','pick a file');
if fileIndex~=0
datafile=[pathname,filename];
if exist(datafile,'file');
fid=fopen(datafile,'r');
sy=fscanf(fid,'%g');
fclose(fid);
end
end
[m n]=size(sy);
sy=sy*9.81;
sy=sy-mean(sy);
data=sy;
%data(:,1)=sy;
%for j=1:2
%[filename,pathname,fileIndex]=uigetfile('*.txt','pick a file');
%if fileIndex~=0
% datafile=[pathname,filename];
% if exist(datafile,'file');
% fid=fopen(datafile,'r');
% sy=fscanf(fid,'%g');
% fclose(fid);
% end
%end
%m1=length(sy);
m1=length(data);
if m1<m
i=m-m1;
for ii=1:i
sy=[sy;0];
end;
else if m1>m
i=m1-m;
sy=sy(1:i);
end;
end;
sy=sy-mean(sy);
%data(:,j+1)=sy;
data=sy;
% for k=1:3
data_1=fftfilt(b,data); % 40Hz巴特沃斯低通滤波器 滤波
data_a=filter(wabz,waaz,data_1); %Wa 计权
if k==1
data_end=filter(wbbz,wbaz,data_a); % Wb 垂向滤波
else if k==2
data_end=filter(wdbz,wdaz,data_a);% Wd 横向滤波
else
data_end=filter(wdbz,wdaz,data_a);%Wc 纵向滤波
end;
end;
tfield=fix(m/(5*fs));
data_end=data_end(1:tfield*5*fs);
datam=reshape(data_end,fs*5,tfield); %512*65_
[x,y]=size(datam);
for j=1:y
datam(:,j)=datam(:,j)-mean(datam(:,j));
end;
mean_sq_r_v=sqrt(diag(cov(datam)));
data_v(:,k)=mean_sq_r_v;
yy(:,k)=data_v(:,k);
% yy(k)=prctile(data_v,95); %计算各列均方根值的95%值
end;
Azp95=diag(yy(:,1)*yy(:,1)');
Ayp95=diag(yy(:,2)*yy(:,2)');
Axp95=diag(yy(:,3)*yy(:,3)');
% leq_z=20*log10(yy(1)/10^(-6));
% leq_y=20*log10(yy(2)/10^(-6));
% leq_x=20*log10(yy(3)/10^(-6));
N=6*sqrt(Azp95+Ayp95+Axp95); %计算综合舒适度N=6*sqrt(x^2+y^2+z^2)
% yy1=prctile(data_v,50);
% ty=(5.6/3.15/yy1(lateral_acc))^2*0.167; %y(横向)向疲劳时间(h)
% tz=(5.6/3.15/yy1(vertical_acc))^2*0.167; %z(垂向)向疲劳时间(h)
% t=(5.6/3.15/(sqrt(1.4^2*yy1(lateral_acc)^2+yy(vertical_acc)^2)))
% ^2*0.167; %综合疲劳时间(h)
m=length(filename);
createfile=strcat(pathname,'\');
createfile=char(createfile);
if exist(createfile,'file')==0
createfile=strcat(pathname);
mkdir(createfile);
end
createfile=strcat(pathname,'\');
savename=strcat(createfile,'\',filename(1:m-4),'_s','.txt');
fid=fopen(savename,'wt');
fprintf(fid,'%g\n',N);
fclose(fid);
clear data_v;
% disp(' ');
% ask_c=input('继续计算吗(是=y,否=n)? ','s');
%
% if ask_c=='y' sqrtd2
% end;
% disp(' ');
% disp('程序运行结束,谢谢使用!');
没有合适的资源?快使用搜索试试~ 我知道了~
基于MATLAB实现的uic513标准的算法振动,分垂横纵3个方向,输入,经MATLAB算法得出振动舒适度的指标+使用说明文档
共2个文件
md:1个
m:1个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 4 浏览量
2024-05-22
17:17:49
上传
评论
收藏 6KB RAR 举报
温馨提示
CSDN IT狂飙上传的代码均可运行,功能ok的情况下才上传的,直接替换数据即可使用,小白也能轻松上手 【资源说明】 基于MATLAB实现的uic513标准的算法振动,分垂横纵3个方向,输入,经MATLAB算法得出振动舒适度的指标+使用说明文档 1、代码压缩包内容 主函数:main.m; 调用函数:其他m文件;无需运行 运行结果效果图; 2、代码运行版本 Matlab 2020b;若运行有误,根据提示GPT修改;若不会,私信博主(问题描述要详细); 3、运行操作步骤 步骤一:将所有文件放到Matlab的当前文件夹中; 步骤二:双击打开main.m文件; 步骤三:点击运行,等程序运行完得到结果; 4、仿真咨询 如需其他服务,可后台私信博主; 4.1 期刊或参考文献复现 4.2 Matlab程序定制 4.3 科研合作 功率谱估计: 故障诊断分析: 雷达通信:雷达LFM、MIMO、成像、定位、干扰、检测、信号分析、脉冲压缩 滤波估计:SOC估计 目标定位:WSN定位、滤波跟踪、目标定位 生物电信号:肌电信号EMG、脑电信号EEG、心电信号ECG 通信系统:DOA估计、编码译码、变分模态分解、管道泄漏、滤波器、数字信号处理+传输+分析+去噪、数字信号调制、误码率、信号估计、DTMF、信号检测识别融合、LEACH协议、信号检测、水声通信 5、欢迎下载,沟通交流,互相学习,共同进步!
资源推荐
资源详情
资源评论
收起资源包目录
基于MATLAB实现的uic513标准的算法振动,分垂横纵3个方向,输入,经MATLAB算法得出振动舒适度的指标+使用说明文档.rar (2个子文件)
SQRTD.m 6KB
使用说明文档.md 13KB
共 2 条
- 1
资源评论
IT狂飙
- 粉丝: 4778
- 资源: 2640
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- comment.block.documentation.rust
- there is no way to distinguish perfectly
- 数据库管理工具:dbeaver-ce-24.0.2-x86-64-setup.exe
- Objective-C.tmLanguage
- 数据库管理工具:dbeaver-ce-24.0.2-macos-x86-64.dmg
- Delphi 12 控件之StyleControls 5.77.7z
- 苹果CMSV10红色自适应网站模板
- 数据库管理工具:dbeaver-ce-23.3.5-stable.x86-64.rpm
- SAP 消息号C6013解决方案
- C#入门必看的实例程序100个,含全部源代码.zip
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功