wolffd@0: function engine = enter_evidence(engine, evidence, varargin)
wolffd@0: % ENTER_EVIDENCE Add the specified evidence to the network (jtree_limid)
wolffd@0: % engine = enter_evidence(engine, evidence, ...)
wolffd@0: %
wolffd@0: % evidence{i} = [] if if X(i) is hidden, and otherwise contains its observed value.
wolffd@0: %
wolffd@0: % The list below gives optional arguments [default value in brackets].      
wolffd@0: %
wolffd@0: % exclude - list of nodes whose potential will not be included in the joint [ [] ]
wolffd@0: %
wolffd@0: % e.g., engine = enter_evidence(engine, ev, 'exclude', 3)
wolffd@0: 
wolffd@0: exclude = [];
wolffd@0: 
wolffd@0: if nargin >= 3
wolffd@0:   args = varargin;
wolffd@0:   nargs = length(args);
wolffd@0:   for i=1:2:nargs
wolffd@0:     switch args{i},
wolffd@0:      case 'exclude', exclude = args{i+1};
wolffd@0:      otherwise,
wolffd@0:       error(['invalid argument name ' args{i}]);
wolffd@0:     end
wolffd@0:   end
wolffd@0: end
wolffd@0:   
wolffd@0: engine.exclude = exclude;
wolffd@0: engine.evidence = evidence;