/* inserzerovec Scicos vectorial zero instertion * Type 4 simulation function ver 1.0 - scilab-2.6&2.7 * 4 janvier 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 un vecteur * de taile Ny, avec Ny>Nu, et en ajoutant des zéros dans l'espace > Nu * * Entrée régulière : u[0..nu-1] : vecteur d'entrée de taille nu * sorties régulière : y[0..ny-1] : vecteur de sortie de taille ny */ /*prototype*/ void inserzerovec(scicos_block *block,int flag) { /*Déclaration des variables*/ double *y; double *u; int i,nu,ny,k; /*Récupération des adresses des ports réguliers*/ y=(double *)block->outptr[0]; u=(double *)block->inptr[0]; /*Récupération des tailles des ports réguliers*/ nu=block->insz[0]; ny=block->outsz[0]; /*recopie u[] dans y[]*/ F2C(dcopy)(&nu,&u[0],(k=1,&k),&y[0],(k=1,&k)); /*ajoute les zéros*/ for(i=nu;i<ny;i++) y[i]=0; }