1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
function READAU_f () {
var frmt = "uc,";
var fname = "test.au";
var lunit = 0;
var N = 20;
var M = 1;
var tmask = [];
var swap = 0;
var offset = 1;
var outmask = 1;
var ievt = 0;
var nout = size(outmask,"*");
var model = scicos_model();
model.sim=list(new ScilabString(["readau"]),new ScilabDouble([2]));
model.out=nout;
model.evtin = new ScilabDouble([1]);
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.dep_ut = new ScilabBoolean([false,false]);
var exprs = [[fname],[string(N)],[string(swap)]];
var gr_i = [];
this.x=new standard_define(new ScilabDouble([5,2]),model,exprs,gr_i);
return new BasicBlock(this.x)
}
|
