WebSVN – wimsdev – Diff – /trunk/wims/public_html/scripts/slib/stat/histo

 slib_u=!declosing $slib_u
 slib_cntu=!itemcnt $slib_u
 slib_w=!declosing $slib_w
 !if $slib_w=$empty
-slib_w=!values x for x=1 to $slib_cntu
+  slib_w=!values x for x=1 to $slib_cntu
 !endif
 slib_cnt=!itemcnt $slib_w
 !if $slib_cnt = 2
   slib_begin=!item 1 of $slib_w
 !if $slib_baton iswordof baton stem
   slib_ww=
   !if $slib_baton iswordof stem
     slib_r=0
   !else
-   slib_r=$[($slib_x2-$slib_x1)/(($slib_cntu)*4)]
+    slib_r=$[($slib_x2-$slib_x1)/(($slib_cntu)*4)]
   !endif
   !for slib_i = 1 to $slib_cntu
     slib_j=!item $slib_i of $slib_w
     slib_ww=!append item $[$slib_j+1-$slib_r],$[$slib_j+1+$slib_r] to $slib_ww
     slib_j=!item $slib_i of $slib_u
   slib_y2=!item -1 of $slib_y2
   slib_cnt=!itemcnt $slib_w
   slib_cnt=$[$slib_cnt+1]
 !else
   !if $slib_baton iswordof step stair
-   slib_uu=$slib_u
+    slib_uu=$slib_u
-   slib_x1=!item 1 of $slib_w
+    slib_x1=!item 1 of $slib_w
-   slib_x2=!item -1 of $slib_w
+    slib_x2=!item -1 of $slib_w
-   slib_y2=!sort numeric item $slib_u
+    slib_y2=!sort numeric item $slib_u
-   slib_y2=!item -1 of $slib_y2
+    slib_y2=!item -1 of $slib_y2
-   slib_cnt=!itemcnt $slib_w
+    slib_cnt=!itemcnt $slib_w
-   slib_cnt=$[$slib_cnt]
+    slib_cnt=$[$slib_cnt]
-   !else
+  !else
-  slib_uu=
+    slib_uu=
-  !for slib_i=1 to $[$slib_cntu]
+    !for slib_i=1 to $[$slib_cntu]
-    slib_it=!item $slib_i of $slib_u
+      slib_it=!item $slib_i of $slib_u
-    slib_inf=!item $slib_i of $slib_w
+      slib_inf=!item $slib_i of $slib_w
-    slib_sup=!item $[$slib_i+1] of $slib_w
+      slib_sup=!item $[$slib_i+1] of $slib_w
-    slib_it=$[$slib_it/($slib_sup-$slib_inf)]
+      slib_it=$[$slib_it/($slib_sup-$slib_inf)]
-    slib_y2=$[max($slib_y2,$slib_it)]
+      slib_y2=$[max($slib_y2,$slib_it)]
-    slib_uu=!append item $slib_it to $slib_uu
+      slib_uu=!append item $slib_it to $slib_uu
-  !next slib_i
+    !next slib_i
-    !endif
+  !endif
   slib_ww=$slib_w
 !endif
 slib_pas=!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) ); \
    f($slib_y2/$slib_ra,1)
     slib_ord=$[$slib_pas+$slib_ord]
     !if $slib_ord <$[$slib_y2+$slib_pas]
       slib_grad=!append line text black,$[$slib_minx-0.8*$slib_d],$[$slib_ord+$slib_pix],small,$slib_ord to $slib_grad
       slib_grad=!append line segment $[$slib_minx-$slib_d/10],$slib_ord,$[$slib_minx+$slib_d/10],$slib_ord,grey\
 vline $slib_minx,0,grey to $slib_grad
     !endif
   !next slib_i
 !endif
 !if $slib_optx!=0
   !if $slib_listxx=$empty
       slib_listxx=$slib_ww
   !endif
   slib_cnt_ticx = !itemcnt $slib_listxx
   !for slib_i=1 to $[$slib_cnt_ticx]
     slib_wi=!item $slib_i of $slib_listx
     slib_wj=!item $slib_i of $slib_listxx
     !if $slib_baton iswordof baton stem
       slib_wj=$[$slib_wj+1]
     !endif
     slib_grad=!append line text black,$slib_wj,$[$slib_y1-2*$slib_pix],small,$slib_wi to $slib_grad
     slib_grad=!append line segment $slib_wj,$[$slib_y1-$slib_pix],$slib_wj,$[$slib_y1+$slib_pix], grey to $slib_grad
 !else
   slib_points= linewidth 4\
 points $couleur
  !endif
 !if stair notwordof $slib_baton and step notwordof $slib_baton
- !for slib_i=1 to $[$slib_cnt]
+  !for slib_i=1 to $[$slib_cnt]
-   slib_inf=!item $slib_i of $slib_w
+    slib_inf=!item $slib_i of $slib_w
-   slib_sup=!item $[$slib_i+1] of $slib_w
+    slib_sup=!item $[$slib_i+1] of $slib_w
-   slib_f=!item $slib_i of $slib_uu
+    slib_f=!item $slib_i of $slib_uu
-   !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
+    !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
-    slib_pdata=!append item $slib_inf,0,$slib_inf,$slib_f,$slib_sup,$slib_f,$slib_sup,0 to $slib_pdata
+      slib_pdata=!append item $slib_inf,0,$slib_inf,$slib_f,$slib_sup,$slib_f,$slib_sup,0 to $slib_pdata
-   !endif
+    !endif
   !next slib_i
 !endif
 !if step iswordof $slib_baton
- !for slib_i=1 to $[$slib_cnt]
+  !for slib_i=1 to $[$slib_cnt]
-   slib_inf=!item $[$slib_i] of $slib_w
+    slib_inf=!item $[$slib_i] of $slib_w
-   slib_sup=!item $[$slib_i+1] of $slib_w
+    slib_sup=!item $[$slib_i+1] of $slib_w
-   slib_f=!item $slib_i of $slib_uu
+    slib_f=!item $slib_i of $slib_uu
-   !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
+    !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
-    slib_pdata=!append item $slib_inf,$slib_f,$slib_sup,$slib_f to $slib_pdata
+      slib_pdata=!append item $slib_inf,$slib_f,$slib_sup,$slib_f to $slib_pdata
-   !endif
+    !endif
   !next slib_i
 !endif
 !if stair iswordof $slib_baton
-!for slib_i=1 to $[$slib_cnt]
+  !for slib_i=1 to $[$slib_cnt]
-   slib_inf=!item $[$slib_i] of $slib_w
+    slib_inf=!item $[$slib_i] of $slib_w
-   slib_sup=!item $[$slib_i+1] of $slib_w
+    slib_sup=!item $[$slib_i+1] of $slib_w
-   slib_f=!item $slib_i of $slib_uu
+    slib_f=!item $slib_i of $slib_uu
-   !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
+    !if $slib_f!=$empty and $slib_sup!=$empty and $slib_inf!=$empty
-    slib_pdata=!append line line $slib_inf,$slib_f,$slib_sup,$slib_f,$couleur to $slib_pdata
+      slib_pdata=!append line line $slib_inf,$slib_f,$slib_sup,$slib_f,$couleur to $slib_pdata
-   !endif
+    !endif
-   !if $slib_i < $[$slib_cnt]
+    !if $slib_i < $[$slib_cnt]
-     slib_points=!append item $slib_inf,$slib_f to $slib_points
+      slib_points=!append item $slib_inf,$slib_f to $slib_points
-   !endif
+    !endif
   !next slib_i
 !endif
 slib_out=$slib_pdata\
 $slib_points\
 linewidth 1\
 hline 0,0,grey
 !if url iswordof $slib_option or html iswordof $slib_option
- !insdraw $slib_out
+  !insdraw $slib_out
- slib_out=$ins_url
+  slib_out=$ins_url
- !if html iswordof $slib_option
+  !if html iswordof $slib_option
     slib_out=<img src="$ins_url" alt="" />
- !else
+  !else
     slib_out=$slib_out,$insdraw_size
- !endif
+  !endif
 !endif
 !reset insdraw_size

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/slib/stat/histo – Rev 13586 → 15737