1198e0401d14d28d7ec9f0263a1bc23078c7eec4
[scilab.git] / scilab / modules / optimization / demos / icse / icse.sci
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 // Copyright (C) ????-2010 - DIGITEO - Yann COLLETTE
5 //
6 // This file is distributed under the same license as the Scilab package.
7 //
8
9 function [co,u,g,itv,dtv]=icse(u,simu,nap,imp)
10     // Computation of the optimal control without scaling of the control
11     // and equal weighting of the observations
12     // input variables :
13     // u(nu)     : initial parameters
14     // simu      : string containing the name of the sub program which
15     //             describes the problem
16     // nap       : maximum number of call to the simulator
17     // imp       : debug value during optimization
18     // output variables :
19     // co        : final cost
20     // u(nu)     : final parameters
21     // g(nu)     : final gradient
22     // itv(nitv) : work area (fortran integers)
23     // dtv(ndtv) : work area (fortran double precision)
24     // Use the macros icot and icob to extract the state
25     df0 = 1;
26     nu  = prod(size(u))
27     ech = ones(1,nu);
28     cof = ones(1,nob*ntob);
29     [co,u,g,itv,dtv] = icsegen(u,simu,nap,imp)
30 endfunction