home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / graph+ / part01 / bar_graph next >
Encoding:
Text File  |  1987-03-01  |  338 b   |  20 lines
  1.  
  2. PARM = {{0}}
  3.  
  4. step_graph ( PARM ) =
  5.     ( sort (PARM [ $0*2+1 , $1 , $3 ]
  6.             append
  7.         PARM [ $0*2+1 , $2 , $3 ] )
  8.     by $1 ) [ $2 , $3 ]
  9.  
  10. bar_graph ( PARM ) =
  11.     ( sort (PARM [ $0*4+1 , $1 , 0 ]
  12.             append
  13.         PARM [ $0*4+2 , $1 , $3 ]
  14.             append
  15.         PARM [ $0*4+3 , $2 , $3 ]
  16.             append
  17.         PARM [ $0*4+4 , $2 , 0 ] )
  18.     by $1 ) [ $2 , $3 ]
  19.  
  20.