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
|
// Copyright INRIA
mode(-1)
getf('SCI/demos/random/random.sci');
getf('SCI/demos/random/randomT.sci');
oldln=lines();lines(0)
deff('[]=demoex(num)','execstr(demolist(num,2))')
demolist=[
'Simulation of a binomial random variable','set figure_style new;xbasc();BinomialT();';
'Simulation of a discrete random variable','set figure_style new;xbasc();RndDiscT();';
'Simulation of a geometric random variable','set figure_style new;xbasc();GeomT(1000);';
'Simulation of a Poisson random variable','set figure_style new;xbasc();PoissonT() ;';
'Simulation of an exponential random variable','set figure_style new;xbasc();ExpT();';
'Simulation of a Weibull random variable','set figure_style new;xbasc();WeibullT();';
'Simulation of an hyper geometric random variable','set figure_style new;xbasc();HyperGeomT();';
'Simulation of an Erlang random variable','set figure_style new;xbasc();ErlangT();'];
while %t then
num=tk_choose(demolist(:,1),'demo of random variable simulations');
if num==0 then
lines(oldln(1));
return
else
demoex(num);
end,
end
|
