type Vector a = [a] |
|
type Matrix a = [Vector a] |
|
type AT a = Vector a -> Vector a |
|
type IFS a = Array Int (AT a) |
|
vadd :: Num a => Vector a -> Vector a -> Vector a |
|
vvmult :: Num a => Vector a -> Vector a -> a |
|
mvmult :: Num a => Matrix a -> Vector a -> Vector a |
|
cvmult :: Num a => a -> Vector a -> Vector a |
|
w0 :: Fractional a => AT a |
|
w1 :: Fractional a => AT a |
|
w2 :: Fractional a => AT a |
|
init0 :: Num a => Vector a |
|
ws :: Fractional a => IFS a |
|
result :: [Vector Rational] |
|
mkNote :: [Rational] -> T |
|
sourceToMusic :: [[Rational]] -> T |
|
song :: T |