tk_choose => x_choose
[scilab.git] / scilab / modules / cacsd / demos / control.dem
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 //
5 // This file is distributed under the same license as the Scilab package.
6 //
7
8 mode(-1)
9 path=get_absolute_file_path('control.dem');
10 oldln=lines();lines(0)
11
12 demolist=['LQG',               'lqg/lqg.dem'
13           'Mixed-sensitivity', 'mixed.dem'
14           'PID'                'pid.dem'
15           'Inverted pendulum', 'pendulum/pendule.dem'
16           'Flat systems',      'flat/flat.dem'
17           'Tracking',          'tracking/track.dem'
18           'Robust control',    'robust/rob.dem']
19
20 deff('[]=demoex(num)','exec(path+demolist(num,2),-1)')
21
22 while %t then
23   num=x_choose(demolist(:,1),'Choose a demo');
24   if num==0 then 
25      lines(oldln(1))
26      return
27   else
28      demoex(num)
29   end,
30 end
31
32