0001 function MakeFigure1
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012 [POMDP P]=GetTest1Parameters;
0013
0014 h=clf;
0015 set(h,'name','C-POMDP Figure 1','numbertitle','off');
0016
0017 subplot(2,1,1);
0018 OM=get(POMDP,'ObsModel');
0019 plot(GetObsModelFixedO(OM,1),'color','k','linestyle',':');
0020 plot(GetObsModelFixedO(OM,2),'color','k','linestyle','-.');
0021 plot(GetObsModelFixedO(OM,4),'color','k');
0022 plot(GetObsModelFixedO(OM,3),'color','k','linestyle','--');
0023
0024 legend('Left End','Right End','Corridor','Door');
0025
0026 axis([-20 20 0 1.1]);
0027 title('Observation Model');
0028 xlabel('s');
0029 ylabel('p(o)');
0030
0031 subplot(2,1,2);
0032 RM=get(POMDP,'RewardModel');
0033 plot(GetRewardModelFixedA(RM,1),'color','k','linestyle',':');
0034 plot(GetRewardModelFixedA(RM,2),'color','k','linestyle','-.');
0035 plot(GetRewardModelFixedA(RM,3),'color','k');
0036
0037 legend('Move Left','Move Right','Enter Door');
0038
0039 axis([-20 20 -1.2 0.4]);
0040 xlabel('s');
0041 ylabel('r(a)');
0042
0043 title('Reward Model');
0044
0045