dct-vect ( u v -- basis )


Vocabulary
images.jpeg.private

Inputs
uan object
van object


Outputs
basisan object


Definition
USING: images.processing kernel math math.functions
math.matrices sequences ;

IN: images.jpeg.private

:: dct-vect ( u v -- basis )
{ 8 8 } coord-matrix [ { u v } [ wave ] 2map product ] map^2
1 u v [ 0 = [ 2 sqrt / ] when ] bi@ 4 / m*n ;