diff options
Diffstat (limited to 'macros/Misc/scifunc_block_m.sci')
| -rw-r--r-- | macros/Misc/scifunc_block_m.sci | 143 |
1 files changed, 143 insertions, 0 deletions
diff --git a/macros/Misc/scifunc_block_m.sci b/macros/Misc/scifunc_block_m.sci new file mode 100644 index 00000000..be0b17ae --- /dev/null +++ b/macros/Misc/scifunc_block_m.sci @@ -0,0 +1,143 @@ +// Scicos +// +// Copyright (C) INRIA - METALAU Project <scicos@inria.fr> +// +// This program 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 program 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 program; if not, write to the Free Software +// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +// +// See the file ../license.txt +// + +function [x,y,typ]=scifunc_block_m(job,arg1,arg2) + //%Description + // job=='set' : block parameters acquisition + // arg1 is block data structure + // x is returned block data structure + // job=='define' : corresponding block data structure initialisation + // arg1: name of block parameters acquisition macro + // x : block data structure + // + x=[]; + y=[]; + typ=[]; + select job + case "set" then + needcompile=0 + x=arg1 + model=arg1.model; + graphics=arg1.graphics; + exprs=graphics.exprs + + while %t do + [ok,i,o,ci,co,xx,z,rpar,auto0,deptime,lab]=scicos_getvalue(.. + ["Set scifunc_block parameters";"only regular blocks supported"],.. + ["input ports sizes"; + "output port sizes"; + "input event ports sizes"; + "output events ports sizes"; + "initial continuous state"; + "initial discrete state"; + "System parameters vector"; + "initial firing vector (<0 for no firing)"; + "is block always active (0:no, 1:yes)"],.. + list("mat",[-1 2],"mat",[-2 2],"vec",-1,"vec",-1,"vec",-1,"vec",-1,.. + "vec",-1,"vec",-1,"vec",1),exprs(1)) + if ~ok then + break, + end + exprs(1)=lab + xx=xx(:); + z=z(:); + rpar=rpar(:) + it=ones(1,size(i,1)) + ot=ones(1,size(o,1)) + nrp=prod(size(rpar)) + // create simulator + //i=int(i(:)); + ni=size(i,1); + //o=int(o(:)); + no=size(o,1); + ci=int(ci(:)); + nci=size(ci,1); + co=int(co(:)); + nco=size(co,1); + [ok,tt,dep_ut]=genfunc2(exprs(2),i,o,nci,nco,size(xx,1),size(z,1),.. + nrp,"c") + dep_ut(2)=(1==deptime) + if ~ok then + break, + end + //[model,graphics,ok]=check_io(model,graphics,i,o,ci,co) + [model,graphics,ok]=set_io(model,graphics,list(i,it),list(o,ot),ci,co) + if ok then + auto=auto0 + model.state=xx + model.dstate=z + model.rpar=rpar + if model.ipar <> 0 then + model.opar=model.ipar; + model.ipar=0; + end + if or(model.opar<>tt) then + needcompile=4, + end + model.opar=tt + model.firing=auto + model.dep_ut=dep_ut + x.model=model + exprs(2)=tt + graphics.exprs=exprs + x.graphics=graphics + break + end + end + needcompile=resume(needcompile) + case "define" then + in=1 + out=1 + clkin=[] + clkout=[] + x0=[] + z0=[] + typ="c" + auto=[] + rpar=[] + it=1 + model=scicos_model() + model.sim=list("scifunc",3) + model.in=in + model.in2=in + model.intyp=it + model.out=out + model.out2=out + model.outtyp=it + model.evtin=clkin + model.evtout=clkout + model.state=x0 + model.dstate=z0 + model.rpar=rpar + model.ipar=0; + model.opar=list(); + model.blocktype=typ + model.firing=auto + model.dep_ut=[%t %f] + + exprs=list([sci2exp([in in]);sci2exp([out out]);sci2exp(clkin);sci2exp(clkout); + strcat(sci2exp(x0));strcat(sci2exp(z0)); + strcat(sci2exp(rpar));sci2exp(auto);sci2exp(0)],.. + list("y1=sin(u1)"," "," ","y1=sin(u1)"," "," "," ")) + gr_i=[] + x=standard_define([4 2],model,exprs,gr_i) + end +endfunction |