11 lines
216 B
Factor
11 lines
216 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: matrices
|
||
|
|
USING: kernel math ;
|
||
|
|
|
||
|
|
: norm ( v -- a )
|
||
|
|
dup v. sqrt ;
|
||
|
|
|
||
|
|
: normalize ( v -- v )
|
||
|
|
[ norm recip ] keep n*v ;
|