Subversion Repositories wimsdev

Rev

Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 8775
Line 16... Line 16...
16 
:proc
 16 
:proc
17 
!distribute item $wims_read_parm into  slib_m,slib_mu,slib_sigma
 17 
!distribute item $wims_read_parm into  slib_m,slib_mu,slib_sigma
18 
!default slib_mu=0
 18 
!default slib_mu=0
19 
!default slib_sigma=1
 19 
!default slib_sigma=1
20 
 
 20 
 
21 
slib_m2= $[floor($slib_m/2)]
 21 
slib_m2= $[floor(($slib_m)/2)]
22 
slib_U1=!random 10^-20,1 repeat $[$slib_m2+1]
 22 
slib_U1=!random 10^-20,1 repeat $[$slib_m2+1]
23 
slib_U2=!random 0,1 repeat $[$slib_m2+1]
 23 
slib_U2=!random 0,1 repeat $[$slib_m2+1]
24 
 
 24 
 
25 
slib_w=!values sqrt(-2*log(x)) for x in $slib_U1
 25 
slib_w=!values sqrt(-2*log(x)) for x in $slib_U1
26 
slib_w1=!values cos(2*Pi*x) for x in $slib_U2
 26 
slib_w1=!values cos(2*Pi*x) for x in $slib_U2