Scicos Block
eng - fr


Overlap block

\epsfig{file=OVERLAP_f.eps,width=90.00pt}

Contents

Palette

Description

This block is a nu to ny vector converter block with nu>ny. At each event clock, this block memorizes the exces input vector [ny;ny+N] in the discrete state vector, where N is an integer parameter.

\begin{displaymath}
\begin{array}{ccccc}
z(n)\,=\,u(n)\, si \, ny \leq n < ny+N
\end{array}\end{displaymath}

It delivres in the ouput vector y, of size ny, the input vector u[0..ny-1] plus the preceding memorize word z[0..N-1]. The discrete state is added up with the begin of the input word such as :

\begin{displaymath}
y(n)\,=\,\left\{
\begin{array}{ccc}
x(n)+z_{-1}(n) \, si \, 0 \leq n < N
\end{displaymath}

$\displaystyle x(n) \, si \, N \leq n < ny
\end{array}\right.
$

\begin{figure}\centering
\scalebox{0.6}{%
\input{overlap_block.pstex_t}}
\end{figure}
Figure : Equivalent diagram of Overlap_f block

Dialog box

Default properties

Interfacing function

OVERLAP_f.sci

Computational function (type 4)


/* overlap Scicos temporal overlap vector
 * Type 4 simulation function ver 1.0 - scilab-3.0
 * 5 décembre 2005 - IRCOM GROUP - Author : A.Layec
 */
 
/* REVISION HISTORY :
 * $Log$
 */
 
#include "machine.h"
#include "scicos_block.h"

/* Cette fonction transforme un vecteur de taille nu en vecteur de taille ny,
 * avec nu>ny. Elle mémorise l'excés nu-ny et ajoute celui au début du vecteur
 * suivant.
 * Entrées régulières : u[0..nu-1] : vecteur d'entrée de taille nu
 * sorties régulières : y[0..ny-1] : vecteur de sortie de taille ny
 * paramètres entiers : nz : taille du vecteur Z
 */

/*prototype*/
void overlap(scicos_block *block,int flag)
{
  /*déclaration*/
  double *y;
  double *u;
  double *z;
  int i,nu,ny,k,l,ierr;

  /*récupération de l'adresse des ports réguliers*/
  y=(double *)block->outptr[0];
  u=(double *)block->inptr[0];
  z=block->z;
 
  /*Récupération de la taille des ports réguliers*/
  nu=block->insz[0];
  ny=block->outsz[0];

  /*La flag 1 calcule y*/
  if(flag==1)
   {
    /*Recopie les ny premiers éléments de u dans y*/
    F2C(dcopy)(&ny,&u[0],(k=1,&k),&y[0],(k=1,&k));

    /*Ajoute les nz éléments précédents au début du vecteur y*/
    for(i=0;i<block->nz;i++) y[i]=u[i]+z[i];
   }
  /*Le flag 2 mais en mémoire l'éxcès nz de u dans Z*/
  else if(flag==2)
  {
   /*Recopie les nz éxcédentaires de u dans z*/
   F2C(dcopy)((l=block->nz,&l),&u[ny],(k=1,&k),&z[0],(k=1,&k));
  }
}

Authors

IRCOM Group Alan Layec