wolffd@0: function CPD = update_CPT(CPD)
wolffd@0: % Compute the big CPT for an HHMM F node given internal termprob
wolffd@0: % function CPD = update_CPT(CPD)
wolffd@0: 
wolffd@0: Qsz = CPD.Qsz;
wolffd@0: Qpsz = CPD.Qpsz;
wolffd@0: 
wolffd@0: % CPT(Qpsz, Q, Fbelow, Fself)
wolffd@0: CPT = zeros(Qpsz, Qsz, 2, 2);
wolffd@0: CPT(:,:,1,1) = 1; % if Fbelow=1 (off), then Fself=1 (off)
wolffd@0: CPT(:,:,2,:) = CPD.termprob;
wolffd@0: 
wolffd@0: CPD = set_fields(CPD, 'CPT', CPT);