static int DES_despike9( int num , float *vec , float *wks ) { int ii , nsp ; float *zma,*zme , med,mad,val ; if( num < 9 || vec == NULL ) return 0 ; if( wks != NULL ) zme = wks ; else zme = (float *)malloc(sizeof(float)*(2*num)) ; zma = zme + num ; DES9_init ; /* 18 Apr 2019 */ for( ii=0 ; ii < num ; ii++ ){ mead9(ii) ; zme[ii] = med ; zma[ii] = mad ; } mad = qmed_float(num,zma) ; if( mad <= 0.0f ){ if( wks == NULL ) free(zme); return 0; } /* should not happen */ mad *= 6.789f ; /* threshold value */ for( nsp=ii=0 ; ii < num ; ii++ ) if( fabsf(vec[ii]-zme[ii]) > mad ){ vec[ii] = zme[ii]; nsp++; } if( wks == NULL ) free(zme) ; return nsp ; }
int DES_despike9( int num , float *vec , float *wks ) { int ii , nsp ; float *zma,*zme , med,mad,val ; if( num < 9 || vec == NULL ) return 0 ; zme = wks ; zma = zme + num ; for( ii=0 ; ii < num ; ii++ ){ mead9(ii) ; zme[ii] = med ; zma[ii] = mad ; } mad = qmed_float(num,zma) ; if( mad <= 0.0f ){ if( wks == NULL ) free(zme); return 0; } /* should not happen */ mad *= 6.789f ; /* threshold value */ for( nsp=ii=0 ; ii < num ; ii++ ) if( fabsf(vec[ii]-zme[ii]) > mad ){ vec[ii] = zme[ii]; nsp++; } return nsp ; }
int THD_despike9( int num , float *vec ) { int ii , nsp ; float *zma,*zme , med,mad,val ; if( num < 9 || vec == NULL ) return 0 ; zme = (float *)malloc(sizeof(float)*num) ; zma = (float *)malloc(sizeof(float)*num) ; for( ii=0 ; ii < num ; ii++ ){ mead9(ii) ; zme[ii] = med ; zma[ii] = mad ; } mad = qmed_float(num,zma) ; free(zma) ; if( mad <= 0.0f ){ free(zme); return 0; } /* should not happen */ mad *= 6.789f ; /* threshold value */ for( nsp=ii=0 ; ii < num ; ii++ ) if( fabsf(vec[ii]-zme[ii]) > mad ){ vec[ii] = zme[ii]; nsp++; } free(zme) ; return nsp ; }
void DES_despike9( int num , float *vec ) { int ii , nsp ; float *zma,*zme , med,mad,val ; if( num < 9 || vec == NULL ) return ; if( deswks == NULL ) deswks = (float *)malloc(sizeof(float *)*(4*num)) ; zme = deswks ; zma = zme + num ; for( ii=0 ; ii < num ; ii++ ){ mead9(ii) ; zme[ii] = med ; zma[ii] = mad ; } mad = qmed_float(num,zma) ; if( mad <= 0.0f ) return ; mad *= 6.789f ; /* threshold value */ for( nsp=ii=0 ; ii < num ; ii++ ) if( fabsf(vec[ii]-zme[ii]) > mad ){ vec[ii] = zme[ii]; nsp++; } return ; }