rifgen_f.sci

numerical modulator with matlab

//FILTER_f Scicos Temporal RIF with WFIR Impulse Response Calculation block
//Classical interface function ver1.0 - scilab-2.7
//19 novembre 2003 - IRCOM GROUP - Author : A.Layec
function [x,y,typ]=RIFGEN_f(job,arg1,arg2)
// Copyright INRIA
x=[];y=[];typ=[]
select job
case 'plot' then
  standard_draw(arg1)
case 'getinputs' then
  [x,y,typ]=standard_inputs(arg1)
case 'getoutputs' then
  [x,y,typ]=standard_outputs(arg1)
case 'getorigin' then
  [x,y]=standard_origin(arg1)
case 'set' then
   x=arg1;
   model=arg1.model
   graphics=arg1.graphics

   exprs1=graphics.exprs(1:2)
   exprs2=graphics.exprs(3:6)
   exprs3=graphics.exprs(7:13)
   exprs4=graphics.exprs(14:19)
   exprs5=graphics.exprs(20:25)
   exprs6=graphics.exprs(26:31)

   while %t do

     [ok,typ,herit,exprs1]=getvalue('Scicos RIF Block',...
     ['Type of RIF';'Accepted herited (0/1)?'],list('vec',1,'vec',1),exprs1);

     if ~ok then break,end;
     //Attention il y a un bug