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)); } }