-
Notifications
You must be signed in to change notification settings - Fork 11
/
extend.jl
58 lines (54 loc) · 1.51 KB
/
extend.jl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
## Extend functions for matrix input (col-wise) ##
const vec2vec_inplace = [
:lpc2c!,
:mc2b!,
:mgc2b!,
:b2mc!,
:b2c!,
:gnorm!,
:ignorm!,
:freqt!,
:frqtr!,
:gc2gc!,
:mgc2mgc!
]
for f in vec2vec_inplace
@eval begin
function ($f)(x::AbstractMatrix, args...; kargs...)
for i = 1:size(x, 2)
@inbounds $f(view(x, :, i), args...; kargs...)
end
x
end
end
end
const vec2vec = [
:_mcep,
:_mgcep,
:lpc2c,
:mc2b,
:mgc2b,
:b2mc,
:b2c,
:gnorm,
:ignorm,
:c2ir,
:freqt,
:gc2gc,
:mgc2mgc
]
for f in vec2vec
@eval begin
function ($f)(x::AbstractMatrix, args...; kargs...)
r = $f(x[:, 1], args...; kargs...)
ret = Array{eltype(x),2}(size(r, 1), size(x, 2))
for i = 1:length(r)
@inbounds ret[i, 1] = r[i]
end
for i = 2:size(x, 2)
@inbounds ret[:, i] = $f(view(x, :, i), args...; kargs...)
end
ret
end
end
end