0001 function MakeFigure6
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013 fprintf('Loading/Generating the simulation results with normal parameters');
0014 fprintf(' (4-components beliefs and 9-components alpha-mixtures)\n');
0015 GenData=@()(TestRepWithStatistics('Test1','Figure2',1:10));
0016 ResultsNormal=GetData('Results/Test1-Figure2-results.mat',GenData);
0017
0018 fprintf('Loading/Generating the simulation results 1-component beliefs\n');
0019 [POMDP P]=GetTest1Parameters(1,9);
0020 GenData=@()(TestRepWithStatistics(POMDP,P,'Figure6-a',1:10));
0021 ResultsB1=GetData('Results/Test1-Figure6-a-results.mat',GenData);
0022
0023 fprintf('Loading/Generating the simulation results 3-components alpha mixtures\n');
0024 [POMDP P]=GetTest1Parameters(4,3);
0025 GenData=@()(TestRepWithStatistics(POMDP,P,'Figure6-b',1:10));
0026 ResultsA3=GetData('Results/Test1-Figure6-b-results.mat',GenData);
0027
0028 h=clf;
0029 set(h,'name','C-POMDP Figure 6','numbertitle','off');
0030
0031 plot(ResultsB1.tics,ResultsB1.SM.R,'linestyle',':');
0032 hold on;
0033 plot(ResultsA3.tics,ResultsA3.SM.R,'linestyle','--');
0034 plot(ResultsNormal.tics,ResultsNormal.SM.R);
0035
0036 legend('1-component beliefs','3-component \alpha-functions','9-c. \alpha-func. + 4-c. beliefs');
0037
0038 xlabel('time (s)');
0039 ylabel('Acc. Disc. Reward');