-
大小: 1KB文件類型: .rar金幣: 2下載: 0 次發(fā)布日期: 2021-05-12
- 語言: 其他
- 標(biāo)簽: 峰值法??頻率識(shí)別??自由振動(dòng)??
資源簡介
本程序基于Peak Picking 峰值法拾取結(jié)構(gòu)振動(dòng)響應(yīng)中的自振頻率。

代碼片段和文件信息
%峰值法
clear
close?all
format?long
fprintf(‘Samples?In?Test?:\n‘);
path_base?=?sprintf(‘test‘);
dir_sample?=?dir(path_base);
[nsampledummy]?=?size(dir_sample);
nsample?=?nsample?-?2;
for?i?=1:nsample
????fprintf(strcat(num2str(i)‘:?????‘));
????fprintf(dir_sample(i+2).name);
????fprintf(‘\n‘);
end
SampleNum?=?input(‘Please?select?the?sample?number:\n‘);
path_sample?=?strcat(path_base‘\‘dir_sample(SampleNum+2).name);?%strcat:連接字符串的函數(shù)
name_sample?=?dir_sample(SampleNum+2).name;
%提取測試數(shù)據(jù)
data(:1)=load(path_sample);?
%所選的時(shí)域樣本內(nèi)數(shù)據(jù)個(gè)數(shù)
ntdata?=?length(data(:1));?
Cvtdata=?zeros(ntdata1);
%【1】正常信號(hào)處理:
Cvtdata?=?data;
%【1】正常信號(hào)處理end;
%?%【2】Narada信號(hào)轉(zhuǎn)換:
%?for?j=1:length(data(:1))
%?????data(j1)?=?data(j1)?*?5.0?/?65535.0;??%Convert?the?data?轉(zhuǎn)化為電壓信號(hào)
%?end???????
%?
%?%增益系數(shù)
%?gain?=?10;
%?for?j=1:ntdata??????
%?????Cvtdata(j1)=?data(j1)/(gain*200/1000);
%?end
%?Avgdata?=?zeros(11);
%?Avgdata?=?mean(?Cvtdata(:1)??);?%求數(shù)據(jù)平均值
%?%【2】Narada信號(hào)轉(zhuǎn)換end;
%?峰值法識(shí)別
f?=?800;??%采樣頻率
fs?=?f;
fc?=?0.02;??%高通截?cái)囝l率
%?dummyV?=?IdealHighPass?(DSet?fs?fc)?;?????%濾波
%?nDSet=?dummyV(1:size(DSet1));???
t?=?0:1/f:(ntdata-1)/f;
%%%??FFT?快速傅里葉變換??%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%?[Nsdummy]=?size(nDSet(:1));????%Sample?size?樣本大小
mag=abs(fft(Cvtdatantdata));???%Magnitude?
mag(1:51)=?mag(1:51)/20;
freqdomain=?fs*(0:ntdata-1)‘/ntdata;???%?Frequency?series
figure;
plot(tCvtdata);
xlabel([‘Time?(s)‘]);
ylabel([‘Accel?(g)‘]);?
grid?on
%?annotation(‘textbox‘[0.20.80.90.2]‘string‘strcat(?Narada_name‘??Time:??‘dataFolder)‘EdgeColor‘‘none‘‘FontSize‘16);
figure;
hold?on
title(‘fft-data‘);
plot(freqdomain(1:ntdata/21)mag(1:ntdata/21));
xlabel(‘Frequency?(Hz)‘‘FontSize‘14);
%?ylabel(‘Magnitude‘‘FontSize‘14);
ylabel(‘Magnitude‘‘FontSize‘14);
hold?off
%%%Obtain?psd?estimate?using?welch‘s?method
if?1==1
figure;
%?hold?on
title(‘pwelch-data‘);
[psd_cf_c]=pwelch(Cvtdatantdata0[]fs‘onesided‘);??%pls?set?the?stablized?time?of?zeropadding?as?10s.
pwelch(Cvtdatantdata0[]fs‘onesided‘);
figure;
loglog(f_cpsd_c);
xlabel(‘Frequency?(Hz)‘);
ylabel(‘Power?Spectrum?Density?‘);
%?hold?off
end
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件???????2351??2015-10-21?12:41??peak_picking.m
-----------?---------??----------?-----??----
?????????????????2351????????????????????1
評(píng)論
共有 條評(píng)論