[ новости /+++ | форум | теги | ]

NAME
     swiener - perform Wiener deconvolution of two signals

SYNOPSIS
     SUBROUTINE SWIENER(NPTS, ACOR, XCOR,  FILTER,  PRDERR,  ISW,
               IERR)

     INTEGER NPTS, ISW, IERR

     REAL         ACOR(*), XCOR(*), FILTER(*), PRDERR(*)



     #include <sunperf.h>

     void swiener(int  npts,  float  *acor,  float  *xcor,  float
               *filter, float *prderr, int isw, int *ierr) ;

PURPOSE
     SWIENER performs Wiener deconvolution of two signals.


PARAMETERS
     NPTS      - INTEGER
               On entry, the number of points in the input corre-
               lations.  Unchanged on exit.

     ACOR      - REAL array of DIMENSION (NPTS)
               On entry, autocorrelation coefficients.  Unchanged
               on exit.

     XCOR      - REAL array of DIMENSION (NPTS)
               On    entry,    cross-correlation    coefficients.
               Unchanged on exit.

     FILTER    - REAL array of DIMENSION (NPTS)
               On exit, filter coefficients.  Unchanged on exit.

     PRDERR    - REAL array of DIMENSION (NPTS)
               On exit, the prediction error.

     ISW       - INTEGER
               On entry, if  ISW  .EQ.  0  then  perform  spiking
               deconvolution,  otherwise perform general deconvo-
               lution.  Unchanged on exit.

     IERR      - INTEGER
               On exit, the deconvolution was successful iff IERR
               .EQ. 0, otherwise there was an error.

Партнёры:

Хостинг: