ylj_peak_extract.m

变压器局部放电实验数据处理matlab程序

function ylj_peak_extract(fileinpath,fileoutpath,name)
%提取fileinpath 文件夹下的所有文件中的峰值及其对应相位
%以name的名称输出到fileoutpath文件夹中
%---------------------------------------------------
s=what;%提取当前工作路径信息
workpath=s.path;%将当前工作路径传给变量workpath
dat=dir(fileinpath); %提取待处理数据文件夹下面的文件信息 
h=waitbar(0,'Please wait...');
for i=1:length(dat)-2
    filein(i,:)=dat(i+2).name;
    filein_now=strcat(fileinpath,'\',filein(i,:))
       [time,x]=ylj_waveplot(filein_now,0);%登陆数据
    z=[time,x];
    x=phase_change(z,0);%利用phase_change函数提取峰值付给变量x,不画图
    cd(fileoutpath)
    save_name=strcat(name,'.txt');
    fid=fopen(save_name,'a');
    fprintf(fid,'%6.2f %12.8f\n',x')
    fclose(fid)
    cd(workpath)
    waitbar(i/(length(dat)-2),h);
end