-
Notifications
You must be signed in to change notification settings - Fork 0
/
hlp_save.m
45 lines (38 loc) · 886 Bytes
/
hlp_save.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
function hlp_save(fname,para,op,results,tresults,mps,Vmat,treeMPS)
% saves above variables serialized into a file.
para = hlp_serialize(para);
save(fname,'para','-v7.3');
fprintf('.');
if ~isempty(op)
op = hlp_serialize(op);
save(fname,'op','-append');
clear('op');
fprintf('.');
end
results = hlp_serialize(results);
save(fname,'results','-append');
clear('results');
fprintf('.');
tresults = hlp_serialize(tresults);
save(fname,'tresults','-append');
clear('tresults');
fprintf('.');
if ~isempty(mps)
mps = hlp_serialize(mps);
save(fname,'mps','-append');
clear('mps');
fprintf('.');
end
if ~isempty(Vmat)
Vmat = hlp_serialize(Vmat);
save(fname,'Vmat','-append');
clear('Vmat');
fprintf('.\n');
end
if nargin > 7 && ~isempty(treeMPS)
treeMPS = hlp_serialize(treeMPS);
save(fname,'treeMPS','-append');
clear('treeMPS');
fprintf('.');
end
end