Skip to content
GitLab
Commit 17a0d400 authored by Marco Berzborn's avatar Marco Berzborn Committed by Marco Berzborn
Browse files

Deleted some obsolete functions and moved samplings into corresponding 

folder
parent ba4883fa
Hide whitespace changes
Inline Side-by-side
applications/SphericalHarmonics/ita_isht.m deleted 100644 → 0
View file @ ba4883fa
function acData = ita_isht(acDataSH, gridData)
%ITA_ISHT - performs an inverse Spherical Harmonic transform on spherical data struct
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
% Author: Martin Pollow -- Email: mpo@akustik.rwth-aachen.de
% Created: 03-Dec-2008
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
acData = cell(size(acDataSH));
for n = 1:numel(acDataSH)
acData{n}.header = acDataSH{n}.header;
% TODO: neue EInheit
if isfield(acDataSH{n},'dat_SH')
oldFieldname = 'dat_SH';
newFieldname = 'dat';
elseif isfield(acDataSH{n},'spk_SH')
oldFieldname = 'spk_SH';
newFieldname = 'spk';
end
acData{n}.(newFieldname) = ita_sph_ISHT(acDataSH{n}.(oldFieldname), gridData);
end
\ No newline at end of file
applications/SphericalHarmonics/ita_plot_SH.m deleted 100644 → 0
View file @ ba4883fa
function ita_plot_SH(coefs, sampling, varargin)
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
global sPlotPoints;
if nargin == 0, error; end;
if nargin > 1
% check if is a plot grid
if ~isa(sampling,'itaCoordinates')
varargin = [{sampling} varargin];
else
sPlotPoints = sampling;
end
end
% create sampling for plot if necessary
if isempty(sPlotPoints)
sPlotPoints = ita_sph_sampling_equiangular(31);
end
paraStruct = ita_sph_plot_parser(varargin);
% plottype = paraStruct.type;
% convert to given spatial grid
data = ita_sph_ISHT(coefs, sPlotPoints);
% call spatial plot function
[hFig, hSurf] = ita_sph_plot_spatial(data, sPlotPoints, varargin{:});
% now check if to plot dots also
colorSize = size(paraStruct.dotColor);
if colorSize(2) ~= 3
% there must be color dots given
% so plot them on the sphere
radiusBalloon = abs(ita_sph_functionvalue(coefs, paraStruct.dotSampling));
if strcmpi(paraStruct.type,'dB')
radiusBalloon = 20*log10(radiusBalloon);
end
% now set the radii
dotSampling_modifiedR = itaSamplingSph(paraStruct.dotSampling);
dotSampling_modifiedR.r = radiusBalloon;
[magn, color, colorMap] = ita_sph_plot_type(paraStruct.dotColor, paraStruct.type);
% set caxis
cminmax = caxis;
cmin = cminmax(1);
cmax = cminmax(2);
cmin = min(cmin, min(color));
cmax = max(cmax, max(color));
ita_plot_dots(dotSampling_modifiedR, 'dotColor', color,'caxis', [cmin cmax]);
end
applications/SphericalHarmonics/ita_plot_balloon.m deleted 100644 → 0
View file @ ba4883fa
function [hFig, hSurf] = ita_plot_balloon(spatial_data, sampling, varargin)
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
% function [hFig, hSurf] = ita_sph_plot_spatial(data, sampling, varargin)
%ITA_SPH_PLOT_SPATIAL - plots a spatial spherical function (and sampling points)
% function ita_sph_plot_spatial(data, varargin)
%
% the optional parameter 'type' can be:
% 'complex' : radius is magnitude, color is phase
% 'sphere' : plots magnitude as color on unit sphere
% 'magnitude' : radius and color is magnitude
% 'spherephase' : plots phase as color on unit sphere
%
% the optional GeometryPoints and pointData give the information about
% spherical sampling points
% GeometryPoints.theta: vector of theta values
% GeometryPoints.phi: vector of phi values
% data: vector of sampling values
%
% type: default 'magnitude'
% GeometryPoints & pointData: default []
% axes: outer/inner, different 'design' (default: outer)
% fontsize: default 12, for axis annotations
% Martin Pollow (mpo@akustik.rwth-aachen.de)
% Institute of Technical Acoustics, RWTH Aachen, Germany
% 03.09.2008
% Modified: 14.01.2009 - mpe - parameter-structure:
% Complete rewrite: July-09 - mpo
% if nargin < 2
% sampling = data;
% data = ones(size(sampling));
%
% end
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
global sPlotPoints
if nargin == 0, error; end;
if nargin > 1
% check if is a plot grid
if ~isa(sampling,'itaCoordinates')
varargin = [{sampling} varargin];
else
sPlotPoints = sampling;
end
end
if isempty(sPlotPoints)
% use default: 64 x 64 equiangular grid (nmax = 31)
sPlotPoints = ita_sph_sampling_equiangular(31);
end
paraStruct = ita_sph_plot_parser(varargin);
type = paraStruct.type;
% get the values for the plot
[magn, color, colorMap] = ita_sph_plot_type(spatial_data,type);
% reshape for use in plot
% sizeGrid = size(sampling.weights);
dim = sPlotPoints.dim;
magn = reshape(magn,dim);
color = reshape(color,dim);
theta = reshape(sPlotPoints.theta,dim);
phi = reshape(sPlotPoints.phi,dim);
% add one vertical line of values to get a closed balloon
theta = theta(:,[1:end 1]);
phi = phi(:,[1:end 1]);
magn = magn(:,[1:end 1]);
color = color(:,[1:end 1]);
% plot the balloon
[X,Y,Z] = sph2cart(phi, pi/2 - theta, magn);
% hFig = figure;
hFig = gcf;
set(hFig, 'renderer', 'opengl')
hSurf = surf(X,Y,Z,color, 'EdgeAlpha', paraStruct.edgealpha, 'FaceAlpha', paraStruct.facealpha);
colorbar;
colormap(colorMap);
% set axes limits
maxMagn = max(max(magn));
if maxMagn > 0
xlim([-maxMagn maxMagn]);
ylim([-maxMagn maxMagn]);
zlim([-maxMagn maxMagn]);
end
daspect([1 1 1]);
axis vis3d
% set colorbar settings
if ismember(type, {'complex','spherephase'})
caxis([0 2*pi]);
else
caxis([0 maxMagn]);
end
grid on;
% bigger and fatter fonts
set(gca, 'FontSize', paraStruct.fontsize, 'FontWeight', 'bold');
% set background color to white
set(gcf, 'Color', 'w');
% view(90,0);
% view(3);
% view(0,90);
rotate3d;
xlabel('x');
ylabel('y');
zlabel('z');
switch paraStruct.axes
case 'inner'% alternative Achsen:
hold on;
maxim = max([max(max(abs(X))) max(max(abs(Y))) max(max(abs(Z)))]);
ak = [1.3*maxim -1.3*maxim]; nak = [0 0];
[X0,Y0] = pol2cart(0:pi/180:2*pi,1.1*maxim);
[X1,Y1] = pol2cart(0:pi/180:2*pi,1.0*maxim);
[X2,Y2] = pol2cart(0:pi/180:2*pi,0.9*maxim);
[X3,Y3] = pol2cart(0:pi/180:2*pi,0.8*maxim);
[X4,Y4] = pol2cart(0:pi/180:2*pi,0.7*maxim);
Z0=zeros(1,361);
plot3(ak, nak, nak, 'k', nak, ak, nak, 'k', nak, nak, ak, 'k');
text(1.35*maxim, 0, 0, 'x', 'FontSize', paraStruct.fontsize, 'FontWeight', 'bold'); text(0, 1.35*maxim, 0, 'y', 'FontSize', paraStruct.fontsize, 'FontWeight', 'bold'); text(0, 0, 1.35*maxim, 'z', 'FontSize', paraStruct.fontsize, 'FontWeight', 'bold');
plot3(X0,Y0,Z0,'k' ,X1,Y1,Z0,'k', X2,Y2,Z0,'k', X3,Y3,Z0,'k', X4,Y4,Z0,'k');
% kinder = get(gca,'Children');
grid off
axis off
case 'outer'
grid on
axis on
end
applications/SphericalHarmonics/ita_sht.m deleted 100644 → 0
View file @ ba4883fa
function acDataSH = ita_sht(acData, gridData, type)
%ITA_SHT - performs a Spherical Harmonic transform on spherical data struct
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
% Author: Martin Pollow -- Email: mpo@akustik.rwth-aachen.de
% Created: 03-Dec-2008
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
acDataSH = cell(size(acData));
for n = 1:numel(acData)
acDataSH{n}.header = acData{n}.header;
% TODO: neue EInheit
if isfield(acData{n},'dat')
oldFieldname = 'dat';
newFieldname = 'dat_SH';
elseif isfield(acData{n},'spk')
oldFieldname = 'spk';
newFieldname = 'spk_SH';
end
acDataSH{n}.(newFieldname) = ita_sph_SHT(acData{n}.(oldFieldname), gridData, type);
end
\ No newline at end of file
applications/SphericalHarmonics/ita_sph_complex2reim.m deleted 100644 → 0
View file @ ba4883fa
function [fRe, fIm] = ita_sph_complex2reim(fCompl)
%ITA_SPH_COMPLEX2REIM - converts complex function to real and imaginary part
% function [fRe, fIm] = ita_sph_complex2reim(fCompl)
%
% converts a spatial function given by its SH-coefficients to their
% real and imaginary part given also as SH-coefficients
% the resynthesis is: fCompl = fRe + j * fIm
%
% Martin Pollow (mpo@akustik.rwth-aachen.de)
% Institute of Technical Acoustics, RWTH Aachen, Germany
% 04.11.2008
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
nCoef = size(fCompl,1);
[degree, order] = ita_sph_linear2degreeorder(1:nCoef);
fRe = zeros(size(fCompl));
fIm = fRe;
for iCoef = 1:nCoef
m = order(iCoef);
% l = degree(iCoef);
if ~m % m=0
fRe(iCoef,:) = real(fCompl(iCoef,:));
fIm(iCoef,:) = imag(fCompl(iCoef,:));
elseif m > 0
fRe(iCoef,:) = (fCompl(iCoef,:) + (-1)^m * conj(fCompl(iCoef-(2*m))))/2;
fRe(iCoef-(2*m),:) = conj(fRe(iCoef,:)) * (-1)^m;
fIm(iCoef,:) = (fCompl(iCoef,:) - (-1)^m * conj(fCompl(iCoef-(2*m))))/(2*j);
fIm(iCoef-(2*m),:) = conj(fIm(iCoef,:)) * (-1)^m;
end
end
applications/SphericalHarmonics/ita_sph_convert2vector.m deleted 100644 → 0
View file @ ba4883fa
function sph = ita_sph_convert2vector(sph)
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
ita_verbose_obsolete('Marked as obsolete. Please report to mpo, if you still use this function.');
sph.theta = sph.theta(:);
sph.phi = sph.phi(:);
if isfield(sph,'r')
sph.r = sph.r(:);
end
sph.weights = sph.weights(:);
applications/SphericalHarmonics/ita_sph_correlationS2.m deleted 100644 → 0
View file @ ba4883fa
function correlation = ita_sph_correlationS2(F, G)
%ITA_SPH_CORRELATIONS2 - spatial correlation in SH-domain
% function correlation = ita_sph_correlationS2(F, G)
%
% computes the normalized spatial correlation of two functions
% on the 2-sphere in the spherical harmonic domain
%
% Martin Pollow (mpo@akustik.rwth-aachen.de)
% Institute of Technical Acoustics, RWTH Aachen, Germany
% 05.11.2008
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
ita_verbose_obsolete('Please use ita_sph_xcorr in future.')
if ~exist('G', 'var')
G = F;
end
if size(F,1) ~= size(G,1)
error('coefficient vectors must have the same size');
end
correlation = zeros(size(F,1),1);
for iFreq = 1:size(F,1)
correlation(iFreq) = conj(F(iFreq,:))*G(iFreq,:).'/(norm(F(iFreq,:))*norm(G(iFreq,:)));
end
\ No newline at end of file
applications/SphericalHarmonics/ita_sph_plot.m deleted 100644 → 0
View file @ ba4883fa
function ita_sph_plot(data, varargin)
%ITA_SPH_PLOT - plots a spherical function (and sampling points)
% function ita_sph_plot(data, varargin)
%
% the input data can be given as a spherical harmonic coefficient vector
%
% the optional parameter 'type' can be:
% 'complex' : radius is magnitude, color is phase
% 'sphere' : plots magnitude as color on unit sphere
% 'magnitude' : radius and color is magnitude
% 'spherephase' : plots phase as color on unit sphere
%
% the optional GeometryPoints and pointData give the information about
% spherical sampling points
% GeometryPoints.theta: vector of theta values
% GeometryPoints.phi: vector of phi values
% data: vector of sampling values
%
% type: default 'magnitude'
% GeometryPoints & pointData: default []
% axes: outer/inner, different 'design' (default: outer)
% fontsize: default 12, for axis annotations
% <ITA-Toolbox>
% This file is part of the application SphericalHarmonics for the ITA-Toolbox. All rights reserved.
% You can find the license for this m-file in the application folder.
% </ITA-Toolbox>
% Martin Pollow (mpo@akustik.rwth-aachen.de)
% Institute of Technical Acoustics, RWTH Aachen, Germany
% 03.09.2008
% Modified: 14.01.2009 - mpe - parameter-structure:
% Complete rewrite: July-09 - mpo
% default parameters
def.type = 'magnitude';
def.facealpha = 0.7;
def.edgealpha = 0.1;
def.grid = [];
def.samplingpoints = [];
def.sampledvalues = [];
def.geometrypoints = [];
def.axes = 'outer';
def.fontsize = 12;
def.onballoon = 'none'; % 'smaller', 'greater', 'all'
% def.angunit = 'rad'; % ToDo: Winkeldarstellung Bogenma�/Grad ('deg')
% def.plottype = 'ita_sph_plot'; evtl. noch f�r update-Funktion
def.caxis = [];
def.line = false;
if nargin > 1
% if isstruct(varargin{1}) && isfield(varargin{1},'pos')% this is sampling points
if isa(varargin{1},'itaSampling') || isa(varargin{1},'itaCoordinates'); % this is sampling points
def.samplingpoints = varargin{1};
% and delete first element ion list
varargin = varargin(2:end);
if nargin > 2 && isnumeric(varargin{1})% the values of the points are also given
def.sampledvalues = varargin{1};
varargin = varargin(2:end);
else % use weights (enlarge, if it only theta weights)
def.sampledvalues = def.samplingpoints.weights;
% def.sampledvalues = weights;
end
end
end
% % test if the sampling points are given
% if nargin > 1 && isstruct(samplingPoints)
% if ~exist('sampledValues','var')
% sampledValues = samplingPoints.weights;
% end
% % or if they are not given, either way plot weights
% if ~isnumeric(sampledValues)
% varargin = {sampledValues varargin{:}};
% sampledValues = samplingPoints.weights;
% end
% % now handle it via parser
% varargin = {'samplingPoints' samplingPoints ...
% 'sampledValues' sampledValues varargin{:}};
% clear samplingPoints sampledValues;
% end
% take over parameters from arguments (varargin)
paraStruct = ita_parse_arguments(def,varargin);
% load or make grid for plotting
persistent plotGrid
if ~isempty(paraStruct.grid) && ...
(isa(paraStruct.grid,'itaCoordinates') || isa(paraStruct.grid,'itaSampling'));
plotGrid = paraStruct.grid;
elseif ~isstruct(plotGrid)
plotGrid = ita_sph_sampling_equiangular(64,64,'[]','[)');%equiangular(15);
end
% plotGrid = ita_sph_grid_regular_weights(plotGrid,31);
% plotGrid = ita_sph_base(plotGrid, 31);
% theta = reshape(plotGrid.coord(:,1),length(plotGrid.weights),[]);
% phi = reshape(plotGrid.coord(:,2),length(plotGrid.weights),[]);
theta = plotGrid.theta;
phi = plotGrid.phi;
type = paraStruct.type;
samplingPoints = paraStruct.samplingpoints;
sampledValues = paraStruct.sampledvalues;
if numel(data) == numel(theta)
disp('it must be spatial data');
dataSH = ita_sph_SHT(data, plotGrid);
else
if numel(data) == 1
data = sqrt(4*pi);
elseif size(data,1) == 1
data = data.';
end
dataSH = data;
data = ita_sph_ISHT(dataSH, plotGrid);
data = reshape(data, length(plotGrid.weights), []);
end
switch type
case 'complex'
magn = abs(data);
color = mod(angle(data),2*pi);
colormap(hsv);
case 'sphere'
magn = ones(size(data));
color = abs(data);
colormap(jet);
case 'spherephase'
magn = ones(size(data));
color = angle(data);
colormap(hsv);
case 'magnitude'
magn = abs(data);
color = magn;
colormap(jet);
otherwise
error('give a valid type (complex / sphere / spherephase / magnitude)')
end
% magn = abs(data);
% angle = angle(data)
% theta = [plotGrid.theta, plotGrid.theta(:,1)];
% phi = [plotGrid.phi, 2*pi+plotGrid.phi(:,1)];
theta = theta(:,[1:end 1]);
phi = phi(:,[1:end 1]);
magn = magn(:,[1:end 1]);
color = color(:,[1:end 1]);
% color = [color, color(:,1)];
[X,Y,Z] = sph2cart(phi, pi/2 - theta, magn);
% cla;
set(gcf, 'renderer', 'opengl')
surf(X,Y,Z,color, 'EdgeAlpha', paraStruct.edgealpha, 'FaceAlpha', paraStruct.facealpha);
colorbar;
% shading interp
m_val = max(max(magn));
if m_val > 0
xlim([-m_val m_val]);
ylim([-m_val m_val]);
zlim([-m_val m_val]);
end
daspect([1 1 1]);
axis vis3d % off
% axis([-1 1 -1 1 -1 1])
switch type
case {'complex','spherephase'}
caxis([0 2*pi]);
end
grid on;
% bigger and fatter fonts
set(gca, 'FontSize', paraStruct.fontsize, 'FontWeight', 'bold');
% set background color to white
set(gcf, 'Color', 'w');
% view(90,0);
view(3);
% view(0,90);
rotate3d;
xlabel('x');
ylabel('y');
zlabel('z');
% do we want points on the sphere?
if ~isempty(samplingPoints)
if ~strcmp(samplingPoints.type,'sph')
samplingPoints = cart2sph(samplingPoints);
end
switch type
case 'complex'
pointRadius = abs(sampledValues);
pointColor = mod(angle(sampledValues), 2*pi);
case 'sphere'
pointRadius = ones(size(sampledValues));
pointColor = abs(sampledValues);
case 'magnitude'
pointRadius = abs(sampledValues);
pointColor = abs(sampledValues);
case 'spherephase'
pointRadius = ones(size(sampledValues));
pointColor = mod(angle(sampledValues), 2*pi);
end
hold on;
% target = magn(:);
cmap = colormap;
% extrema of color bar is calculated out of both directivity and pressure
% on microphones:
minRadiusSphere = min(magn(:));
maxRadiusSphere = max(magn(:));
minRadiusPoints = min(pointRadius(:));
maxRadiusPoints = max(pointRadius(:));
% minRadiusTotal = min(minRadiusSphere, minRadiusPoints);
% maxRadiusTotal = max(maxRadiusSphere, maxRadiusPoints);
if strcmp(type,'complex')
cmin = 0;
cmax = 2*pi;
else
cmin = 0; % min([min_pointData min_target]);
cmax = max(max(color(:)), max(pointColor(:)));
end
if ~isempty(paraStruct.caxis)
cmin = paraStruct.caxis(1);
cmax = paraStruct.caxis(2);
if numel(cmax)
cmax = cmin;
caxis([cmin cmax]);
end
end