Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
toolbox
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
13
Issues
13
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
4
Merge Requests
4
Requirements
Requirements
List
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Analytics
Analytics
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Institute of Technical Acoustics (ITA)
toolbox
Commits
37563387
Commit
37563387
authored
Oct 04, 2018
by
Florian Pausch
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
updated order-dependent selection of SH coefficients for HRTF reconstruction
parent
0ed59c24
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
14 deletions
+19
-14
applications/Binaural-HRTF/HRTF_class/@itaHRTF/interp.m
applications/Binaural-HRTF/HRTF_class/@itaHRTF/interp.m
+19
-14
No files found.
applications/Binaural-HRTF/HRTF_class/@itaHRTF/interp.m
View file @
37563387
...
...
@@ -43,12 +43,10 @@ function cThis = interp(this,varargin)
% Acta Acustica united with Acustica, Volume 100, Number 4, July/August 2014,
% pp. 667-675(9)
%
%
%
% Author: Florian Pausch <fpa@akustik.rwth-aachen.de>
% Version: 2016-02-05
sArgs
=
struct
(
'order'
,
50
,
'eps
'
,
1e-5
,
'shiftToEar'
,
false
,
'shiftAxis'
,
'y'
,
'shiftOffset'
,[
-
0.0725
0.0725
]);
sArgs
=
struct
(
'order'
,
50
,
'eps
ilon'
,
1e-8
,
'shiftToEar'
,
false
,
'shiftAxis'
,
'y'
,
'shiftOffset'
,[
-
0.0725
0.0725
]);
sArgs
=
ita_parse_arguments
(
sArgs
,
varargin
,
2
);
if
isempty
(
varargin
)
||
~
isa
(
varargin
{
1
},
'itaCoordinates'
)
error
(
'itaHRTF:interp'
,
' An itaCoordinate object is needed!'
)
...
...
@@ -65,18 +63,22 @@ field.phi_deg = tempfield(:,1);
field
.
theta_deg
=
tempfield
(:,
2
);
N
=
sArgs
.
order
;
epsilon
=
sArgs
.
eps
;
% regularization parameter
epsilon
=
sArgs
.
eps
ilon
;
% regularization parameter
k
=
this
.
wavenumber
;
% wave number
k
(
1
)
=
eps
;
% add eps to avoid NaN's
Nmax
=
floor
(
sqrt
(
this
.
nDirections
/
4
)
-
1
);
if
N
>
Nmax
N
=
Nmax
;
warning
([
'Order of SH reconstruction matrix was set to N = Nmax = '
,
num2str
(
Nmax
),
'.'
])
end
% construct vector of length (N+1)^2 regularization weights and,
% if needed, spherical hankel functions of second kind (for r0 and r1)
if
~
isequal
(
this
.
dirCoord
.
r
(
1
),
field
.
r
(
1
))
kr0
=
k
*
this
.
dirCoord
.
r
(
1
);
% measurement radius
kr1
=
k
*
field
.
r
(
1
);
% extrapolation radius
kr0
=
k
*
this
.
dirCoord
.
r
(
1
);
% measurement radius [m]
kr1
=
k
*
field
.
r
(
1
);
% extrapolation radius [m]
hankel_r0
=
ita_sph_besselh
(
ita_sph_linear2degreeorder
(
1
:
Nmax
),
2
,
kr0
);
hankel_r1
=
ita_sph_besselh
(
ita_sph_linear2degreeorder
(
1
:
Nmax
),
2
,
kr1
);
...
...
@@ -102,7 +104,6 @@ end
%% Weights
[
~
,
w
]
=
this
.
dirCoord
.
spherical_voronoi
;
% calculate weighting coefficients (Voronoi surfaces <-> measurement points)
W
=
sparse
(
diag
(
w
));
% diagonal matrix containing weights
D
=
I
.*
diag
(
1
+
n
.*
(
n
+
1
));
% decomposition order-dependent Tikhonov regularization
Y
=
ita_sph_base
(
this
.
dirCoord
,
Nmax
,
'orthonormal'
,
true
);
% calculate real-valued SHs using the measurement grid
...
...
@@ -116,7 +117,7 @@ end
hrtf_arbi
=
zeros
(
this
.
nBins
,
2
*
field
.
nPoints
);
% columns: LRLRLR...
for
ear
=
1
:
2
%
sh
transformation
%
SH
transformation
freqData_temp
=
copyData
.
freqData
(:,
ear
:
2
:
end
);
a0
=
(
Y
.
'*W*Y + epsilon*D) \ Y.'
*
W
*
freqData_temp
.'
;
...
...
@@ -128,7 +129,6 @@ for ear=1:2
% figure
% surf(s,freqData_temp(10,:))
% range extrapolation
if
~
isequal
(
this
.
dirCoord
.
r
(
1
),
field
.
r
(
1
))
% calculate range-extrapolated HRTFs
...
...
@@ -139,11 +139,11 @@ for ear=1:2
% reconstruction to spatial data
Yest
=
ita_sph_base
(
field
,
N
,
'orthonormal'
,
true
);
% use real-valued SH's
hrtf_arbi
(:,
ear
:
2
:
end
)
=
(
Yest
*
a1
)
.'
;
% interpolated + range-extrapolated HRTFs
hrtf_arbi
(:,
ear
:
2
:
end
)
=
(
Yest
*
a1
(
1
:(
N
+
1
)
^
2
,:))
.'
;
% interpolated + range-extrapolated HRTFs
else
% reconstruction to spatial data
Yest
=
ita_sph_base
(
field
,
N
max
,
'orthonormal'
,
true
);
% use real-valued SH's
hrtf_arbi
(:,
ear
:
2
:
end
)
=
(
Yest
*
a0
)
.'
;
% interpolated HRTFs
Yest
=
ita_sph_base
(
field
,
N
,
'orthonormal'
,
true
);
% use real-valued SH's
hrtf_arbi
(:,
ear
:
2
:
end
)
=
(
Yest
*
a0
(
1
:(
N
+
1
)
^
2
,:))
.'
;
% interpolated HRTFs
end
end
...
...
@@ -158,6 +158,11 @@ cThis = this;
cThis
.
freqData
=
hrtf_arbi
;
cThis
.
channelCoordinates
.
sph
=
sph
;
% channelnames coordinates
cThis
.
channelNames
=
ita_sprintf
(
'%s (\\phi=%2.0f, \\theta=%2.0f)'
,
...
repmat
([
'L'
;
'R'
],
cThis
.
dirCoord
.
nPoints
,
1
),
...
cThis
.
channelCoordinates
.
theta_deg
,
...
cThis
.
channelCoordinates
.
phi_deg
);
%% move back to head center
if
sArgs
.
shiftToEar
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment