/* modgen Scicos Generic symbol modulator block * Type 4 simulation function ver 1.0 - scilab-4.1 * 25 mars 2007 - INRIA - Author : A.Layec */ /* REVISION HISTORY : * $Log$ */ #include "modnum_lib.h" #include "scicos_block.h" /* Cette fonction de simulation réalise un * modulateur symbole générique. * * Les valeurs I/Q sont données en paramètres. * A chaque entrée de valeurs 0 à m-1, une * valeur symbole est associée, avec m * le nombre d'états. * * entrées régulières * u[0..insz[0]-1] : vecteur des numéros symboles * * sorties régulières * y1[0..insz[0]-1] : vecteur des composantes I * y2[0..insz[0]-1] : vecteur des composantes Q * * entrée évènementielle : instants de déclenchement. * sortie évènementielle : néant * * paramètres entiers * ipar[0] : m nombre d'états * * paramètres réels * rpar[0..ipar[0]-1] : * vecteur des parties réelles des valeurs symbole * rpar[ipar[0]..2*ipar[0]-1] : * vecteur des parties imaginaires des valeurs symbole */ /*prototype*/ void modgen(scicos_block *block,int flag) { /*Déclaration des variables*/ double *y1,*y2; double *u; int nu; /*taille du vecteur d'entrée*/ double *u_r,*u_i; int m; /*nombre d'états*/ int i; /*Récupération des adresses des ports réguliers*/ u=(double *)block->inptr[0]; y1=(double *)block->outptr[0]; y2=(double *)block->outptr[1]; /*Récupération de la taille du vecteur d'entrée*/ nu=block->insz[0]; /*Récupération du nombre d'états*/ m=block->ipar[0]; /*Récupération des valeurs réelles et imaginaires du symbole*/ u_r=(double *)&block->rpar[0]; u_i=(double *)&block->rpar[m]; /* * Le flag 1 calcule la valeur de I et de Q en fonction * du numéro symbole u[] et du nombre d'état m */ if(flag==1||flag==6) { /*pour chaque éléments du vecteur d'entrée*/ for (i=0;i<nu;i++) { /*vérification de la valeur de l'entrée*/ if ((u[i]<0)||(u[i]>(double)(m-1))) { set_block_error(-1); return; } else { /*Appel routine modgen*/ modgen_c(&nu,&m,&u[0],&u_r[0],&u_i[0],&y1[0],&y2[0]); } } } }