simon987/wavelib
1
0
Fork 0
mirror of https://github.com/simon987/wavelib.git synced 2025-10-31 16:36:54 +00:00
Code Issues Projects Releases Wiki Activity

remove lots of unused variables

Browse Source
This commit is contained in:
Ivan Krylov 2018-12-13 15:09:52 +03:00
parent 0b5777fc4a
commit 2e2b624950
6 changed files with 46 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/cwt.c
View File

@ -8,31 +8,6 @@ C. Torrence and G. Compo, and is available at URL: http://atoc.colorado.edu/rese
#include "cwt.h" #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) { double factorial(int N) {
if (N > 40) { if (N > 40) {
printf("This program is only valid for N <= 40 \n"); 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); 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) { for (i = 0; i < N; ++i) {
mval[i] = 0; mval[i] = 0;

6
src/hsfft.c
View File

@ -18,7 +18,7 @@ fft_object fft_init(int N, int sgn) {
if (out == 1) { if (out == 1) {
obj = (fft_object) malloc (sizeof(struct fft_set) + sizeof(fft_data)* (N-1)); obj = (fft_object) malloc (sizeof(struct fft_set) + sizeof(fft_data)* (N-1));
obj->lf = factors(N,obj->factors); obj->lf = factors(N,obj->factors);
longvectorN(obj->twiddle,N,obj->factors,obj->lf); longvectorN(obj->twiddle,obj->factors,obj->lf);
twi_len = N; twi_len = N;
obj->lt = 0; obj->lt = 0;
} else { } 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 = (fft_object) malloc (sizeof(struct fft_set) + sizeof(fft_data)* (M-1));
obj->lf = factors(M,obj->factors); obj->lf = factors(M,obj->factors);
longvectorN(obj->twiddle,M,obj->factors,obj->lf); longvectorN(obj->twiddle,obj->factors,obj->lf);
obj->lt = 1; obj->lt = 1;
twi_len = M; 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; int L,i,Ls,ct,j,k;
fft_type theta; fft_type theta;
L = 1; L = 1;

2
src/hsfft.h
View File

@ -48,7 +48,7 @@ int factors(int M, int* arr);
void twiddle(fft_data *sig,int N, int radix); 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); void free_fft(fft_object object);

7
src/real.c
View File

@ -9,11 +9,9 @@
fft_real_object fft_real_init(int N, int sgn) { fft_real_object fft_real_init(int N, int sgn) {
fft_real_object obj = NULL; fft_real_object obj = NULL;
fft_type PI, theta; fft_type theta;
int k; int k;
PI = 3.1415926535897932384626433832795;
obj = (fft_real_object) malloc (sizeof(struct fft_real_set) + sizeof(fft_data)* (N/2)); obj = (fft_real_object) malloc (sizeof(struct fft_real_set) + sizeof(fft_data)* (N/2));
obj->cobj = fft_init(N/2,sgn); 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* cinp;
fft_data* coup; fft_data* coup;
int i,N2,N; int i,N2;
fft_type temp1,temp2; fft_type temp1,temp2;
N2 = obj->cobj->N; N2 = obj->cobj->N;
N = N2*2;
cinp = (fft_data*) malloc (sizeof(fft_data) * N2); cinp = (fft_data*) malloc (sizeof(fft_data) * N2);
coup = (fft_data*) malloc (sizeof(fft_data) * N2); coup = (fft_data*) malloc (sizeof(fft_data) * N2);

1
src/wavefilt.c
View File

@ -3311,7 +3311,6 @@ void copy_reverse(const double *in, int N,double *out)
void qmf_wrev(const double *in, int N, double *out) void qmf_wrev(const double *in, int N, double *out)
{ {
int count = 0;
double *sigOutTemp; double *sigOutTemp;
sigOutTemp = (double*)malloc(N*sizeof(double)); sigOutTemp = (double*)malloc(N*sizeof(double));

83
src/wavelib.c
View File

@ -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; int l,l2,isodd,i,t,len_avg;
len_avg = wt->wave->lpd_len; 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; int l, l2, isodd, i, t, len_avg;
len_avg = wt->wave->lpd_len; 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; int l, l2, isodd, i, t, len_avg;
len_avg = wt->wave->lpd_len; 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; int i,l, t, len_avg;
len_avg = wt->wave->lpd_len; 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; int i, l, t, len_avg;
len_avg = wt->wave->lpd_len; 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; int i, l, t, len_avg;
len_avg = wt->wave->lpd_len; 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; int len_avg,D,lf;
double *signal,*cA_undec; double *signal,*cA_undec;
len_avg = (wt->wave->lpd_len + wt->wave->hpd_len) / 2; 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]; len_cA = wt->length[J - iter];
N -= len_cA; N -= len_cA;
if ( !strcmp(wt->cmethod, "fft") || !strcmp(wt->cmethod, "FFT") ) { 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 { 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]; temp_len = wt->length[J - iter];
if (iter == J - 1) { if (iter == J - 1) {
@ -796,10 +796,10 @@ void dwt(wt_object wt,const double *inp) {
len_cA = wt->length[J - iter]; len_cA = wt->length[J - iter];
N -= len_cA; N -= len_cA;
if (!strcmp(wt->cmethod, "fft") || !strcmp(wt->cmethod, "FFT")) { 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 { 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]; temp_len = wt->length[J - iter];
@ -878,9 +878,9 @@ void wtree(wtree_object wt,const double *inp) {
N = N2; N = N2;
for(k = 0; k < p2;++k) { for(k = 0; k < p2;++k) {
if (iter == 0) { 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 { } 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; N += 2 * len_cA;
} }
@ -913,9 +913,9 @@ void wtree(wtree_object wt,const double *inp) {
N = N2; N = N2;
for(k = 0; k < p2;++k) { for(k = 0; k < p2;++k) {
if (iter == 0) { 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 { } 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; N += 2 * len_cA;
} }
@ -1033,10 +1033,10 @@ void dwpt(wpt_object wt, const double *inp) {
N = N2; N = N2;
for (k = 0; k < p2; ++k) { for (k = 0; k < p2; ++k) {
if (iter == 0) { 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 { 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); wt->costvalues[it2] = costfunc(tree + N, len_cA, wt->entropy, eparam);
it2++; it2++;
@ -1073,10 +1073,10 @@ void dwpt(wpt_object wt, const double *inp) {
N = N2; N = N2;
for (k = 0; k < p2; ++k) { for (k = 0; k < p2; ++k) {
if (iter == 0) { 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 { 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); wt->costvalues[it2] = costfunc(tree + N, len_cA, wt->entropy, eparam);
it2++; it2++;
@ -1413,7 +1413,7 @@ void cwt(cwt_object wt, const double *inp) {
} }
wt->smean /= N; 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; int len_avg,i,l,m,n,t,l2;
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2; 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; int len_avg, i, l, m, n, t, v;
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2; 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); //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) { for (k = lf/2 - 1; k < 2 * det_len + lf/2 - 1; ++k) {
out[k - lf/2 + 1] = X_lp[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); //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) { for (k = lf-2; k < 2 * det_len; ++k) {
out[k - lf + 2] = X_lp[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; int len_avg, i, l, m, n, t, l2;
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2; 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; int len_avg, i, l, m, n, t, v;
len_avg = (wt->wave->lpr_len + wt->wave->hpr_len) / 2; 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) { 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; int app_len, det_len, index, n1, llb, index2, index3, index4,indexp,xlen;
double *X_lp, *X, *out, *out2; double *X_lp, *X, *out, *out2;
int *prep,*ptemp; int *prep,*ptemp;
J = wt->J; J = wt->J;
U = 2;
app_len = wt->length[0]; app_len = wt->length[0];
p = ipow2(J); p = ipow2(J);
lf = (wt->wave->lpr_len + wt->wave->hpr_len) / 2; 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]; out[k] = wt->output[index + k];
out2[k] = wt->output[index + det_len + 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) { for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
X[index3 + k - lf / 2 + 1] = X_lp[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]; out[k] = wt->output[index + k];
out2[k] = X[index4 + 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) { for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
X[index3 + k - lf / 2 + 1] = X_lp[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]; out[k] = X[index4 + k];
out2[k] = wt->output[index + 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) { for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
X[index3 + k - lf / 2 + 1] = X_lp[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]; out[k] = X[index4 + k];
out2[k] = X[index4 + indexp + 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) { for (k = lf / 2 - 1; k < 2 * det_len + lf / 2 - 1; ++k) {
X[index3 + k - lf / 2 + 1] = X_lp[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")) { else if (!strcmp(wt->ext, "sym")) {
app_len = wt->length[0]; app_len = wt->length[0];
det_len = wt->length[1]; det_len = wt->length[1];
N = 2 * wt->length[J] - 1;
//X_lp = (double*)malloc(sizeof(double)* (N + 2 * lf - 1)); //X_lp = (double*)malloc(sizeof(double)* (N + 2 * lf - 1));
index = 0; index = 0;
@ -1939,7 +1937,7 @@ void idwpt(wpt_object wt, double *dwtop) {
out[k] = wt->output[index + k]; out[k] = wt->output[index + k];
out2[k] = wt->output[index + det_len + 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) { for (k = lf - 2; k < 2 * det_len; ++k) {
X[index3 + k - lf + 2] = X_lp[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]; out[k] = wt->output[index + k];
out2[k] = X[index4 + 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) { for (k = lf - 2; k < 2 * det_len; ++k) {
X[index3 + k - lf + 2] = X_lp[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]; out[k] = X[index4 + k];
out2[k] = wt->output[index + 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) { for (k = lf - 2; k < 2 * det_len; ++k) {
X[index3 + k - lf + 2] = X_lp[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]; out[k] = X[index4 + k];
out2[k] = X[index4 + indexp + 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) { for (k = lf - 2; k < 2 * det_len; ++k) {
X[index3 + k - lf + 2] = X_lp[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; int l, l2, isodd, i, t, len_avg,j;
len_avg = M * wt->wave->lpd_len; 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) { static void swt_direct(wt_object wt, double *inp) {
int i, J, temp_len, iter, M, N; int i, J, temp_len, iter, M;
int lenacc, len_filt; int lenacc;
double *cA, *cD; double *cA, *cD;
temp_len = wt->siglength; temp_len = wt->siglength;
J = wt->J; J = wt->J;
wt->length[0] = wt->length[J] = temp_len; wt->length[0] = wt->length[J] = temp_len;
wt->outlength = wt->length[J + 1] = (J + 1) * temp_len; wt->outlength = wt->length[J + 1] = (J + 1) * temp_len;
len_filt = wt->wave->filtlength;
M = 1; M = 1;
for (iter = 1; iter < J; ++iter) { for (iter = 1; iter < J; ++iter) {
M = 2 * M; M = 2 * M;
@ -2203,13 +2200,11 @@ static void swt_direct(wt_object wt, double *inp) {
lenacc -= temp_len; lenacc -= temp_len;
if (iter > 0) { if (iter > 0) {
M = 2 * M; M = 2 * M;
N = M * len_filt;
} }
else { 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) { for (i = 0; i < temp_len; ++i) {