<< 32) / MAX(global_std, 1);
dup 1 max 1 swap u/mod-fx32 drop \ 32 frac bits
num_rects \ start countdown
begin
1 - \ rects--
dup sum2 @
over sum @
pick2 inv_area
mean_std \ global_mean global_std inv_global_std rectind mean std
rot dup { rectind } 2 NUM_STATS * * stats_arr OFT 2 * + + { stats }
\ stats[OFT+0] = (short)( ((mean - global_mean) * inv_global_std) >> (32 - FRAC) );
\ stats[OFT+1] = (short)( std * inv_global_std >> (32 - FRAC) );
pick2 um* mean_std_stat stats 2 + h! \ global_mean global_std inv_global_std mean
pick3 - over m* mean_std_stat stats h!
rectind ?dup 0 = \ quit at rect 0
until
drop 2drop
;
wow
Обсуждают сегодня