summaryrefslogtreecommitdiff
path: root/modules/optimization/demos/icse/icse.sci
blob: 1198e0401d14d28d7ec9f0263a1bc23078c7eec4 (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
27
28
29
30
//
// 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 [co,u,g,itv,dtv]=icse(u,simu,nap,imp)
    // Computation of the optimal control without scaling of the control
    // and equal weighting of the observations
    // input variables :
    // u(nu)     : initial parameters
    // simu      : string containing the name of the sub program which
    //             describes the problem
    // nap       : maximum number of call to the simulator
    // imp       : debug value during optimization
    // output variables :
    // co        : final cost
    // u(nu)     : final parameters
    // g(nu)     : final gradient
    // itv(nitv) : work area (fortran integers)
    // dtv(ndtv) : work area (fortran double precision)
    // Use the macros icot and icob to extract the state
    df0 = 1;
    nu  = prod(size(u))
    ech = ones(1,nu);
    cof = ones(1,nob*ntob);
    [co,u,g,itv,dtv] = icsegen(u,simu,nap,imp)
endfunction