Add here a paragraph of the function description.
/* logistique Scicos logistique function block * Type 2 simulation function ver 1.0 - scilab-2.6&2.7 * 18 novembre 2003 - IRCOM GROUP - Author : A.Layec */ /* REVISION HISTORY : * $Log$ */ #include "machine.h" /* Cette fonction de simulation réalise la fonction non linéaire logistique : * y = 4*R*u*(1-u) * où R est un paramètre, y la sortie et u l'entrée. * * Entrées régulières : u1[0..nu-1] : vecteur du paramètre R * u2[0..nu-1] : vecteur d'entrée * Sortie régulière : y1[0..nu-1] : vecteur des sorties * Entrée évènementielle : néant (héritage) * sortie évènementielle : néant * paramètres : néant. */ /*prototype*/ void logistique(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,rpar,nrpar, ipar,nipar,inptr,insz,nin,outptr,outsz,nout) integer *flag,*nevprt,*nx,*nz,*ntvec,*nrpar,ipar[],*nipar,insz[],*nin,outsz[],*nout; double x[],xd[],z[],tvec[],rpar[]; double *inptr[],*outptr[],*t; { /*déclaration des variables*/ double *y1; double *u1; double *u2; int nu,i; /*récupération des adresses des ports réguliers*/ y1=(double *)outptr[0]; u1=(double *)inptr[0]; u2=(double *)inptr[1]; /*récupération de la taille du port d'entrée u1*/ nu = insz[0]; /*Calcule du registre de sortie*/ for(i=0;i<nu;i++) y1[i]=4*u1[i]*u2[i]*(1-u2[i]); }