20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
ny = ny2/2;
y_par = [];
MTT_input = u;
[MTT_input_last,m] = size(u);
for i=index
MTT_input_index = 0;
p = par;
p(i) = 1;
[mtt_data] = ${sys}_ode2odes(x0,p,simpar);
if (i==index(1))
y = mtt_data(:,2:1+ny);
endif
y_par = [y_par, mtt_data(:,2+ny:1+2*ny)];
endfor
endfunction
|
|
|
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
ny = ny2/2;
y_par = [];
MTT_input = u;
[MTT_input_last,m] = size(u);
for i=index
MTT_input_index = 0;
p = par; # Reset parameters
p(i) = 1; # Set sensitivity index to 1
[mtt_data] = ${sys}_ode2odes(x0,p,simpar);
if (i==index(1))
y = mtt_data(:,2:1+ny);
endif
y_par = [y_par, mtt_data(:,2+ny:1+2*ny)];
endfor
endfunction
|