Subversion Repositories wimsdev

Rev

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

Rev 11400 Rev 11418
Line 69... Line 69...
69 
    slib_cnt_ticx=!nonempty item $slib_param
 69 
    slib_cnt_ticx=!nonempty item $slib_param
70 
    slib_c=!itemcnt $slib_cnt_ticx
 70 
    slib_c=!itemcnt $slib_cnt_ticx
71 
 
 71 
 
72 
    !if $slib_c=1
 72 
    !if $slib_c=1
73 
     slib_arrondi=!exec pari (f(r,n)= l=if(r != 0, floor(log(abs(r))/log(10)),1) ; s =ceil(10^(-l+n-1)*r) ; s*10^(l-n+1) ); \
 73 
     slib_arrondi=!exec pari (f(r,n)= l=if(r != 0, floor(log(abs(r))/log(10)),1) ; s =ceil(10^(-l+n-1)*r) ; s*10^(l-n+1) ); \
74 
   f(($slib_x2-$slib_x1)/$slib_cnt_ticx,1)
 74 
   f(($slib_x2-($slib_x1))/$slib_cnt_ticx,1)
75 
      slib_listx=!values $[$slib_arrondi*floor($slib_x1/$slib_arrondi)]\
 75 
      slib_listx=!values $[$slib_arrondi*floor($slib_x1/$slib_arrondi)]\
76 
        +x*$slib_arrondi for x=0 to $[$slib_cnt_ticx+1]
 76 
        +x*$slib_arrondi for x=0 to $[$slib_cnt_ticx+1]
77 
      slib_listxx=$slib_listx
 77 
      slib_listxx=$slib_listx
78 
    !else
 78 
    !else
79 
      slib_listx= $slib_param
 79 
      slib_listx= $slib_param