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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/* autogenerated from "macros/NonLinear/LOOKUP2D.sci" */
function LOOKUP2D() {
LOOKUP2D.prototype.define = function LOOKUP2D() {
model = scicos_model();
xx = [1:4];
yy = [1:3];
zz = [[4,5,6],[16,19,20],[10,18,23],[6,3,-1]];
Method = 1;
Graf = "n";
Nx = length(xx);
Ny = length(yy);
model.sim = list("lookup2d",4);
model.in1 = [[1],[1]];
model.out = 1;
model.rpar = [[xx.slice()],[yy.slice()],[zz.slice()]];
model.ipar = [[Nx],[Ny],[Method]];
model.blocktype = "c";
model.dep_ut = [true,false];
exprs = list(strcat(sci2exp(xx)),strcat(sci2exp(yy)),strcat(sci2exp(zz)),sci2exp(Method),Graf);
gr_i = [];
x = standard_define([2.5,2],model,exprs,gr_i);
}
LOOKUP2D.prototype.details = function LOOKUP2D() {
}
LOOKUP2D.prototype.get = function LOOKUP2D() {
}
LOOKUP2D.prototype.set = function LOOKUP2D() {
x = arg1;
model = arg1.model;
graphics = arg1.graphics;
exprs = graphics.exprs;
ok = false;
SaveExit = false;
while (true) {
Ask_again = false;
[ok,xx,yy,zz,Method,graf,exprs] = scicos_getvalue("2D Lookup table parameters",[["Row index input values"],["Column index input values"],["Table data"],["Lookup method(1..5)"],["Launch graphic window(y/n)?"]],list("vec",-1,"vec",-1,"mat",[-1,-1],"vec",1,"str",1),exprs);
if (!ok) {
break;
}
mtd = int(Method);
if (mtd<1) {
mtd = 1;
}
if (mtd>6) {
mtd = 6;
}
if (graf!="y"&&graf!="Y") {
graf = "n";
}
exprs[5-1] = "n";
exprs[4-1] = sci2exp(mtd);
METHOD = getmethod(mtd);
if (!Ask_again) {
xx = xx.slice();
yy = yy.slice();
[nx,mx] = size(xx);
[ny,my] = size(yy);
[nz,mz] = size(zz);
if (((nx<=1)||(ny<=1))) {
x_message("input row/column data size should be greater than one");
Ask_again = true;
}
if (!((nx==nz)&&(ny==mz))) {
x_message("incompatible size of x and y");
Ask_again = true;
}
[ok] = test_increasing(xx);
if ((!ok)) {
x_message("Row input values must be monotonically increasing");
Ask_again = true;
}
[ok] = test_increasing(yy);
if ((!ok)) {
x_message("Column input values must be monotonically increasing");
Ask_again = true;
}
}
if (!Ask_again) {
if ((graf=="Y"||graf=="y")) {
gh = gcf();
curwin = gh.figure_id;
save_curwin = curwin;
gh2 = scf();
curwin = max(winsid())+1;
plot3d(xx,yy,zz,35,45,"X@Y@Z",[5,2,4]);
curwin = save_curwin;
gh.figure_id = curwin;
}
model.rpar = [[xx.slice()],[yy.slice()],[zz.slice()]];
model.ipar = [[nx],[ny],[mtd]];
graphics.exprs = exprs;
x.model = model;
x.graphics = graphics;
break;
}
}
}
}
|
