Download code

From LiteratePrograms

Back to Median_cut_algorithm_(J)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

mediancut.ijs

 mediancut =: dyad : '> mean each step^:(x-1) <y'
 mean =: +/%#
 
 step =: monad : '(fmax y) smax y'
 
 fmax =: monad : '{:/: ; bbox each y'
 bbox =: monad : '(>./y)-(<./y)'
 
 sbox =: dyad  : '({&y) each chop x rank y'
 sfst =: dyad  : '(x sbox >{.y),(}.y)'
 smax =: dyad  : '(3|x) sfst (<.x%3) |. y'
 
 rank =: dyad  : '/: x {"1 y'
 chop =: monad : '(<.2%~#y) ({.;}.) y'