/* convsp Scicos Convertisseur parralèle série * Type 2 simulation function ver 1.0 - scilab-2.6&2.7 * 21 décembre 2003 - IRCOM GROUP - Author : A.Layec */ /* REVISION HISTORY : * $Log$ */ #include "machine.h" #include <stdio.h> /* Cette fonction réalise la conversion "parallèle-série". Le vecteur d'entrée de taille * nu est lu périodiquement par pas de 1 block. * * entrées régulières : u[0..nu-1] : vecteur d'entrée de taille nu * sorties régulières : y[0] : vecteur de sortie de taille 1 * état discret : z[0] : compteurs échantillons */ /*prototype*/ void convps(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,rpar,nrpar, ipar,nipar,inptr,insz,nin,outptr,outsz,nout) int *flag,*nevprt,*nx,*nz,*ntvec,*nrpar,ipar[],*nipar,insz[],*nin,outsz[],*nout; double x[],xd[],z[],tvec[],rpar[]; double *inptr[],*outptr[],*t; { /*Déclaration*/ double *y; double *u; /*Récupération des adresses des ports réguliers*/ y=(double *)outptr[0]; u=(double *)inptr[0]; /*Uniquement sur flag 1*/ if(*flag==1) { /*Test valeur compteur échantillons*/ if((int)z[0]==insz[0]) { /*RAZ compteur*/ z[0]=0; /*lit position 0*/ y[0]=u[0]; /*Incremente compteur*/ z[0]++; } else { /*Lit position z[0] de u[]*/ y[0]=u[(int)z[0]]; /*Incrémente compteur*/ z[0]++; } /*fprintf(stderr,"insz[0]=%d, a=%d, u[a]=%f, y[0]=%f\n", insz[0],a, u[a],y[0]);*/ } }