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
31
|
mode(-1)
// Copyright INRIA
path=get_absolute_file_path('signal.dem');
demolist=['Spectral Estimation', 'spect.dem'
'IIR filter design ', 'iir.dem'
'Minimax FIR filter design', 'remezfilt.dem'
'Wiegner filter', 'wiener.dem'
'Bode plots', 'bode.dem'
'Arma simulation and identification' 'arma/arma1.dem'
'Arma, bidimensional version' 'arma/arma2.dem'
'Arma, Spectral power estimation' 'arma/arma3.dem'
'Sound', 'sound/sound.dem'];
deff('[]=demoex(num)','exec(path+demolist(num,2),-1)')
xbasc();
while %t then
num=tk_choose(demolist(:,1),'Choose a demo');
if num==0 then
lines(oldln(1))
return
else
demoex(num)
end,
end
|
