calc_res.c

/*-----------------------------------------------------------------------------------------
 * Copyright (C) 2013  For the list of authors, see file AUTHORS.
 *
 * This file is part of DENISE.
 * 
 * DENISE is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, version 2.0 of the License only.
 * 
 * DENISE is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
-----------------------------------------------------------------------------------------*/

/*------------------------------------------------------------------------
 *   Calculate Data Residuals                                  
 *   last update 29/03/08, D.Koehn
 *  ----------------------------------------------------------------------*/
#include "fd.h"

double calc_res(float **sectiondata, float **section, float **sectiondiff, float **sectiondiffold, int ntr, int ns, int LNORM, float L2, int itest, int sws, int swstestshot, int ntr_glob, int **recpos_loc, int nsrc_glob, int ishot, int iter){

/* declaration of variables */
extern float DT, WATERLEVEL_LNORM8;
extern int REC1, REC2, MYID, ACOUSTIC;
extern int TRKILL, NORMALIZE, FC, TIMEWIN;
extern char TRKILL_FILE[STRING_SIZE];
extern int VELOCITY;
float RMS, signL1, intseis;
int Lcount,i,j,invtime,k,h, umax=0;
float l2;
float abs_section, abs_sectiondata, sectiondata_mult_section;
float intseis_s, intseis_sd;
float **intseis_section=NULL, **intseis_sectiondata=NULL;
float **intseis_sectiondata_envelope=NULL, **intseis_section_envelope=NULL, **intseis_section_hilbert=NULL, **dummy_1=NULL, **dummy_2=NULL;

if(LNORM==8){
	intseis_section_envelope = matrix(1,ntr,1,ns);
	intseis_sectiondata_envelope = matrix(1,ntr,1,ns);
	intseis_section_hilbert = matrix(1,ntr,1,ns);
	dummy_1 = matrix(1,ntr,1,ns);
	dummy_2 = matrix(1,ntr,1,ns);
}

intseis_section = matrix(1,ntr,1,ns);  /* declaration of variables for integration */
intseis_sectiondata = matrix(1,ntr,1,ns);

/* sectiondiff will be set to zero */
umax=ntr*ns;
zero(&sectiondiff[1][1],umax);

/* TRACE KILLING */
int ** kill_tmp, *kill_vector;	/* declaration of variables for trace killing */
char trace_kill_file[STRING_SIZE];	
FILE *ftracekill;

if(TRKILL==1){
	/* sectiondiff will be set to zero */
	umax=ntr*ns;
	zero(&sectiondiff[1][1],umax);
	
	kill_tmp = imatrix(1,ntr_glob,1,nsrc_glob);
	kill_vector = ivector(1,ntr);

	ftracekill=fopen(TRKILL_FILE,"r");

	if (ftracekill==NULL) err(" Trace kill file could not be opened!");

	for(i=1;i<=ntr_glob;i++){
		for(j=1;j<=nsrc_glob;j++){
			fscanf(ftracekill,"%d",&kill_tmp[i][j]);
		}
	}
	
	fclose(ftracekill);
	
	h=1;
	for(i=1;i<=ntr;i++){
	   kill_vector[h] = kill_tmp[recpos_loc[3][i]][ishot];
	   h++;
	}
} /* end if(TRKILL)*/

RMS=0.0;
Lcount=1;  

/* Integration of measured and synthetic data  */
for(i=1;i<=ntr;i++){
	intseis_s=0;
	intseis_sd=0;
	if (VELOCITY==0){	/* only integtration if displacement seismograms are inverted */
		for(j=1;j<=ns;j++){
			intseis_s  += section[i][j];
			intseis_section[i][j]     = intseis_s*DT;
			intseis_sd += sectiondata[i][j];
			intseis_sectiondata[i][j] = intseis_sd*DT;
		}
	}else{
		for(j=1;j<=ns;j++){
			intseis_section[i][j]     = section[i][j];
			intseis_sectiondata[i][j] = sectiondata[i][j];
		}
	}
}

/* TIME WINDOWING */
if(TIMEWIN==1){
	time_window(intseis_section, iter, ntr_glob,recpos_loc, ntr, ns, ishot);
	time_window(intseis_sectiondata, iter, ntr_glob,recpos_loc, ntr, ns, ishot);
}

/* NORMALIZE TRACES */
if(NORMALIZE==1){
	normalize_data(intseis_section,ntr,ns);
	normalize_data(intseis_sectiondata,ntr,ns);
}

/* calculate RMS */
/*for(i=1;i<=ntr;i++){
      for(j=1;j<=ns;j++){*/
      /*RMS += (sectionpdata[i][j]-sectionvx[i][j]) * (sectionpdata[i][j]-sectionvx[i][j]);*/
      /*RMS += (sectionpdata[i][j]) * (sectionpdata[i][j]);*/
      /*      Lcount++;
      }
} */

/*RMS=sqrt(RMS/Lcount);*/
RMS=1.0;

/* calculate weighted data residuals and reverse time direction */
/* calculate kind of "energy" */

/* calculate envelope and hilbert transform for LNORM==8 */	
if (LNORM==8){
	calc_envelope(intseis_sectiondata,intseis_sectiondata_envelope,ns,ntr);
	calc_envelope(intseis_section,intseis_section_envelope,ns,ntr);	
	calc_hilbert(intseis_section,intseis_section_hilbert,ns,ntr);
	for(i=1;i<=ntr;i++){
		for(j=1;j<=ns;j++){
			dummy_1[i][j] = (intseis_section_envelope[i][j] - intseis_sectiondata_envelope[i][j]) / (intseis_section_envelope[i][j]+WATERLEVEL_LNORM8) * intseis_section_hilbert[i][j];
			}
	}
	calc_hilbert(dummy_1,dummy_2,ns,ntr);
}
/* end of calculate envelope and hilbert transform for LNORM==8 */

for(i=1;i<=ntr;i++){
	if((TRKILL==1)&&(kill_vector[i]==1))
	continue;
	
	if ((LNORM==5) || (LNORM==7)){
		abs_sectiondata=0.0;
		abs_section=0.0;
		sectiondata_mult_section=0.0;
	
		for(j=1;j<=ns;j++){
			abs_sectiondata+=intseis_sectiondata[i][j]*intseis_sectiondata[i][j];
			abs_section+=intseis_section[i][j]*intseis_section[i][j];
			sectiondata_mult_section+=intseis_sectiondata[i][j]*intseis_section[i][j]; /* calculation of dot product for measured (section) and synthetic (sectiondata) data*/
		}
		abs_sectiondata=sqrt(abs_sectiondata);
		abs_section=sqrt(abs_section);
	}
	/* calculate residual seismograms and norm */	
	
	if((TRKILL==1)&&(kill_vector[i]==1))
	continue;

	/*reverse time direction */
	invtime=ns;	
	
	for(j=1;j<=ns;j++){
		/*printf("%d \t %d \t %e \t %e \n",i,j,sectionpdata[i][j],sectionp[i][j]);*/
		/* calculate L1 residuals */
		if(LNORM==1){
			if(((sectiondata[i][j]-section[i][j])/RMS)>0){signL1=1.0;}
			if(((sectiondata[i][j]-section[i][j])/RMS)<0){signL1=-1.0;}
			if(((sectiondata[i][j]-section[i][j])/RMS)==0){signL1=0.0;}
			
			sectiondiff[i][invtime]=signL1/RMS;
		}
		
		/* calculate L2 residuals */
		if(LNORM==2){
			sectiondiff[i][invtime] = intseis_section[i][j]-intseis_sectiondata[i][j];
		}
		
		/* calculate Cauchy residuals */  /* NOT UP TO DATE */
		if(LNORM==3){
			sectiondiff[i][invtime]=((sectiondata[i][j]-section[i][j])/RMS)/(1+(((sectiondata[i][j]-section[i][j])/RMS)*((sectiondata[i][j]-section[i][j])/RMS)))/RMS; 
		}
		
		/* calculate sech residuals */   /* NOT UP TO DATE */
		if(LNORM==4){
			sectiondiff[i][invtime]=(tanh((sectiondata[i][j]-section[i][j])/RMS))/RMS;
		}
		
		/* calculate LNORM 5 or LNORM 7 residuals */
		if((LNORM==5) || (LNORM==7)){
			sectiondiff[i][invtime]=((intseis_section[i][j]*sectiondata_mult_section)/(abs_section*abs_section*abs_section*abs_sectiondata)) - (intseis_sectiondata[i][j]/(abs_section*abs_sectiondata));
		}
		
		/* calculate LNORM 8 residuals */
		if (LNORM==8){
			sectiondiff[i][invtime]=intseis_section[i][j]/(intseis_section_envelope[i][j]+WATERLEVEL_LNORM8)*(intseis_section_envelope[i][j]-intseis_sectiondata_envelope[i][j])-dummy_2[i][j];
		}
		
		/*sectionpdiff[i][invtime]=sectionp[i][j];*/
		
		/* calculate norm for different LNORM */
		if((LNORM==2) && (swstestshot==1)){
			L2+=sectiondiff[i][invtime]*sectiondiff[i][invtime];
		}
		
		if(((LNORM==5)||(LNORM==7)) && (swstestshot==1)){
			L2-=(intseis_sectiondata[i][j]*intseis_section[i][j])/(abs_sectiondata*abs_section);
		}
		
		if((LNORM==8) && (swstestshot==1)){
			L2+=(intseis_section_envelope[i][invtime]-intseis_sectiondata_envelope[i][invtime]) * (intseis_section_envelope[i][invtime]-intseis_sectiondata_envelope[i][invtime]);
		}
		
		if((sws==2)&&(swstestshot==1)){
			L2+=fabs(sectiondiff[i][invtime])*fabs(sectiondiffold[i][j]);
		}
			
		/*L2+=sectiondiff[i][invtime];*/
		
		invtime--;          /* reverse time direction */
	}
}

l2=L2;

/* free memory for integrated seismograms */
free_matrix(intseis_section,1,ntr,1,ns);
free_matrix(intseis_sectiondata,1,ntr,1,ns);

if(TRKILL==1){
	free_imatrix(kill_tmp,1,ntr_glob,1,nsrc_glob);
	free_ivector(kill_vector,1,ntr);
}

if(LNORM==8){
	free_matrix(intseis_sectiondata_envelope,1,ntr,1,ns);
	free_matrix(intseis_section_envelope,1,ntr,1,ns);
	free_matrix(intseis_section_hilbert,1,ntr,1,ns);
	free_matrix(dummy_1,1,ntr,1,ns);
	free_matrix(dummy_2,1,ntr,1,ns);
	}
return l2;
} /* end of function */