Subversion Repositories wimsdev

Rev

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

Rev 5736 Rev 6557
Line 18... Line 18...
18 
!if NaN isin $slib_input
 18 
!if NaN isin $slib_input
19 
 !exit
 19 
 !exit
20 
!endif
 20 
!endif
21 
slib_st=$[floor(ln($slib_input)/ln(60))]
 21 
slib_st=$[floor(ln($slib_input)/ln(60))]
22 
slib_out=<table border="0"><tr>
 22 
slib_out=<table border="0"><tr>
23 
slib_clou=<img src="gifs/numeration/clou.gif" alt="clou"/>
 23 
slib_clou=<img src="gifs/numeration/clou.gif" alt="clou" />
24 
slib_chevron=<img src="gifs/numeration/chevron.gif" alt="chevron"/>
 24 
slib_chevron=<img src="gifs/numeration/chevron.gif" alt="chevron" />
25 
!for slib_k=$(slib_st) to 0 step -1
 25 
!for slib_k=$(slib_st) to 0 step -1
26 
    slib_reste=$[$slib_input%(60^$slib_k)]
 26 
    slib_reste=$[$slib_input%(60^$slib_k)]
27 
    slib_quo=$[($slib_input-$slib_reste)/(60^$slib_k)]
 27 
    slib_quo=$[($slib_input-$slib_reste)/(60^$slib_k)]
28 
    slib_re2=$[$slib_quo%10]
 28 
    slib_re2=$[$slib_quo%10]
29 
    slib_quo2=$[($slib_quo-$slib_re2)/10]
 29 
    slib_quo2=$[($slib_quo-$slib_re2)/10]