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.
/* 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));
}
}