3 // Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
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.
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.
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.
19 // See the file ../license.txt
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)
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
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)