0001 function As=ComputeAlphas_j_a_o(P,V)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019 A=get(P,'ActionSpace');
0020 O=get(P,'ObsSpace');
0021 if isa(A,'DSpace') && isa(O,'DSpace')
0022 na=dim(A);
0023 no=dim(O);
0024 nj=size(V);
0025 ro=1:no;
0026 As=cell(nj,na,no);
0027 for j=1:nj
0028 for a=1:na
0029 As(j,a,:)=arrayfun(@(o)(ComputeAlpha_j_a_o(P,V,j,a,o)),ro,'UniformOutput',false);
0030 end
0031 end
0032 else
0033 As={};
0034 end