matlab諧波分析程序

1、clcclear all;format long;Ns=1000;order=13;%*read the position and fluxdensity*fid=fopen('B.dat','r' %open the original filefidnew = fopen('b1.dat','w' %write the new filewhile feof(fid=0tline = fgetl(fid; %tline?if ischar(tline, break, endtemp=abs(tline;Nlength=length

2、(tline;isemptyline=0; %?if Nlength=0isemptyline=1;endallspace=0; %?isspace=0;for i=1:NlengthT=temp(i;if T=32isspace=isspace+1;endif isspace=Nlengthallspace=1;breakendendfindalpha=0; %?for j=1:NlengthT=temp(j;if (T>=65&(T>=90|(T>=97&(T>=122findalpha=1;break;endendif(findalpha&

3、(allspace&(isemptyline=0 %? fprintf(fidnew,tline;fprintf(fidnew,'n'endendfclose(fid;fclose(fidnew;fid1=fopen('b1.dat','r'flux_position =fscanf(fid1,'%f',2,Ns;fclose(fid1;%*read filefinish*flux_position=flux_position'pos1=flux_position(:,1;pos_delta=pos1(2;pos_

4、length=length(pos1;pos_last=pos1(pos_length;for i=1:1:pos_length %copy and get another part of positionpos2(i=pos_last+i*pos_delta;endpos1=pos1'flux1=flux_position(:,2;flux2=-flux_position(:,2;pos=pos1,pos2;%combine and get all part of positionflux1=flux1'flux2=flux2'flux=flux1,flux2;%co

5、mbine and get all part of flux density value figure;plot(pos1,flux1,'r'%plot origional waveformhold on;grid on;fft1=fft(flux,Ns;j=0;amp_har=zeros(1,(order+1/2;for m=1:2:orderj=j+1;fft1=fft(flux,Ns;fund_ele_front=fft1(m+1;fund_ele_back=fft1(Ns+1-m;amp_har(j=(abs(fund_ele_front/Ns*2;fft1=0*fft

6、1;fft1(m+1=fund_ele_front;fft1(Ns+1-m=fund_ele_back;fft1=ifft(fft1,Ns;fft1=real(fft1;plot(pos1,fft1;hold on;endk=(1:2:order;figure;bar(k,amp_har;grid on;peak_b=max(fft1rms_b=0.707*peak_bclcclear all;format long;Ns=1000;order=7;%*read the position and flux density*fid=fopen('B.dat','r'

7、; %open the original file fidnew = fopen('b1.dat','w' %write the new file while feof(fid=0tline = fgetl(fid; %tline?if ischar(tline, break, endtemp=abs(tline;Nlength=length(tline;isemptyline=0; %?if Nlength=0isemptyline=1;endallspace=0; %?isspace=0;for i=1:NlengthT=temp(i;if T=32issp

8、ace=isspace+1;endif isspace=Nlengthallspace=1;breakendendfindalpha=0; %?for j=1:NlengthT=temp(j;if (T>=65&(T>=90|(T>=97&(T>=122findalpha=1;break;endendif(findalpha&(allspace&(isemptyline=0 %? fprintf(fidnew,tline;fprintf(fidnew,'n'endendfclose(fid;fclose(fidnew;fi

9、d1=fopen('b1.dat','r'flux_position =fscanf(fid1,'%f',2,Ns;fclose(fid1;%*read filefinish*flux_position=flux_position'pos1=flux_position(:,1;pos_delta=pos1(2;pos_length=length(pos1;pos_last=pos1(pos_length;for i=1:1:pos_length %copy and get another part of positionpos2(i=po

10、s_last+i*pos_delta;endpos1=pos1'flux1=flux_position(:,2;flux2=-flux_position(:,2;pos=pos1,pos2;%combine and get all part of positionflux1=flux1'flux2=flux2'flux=flux1,flux2;%combine and get all part of flux density value figure;plot(pos1,flux1,'r'%plot origional waveformhold on;grid on;fft1=fft(flux,Ns;j=0;amp_har=zeros(1,(order+1/2;for m=1:2:orderj=j+1;fft1=fft(flux,Ns;fund_ele_front=fft1(m+1;fund_ele_back=fft1(Ns+1-m;amp_har(j=(abs(fund_ele_front/Ns*2;fft1=0*fft1;fft1(m+1=fund_ele_