/*
　　家系分析　練習用データ
　　　イモ類，イチゴなど他殖（栄養繁殖）作物用．動物も可．

　　まず　jibun　の家系図を．sofu についた＊印は祖父の
　　　近交係数値がデータベース中に存在することを示す．

　　次に ko6 又は itoko と jibun 間の近交係数を．値は0.065625
　　　のはず（祖父の近交係数が０なら0.0625となる）．

　　さらに ko6 を含む計算を行うには　kiti('ko6',0.065625)
　　　をデータベースに追加する．
*/
/*   --------------------------------------
　   以下は"kin3"用データ（なくても可）．
   　namae1 と namae2 相互間の値を計算する．
     --------------------------------------   */
namae1('jibun').
namae1('haha').
namae1('titi').
namae2('jibun').
namae2('oba').
/* -----------------------------------------------------------------  
　 以下は交配親データ
　　 rr('品種名', '母親名', '父親名').
 　　kiti('品種名', その品種の近交係数値).
     kitiなければ０とみなす．

   データはローマ字表記．漢字でも動くが；
　 　１．漢字データを完備する必要あり（ローマ字版は甘藷等で祖先が完備）．
　　 ２．その苦労は，もっと有意義な計算に向けるべき．
 　　３．漢字可して万歳，では意味ない（そうなりそう）．
　 　４．家系図が乱れる（漢字版Webでは乱れない）．
   ------------------------------------------------------------------ */
rr('jibun','haha','titi').
rr('haha','sobo','sofu').
kiti('sofu',0.1).
rr('imoto','haha','titi').
rr('titi','sobo2','sofu2').
rr('oba','sobo','sofu').
rr('itoko','oba','oji').
rr('ibo-imoto','mamahaha','titi').
rr('ko1','tuma','jibun').
rr('ko2','imoto','jibun').
rr('ko3','haha','jibun').
rr('ko4','oba','jibun').
rr('ko5','sobo','jibun').
rr('ko6','itoko','jibun').
rr('ko7','ibo-imoto','jibun').
/*   データ　終わり    */