mirror of
https://github.com/simon987/wavelib.git
synced 2025-04-10 14:06:46 +00:00
remove lots of unused variables
This commit is contained in:
Ivan Krylov
parent
0b5777fc4a
commit
2e2b624950
27
src/cwt.c
27
src/cwt.c
@ -8,31 +8,6 @@ C. Torrence and G. Compo, and is available at URL: http://atoc.colorado.edu/rese
|
||||
|
||||
#include "cwt.h"
|
||||
|
||||
static int factorial2(int N) {
|
||||
int factorial,i;
|
||||
|
||||
factorial = 1;
|
||||
|
||||
for (i = 1; i <= N;++i) {
|
||||
factorial *= i;
|
||||
}
|
||||
|
||||
return factorial;
|
||||
}
|
||||
|
||||
static double factorial3(int N) {
|
||||
int i;
|
||||
double factorial;
|
||||
|
||||
factorial = 1;
|
||||
|
||||
for (i = 1; i <= N; ++i) {
|
||||
factorial *= i;
|
||||
}
|
||||
|
||||
return factorial;
|
||||
}
|
||||
|
||||
double factorial(int N) {
|
||||
if (N > 40) {
|
||||
printf("This program is only valid for N <= 40 \n");
|
||||
@ -366,7 +341,7 @@ double cdelta(int mother, double param, double psi0 ) {
|
||||
scale[i] = s0*pow(2.0, (double)(i)*dj);
|
||||
}
|
||||
|
||||
cwavelet(delta, N, dt, mother, param, s0, dj, jtot, N, wave, scale, period, coi);
|
||||
cwavelet(delta, N, dt, mother, param, jtot, N, wave, scale, period, coi);
|
||||
|
||||
for (i = 0; i < N; ++i) {
|
||||
mval[i] = 0;
|
||||
|
||||
@ -18,7 +18,7 @@ fft_object fft_init(int N, int sgn) {
|
||||
if (out == 1) {
|
||||
obj = (fft_object) malloc (sizeof(struct fft_set) + sizeof(fft_data)* (N-1));
|
||||
obj->lf = factors(N,obj->factors);
|
||||
longvectorN(obj->twiddle,N,obj->factors,obj->lf);
|
||||
longvectorN(obj->twiddle,obj->factors,obj->lf);
|
||||
twi_len = N;
|
||||
obj->lt = 0;
|
||||
} else {
|
||||
@ -32,7 +32,7 @@ fft_object fft_init(int N, int sgn) {
|
||||
}
|
||||
obj = (fft_object) malloc (sizeof(struct fft_set) + sizeof(fft_data)* (M-1));
|
||||
obj->lf = factors(M,obj->factors);
|
||||
longvectorN(obj->twiddle,M,obj->factors,obj->lf);
|
||||
longvectorN(obj->twiddle,obj->factors,obj->lf);
|
||||
obj->lt = 1;
|
||||
twi_len = M;
|
||||
}
|
||||
@ -1831,7 +1831,7 @@ void twiddle(fft_data *vec,int N, int radix) {
|
||||
|
||||
}
|
||||
|
||||
void longvectorN(fft_data *sig,int N, int *array, int tx) {
|
||||
void longvectorN(fft_data *sig, int *array, int tx) {
|
||||
int L,i,Ls,ct,j,k;
|
||||
fft_type theta;
|
||||
L = 1;
|
||||
|
||||
@ -48,7 +48,7 @@ int factors(int M, int* arr);
|
||||
|
||||
void twiddle(fft_data *sig,int N, int radix);
|
||||
|
||||
void longvectorN(fft_data *sig,int N, int *array, int M);
|
||||
void longvectorN(fft_data *sig, int *array, int M);
|
||||
|
||||
void free_fft(fft_object object);
|
||||
|
||||
|
||||
@ -9,11 +9,9 @@
|
||||
|
||||
fft_real_object fft_real_init(int N, int sgn) {
|
||||
fft_real_object obj = NULL;
|
||||
fft_type PI, theta;
|
||||
fft_type theta;
|
||||
int k;
|
||||
|
||||
PI = 3.1415926535897932384626433832795;
|
||||
|
||||
obj = (fft_real_object) malloc (sizeof(struct fft_real_set) + sizeof(fft_data)* (N/2));
|
||||
|
||||
obj->cobj = fft_init(N/2,sgn);
|
||||
@ -79,10 +77,9 @@ void fft_c2r_exec(fft_real_object obj,fft_data *inp,fft_type *oup) {
|
||||
|
||||
fft_data* cinp;
|
||||
fft_data* coup;
|
||||
int i,N2,N;
|
||||
int i,N2;
|
||||
fft_type temp1,temp2;
|
||||
N2 = obj->cobj->N;
|
||||
N = N2*2;
|
||||
|
||||
cinp = (fft_data*) malloc (sizeof(fft_data) * N2);
|
||||
coup = (fft_data*) malloc (sizeof(fft_data) * N2);
|
||||
|
||||
@ -3311,7 +3311,6 @@ void copy_reverse(const double *in, int N,double *out)
|
||||
|
||||
void qmf_wrev(const double *in, int N, double *out)
|
||||
{
|
||||
int count = 0;
|
||||
double *sigOutTemp;
|
||||
sigOutTemp = (double*)malloc(N*sizeof(double));
|
||||
|
||||
|
||||
@ -377,7 +377,7 @@ static void wconv(wt_object wt, double *sig, int N, double *filt, int L, double
|
||||
}
|
||||
|
||||
|
||||
static void dwt_per(wt_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void dwt_per(wt_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int l,l2,isodd,i,t,len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -433,7 +433,7 @@ static void dwt_per(wt_object wt, double *inp, int N, double *cA, int len_cA, do
|
||||
|
||||
}
|
||||
|
||||
static void wtree_per(wtree_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void wtree_per(wtree_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int l, l2, isodd, i, t, len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -489,7 +489,7 @@ static void wtree_per(wtree_object wt, double *inp, int N, double *cA, int len_c
|
||||
|
||||
}
|
||||
|
||||
static void dwpt_per(wpt_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void dwpt_per(wpt_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int l, l2, isodd, i, t, len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -545,7 +545,7 @@ static void dwpt_per(wpt_object wt, double *inp, int N, double *cA, int len_cA,
|
||||
|
||||
}
|
||||
|
||||
static void dwt_sym(wt_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void dwt_sym(wt_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int i,l, t, len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -574,7 +574,7 @@ static void dwt_sym(wt_object wt, double *inp, int N, double *cA, int len_cA, do
|
||||
|
||||
}
|
||||
|
||||
static void wtree_sym(wtree_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void wtree_sym(wtree_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int i, l, t, len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -603,7 +603,7 @@ static void wtree_sym(wtree_object wt, double *inp, int N, double *cA, int len_c
|
||||
|
||||
}
|
||||
|
||||
static void dwpt_sym(wpt_object wt, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void dwpt_sym(wpt_object wt, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int i, l, t, len_avg;
|
||||
|
||||
len_avg = wt->wave->lpd_len;
|
||||
@ -632,7 +632,7 @@ static void dwpt_sym(wpt_object wt, double *inp, int N, double *cA, int len_cA,
|
||||
|
||||
}
|
||||
|
||||
static void dwt1(wt_object wt,double *sig,int len_sig, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void dwt1(wt_object wt,double *sig,int len_sig, double *cA, double *cD) {
|
||||
int len_avg,D,lf;
|
||||
double *signal,*cA_undec;
|
||||
len_avg = (wt->wave->lpd_len + wt->wave->hpd_len) / 2;
|
||||
@ -760,10 +760,10 @@ void dwt(wt_object wt,const double *inp) {
|
||||
len_cA = wt->length[J - iter];
|
||||
N -= len_cA;
|
||||
if ( !strcmp(wt->cmethod, "fft") || !strcmp(wt->cmethod, "FFT") ) {
|
||||
dwt1(wt, orig, temp_len, orig2, len_cA, wt->params + N, len_cA);
|
||||
dwt1(wt, orig, temp_len, orig2, wt->params + N);
|
||||
}
|
||||
else {
|
||||
dwt_per(wt, orig, temp_len, orig2, len_cA, wt->params + N, len_cA);
|
||||
dwt_per(wt, orig, temp_len, orig2, len_cA, wt->params + N);
|
||||
}
|
||||
temp_len = wt->length[J - iter];
|
||||
if (iter == J - 1) {
|
||||
@ -796,10 +796,10 @@ void dwt(wt_object wt,const double *inp) {
|
||||
len_cA = wt->length[J - iter];
|
||||
N -= len_cA;
|
||||
if (!strcmp(wt->cmethod, "fft") || !strcmp(wt->cmethod, "FFT")) {
|
||||
dwt1(wt, orig, temp_len, orig2, len_cA, wt->params + N, len_cA);
|
||||
dwt1(wt, orig, temp_len, orig2, wt->params + N);
|
||||
}
|
||||
else {
|
||||
dwt_sym(wt, orig, temp_len, orig2, len_cA, wt->params + N, len_cA);
|
||||
dwt_sym(wt, orig, temp_len, orig2, len_cA, wt->params + N);
|
||||
}
|
||||
temp_len = wt->length[J - iter];
|
||||
|
||||
@ -878,9 +878,9 @@ void wtree(wtree_object wt,const double *inp) {
|
||||
N = N2;
|
||||
for(k = 0; k < p2;++k) {
|
||||
if (iter == 0) {
|
||||
wtree_per(wt, orig, temp_len, wt->params + N, len_cA, wt->params + N + len_cA, len_cA);
|
||||
wtree_per(wt, orig, temp_len, wt->params + N, len_cA, wt->params + N + len_cA);
|
||||
} else {
|
||||
wtree_per(wt, wt->params + Np + k * temp_len, temp_len, wt->params + N, len_cA, wt->params + N + len_cA, len_cA);
|
||||
wtree_per(wt, wt->params + Np + k * temp_len, temp_len, wt->params + N, len_cA, wt->params + N + len_cA);
|
||||
}
|
||||
N += 2 * len_cA;
|
||||
}
|
||||
@ -913,9 +913,9 @@ void wtree(wtree_object wt,const double *inp) {
|
||||
N = N2;
|
||||
for(k = 0; k < p2;++k) {
|
||||
if (iter == 0) {
|
||||
wtree_sym(wt, orig, temp_len, wt->params + N, len_cA, wt->params + N + len_cA, len_cA);
|
||||
wtree_sym(wt, orig, temp_len, wt->params + N, len_cA, wt->params + N + len_cA);
|
||||
} else {
|
||||
wtree_sym(wt, wt->params + Np + k * temp_len, temp_len, wt->params + N, len_cA, wt->params + N + len_cA, len_cA);
|
||||
wtree_sym(wt, wt->params + Np + k * temp_len, temp_len, wt->params + N, len_cA, wt->params + N + len_cA);
|
||||
}
|
||||
N += 2 * len_cA;
|
||||
}
|
||||
@ -1033,10 +1033,10 @@ void dwpt(wpt_object wt, const double *inp) {
|
||||
N = N2;
|
||||
for (k = 0; k < p2; ++k) {
|
||||
if (iter == 0) {
|
||||
dwpt_per(wt, orig, temp_len, tree + N, len_cA, tree + N + len_cA, len_cA);
|
||||
dwpt_per(wt, orig, temp_len, tree + N, len_cA, tree + N + len_cA);
|
||||
}
|
||||
else {
|
||||
dwpt_per(wt, tree + Np + k * temp_len, temp_len, tree + N, len_cA, tree + N + len_cA, len_cA);
|
||||
dwpt_per(wt, tree + Np + k * temp_len, temp_len, tree + N, len_cA, tree + N + len_cA);
|
||||
}
|
||||
wt->costvalues[it2] = costfunc(tree + N, len_cA, wt->entropy, eparam);
|
||||
it2++;
|
||||
@ -1073,10 +1073,10 @@ void dwpt(wpt_object wt, const double *inp) {
|
||||
N = N2;
|
||||
for (k = 0; k < p2; ++k) {
|
||||
if (iter == 0) {
|
||||
dwpt_sym(wt, orig, temp_len, tree + N, len_cA, tree + N + len_cA, len_cA);
|
||||
dwpt_sym(wt, orig, temp_len, tree + N, len_cA, tree + N + len_cA);
|
||||
}
|
||||
else {
|
||||
dwpt_sym(wt, tree + Np + k * temp_len, temp_len, tree + N, len_cA, tree + N + len_cA, len_cA);
|
||||
dwpt_sym(wt, tree + Np + k * temp_len, temp_len, tree + N, len_cA, tree + N + len_cA);
|
||||
}
|
||||
wt->costvalues[it2] = costfunc(tree + N, len_cA, wt->entropy, eparam);
|
||||
it2++;
|
||||
@ -1413,7 +1413,7 @@ void cwt(cwt_object wt, const double *inp) {
|
||||
}
|
||||
wt->smean /= N;
|
||||
|
||||
cwavelet(inp, N, wt->dt, wt->mother, wt->m, wt->s0, wt->dj, wt->J,npad,wt->params, wt->params+nj2, wt->params+nj2+j, wt->params+nj2+j2);
|
||||
cwavelet(inp, N, wt->dt, wt->mother, wt->m, wt->J,npad,wt->params, wt->params+nj2, wt->params+nj2+j, wt->params+nj2+j2);
|
||||
|
||||
}
|
||||
|
||||
@ -1484,7 +1484,7 @@ static void idwt1(wt_object wt,double *temp, double *cA_up,double *cA, int len_c
|
||||
|
||||
}
|
||||
|
||||
static void idwt_per(wt_object wt, double *cA, int len_cA, double *cD, int len_cD, double *X) {
|
||||
static void idwt_per(wt_object wt, double *cA, int len_cA, double *cD, double *X) {
|
||||
int len_avg,i,l,m,n,t,l2;
|
||||
|
||||
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2;
|
||||
@ -1515,7 +1515,7 @@ static void idwt_per(wt_object wt, double *cA, int len_cA, double *cD, int len_c
|
||||
}
|
||||
}
|
||||
|
||||
static void idwt_sym(wt_object wt, double *cA, int len_cA, double *cD, int len_cD, double *X) {
|
||||
static void idwt_sym(wt_object wt, double *cA, int len_cA, double *cD, double *X) {
|
||||
int len_avg, i, l, m, n, t, v;
|
||||
|
||||
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2;
|
||||
@ -1599,7 +1599,7 @@ void idwt(wt_object wt, double *dwtop) {
|
||||
|
||||
//idwt1(wt, temp, cA_up, out, det_len, wt->output + iter, det_len, X_lp, X_hp, out);
|
||||
|
||||
idwt_per(wt,out, det_len, wt->output + iter, det_len, X_lp);
|
||||
idwt_per(wt,out, det_len, wt->output + iter, X_lp);
|
||||
for (k = lf/2 - 1; k < 2 * det_len + lf/2 - 1; ++k) {
|
||||
out[k - lf/2 + 1] = X_lp[k];
|
||||
}
|
||||
@ -1628,7 +1628,7 @@ void idwt(wt_object wt, double *dwtop) {
|
||||
|
||||
//idwt1(wt, temp, cA_up, out, det_len, wt->output + iter, det_len, X_lp, X_hp, out);
|
||||
|
||||
idwt_sym(wt, out, det_len, wt->output + iter, det_len, X_lp);
|
||||
idwt_sym(wt, out, det_len, wt->output + iter, X_lp);
|
||||
for (k = lf-2; k < 2 * det_len; ++k) {
|
||||
out[k - lf + 2] = X_lp[k];
|
||||
}
|
||||
@ -1702,7 +1702,7 @@ void idwt(wt_object wt, double *dwtop) {
|
||||
|
||||
}
|
||||
|
||||
static void idwpt_per(wpt_object wt, double *cA, int len_cA, double *cD, int len_cD, double *X) {
|
||||
static void idwpt_per(wpt_object wt, double *cA, int len_cA, double *cD, double *X) {
|
||||
int len_avg, i, l, m, n, t, l2;
|
||||
|
||||
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2;
|
||||
@ -1733,7 +1733,7 @@ static void idwpt_per(wpt_object wt, double *cA, int len_cA, double *cD, int len
|
||||
}
|
||||
}
|
||||
|
||||
static void idwpt_sym(wpt_object wt, double *cA, int len_cA, double *cD, int len_cD, double *X) {
|
||||
static void idwpt_sym(wpt_object wt, double *cA, int len_cA, double *cD, double *X) {
|
||||
int len_avg, i, l, m, n, t, v;
|
||||
|
||||
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2;
|
||||
@ -1757,13 +1757,12 @@ static void idwpt_sym(wpt_object wt, double *cA, int len_cA, double *cD, int len
|
||||
}
|
||||
|
||||
void idwpt(wpt_object wt, double *dwtop) {
|
||||
int J, U, i, lf, N, k,p,l;
|
||||
int J, i, lf, k,p,l;
|
||||
int app_len, det_len, index, n1, llb, index2, index3, index4,indexp,xlen;
|
||||
double *X_lp, *X, *out, *out2;
|
||||
int *prep,*ptemp;
|
||||
|
||||
J = wt->J;
|
||||
U = 2;
|
||||
app_len = wt->length[0];
|
||||
p = ipow2(J);
|
||||
lf = (wt->wave->lpr_len + wt->wave->hpr_len) / 2;
|
||||
@ -1831,7 +1830,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = wt->output[index + k];
|
||||
out2[k] = wt->output[index + det_len + k];
|
||||
}
|
||||
idwpt_per(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_per(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
|
||||
X[index3 + k - lf / 2 + 1] = X_lp[k];
|
||||
}
|
||||
@ -1846,7 +1845,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = wt->output[index + k];
|
||||
out2[k] = X[index4 + k];
|
||||
}
|
||||
idwpt_per(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_per(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
|
||||
X[index3 + k - lf / 2 + 1] = X_lp[k];
|
||||
}
|
||||
@ -1860,7 +1859,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = X[index4 + k];
|
||||
out2[k] = wt->output[index + k];
|
||||
}
|
||||
idwpt_per(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_per(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
|
||||
X[index3 + k - lf / 2 + 1] = X_lp[k];
|
||||
}
|
||||
@ -1874,7 +1873,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = X[index4 + k];
|
||||
out2[k] = X[index4 + indexp + k];
|
||||
}
|
||||
idwpt_per(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_per(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
|
||||
X[index3 + k - lf / 2 + 1] = X_lp[k];
|
||||
}
|
||||
@ -1909,7 +1908,6 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
else if (!strcmp(wt->ext, "sym")) {
|
||||
app_len = wt->length[0];
|
||||
det_len = wt->length[1];
|
||||
N = 2 * wt->length[J] - 1;
|
||||
|
||||
//X_lp = (double*)malloc(sizeof(double)* (N + 2 * lf - 1));
|
||||
index = 0;
|
||||
@ -1939,7 +1937,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = wt->output[index + k];
|
||||
out2[k] = wt->output[index + det_len + k];
|
||||
}
|
||||
idwpt_sym(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_sym(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf - 2; k < 2 * det_len; ++k) {
|
||||
X[index3 + k - lf + 2] = X_lp[k];
|
||||
}
|
||||
@ -1954,7 +1952,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = wt->output[index + k];
|
||||
out2[k] = X[index4 + k];
|
||||
}
|
||||
idwpt_sym(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_sym(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf - 2; k < 2 * det_len; ++k) {
|
||||
X[index3 + k - lf + 2] = X_lp[k];
|
||||
}
|
||||
@ -1968,7 +1966,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = X[index4 + k];
|
||||
out2[k] = wt->output[index + k];
|
||||
}
|
||||
idwpt_sym(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_sym(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf - 2; k < 2 * det_len; ++k) {
|
||||
X[index3 + k - lf + 2] = X_lp[k];
|
||||
}
|
||||
@ -1982,7 +1980,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
out[k] = X[index4 + k];
|
||||
out2[k] = X[index4 + indexp + k];
|
||||
}
|
||||
idwpt_sym(wt, out, det_len, out2, det_len, X_lp);
|
||||
idwpt_sym(wt, out, det_len, out2, X_lp);
|
||||
for (k = lf - 2; k < 2 * det_len; ++k) {
|
||||
X[index3 + k - lf + 2] = X_lp[k];
|
||||
}
|
||||
@ -2036,7 +2034,7 @@ void idwpt(wpt_object wt, double *dwtop) {
|
||||
}
|
||||
|
||||
|
||||
static void swt_per(wt_object wt,int M, double *inp, int N, double *cA, int len_cA, double *cD, int len_cD) {
|
||||
static void swt_per(wt_object wt,int M, double *inp, int N, double *cA, int len_cA, double *cD) {
|
||||
int l, l2, isodd, i, t, len_avg,j;
|
||||
|
||||
len_avg = M * wt->wave->lpd_len;
|
||||
@ -2172,15 +2170,14 @@ static void swt_fft(wt_object wt, double *inp) {
|
||||
}
|
||||
|
||||
static void swt_direct(wt_object wt, double *inp) {
|
||||
int i, J, temp_len, iter, M, N;
|
||||
int lenacc, len_filt;
|
||||
int i, J, temp_len, iter, M;
|
||||
int lenacc;
|
||||
double *cA, *cD;
|
||||
|
||||
temp_len = wt->siglength;
|
||||
J = wt->J;
|
||||
wt->length[0] = wt->length[J] = temp_len;
|
||||
wt->outlength = wt->length[J + 1] = (J + 1) * temp_len;
|
||||
len_filt = wt->wave->filtlength;
|
||||
M = 1;
|
||||
for (iter = 1; iter < J; ++iter) {
|
||||
M = 2 * M;
|
||||
@ -2203,13 +2200,11 @@ static void swt_direct(wt_object wt, double *inp) {
|
||||
lenacc -= temp_len;
|
||||
if (iter > 0) {
|
||||
M = 2 * M;
|
||||
N = M * len_filt;
|
||||
}
|
||||
else {
|
||||
N = len_filt;
|
||||
}
|
||||
|
||||
swt_per(wt, M, wt->params, temp_len, cA, temp_len, cD, temp_len);
|
||||
swt_per(wt, M, wt->params, temp_len, cA, temp_len, cD);
|
||||
|
||||
|
||||
for (i = 0; i < temp_len; ++i) {
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user