地震波处理MATLAB程序及使用说明

%·¾¶ÉèÖÃwave='d:\wave\A\';wave1='d:\wave1\';timehistory='d:\wave_out\timehistory\';fourier='d:\wave_out\fourier\';respond='d:\wave_out\respond\';XYZ={'X','Y','Z'};txt='.txt';xlsx='.xlsx';%²ÎÊýÉèÖÃn=384;%µØÕ𲨲¨Êýh=0.05;%×èÄá±ÈDT=0.02;%·´Ó¦Æ×ÖÜÆÚ¼ä¸ôDTM=6.00;%·´Ó¦Æ×ÖÜÆÚ×î´óÖµabT=DT:DT:DTM;%·´Ó¦Æ׺á×ø±ê%дÈëÕð¼¶EMºÍÕðÖоàEDEM=xlsread('d:\wave\table.xlsx',strcat('F2:F',num2str(n+1)));ED=xlsread('d:\wave\table.xlsx',strcat('G2:G',num2str(n+1)));%ÌáÈ¡²ÉÑù¼ä¸ôDtforj=1:nid=num2str(j);dq{j}=[wave'X\'idtxt];fidin=fopen(dq{j});Dt1=textscan(fidin,'%s%d,%s%f%s,','HeaderLines',3);Dt(j)=Dt1{4};fclose(fidin);endfori=1:3mkdir([wave1,XYZ{i}]);mkdir([timehistory,XYZ{i}]);mkdir([fourier,XYZ{i}]);mkdir([respond,XYZ{i},'\','A']);mkdir([respond,XYZ{i},'\','D']);mkdir([respond,XYZ{i},'\','V']);forj=1:nduqu{j}=[waveXYZ{i}'\'num2str(j)txt];zjlj{j}=[wave1XYZ{i}'\'num2str(j)txt];fidin=fopen(duqu{j});fidout=fopen(zjlj{j},'w');while~feof(fidin)tline=fgetl(fidin);ifdouble(tline(1))==''fprintf(fidout,'%s\n\n',tline);continueendendfclose(fidin);fclose(fidout);MK=importdata(zjlj{j});y1=[reshape(MK',1,[])]';y=y1(~any(isnan(y1),2),:);N=length(y);t=[Dt(j):Dt(j):Dt(j)*N]';orSD=['SD',XYZ{i},num2str(j),'y'];abSD=['SD',XYZ{i},num2str(j),'t'];eval([orSD,'=','y',';']);eval([abSD,'=','t',';']);SD=[ty];%xlswrite([timehistoryXYZ{i}'\'num2str(j)xlsx],SD);Fy=abs(fft(y,N));Mag=Fy(1:ceil(N/2),1);W=(1:ceil(N/2))/(Dt(j)*N);F=[W'Mag];abF=['F',XYZ{i},num2str(j),'W'];orF=['F',XYZ{i},num2str(j),'Mag'];eval([abF,'=','W',';']);eval([orF,'=','Mag',';']);%xlswrite([fourierXYZ{i}'\'num2str(j)xlsx],F);[Magmax(j),maxnum]=max(Mag);Wmax(j)=W(maxnum);DDY=y;forT=DT:DT:DTMw=2*pi/T;w2=w*w;hw=h*w;wd=w*sqrt(1-h*h);wdt=wd*Dt(j);e=exp(-hw*Dt(j));cwdt=cos(wdt);swdt=sin(wdt);A11=e*(cwdt+hw*swdt/wd);A12=e*swdt/wd;A21=-e*w2*swdt/wd;A22=e*(cwdt-hw*swdt/wd);ss=-hw*swdt-wd*cwdt;cc=-hw*cwdt+wd*swdt;s1=(e*ss+wd)/w2;c1=(e*cc+hw)/w2;s2=(e*Dt(j)*ss+hw*s1+wd*c1)/w2;c2=(e*Dt(j)*cc+hw*c1-wd*s1)/w2;s3=Dt(j)*s1-s2;c3=Dt(j)*c1-c2;B11=-s2/wdt;B12=-s3/wdt;B21=(hw*s2-wd*c2)/wdt;B22=(hw*s3-wd*c3)/wdt;x=[0];Dx=-DDY(1)*Dt(j);ACC=2*h*w*DDY(1)*Dt(j);fork=2:Nx(k)=A11*x(k-1)+A12*Dx(k-1)+B11*DDY(k-1)+B12*DDY(k);Dx(k)=A21*x(k-1)+A22*Dx(k-1)+B21*DDY(k-1)+B22*DDY(k);ACC(k)=-(2*h*w*Dx(k)+w2*x(k));endl1=T/DT;l=round(l1);Sa(l)=max(abs(ACC));Sv(l)=max(abs(Dx));Sd(l)=max(abs(x));endorRA=['R',XYZ{i},num2str(j),'A'];orRV=['R',XYZ{i},num2str(j),'V'];orRD=['R',XYZ{i},num2str(j),'D'];eval([orRA,'=','Sa',';']);eval([orRV,'=','Sv',';']);eval([orRD,'=','Sd',';']);%xlswrite([respond,XYZ{i},'\A\'num2str(j)xlsx],[abT'Sa']);%xlswrite([respond,XYZ{i},'\V\'num2str(j)xlsx],[abT'Sv']);%xlswrite([respond,XYZ{i},'\D\'num2str(j)xlsx],[abT'Sa']);Samax(j)=max(Sa);Svmax(j)=max(Sv);Sdmax(j)=max(Sd);endabFm=['F',XYZ{i},'Wmax'];orFm=['F',XYZ{i},'Magmax'];eval([orFm,'=','Wmax',';']);eval([abFm,'=','Magmax',';']);Fm=[Wmax'Magmax'];title={'Wmax','Magmax'};%xlswrite([fourierXYZ{i}'\max'xlsx],Fm,1,'A2');%xlswrite([fourierXYZ{i}'\max'xlsx],title(1),1,'A1');%xlswrite([fourierXYZ{i}'\max'xlsx],title(2),1,'B1');orRAm=['R',XYZ{i},'Amax'];orRVm=['R',XYZ{i},'Vmax'];orRDm=['R',XYZ{i},'Dmax'];eval([orRAm,'=','Samax',';']);eval([orRVm,'=','Svmax',';']);eval([orRDm,'=','Sdmax',';']);Rmax=[Samax'Svmax'Sdmax'];title={'Samax','Svmax','Sdmax'};%xlswrite([respondXYZ{i}'\max'xlsx],Rmax,1,'A2');%xlswrite([respondXYZ{i}'\max'xlsx],title(1),1,'A1');%xlswrite([respondXYZ{i}'\max'xlsx],title(2),1,'B1');%xlswrite([respondXYZ{i}'\max'xlsx],title(3),1,'C1');endfori=1:nFHMagmax(i)=max(FXMagmax(i),FYMagmax(i));H(i)=max(RXAmax(i),RYAmax(i));V(i)=RZAmax(i);VH(i)=V(i)/H(i);VA(i)=RZVmax(i)/RZAmax(i);endrmdir(wave1,'s');1.½«µØÕð²¨Îļþ¼Ðwave·ÅÔÚDÅÌ¡£2.´ò¿ªmÎļþ£¬Ð޸IJÎÊýÉèÖã¬ÈçµØÕð²¨ÊýÁ¿£¬×èÄá±È£¬·´Ó¦Æ×ʱ¼ä·¶Î§¡£3.ÔËÐÐmÎļþ¡£4.±äÁ¿Ãûº¬Òå˵Ã÷£º£¨1£©Ê±³ÌÇúÏߣºSDY5tSDY5yΪY·½ÏòµÚ5Ìõ²¨µÄºá×ø±êtºÍ×Ý×ø±êy£¨2£©ÆµÆ×ÇúÏߣºFY5WFY5MagΪY·½ÏòµÚ5Ìõ²¨µÄƵÂÊWºÍÕñ·ùMag£¨3£©¸µÀïÒ¶Æ×ˮƽ·½ÏòµÄ×î´óÖµ£ºFHMagmax£¬nάÊý×飨4£©·´Ó¦Æ×£ºRY5ARY5VRY5DΪY·½ÏòµÚ5Ìõ²¨µÄ¼ÓËٶȣ¬Ëٶȣ¬Î»ÒÆ£¨5£©·´Ó¦Æ×¼ÓËٶȷåÖµ£ºRYAmaxΪY·½Ïò£¬nάÊý×飨6£©VHΪV/H£¬ÊúÏòÓëˮƽÏò·åÖµ¼ÓËٶȱÈÖµ£¨7£©VAΪV/A£¬ÊúÏòµØÕð¶¯PGV/PGA5.ºó´¦ÀíÃüÁ£¨1£©ÊúÏòµØÕðƵÆ×fori=1:neval(['X=FZ',num2str(i),'W']);eval(['Y=FZ',num2str(i),'Mag']);plot(X,Y);holdon;endxlabel('ƵÂÊ/Hz');ylabel('Õñ·ù');£¨2£©V/HÓëÕðÖоàµÄÉ¢µãͼplot(ED,VH,'.');xlabel('ÕðÖоà/km');ylabel('V/H')£¨3£©V/HÓëÕ𼶵ÄÉ¢µãͼplot(EM,VH,'.');xlabel('Õð¼¶');ylabel('V/H')£¨4£©ÊúÏòµØÕð·´Ó¦Æ×fori=1:neval(['Y=RZ',num2str(i),'A']);plot(abT,Y);holdon;endxlabel('ÖÜÆÚ/s');ylabel('¼ÓËÙ¶È/cm\cdots^{-2}');£¨5£©ÆäËûaxis([]);%ÐÞ¸Ä×ø±êÖ᷶Χ