djc.pnt

来自「数据挖掘中的一算法 ines算法 c下实现的。适合初学习数据挖掘者借鉴」· PNT 代码 · 共 58 行

/*----------------------------------------------------------------------
  File    : djc.pnt
  Contents: Danish Jersey Cattle Blood Group Determination Network
            (reduced version, i.e., without parental_error node)
  Source  : Lene Kolind Rasmussen
----------------------------------------------------------------------*/

/*----------------------------------------------------------------------
  domains
----------------------------------------------------------------------*/
dom(dam_correct)        = { y, n };
dom(sire_correct)       = { y, n };
dom(true_dam_pg1)       = { f1, v1, v2 };
dom(true_dam_pg2)       = { f1, v1, v2 };
dom(true_sire_pg1)      = { f1, v1, v2 };
dom(true_sire_pg2)      = { f1, v1, v2 };
dom(stated_dam_pg1)     = { f1, v1, v2 };
dom(stated_dam_pg2)     = { f1, v1, v2 };
dom(stated_sire_pg1)    = { f1, v1, v2 };
dom(stated_sire_pg2)    = { f1, v1, v2 };
dom(offspring_pg1)      = { f1, v1, v2 };
dom(offspring_pg2)      = { f1, v1, v2 };
dom(offspring_genotype) = { f1f1, f1v1, f1v2, v1v1, v1v2, v2v2 };
dom(factor_40)          = { y, n };
dom(factor_41)          = { y, n };
dom(factor_42)          = { y, n };
dom(factor_43)          = { y, n };
dom(lysis_40)           = { 0, 1, 2, 3, 4, 5, 6, 7 };
dom(lysis_41)           = { 0, 1, 2, 3, 4, 5, 6, 7 };
dom(lysis_42)           = { 0, 1, 2, 3, 4, 5, 6, 7 };
dom(lysis_43)           = { 0, 1, 2, 3, 4, 5, 6, 7 };

/*----------------------------------------------------------------------
  graphical model
----------------------------------------------------------------------*/
possnet = {
  poss(dam_correct)   = { };
  poss(sire_correct)  = { };
  poss(true_dam_pg1)  = { };
  poss(true_dam_pg2)  = { };
  poss(true_sire_pg1) = { };
  poss(true_sire_pg2) = { };
  poss(stated_dam_pg1|dam_correct,true_dam_pg1)    = { };
  poss(stated_dam_pg2|dam_correct,true_dam_pg2)    = { };
  poss(stated_sire_pg1|sire_correct,true_sire_pg1) = { };
  poss(stated_sire_pg2|sire_correct,true_sire_pg2) = { };
  poss(offspring_pg1|true_dam_pg1,true_dam_pg2)    = { };
  poss(offspring_pg2|true_sire_pg1,true_sire_pg2)  = { };
  poss(offspring_genotype|offspring_pg1,offspring_pg2) = { };
  poss(factor_40|offspring_genotype) = { };
  poss(factor_41|offspring_genotype) = { };
  poss(factor_42|offspring_genotype) = { };
  poss(factor_43|offspring_genotype) = { };
  poss(lysis_40|factor_40) = { };
  poss(lysis_41|factor_41) = { };
  poss(lysis_42|factor_42) = { };
  poss(lysis_43|factor_43) = { };
};