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
|
// 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','xbasc();BinomialT();';
'Simulation of a discrete random variable','xbasc();RndDiscT();';
'Simulation of a geometric random variable','xbasc();GeomT(1000);';
'Simulation of a Poisson random variable','xbasc();PoissonT() ;';
'Simulation of an exponential random variable','xbasc();ExpT();';
'Simulation of a Weibull random variable','xbasc();WeibullT();';
'Simulation of an hyper geometric random variable','xbasc();HyperGeomT();';
'Simulation of an Erlang random variable','xbasc();ErlangT();'];
while %t then
num=x_choose(demolist(:,1),'demo of random variable simulations');
if num==0 then
lines(oldln(1))
return
else
demoex(num)
end,
end
|
