Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 13585
Line 14... Line 14...
14 
slib_s=!nospace $slib_s
 14 
slib_s=!nospace $slib_s
15 
slib_p=!itemcnt $slib_s
 15 
slib_p=!itemcnt $slib_s
16 
 
 16 
 
17 
slib_n=$[$slib_n]
 17 
slib_n=$[$slib_n]
18 
!if NaN isin $slib_n
 18 
!if NaN isin $slib_n
19 
 slib_out=NaN
 19 
  slib_out=NaN
20 
 !exit
 20 
  !exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
!if e isin $slib_n or E isin $slib_n
 23 
!if e isin $slib_n or E isin $slib_n
24 
 slib_out=NaN
 24 
  slib_out=NaN
25 
 !exit
 25 
  !exit
26 
!endif
 26 
!endif
27 
 
 27 
 
28 
slib_out=$empty
 28 
slib_out=$empty
29 
slib_m=$[floor(log($slib_n)/log($slib_p))]
 29 
slib_m=$[floor(log($slib_n)/log($slib_p))]
30 
!for slib_e=$slib_m to 0 step -1
 30 
!for slib_e=$slib_m to 0 step -1
31 
 slib_t=$[floor($slib_n/($slib_p^$slib_e))]
 31 
  slib_t=$[floor($slib_n/($slib_p^$slib_e))]
32 
 slib_out=$slib_out$(slib_s[$slib_t+1])
 32 
  slib_out=$slib_out$(slib_s[$slib_t+1])
33 
 slib_n=$[$slib_n-$slib_t*$slib_p^$slib_e]
 33 
  slib_n=$[$slib_n-$slib_t*$slib_p^$slib_e]
34 
!next slib_e
 34 
!next slib_e