2008-07-11 20:02:43 -04:00
|
|
|
|
2008-07-12 13:22:27 -04:00
|
|
|
USING: kernel sequences multi-methods accessors math.vectors ;
|
|
|
|
|
2008-07-11 20:02:43 -04:00
|
|
|
IN: math.physics.pos
|
|
|
|
|
|
|
|
TUPLE: pos pos ;
|
|
|
|
|
2008-07-12 13:22:27 -04:00
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
GENERIC: distance ( a b -- c )
|
|
|
|
|
|
|
|
METHOD: distance { sequence sequence } v- norm ;
|
|
|
|
|
|
|
|
METHOD: distance { pos pos } [ pos>> ] bi@ distance ;
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|