Subversion Repositories wimsdev

Rev

Rev 20 | Rev 4330 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4161 bpr 4
 
20 reyssat 5
slib_parms=2\
6
 ,m\
7
 ,lambda
8
slib_author=Adeline Grelot and Bernadette PERRIN-RIOU
4161 bpr 9
 
20 reyssat 10
slib_comment= \lambda*exp(-\lambda*x)
11
!exit
12
 
13
:proc
14
slib_out=
15
!distribute item $wims_read_parm into slib_m, slib_lambda
16
slib_out=!random 0,1 repeat $slib_m
17
slib_out=!values -log(x)/$slib_lambda for x in $slib_out
18
 
19
slib_out=!trim $slib_out
20
 
21