wolffd@0: function pot = mk_initial_pot(pot_type, dom, ns, cnodes, onodes)
wolffd@0: % MK_INITIAL_POT A "initial" potential is one which has not had any evidence entered into it.
wolffd@0: % pot = mk_initial_pot(pot_type, domain, node_sizes, cnodes, onodes)
wolffd@0: %
wolffd@0: % pot_type is one of 'd', 'g', 'cg' or 'u'
wolffd@0: % domain is the set of nodes to be included in the potential.
wolffd@0: % node_sizes(i) is the size of node i.
wolffd@0: 
wolffd@0: switch pot_type 
wolffd@0:  case 'd',
wolffd@0:   ns(onodes) = 1;
wolffd@0:   pot = dpot(dom, ns(dom));
wolffd@0:  case 'u',
wolffd@0:   ns(onodes) = 1;
wolffd@0:   pot = upot(dom, ns(dom));
wolffd@0:  case 'g',
wolffd@0:   ns(onodes) = 0;
wolffd@0:   pot = cpot(dom, ns(dom));
wolffd@0:  case 'cg',
wolffd@0:   dnodes = mysetdiff(1:length(ns), cnodes);
wolffd@0:   ddom = myintersect(dnodes, dom);
wolffd@0:   cdom = myintersect(cnodes, dom);
wolffd@0:   dobs = myintersect(dnodes, onodes);
wolffd@0:   cobs = myintersect(cnodes, onodes);
wolffd@0:   ns(dobs) = 1;
wolffd@0:   ns(cobs) = 0;
wolffd@0:   pot = cgpot(ddom, cdom, ns);
wolffd@0: end
wolffd@0: