blob: 40b6af68a3df2c9d6901ffbe047e3a8b2c52d1bc (
plain)
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
|
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
// Copyright (C) 2010 - DIGITEO - Yann COLLETTE
//
// This file is distributed under the same license as the Scilab package.
//
function ytob=icob(dtv)
// <ytob>=icob(dtv)
// extraction of the state at measure instant
// input variables:
// dtv(ndtv) : double precision workarea obtained by the use of
// icse, icsu, icsua or icsuq
// output variables :
// ytob(ny,ntob) : value of the state at measure instant
ytob(ny,ntob) = 0.d0;
lob = ndtu + ny + ntob + nob*ny + nex*ntob*nob + ...
2*nu + ntob*nob + ny*(nti+ntf+1+ny+nuc+nuv+1);
ytob = matrix(dtv(lob+1:lob+ny*ntob),ny,ntob)
endfunction
|
