scilab/modules/scicos/macros/scicos_scicos/scicos_model.sci

   1 //  Scicos
   2 //
   3 //  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
   4 //
   5 // This program is free software; you can redistribute it and/or modify
   6 // it under the terms of the GNU General Public License as published by
   7 // the Free Software Foundation; either version 2 of the License, or
   8 // (at your option) any later version.
   9 //
  10 // This program is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14 //
  15 // You should have received a copy of the GNU General Public License
  16 // along with this program; if not, write to the Free Software
  17 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  18 //
  19 // See the file ../license.txt
  20 //
  21
  22 function model=scicos_model(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,...
  23     v17,v18,v19,v20,v21,v22,v23,v24,v25,v26)
  24
  25     //initialisation de model mlist
  26     if exists("sim","local")==0 then sim="",end
  27     if exists("in","local")==0 then in=[],end
  28     if exists("in2","local")==0 then in2=[],end
  29     if exists("intyp","local")==0 then intyp=1,end
  30     if exists("out","local")==0 then out=[],end
  31     if exists("out2","local")==0 then out2=[],end
  32     if exists("outtyp","local")==0 then outtyp=1,end
  33     if exists("evtin","local")==0 then evtin=[],end
  34     if exists("evtout","local")==0 then evtout=[],end
  35     if exists("state","local")==0 then state=[],end
  36     if exists("dstate","local")==0 then dstate=[],end
  37     if exists("odstate","local")==0 then odstate=list(),end
  38     if exists("opar","local")==0 then opar=list(),end
  39     if exists("rpar","local")==0 then rpar=[],end
  40     if exists("ipar","local")==0 then ipar=[],end
  41     if exists("blocktype","local")==0 then blocktype="c",end
  42     if exists("firing","local")==0 then firing=[],end
  43     if exists("dep_ut","local")==0 then dep_ut=[%f %f],end
  44     if exists("label","local")==0 then label="",end
  45     if exists("nzcross","local")==0 then nzcross=0,end
  46     if exists("nmode","local")==0 then nmode=0,end
  47     if exists("equations","local")==0 then equations=list(),end
  48
  49     model=mlist(["model","sim","in","in2","intyp","out","out2","outtyp",...
  50     "evtin","evtout","state","dstate","odstate","rpar","ipar","opar",...
  51     "blocktype","firing","dep_ut","label","nzcross",..
  52     "nmode","equations"],..
  53     sim,in,in2,intyp,out,out2,outtyp,evtin,evtout,state,dstate,odstate,..
  54     rpar,ipar,opar,blocktype,firing,dep_ut,label,nzcross,nmode,equations)
  55 endfunction
  56