Subversion Repositories wimsdev

Rev

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

Rev 12152 Rev 13586
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
!goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Adeline, Grelot ; Bernadette, Perrin-Riou; Sophie, Lemaire
 5 
slib_author=Adeline, Grelot ; Bernadette, Perrin-Riou; Sophie, Lemaire
6 
 
 6 
 
7 
slib_example= [10,5,2,3,10,13],[3,4,6,7,12,14,16],xtics [A1,A3,A6,8,10,12,14],ytics 10,color salmon,html\
 7 
slib_example= [10,5,2,3,10,13],[3,4,6,7,12,14,16],xtics [A1,A3,A6,8,10,12,14],ytics 10,color salmon,html\
Line 68... Line 68...
68 
    slib_param=!declosing $slib_param
 68 
    slib_param=!declosing $slib_param
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