diff options
Diffstat (limited to 'data_structures/READC_f.js')
-rw-r--r-- | data_structures/READC_f.js | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/data_structures/READC_f.js b/data_structures/READC_f.js new file mode 100644 index 0000000..5fa7340 --- /dev/null +++ b/data_structures/READC_f.js @@ -0,0 +1,45 @@ +function READC_f () { + + + var frmt = "d, "; + + var fname = "foo"; + + var lunit = 0; + + var N = 20; + + var M = 1; + + var rpar = []; + + var tmask = 0; + + var swap = 0; + + var offset = 1; + + var outmask = 1; + + var ievt = 0; + + var nout = size(outmask,"*"); + + var ipar = [[,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[offset],[,_str2code(fname)],[,tmask],[,outmask,]]; + + var model = scicos_model(); + model.sim=list("readc",2); + model.out=nout; + model.evtin = new ScilabDouble([1]); + model.evtout = new ScilabDouble(); + model.dstate = new ScilabDouble([1],[,1],[,lunit],[,zeros(N*M,1)]); + model.ipar = new ScilabDouble([,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[,offset],[_str2code(fname)],[,tmask],[,outmask,]); + model.blocktype = new ScilabString(["d"]); + model.firing = new ScilabDouble([-1]); + model.dep_ut = new ScilabBoolean([false,false]); + + var exprs = [[,"[]"],[,sci2exp(outmask)],[,fname],[,frmt],[,M.toString()],[,N.toString()],[,offset.toString()],[swap.toString(),]]; + + var gr_i = []; + this.x=new standard_define(new ScilabDouble([4,2]),model,exprs,gr_i); +} |