void VU_vfreqswapIP_d(vsip_vview_d* b)
{ vsip_length N = vsip_vgetlength_d(b);
if(N%2){/* odd */
vsip_vview_d *a1 = vsip_vsubview_d(b,
(vsip_index)(N/2)+1,
(vsip_length)(N/2));
vsip_vview_d *a2 = vsip_vsubview_d(b,
(vsip_index)0,
(vsip_length)(N/2)+1);
vsip_vview_d *a3 = vsip_vcreate_d((vsip_length)(N/2)+1,
VSIP_MEM_NONE);
vsip_vcopy_d_d(a2,a3);
vsip_vputlength_d(a2,(vsip_length)(N/2));
vsip_vcopy_d_d(a1,a2);
vsip_vputlength_d(a2,(vsip_length)(N/2) + 1);
vsip_vputoffset_d(a2,(vsip_offset)(N/2));
vsip_vcopy_d_d(a3,a2);
vsip_vdestroy_d(a1); vsip_vdestroy_d(a2);
vsip_valldestroy_d(a3);
}else{ /* even */
vsip_vview_d *a1 = vsip_vsubview_d(b,
(vsip_index)(N/2),
(vsip_length)(N/2));
vsip_vputlength_d(b,(vsip_length)(N/2));
vsip_vswap_d(b,a1);
vsip_vdestroy_d(a1);
vsip_vputlength_d(b,N);
}
return;
}
int main(){vsip_init((void*)0);
{
void VU_vfprintyg_d(char*,vsip_vview_d*,char*);
void VU_vfreqswapIP_d(vsip_vview_d*);
vsip_vview_d* Cw = vsip_vcreate_cheby_d(Nlength,ripple,0);
vsip_fft_d *fft = vsip_ccfftip_create_d(Nlength,1.0,VSIP_FFT_FWD,0,0);
vsip_cvview_d* FCW = vsip_cvcreate_d(Nlength,0);
/*printf("CW = "); VU_vprintm_d("%6.8f ;\n",Cw); */
VU_vfprintyg_d("%6.8f\n",Cw,"Cheby_Window");
vsip_cvfill_d(vsip_cmplx_d(0,0),FCW);
{ vsip_vview_d *rv = vsip_vrealview_d(FCW);
vsip_vcopy_d_d(Cw,rv);
vsip_ccfftip_d(fft,FCW);
vsip_vcmagsq_d(FCW,rv);
{ vsip_index ind;
vsip_scalar_d max = vsip_vmaxval_d(rv,&ind);
vsip_scalar_d min = max/(10e12);
vsip_vclip_d(rv,min,max,min,max,rv);
}
vsip_vlog10_d(rv,rv);
vsip_svmul_d(10,rv,rv);
VU_vfreqswapIP_d(rv);
VU_vfprintyg_d("%6.8f\n",rv,"Cheby_Window_Frequency_Response");
vsip_vdestroy_d(rv);
}
vsip_fft_destroy_d(fft);
vsip_valldestroy_d(Cw);
vsip_cvalldestroy_d(FCW);
} vsip_finalize((void*)0); return 0;
}
int main(){vsip_init((void*)0);
{
vsip_mview_d *A = vsip_mcreate_d(N,N,VSIP_COL,0);
vsip_vview_d *x0 = vsip_vcreate_d(N,0);
vsip_vview_d *b = vsip_vcreate_d(N,0);
vsip_mview_d *X = vsip_mcreate_d(N,3,VSIP_ROW,0);
vsip_mview_d *XT = vsip_mcreate_d(N,3,VSIP_COL,0);
vsip_vramp_d(1,1,x0); vsip_vmul_d(x0,x0,x0);
vsip_mput_d(A,0,0,-3); vsip_mput_d(A,0,1,7); vsip_mput_d(A,0,2,10); vsip_mput_d(A,0,3,12);
vsip_mput_d(A,1,0,0); vsip_mput_d(A,1,1,13); vsip_mput_d(A,1,2,18); vsip_mput_d(A,1,3,6);
vsip_mput_d(A,2,0,2); vsip_mput_d(A,2,1,-9); vsip_mput_d(A,2,2,6); vsip_mput_d(A,2,3,3);
vsip_mput_d(A,3,0,1); vsip_mput_d(A,3,1,2); vsip_mput_d(A,3,2,3); vsip_mput_d(A,3,3,4);
{int i,j; printf("A = [\n"); for(i=0; i<N; i++){
for(j=0; j<N; j++) printf("%9.2f%s",vsip_mget_d(A,i,j),(j == N-1) ? "":",");
printf(";\n");
}
printf("]\n");
}
{ int k;
vsip_vview_d *x;
vsip_length L = vsip_mgetrowlength_d(X);
for(k=0; k<L; k++){
x = vsip_mcolview_d(X,k);
vsip_mvprod_d(A,x0,b);
vsip_vcopy_d_d(b,x);
vsip_svmul_d(2.0,x0,x0);
vsip_vdestroy_d(x);
}
{int i,j; printf("X = [\n");for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(X,i,j),(j == 2) ? "":",");
printf(";\n");
}
printf("]\n");
}
{
vsip_lu_d* luAop = vsip_lud_create_d(N);
vsip_mcopy_d_d(X,XT);
if(luAop == NULL) exit(1);
vsip_lud_d(luAop,A);
vsip_lusol_d(luAop,0,X);
vsip_lusol_d(luAop,1,XT);
vsip_lud_destroy_d(luAop);
}
}
{int i,j; printf("A\\X\n"); for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(X,i,j),(j == 2) ? "":",");
printf(";\n");
}
}
{int i,j; printf("A'\\X\n"); for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(XT,i,j),(j == 2) ? "":",");
printf(";\n");
}
}
{
vsip_valldestroy_d(b);
vsip_valldestroy_d(x0);
vsip_malldestroy_d(X);
vsip_malldestroy_d(A);
}
}vsip_finalize((void*)0);return 1;
}
void
ref_corr_d(vsip_bias bias, vsip_support_region sup,
vsip_vview_d const *ref,
vsip_vview_d const *in,
vsip_vview_d const *out)
{
vsip_length M = vsip_vgetlength_d(ref);
vsip_length N = vsip_vgetlength_d(in);
vsip_length P = vsip_vgetlength_d(out);
vsip_length expected_P = ref_corr_output_size(sup, M, N);
vsip_stride shift = ref_expected_shift(sup, M);
assert(expected_P == P);
vsip_vview_d *sub = vsip_vcreate_d(M, VSIP_MEM_NONE);
// compute correlation
vsip_index i;
for (i=0; i<P; ++i)
{
vsip_vfill_d(0, sub);
vsip_stride pos = (vsip_stride)i + shift;
double scale;
if (pos < 0)
{
vsip_vview_d *subsub = vsip_vsubview_d(sub, -pos, M + pos);
vsip_vview_d *insub = vsip_vsubview_d(in, 0, M + pos);
vsip_vcopy_d_d(insub, subsub);
vsip_vdestroy_d(subsub);
vsip_vdestroy_d(insub);
scale = M + pos;
}
else if (pos + M > N)
{
vsip_vview_d *subsub = vsip_vsubview_d(sub, 0, N - pos);
vsip_vview_d *insub = vsip_vsubview_d(in, pos, N - pos);
vsip_vcopy_d_d(insub, subsub);
vsip_vdestroy_d(subsub);
vsip_vdestroy_d(insub);
scale = N - pos;
}
else
{
vsip_vview_d *insub = vsip_vsubview_d(in, pos, M);
vsip_vcopy_d_d(insub, sub);
vsip_vdestroy_d(insub);
scale = M;
}
#if VSIP_IMPL_CORR_CORRECT_SAME_SUPPORT_SCALING
#else
if (sup == VSIP_SUPPORT_SAME)
{
if (i < (M/2)) scale = i + (M+1)/2; // i + ceil(M/2)
else if (i < N - (M/2)) scale = M; // M
else scale = N - 1 + (M+1)/2 - i; // N-1+ceil(M/2)-i
}
#endif
double val = vsip_vdot_d(ref, sub);
if (bias == VSIP_UNBIASED) val /= scale;
vsip_vput_d(out, i, val);
}
}
int main(){vsip_init((void*)0);
{
void VU_cmprint_d(vsip_cmview_d*);
/* int i;*/
vsip_cmview_d *w = vsip_cmcreate_d(5,L+1,VSIP_ROW,0);
vsip_cmview_d *W = vsip_cmcreate_d(5,L+1,VSIP_ROW,0);
vsip_cmview_d *IW = vsip_cmcreate_d(5,L+1,VSIP_ROW,0);
vsip_vview_d *blackman = vsip_vcreate_blackman_d(L,0),
*hanning = vsip_vcreate_hanning_d(L,0),
*kaiser = vsip_vcreate_kaiser_d(L,beta,0),
*cheby = vsip_vcreate_cheby_d(L,ripple,0);
vsip_fftm_d *fft = vsip_ccfftmop_create_d(4,L,1,VSIP_FFT_FWD,VSIP_ROW,0,0);
vsip_fftm_d *ifft = vsip_ccfftmop_create_d(4, L, 1.0/L, VSIP_FFT_INV, VSIP_ROW,0,0);
/*printf(" blackman ");
printf(" hanning kaiser chebyshev\n");
for(i=0; i < L; i++)
printf("%11.8f; %11.8f; %11.8f; %11.8f\n",
vsip_vget_d(blackman,i),
vsip_vget_d(hanning,i),
vsip_vget_d(kaiser,i),
vsip_vget_d(cheby,i)); */
vsip_cmputcollength_d(w,4);
vsip_cmputcollength_d(W,4);
vsip_cmputcollength_d(IW,4);
vsip_cmputrowlength_d(w,L);
vsip_cmputrowlength_d(W,L);
vsip_cmputrowlength_d(IW,L);
{
vsip_mview_d *wR = vsip_mrealview_d(w);
vsip_mview_d *wI = vsip_mimagview_d(w);
vsip_vview_d *v = vsip_mrowview_d(wR,0);
vsip_vview_d *vi = vsip_mrowview_d(wI,0);
vsip_offset o = (vsip_offset)vsip_mgetcolstride_d(wR);
vsip_offset oi = (vsip_offset)vsip_mgetcolstride_d(wI);
vsip_vcopy_d_d(blackman,v);
vsip_vfill_d(0,vi);
vsip_vputoffset_d(v,vsip_vgetoffset_d(v) + o);
vsip_vputoffset_d(vi,vsip_vgetoffset_d(vi) + oi);
vsip_vcopy_d_d(hanning,v);
vsip_vfill_d(0,vi);
vsip_vputoffset_d(v,vsip_vgetoffset_d(v) + o);
vsip_vputoffset_d(vi,vsip_vgetoffset_d(vi) + oi);
vsip_vcopy_d_d(kaiser,v);
vsip_vfill_d(0,vi);
vsip_vputoffset_d(v,vsip_vgetoffset_d(v) + o);
vsip_vputoffset_d(vi,vsip_vgetoffset_d(vi) + oi);
vsip_vcopy_d_d(cheby,v);
vsip_vfill_d(0,vi);
vsip_mdestroy_d(wR);
vsip_vdestroy_d(v);
vsip_mdestroy_d(wI);
vsip_vdestroy_d(vi);
}
vsip_ccfftmop_d(fft,w,W);
vsip_ccfftmop_d(ifft,W,IW);
printf(" w = ");VU_cmprint_d(w);
printf(" W = ");VU_cmprint_d(W);
printf("IW = ");VU_cmprint_d(IW);
{/* test vsip_fftm_getattr_d */
vsip_fftm_attr_d attr;
vsip_fftm_getattr_d(fft, &attr);
printf("%lu %lu %lu %lu %d %f %d %d\n",
vsip_rowindex(attr.input),
vsip_colindex(attr.input),
vsip_rowindex(attr.output),
vsip_colindex(attr.output),
attr.place,attr.scale,attr.dir,attr.major);
vsip_fftm_getattr_d(ifft, &attr);
printf("%lu %lu %lu %lu %d %f %d %d\n",
vsip_rowindex(attr.input),
vsip_colindex(attr.input),
vsip_rowindex(attr.output),
vsip_colindex(attr.output),
attr.place,attr.scale,attr.dir,attr.major);
}
vsip_fftm_destroy_d(fft);
vsip_fftm_destroy_d(ifft);
vsip_valldestroy_d(blackman);
vsip_valldestroy_d(hanning);
vsip_valldestroy_d(kaiser);
vsip_valldestroy_d(cheby);
vsip_cmalldestroy_d(w);
vsip_cmalldestroy_d(W);
vsip_cmalldestroy_d(IW);
}vsip_finalize((void*)0);return 0;
}
int main(){vsip_init((void*)0);
{
vsip_mview_d *A = vsip_mcreate_d(N,N,VSIP_ROW,0);
vsip_vview_d *x0 = vsip_vcreate_d(N,0);
vsip_vview_d *b = vsip_vcreate_d(N,0);
vsip_mview_d *X = vsip_mcreate_d(N,3,VSIP_ROW,0);
vsip_mview_d *XT = vsip_mcreate_d(N,3,VSIP_ROW,0);
vsip_vramp_d(1,1,x0); vsip_vmul_d(x0,x0,x0);
{ int i;
vsip_vview_d *r = vsip_mrowview_d(A,0);
vsip_offset o = vsip_vgetoffset_d(r);
for(i=0; i<N; i++){
vsip_vputoffset_d(r,o);
vsip_vramp_d(i,1,r);
o +=N;
}
vsip_vdestroy_d(r);
}
{ vsip_vview_d *r = vsip_mdiagview_d(A,0);
vsip_vfill_d(0,r);
vsip_vdestroy_d(r);
}
{int i,j; printf("A = [\n"); for(i=0; i<N; i++){
for(j=0; j<N; j++) printf("%9.2f%s",vsip_mget_d(A,i,j),(j == N-1) ? "":",");
printf(";\n");
}
printf("]\n");
}
{ int k;
vsip_vview_d *x;
vsip_length L = vsip_mgetrowlength_d(X);
for(k=0; k<L; k++){
x = vsip_mcolview_d(X,k);
vsip_mvprod_d(A,x0,b);
vsip_vcopy_d_d(b,x);
vsip_svmul_d(2.0,x0,x0);
vsip_vdestroy_d(x);
}
{int i,j; printf("X = [\n"); for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(X,i,j),(j == 2) ? "":",");
printf(";\n");
}
printf("]\n");
}
{vsip_lu_d* luAop = vsip_lud_create_d(N);
vsip_mcopy_d_d(X,XT);
if(luAop == NULL) exit(1);
vsip_lud_d(luAop,A);
vsip_lusol_d(luAop,0,X);
vsip_lusol_d(luAop,1,XT);
vsip_lud_destroy_d(luAop);
}
}
{int i,j; printf("A\\X\n"); for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(X,i,j),(j == 2) ? "":",");
printf(";\n");
}
}
{int i,j; printf("A'\\X\n"); for(i=0; i<N; i++){
for(j=0; j<3; j++) printf("%9.2f%s",vsip_mget_d(XT,i,j),(j == 2) ? "":",");
printf(";\n");
}
}
{
vsip_valldestroy_d(b);
vsip_valldestroy_d(x0);
vsip_malldestroy_d(X);
vsip_malldestroy_d(A);
}
}vsip_finalize((void*)0);return 1;
}
