davidavdav

#!/usr/bin/env julia
## (c) David A. van Leeuwen
## routines for adding noise at the right level

import MFCC
import WAV
import ProgressMeter
import StatsBase
import LinearAlgebra
import DelimitedFiles

davidavdav

## weirdness in innerloop optimization

## similar to sumabs2()
function mydot{T}(x::Array{T})
    s = zero(T)
    for xx in x
        s += xx*xx
    end
    s
end

davidavdav

## make matrix symmetric by copying the upper triangle into the lower
## this should exist somewhere...
function symm!(m::Matrix)
    for i=1:size(m,1)
        for j=i+1:size(m,2)
            m[j,i] = m[i,j]
        end
    end
    m
end