/* noiseraylblk Scicos Rayleigh random generator block * Type 4 simulation function ver 1.0 - scilab-4.1.2 * 2 décembre 2007 - INRIA - Author : A.Layec */ /* REVISION HISTORY : * $Log$ */ #include <stdlib.h> #include "scicos_block4.h" void noiseraylblk(scicos_block *block,int flag) { /*Déclaration des variables*/ double *y; int ny; int my; double sig; /*récupération de l'adresses des ports réguliers*/ y=GetOutPortPtrs(block,1); /*récupère tailles de sortie*/ ny=GetOutPortRows(block,1); my=GetOutPortCols(block,1); /*récupère le paramètre de générateur*/ sig=block->rpar[0]; if(flag==4) { /* initialise generateur de nombre aléatoire */ srand((unsigned int)block->ipar[0]); /*Appel rnoise_c*/ rnoise_c(&ny,&my,&sig,y); } else if(flag==1) { /*Appel rnoise_c*/ rnoise_c(&ny,&my,&sig,y); } }