Computational routine
eng
cpf
/* Modnumlib Scicos interfacing function
* Copyright (C) 2009-2011 Alan Layec
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public
* License along with this library; if not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
/* cpf Scicos Phase/frequency Comparator block
* Type 4 simulation function ver 1.0 - scilab-3.0
* 6 janvier 2005 - IRCOM GROUP - Author : A.Layec
*/
/* REVISION HISTORY :
* $Log$
*/
#include "modnum_lib.h"
#include "scicos_block.h"
/* Cette fonction de simulation réalise un comparateur phase fréquence
* trois états. Elle calcule les signaux discrets Up(t) et Down(t) qui
* sont les sorties logiques de deux bascules D. Les entrées de ces bascules
* sont placées à 1 et les entrées d'horloges de celles-ci sont les entrées
* évènementielles du bloc. Lorsque les sorties des deux bascules sont toutes
* les deux placées à 1, la fonction place les sorties du bloc y[0] et y[1] à 0.
*
* entrées d'évenements : dates d'événements Ref(t), Div(t)
* sortie d'évenement : néant
* entrée régulières : néant
* Sortie régulières : Up(t) et Down(t)
* paramètres : néant
* Etats discrets : z[0] et z[1] mémorisent les états précédents des sorties des bascules
*/
/*prototype*/
void cpf(scicos_block *block,int flag)
{
/*déclaration*/
int k;
int nev;
double *y1, *y2;
/*récupération des adresses*/
y1=(double *)block->outptr[0];
y2=(double *)block->outptr[1];
nev=block->nevprt;
/* Le flag 1 met à jour les sorties un test est réalisé sur les états précédents*/
if(flag==1) {
/*Appel cpfy_c*/
cpfy_c((k=1,&k),&nev,&block->z[0],&block->z[1],&y1[0],&y2[0]);
}
/* Le flag 2 met à jour les états précédents*/
else if(flag==2) {
/*Appel cpfz_c*/
cpfz_c((k=1,&k),&nev,&block->z[0],&block->z[1]);
}
}