jackdaw/replicates.m at master · cnettel/jackdaw · GitHub

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
load reference

rounds = 68;
qbarrier = [];
nzpenalty = [];
iters = [];
tols = [];
if exist('nowindow') == 0
  nowindow = [];
end

% Prepare settings for the different continuation levels
for i=0:rounds
  val = 2^-(i - 3);
  qbarrier = [qbarrier val];
  nzpval = 1e4 / val;
  nzpenalty = [nzpenalty nzpval];
  iters = [iters 6e2];
  tolval = val * 1e-14;
  tols = [tols tolval];
end

numrep = 50;
rs = cell(50,256,256);
vs = cell(50,256,256);

rng(0, 'twister')

for qq2 = 1:numrep
  banner = sprintf('##################### PREP REPLICATE %d\n', qq2)
  r2 = poissrnd(r3b);
  r(r>=0) = r2(r>=0);

  rs{qq2} = r;
end


parfor qq2 = 1:numrep
  banner = sprintf('##################### REPLICATE %d\n', qq2)
  r = rs{qq2};
tic
    [v, b] = healernoninv(r, mask, zeros(256,256), [], 'AT', length(qbarrier), qbarrier, nzpenalty, iters, tols, nowindow);
toc
    vs{qq2} = v;
end

rsold = rs;
vsold = vs;
rs = [];
vs = [];
for qq2 = 1:numrep
    rs = [rs rsold{qq2}];
    vs = [vs vsold{qq2}];
end

clear rsold vsold