Scicos Block
eng - fr

Discrete time estimator bloc

Contents

• Discrete time estimator bloc
  • Palette
  • Dialog box
  • Default properties
  • Interfacing function
  • Computational function (type 4)
  • Authors

Palette

• Sources.cosf - Sources palette

Dialog box

• Frequency sampling (Hz) :
  Type 'vec' of size -1. The value of the discrete frequency sample step.
• Initial condition :
  Type 'vec' of size -1. The initial value of the output discrete time slope.

Default properties

• always active: no
• direct-feedthrough: no
• zero-crossing: no
• mode: no
• number/sizes of inputs: 0 /
• number/sizes of outputs: 1 / 1
• number/sizes of activation inputs: 1 / 1
• number/sizes of activation outputs: 0 /
• continuous-time state: no
• discrete-time state: yes
• name of computational function: time

Interfacing function

Time_f.sci

Computational function (type 4)

/* time Scicos time signal block
 * Originaly write in fortran in the LARY_CR package
 * Rewrite in C with capabylity to compute output vector
 * Type 4 simulation function ver 1.0 - scilab-2.6&2.7
 * 19 novembre 2003 - IRCOM GROUP - Author : A.Layec
 * 10 janvier 2004 : passage type 4
 */

/* REVISION HISTORY :
 * $Log$
 */
 
#include "machine.h"
#include "scicos_block.h"

/* Cette fonction de simulation délivre la valeur de la variable t
 * à chaque instant de déclenchement :
 * y[k]=y[k-1]+T[k]
 * avec T[k] le vecteur des paramètres et y[k] le vecteur des sortie
 * 
 * Entrée régulière : néant.
 * Sorties régulières : y[0..nu-1] : sorties des nu signaux.
 * Entrée évenementielle : période de déclenchement
 * Sortie évènementielle : néant.
 *
 * Etats discrets : z[0..nu-1]    : valeur des y[k-1]
 * paramètres réels : rpar[0..nu-1] : vecteurs des paramètres (T[k]=1/rpar)
 */

/*prototype*/
void time(scicos_block *block,int flag)
{
 /*déclaration des variables*/
 double *y;
 int i,nu;

 /*Récupération de l'adresse du port de sortie régulier*/
 y=(double *)block->outptr[0];

 /*récupération de la taille du port de sortie*/
 nu=block->outsz[0];
    
 /*Le flag 1 place le registre z dans le registre y*/
 if(flag==1||flag==6)
 {
  for(i=0;i<nu;i++) y[i]=block->z[i];
 }

 /*la flag 2 calcul l'incrément temporel*/
 else if(flag==2)
 {
  for(i=0;i<nu;i++) block->z[i]=block->z[i]+1/block->rpar[i];
 }
}

Authors

IRCOM Group Alan Layec