Subversion Repositories wimsdev

Rev

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

Rev 4482 Rev 7692
Line 29... Line 29...
29
slib_V=$empty
29
slib_V=$empty
30
!for slib_i=1 to $[$slib_m2 +1]
30
!for slib_i=1 to $[$slib_m2 +1]
31
slib_v=!item  $slib_i of $slib_w
31
slib_v=!item  $slib_i of $slib_w
32
slib_v1=!item  $slib_i of $slib_w1
32
slib_v1=!item  $slib_i of $slib_w1
33
slib_v2=!item  $slib_i of $slib_w2
33
slib_v2=!item  $slib_i of $slib_w2
34
slib_v1=$[$slib_sigma*$slib_v1*$slib_v+$slib_mu] 
34
slib_v1=$[$slib_sigma*$slib_v1*$slib_v+$slib_mu]
35
slib_v2=$[$slib_sigma*$slib_v2*$slib_v+$slib_mu] 
35
slib_v2=$[$slib_sigma*$slib_v2*$slib_v+$slib_mu]
36
 
36
 
37
!if  $slib_i<=$slib_m2
37
!if  $slib_i<=$slib_m2
38
slib_V=!append item $slib_v1 to $slib_V
38
slib_V=!append item $slib_v1 to $slib_V
39
slib_V=!append item $slib_v2 to $slib_V
39
slib_V=!append item $slib_v2 to $slib_V
40
!endif
40
!endif
41
!if $slib_i>$slib_m2 and   $[2*$slib_m2]!=$slib_m
41
!if $slib_i>$slib_m2 and   $[2*$slib_m2]!=$slib_m
42
slib_V=!append item $slib_v1 to $slib_V
42
slib_V=!append item $slib_v1 to $slib_V
43
!endif
43
!endif
44
!next slib_i
44
!next slib_i
45
 
45
 
46
!if $slib_m >1 
46
!if $slib_m >1
47
slib_V=!shuffle $slib_V
47
slib_V=!shuffle $slib_V
48
!endif
48
!endif
49
 
49
 
50
slib_out=!trim $slib_V
50
slib_out=!trim $slib_V