Vector averaging

root · **Joined:** Fri Jan 04, 2008 1:24 pm **Posts:** 18

Vector averaging

C = (A + B) / 2, where A,B,C are vectors

2 base ! 011111011111011111 constant mask \ 6:6:6 mask,
\ use 011111110111101111 for 8:5:5, etc
hex

: average ( a b -- c )
over over and .
push xor 2/ mask
and pop + ; \ <6 ripple
\ Thanks John, for pointing to this source and fixing the bug in initial
\ implementation

michael · **Joined:** Mon Jan 07, 2008 10:37 am **Posts:** 5

Vector averaging

C = (A + B) / 2, where A,B,C are vectors

Code:

2 base ! 011111011111011111 constant mask \ 6:6:6 mask,
                                          \ use 011111110111101111 for 8:5:5, etc
hex

: average ( a b -- c )
  over over and  .
  push xor  2/   mask #
  and  pop  . +    ;                        \ <6 ripple

Thanks John, for pointing to this source and fixing the bug in initial implementation. And thanks Charley to pointing at missing nop in front of +

IntellaSys Blog

Vector averaging

Who is online