Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 4482 | 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
4330 bpr 8
slib_author=Adeline, Grelot; Bernadette, PERRIN-RIOU
4161 bpr 9
 
20 reyssat 10
slib_comment= \lambda*exp(-\lambda*x)
11
slib_example=15,6
12
!exit
13
 
14
:proc
15
slib_out=
16
!distribute item $wims_read_parm into slib_m, slib_lambda
17
slib_out=!random 0,1 repeat $slib_m
18
slib_out=!values -log(x)/$slib_lambda for x in $slib_out
19
 
20
slib_out=!trim $slib_out
21
 
22