-
Notifications
You must be signed in to change notification settings - Fork 0
/
extract_testWACOWCmulti.m
88 lines (65 loc) · 2.02 KB
/
extract_testWACOWCmulti.m
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
% EXTRACT_TESTWACOWCMULTI Extract data from the simulations results
%
% EXTRACT_TESTWACOWCMULTI(experiment_name)
%
% experiment_name is the basename of a M-file containing the experiment
% parameters.
%
%experiment_name = 'WACOWCmulti4';
%% Prepare the workspace
% clearvars -except experiment_name;
% close all;
paramsfile = [experiment_name '.m'];
run(paramsfile);
% add the path to the projective geometry functions
addpath('../../ProjGeom');
addpath('../');
%% Files and folders
% Folter for storing results
resultsdir = 'results/';
% Base filename
resultsBaseFn = experiment_name;
% Experimente results filename
expFilename = [ resultsdir resultsBaseFn '_data' ];
load([expFilename '.mat'])
%% Iterate over experiment conditions and load results
leaving = 0;
test_number=1;
for m = m_v
for iConfig = 1:size(NmNp,1)
Nm = NmNp(iConfig,1);
Np = NmNp(iConfig,2);
Psi_min = 0.5*acos(cos(pi/(2*Np))^2);
Psi_max = pi/(2*Np);
switch Psi_mode
case 1
Psi_v = [ Psi_min (Psi_min + Psi_max)/2 Psi_max ];
case 2
Psi_v = Psi_min *params.Psi_v;
otherwise
error('Invalid value or undefined Psi_mode!');
end
for Psi=Psi_v
disp([ '{m, N_p, N_m, Psi }={' num2str(m) ',' ...
num2str(Np) ',' num2str(Nm) ',' ...
num2str(round(180/pi*Psi)) '}']);
resultsfilename = createResultFilename( resultsdir, ...
resultsBaseFn, m, Np, Nm, Psi, Nrep);
data(test_number) = load(resultsfilename);
test_number=test_number+1;
end
end
end
%% clear workspace and save compiled data
save([resultsdir 'data_' experiment_name '.mat'], 'data')
clearvars -except data;
% each test is stored in a index of data with the test params, results and
% radii to the emitters
% for the first test
% % params = data(1).params;
% %
% % results=data(1).results;
% %
% % export_radii = data(1).export_radii;
% %
% %