annotate yetilab/stream/test/test_channels.yeti @ 288:16a9ee99efcf

Window overlap scale factor
author Chris Cannam
date Thu, 30 May 2013 20:27:54 +0100
parents 197d23954a4e
children
rev   line source
Chris@165 1
Chris@165 2 module yetilab.stream.test.test_channels;
Chris@165 3
Chris@165 4 ch = load yetilab.stream.channels;
Chris@273 5 mat = load yetilab.matrix;
Chris@273 6 vec = load yetilab.vector;
Chris@165 7
Chris@165 8 { compare, compareUsing } = load yetilab.test.test;
Chris@165 9
Chris@218 10 newMatrix data = mat.newMatrix (ColumnMajor ()) (map vec.fromList data);
Chris@165 11
Chris@165 12 compareBlocks b1 b2 =
Chris@220 13 compare (vec.list b1) (vec.list b2);
Chris@165 14
Chris@165 15 [
Chris@165 16
Chris@165 17 "interleaved": \(
Chris@165 18 compareBlocks (ch.interleaved (newMatrix [[1,4],[2,5],[3,6]]))
Chris@218 19 (vec.fromList [1,4,2,5,3,6]) and
Chris@165 20 compareBlocks (ch.interleaved (newMatrix [[1],[2],[3]]))
Chris@218 21 (vec.fromList [1,2,3])
Chris@165 22 ),
Chris@165 23
Chris@165 24 "deinterleaved": \(
Chris@218 25 compareUsing mat.equal (ch.deinterleaved 2 (vec.fromList [1,4,2,5,3,6]))
Chris@165 26 (newMatrix [[1,4],[2,5],[3,6]]) and
Chris@218 27 compareUsing mat.equal (ch.deinterleaved 1 (vec.fromList [1,2,3]))
Chris@165 28 (newMatrix [[1],[2],[3]])
Chris@165 29 ),
Chris@165 30
Chris@165 31 "mixedDown": \(
Chris@165 32 compareBlocks (ch.mixedDown (newMatrix [[1,4],[2,5],[3,6]]))
Chris@218 33 (vec.fromList [5,7,9]) and
Chris@165 34 compareBlocks (ch.mixedDown (newMatrix []))
Chris@218 35 (vec.fromList [])
Chris@165 36 ),
Chris@165 37
Chris@165 38 "mixedDownFromInterleaved": \(
Chris@218 39 compareBlocks (ch.mixedDownFromInterleaved 2 (vec.fromList [1,4,2,5,3,6]))
Chris@218 40 (vec.fromList [5,7,9]) and
Chris@218 41 compareBlocks (ch.mixedDownFromInterleaved 1 (vec.fromList [1,2,3]))
Chris@218 42 (vec.fromList [1,2,3])
Chris@165 43 ),
Chris@165 44
Chris@165 45 "mixedFromInterleavedTo": \(
Chris@218 46 compareBlocks (ch.mixedFromInterleavedTo 1 2 (vec.fromList [1,4,2,5,3,6]))
Chris@218 47 (vec.fromList [5,7,9]) and
Chris@218 48 compareBlocks (ch.mixedFromInterleavedTo 2 2 (vec.fromList [1,4,2,5,3,6]))
Chris@218 49 (vec.fromList [1,4,2,5,3,6]) and
Chris@218 50 compareBlocks (ch.mixedFromInterleavedTo 3 2 (vec.fromList [1,4,2,5,3,6]))
Chris@218 51 (vec.fromList [1,4,0,2,5,0,3,6,0]) and
Chris@218 52 compareBlocks (ch.mixedFromInterleavedTo 1 1 (vec.fromList [1,2,3]))
Chris@218 53 (vec.fromList [1,2,3]) and
Chris@218 54 compareBlocks (ch.mixedFromInterleavedTo 2 1 (vec.fromList [1,2,3]))
Chris@218 55 (vec.fromList [1,1,2,2,3,3]) and
Chris@218 56 compareBlocks (ch.mixedFromInterleavedTo 3 1 (vec.fromList [1,2,3]))
Chris@218 57 (vec.fromList [1,1,0,2,2,0,3,3,0])
Chris@165 58 ),
Chris@165 59
Chris@165 60 "mixedAndInterleavedTo": \(
Chris@165 61 compareBlocks (ch.mixedAndInterleavedTo 1 (newMatrix [[1,4],[2,5],[3,6]]))
Chris@218 62 (vec.fromList [5,7,9]) and
Chris@165 63 compareBlocks (ch.mixedAndInterleavedTo 2 (newMatrix [[1,4],[2,5],[3,6]]))
Chris@218 64 (vec.fromList [1,4,2,5,3,6]) and
Chris@165 65 compareBlocks (ch.mixedAndInterleavedTo 3 (newMatrix [[1,4],[2,5],[3,6]]))
Chris@218 66 (vec.fromList [1,4,0,2,5,0,3,6,0]) and
Chris@165 67 compareBlocks (ch.mixedAndInterleavedTo 1 (newMatrix [[1],[2],[3]]))
Chris@218 68 (vec.fromList [1,2,3]) and
Chris@165 69 compareBlocks (ch.mixedAndInterleavedTo 2 (newMatrix [[1],[2],[3]]))
Chris@218 70 (vec.fromList [1,1,2,2,3,3]) and
Chris@165 71 compareBlocks (ch.mixedAndInterleavedTo 3 (newMatrix [[1],[2],[3]]))
Chris@218 72 (vec.fromList [1,1,1,2,2,2,3,3,3])
Chris@165 73 ),
Chris@165 74
Chris@165 75 ] is hash<string, () -> boolean>;
Chris@165 76
Chris@165 77