/*  
　　家系分析　練習用データ
    稲麦など自殖作物用　
　　　kosihikari（koshihikariではない）の家系図，
　　　同　vs.　nagoyutaka　の近縁係数をまずどうぞ   
*/
/*   -------------------------------------------------
      以下は"kin3"　用データ（なくても可）　 　  
      namae1 と namae2 相互間の値を計算する．　
     -------------------------------------------------   */
namae1('kosihikari').
namae1('nagoyutaka').
namae2('nagoyutaka').
namae2('honenwase').
namae2('norin21').
/*   -------------------------------------------------------------- 
    以下は交配親データ
      rr('品種名', '母親名', '父親名'). 
  
　  データはローマ字表記．漢字でも動くが；
　　  １．漢字データを完備する必要あり（ローマ字版は稲麦などで祖先が完備）．
　  　２．その苦労は，もっと有意義な計算に向けるべき．
　　  ３．漢字可して万歳，では意味ない（そうなりそう）．
　  　４．家系図が乱れる（漢字用Webでは乱れない）．
     --------------------------------------------------------------  */
rr('kosihikari','norin22','norin1').
rr('norin22','norin8','norin6').
rr('norin8','aikoku','asahi').
rr('norin6','joshu','kiryoyosi').
rr('norin1','oba','rikuu132').
rr('rikuu132','aikoku','kamenoo').
rr('nagoyutaka','todorokiwase','ginmasari').
rr('ginmasari','kyotoasahi1','hokuriku14').
rr('hokuriku14','karihasinshu','sinigou').
rr('todorokiwase','shu921','honenwase').
rr('shu921','hatuminori','fujisaka5').
rr('fujisaka5','futaba','zensekiwase').
rr('zensekiwase','itadowase','kyuigo').
rr('futaba','sinju2','takaneasahi').
rr('sinju2','tasensho','aitiwaseasahi2').
rr('aitiwaseasahi2','asahi','aitihayaine1').
rr('takaneasahi','waseasahi','wasesinriki').
rr('hatuminori','norin21','norin1').
rr('norin21','asahi','norin1').
rr('honenwase','norin22','norin1').
rr('tasensho','ban68','chuben122').
rr('ban68','rikutosensho','koban33').
rr('koban33','sinriki','sinsekitori').
rr('chuben122','nakatesinriki','benkei116').
rr('aitihayaine1','kiryoyosi','manzai').
/*  end of data */