<!--
// by karen hall - June 05
//last edited 2 April 09 (corrected commented out lines: female mo/mo (wildtype male Mo+/Mo+) error for 'selected loci only' submitFuncSelect() ).
// © Copyright Karen Hall
// poultry genetics probabilities calculator
/*---------- SET default "wildtype" variables for all mutations, plus win ------------ */
var maleE = "e+/e+";
var femE = "e+/e+";
var maleMo = "Mo+/Mo+";
var femMo = "Mo+/Mo+";
var maleC = "C+/C+";
var femC = "C+/C+";
var maleLav = "Lav+/Lav+";
var femLav = "Lav+/Lav+";
var maleBl = "bl+/bl+";
var femBl = "bl+/bl+";
var maleI = "i+/i+";
var femI = "i+/i+";
var maleChoc = "Choc+/Choc+";
var femChoc = "Choc+";
var maleMl = "ml+/ml+";
var femMl = "ml+/ml+";
var maleCha = "Cha+/Cha+";
var femCha = "Cha+/Cha+";
var maleCo = "co+/co+";
var femCo = "co+/co+";
var maleDb = "db+/db+";
var femDb = "db+/db+";
var maleDi = "di+/di+";
var femDi = "di+/di+";
var maleIg = "Ig+/Ig+";
var femIg = "Ig+/Ig+";
var maleCb = "cb+/cb+";
var femCb = "cb+/cb+";
var maleS = "s+/s+";
var femS = "s+";
var maleMh = "mh+/mh+";
var femMh = "mh+/mh+";
var malePg = "pg+/pg+";
var femPg = "pg+/pg+";
var maleB = "b+/b+";
var femB = "b+";
var maleEr = "er+/er+";
var femEr = "er+/er+";
var maleFm = "fm+/fm+";
var femFm = "fm+/fm+";
var maleId = "id+/id+";
var femId = "id+";
var maleW = "W+/W+";
var femW = "W+/W+";
var maleY = "Y+/Y+";
var femY = "Y+";
var win;
/*----------END default "wildtype" variables for all mutations, plus win ------------ */
/* ------------------------ SETUP default wildtype images --------------------------- */
function defaultSwap() {
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
/* -----------------------END setup default wildtype images ------------------------- */
/* ---------------------SET variables to checked radio buttons	---------------------
   -------- and change background image of wild type to selected mutation ------*/ 
// --------- E locus Male & Female ----------
function maleEE(){
maleE = "E/E";
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_black_roo.jpg')";
} 
function maleEe(){
maleE = "E/e+";
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_black_roo.jpg')";
}
function maleEER(){
maleE = "E/ER";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleEeWh(){
maleE = "E/eWh";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleEeb(){
maleE = "E/eb";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleERER(){
maleE = "ER/ER";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleERe(){
maleE = "ER/e+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleEReWh(){
maleE = "ER/eWh";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleEReb(){
maleE = "ER/eb";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleeWheWh(){
maleE = "eWh/eWh";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleeWhe(){
maleE = "eWh/e+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleeWheb(){
maleE = "eWh/eb";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleebeb(){
maleE = "eb/eb";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleebe(){
maleE = "eb/e+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleEE(){
femE = "E/E";
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
}
function femaleEe(){
femE = "E/e+";
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
} 
function femaleEER(){
femE = "E/ER";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleEeWh(){
femE = "E/eWh";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleEeb(){
femE = "E/eb";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleERER(){
femE = "ER/ER";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleERe(){
femE = "ER/e+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleEReWh(){
femE = "ER/eWh";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleEReb(){
femE = "ER/eb";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleeWheWh(){
femE = "eWh/eWh";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleeWhe(){
femE = "eWh/e+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleeWheb(){
femE = "eWh/eb";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleebeb(){
femE = "eb/eb";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleebe(){
femE = "eb/e+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// -------- Eumelanin Diluters ---------- 
//c locus male & female
function malecc(){
maleC = "c/c"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_white_roo.jpg')";
} 
function maleCc(){
maleC = "C+/c"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_black_roo.jpg')";
}
function femalecc(){
femC = "c/c"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_white_hen.jpg')";
} 
function femaleCc(){
femC = "C+/c"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
} 
//lav locus male & female
function malelavlav(){
maleLav = "lav/lav"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_lav_roo.jpg')";
} 
function maleLavlav(){
maleLav = "Lav+/lav"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_black_roo.jpg')";
}
function femalelavlav(){
femLav = "lav/lav"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_lav_hen.jpg')";
} 
function femaleLavlav(){
femLav = "Lav+/lav"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
} 
//Bl locus male & female
function maleBlBl(){
maleBl = "Bl/Bl"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_spl_roo.jpg')";
} 
function maleBlbl(){
maleBl = "Bl/bl+"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_blue_roo.jpg')";
} 
function femaleBlBl(){
femBl = "Bl/Bl"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_spl_hen.jpg')";
} 
function femaleBlbl(){
femBl = "Bl/bl+"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_blue_hen.jpg')";
} 
// I locus male & female
function maleII(){
maleI = "I/I";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIi(){
maleI = "I/i+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIID(){
maleI = "I/ID";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIIS(){
maleI = "I/IS";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIDi(){
maleI = "ID/i+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIDID(){
maleI = "ID/ID";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIDIS(){
maleI = "ID/IS";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleISi(){
maleI = "IS/i+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleISIS(){
maleI = "IS/IS";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleII(){
femI = "I/I";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIi(){
femI = "I/i+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIID(){
femI = "I/ID";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIIS(){
femI = "I/IS";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIDi(){
femI = "ID/i+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIDID(){
femI = "ID/ID";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleIDIS(){
femI = "ID/IS";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleISi(){
femI = "IS/i+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleISIS(){
femI = "IS/IS";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//choc locus male & female
function malechocchoc(){
maleChoc = "choc/choc";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function malechocChoc(){
maleChoc = "choc/Choc+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femalechocchoc(){
femChoc = "choc"
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// --------  Eumelanin Extenders  ---------
//Ml locus male & female
function maleMlMl(){
maleMl = "Ml/Ml";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleMlml(){
maleMl = "Ml/ml+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleMlMl(){
femMl = "Ml/Ml";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleMlml(){
femMl = "Ml/ml+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//charcoal locus male & female
function malechacha(){
maleCha = "cha/cha";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function malechaCha(){
maleCha = "cha/Cha+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femalechacha(){
femCha = "cha/cha";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femalechaCha(){
femCha = "cha/Cha+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// --------  Eumelanin Restrictors /Columbian Restrictors  ---------
//columbian locus male & female
function maleCoCo(){
maleCo = "Co/Co";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleCoco(){
maleCo = "Co/co+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleCoCo(){
femCo = "Co/Co";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleCoco(){
femCo = "Co/co+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//dark brown locus male & female
function maleDbDb(){
maleDb = "Db/Db";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleDbdb(){
maleDb = "Db/db+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleDbDb(){
femDb = "Db/Db";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleDbdb(){
femDb = "Db/db+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// --------- Pheomelanin Diluters (Gold Diluters)  ----------
//gold dilute locus male & female
function maleDiDi(){
maleDi = "Di/Di";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleDidi(){
maleDi = "Di/di+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleDiDi(){
femDi = "Di/Di";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}

function femaleDidi(){
femDi = "Di/di+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}

//cream locus male & female
function maleigig(){
maleIg = "ig/ig";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}

function maleigIg(){
maleIg = "ig/Ig+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleigig(){
femIg = "ig/ig";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleigIg(){
femIg = "ig/Ig+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}

//champange blond locus male & female
function maleCbCb(){
maleCb = "Cb/Cb";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleCbcb(){
maleCb = "Cb/cb+"
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleCbCb(){
femCb = "Cb/Cb";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleCbcb(){
femCb = "Cb/cb+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//silver locus male & female
function maleSS(){
maleS = "S/S";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleSs(){
maleS = "S/s+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleSS(){
femS = "S";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// --------- Pheomelanin intensifiers (Red Enhancers)  ----------
//mahogany locus male & female
function maleMhMh(){
maleMh = "Mh/Mh";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleMhmh(){
maleMh = "Mh/mh+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleMhMh(){
femMh = "Mh/Mh";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleMhmh(){
femMh = "Mh/mh+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
// --------- Secondary Pattern Genes  ----------
//pattern locus male & female
function malePgPg(){
malePg = "Pg/Pg";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function malePgpg(){
malePg = "Pg/pg+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femalePgPg(){
femPg = "Pg/Pg";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femalePgpg(){
femPg = "Pg/pg+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//barring locus male & female
function maleBB(){
maleB = "B/B";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleBb(){
maleB = "B/b+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleBSdBSd(){
maleB = "BSd/BSd";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleBSdb(){
maleB = "BSd/b+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleBSdB(){
maleB = "BSd/B";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleBB(){
femB = "B";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleBSd(){
femB = "BSd";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//erminette locus male & female
function maleErrErr(){
maleEr = "Er/Er";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleErerr(){
maleEr = "Er/er+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleErrErr(){
femEr = "Er/Er";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleErerr(){
femEr = "Er/er+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//mo locus male & female
function malemomo(){
maleMo = "mo/mo"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_blk_mot_roo.jpg')";
} 
function maleMomo(){
maleMo = "Mo+/mo"
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_black_roo.jpg')";
}
function femalemomo(){
femMo = "mo/mo"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_blk_mot_hen.jpg')";
} 
function femaleMomo(){
femMo = "Mo+/mo"
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
}
// -------- Skin/Leg Colour genes ----------
//Fm locus male & female
function maleFmFm(){
maleFm = "Fm/Fm";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleFmfm(){
maleFm = "Fm/fm+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleFmFm(){
femFm = "Fm/Fm";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femaleFmfm(){
femFm = "Fm/fm+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//Id locus male & female
function maleIddIdd(){
maleId = "Id/Id";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleIdidd(){
maleId = "Id/id+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleIddIdd(){
femId = "Id";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//yellow skin locus male & female
function maleww(){
maleW = "w/w";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function malewW(){
maleW = "w/W+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleww(){
femW = "w/w";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
function femalewW(){
femW = "w/W+";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
}
//sex-linked yellow skin
function maleyy(){
maleY = "y/y";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function maleyY(){
maleY = "y/Y+";
//document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
function femaleyy(){
femY = "y";
//document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
} 
/* ---------------------END variables & swap images to checked radio buttons --------------- */
/* ---------------------SWAP images to checked radio buttons	--------------------- */
function bgSwapFemaleEE () {
 if (document.getElementById('femaleEE').checked) {
     document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_black_hen.jpg')";
    if (document.getElementById('femalemomo').checked) { 
		document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_blk_mot_hen.jpg')";
							if (document.getElementById('femalecc').checked) { 
                            document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_white_hen.jpg')";
                                if (document.getElementById('femalelavlav').checked) { 
				                document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_lav_mot_hen.jpg')";
								
									if (document.getElementById('femaleBlBl').checked) { 
				               		 document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_white_hen.jpg')";
									}
								}
	}
                           }       	
 } 
}
/* ------------------- END swap images to checked radio buttons	------------------- */
/* --------- OUTPUT results.htm window with genotypes - when click "calculate" button ----------- */
// check if results.htm is open & close window if open
function submitFunc(){ 
if (win != null){ 
  win.close();
}
//size of results.htm
win = window.open("results.htm", null); //, "width=600, height=750, top=45, left=50, scrollbar=yes"
//win.document.write("<head><link href="../css/calc.css" rel="stylesheet" type="text/css" /></head>"); //attach CSS
win.document.write("<body bgcolor='#AA8899'>"); // background colour of results.htm
//heading 
win.document.write("<h2>" + "---Parent Genotypes Selected---" + "</h2>"); 
//parent genotypes
win.document.write("Parent Male Genotype is: " + "<p style='color: #660000;'>" + maleE + " " + maleC + " " + maleLav + " " + maleBl + " " + maleI + " " + maleChoc + " " + maleMl + " " + maleCha + " " + maleCo + " " + maleDb + " " + maleDi + " " + maleIg + " " + maleCb + " " + maleS + " " + maleMh + " " + malePg + " " + maleB + " " + maleEr + " " + maleMo + " " + maleFm + " " + maleId + " " + maleW + " " + maleY + "</p>");
win.document.write("<br />" + "Parent Female Genotype is: " + "<p style='color: #660000;'>" + femE + " " + femC + " " + femLav + " " + femBl + " " + femI + " " + femChoc + " " + femMl + " " + femCha + " " + femCo + " " + femDb + " " + femDi + " " + femIg + " " + femCb + " " + femS + " " + femMh + " " + femPg + " " + femB + " " + femEr + " " + femMo + " " + femFm + " " + femId + " " + femW + " " + femY + "</p>");
// this section calculate offspring probabilities, & output genotypes
//heading
win.document.write("<br />" + "<h2>" + "---Offspring Probabilities---" + "</h2>"); 
/* ----------------- START calculations and output of offspring genotypes --------------- */
// --------- calculate E locus probabilities ---------
//heading
win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); //+ "<div class='mainTxt'>" + "</div>"
//calculate male E/E X female E locus alleles
if (maleE == "E/E"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "100% E/E (Extended Black)");
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black)");	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)"); 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "100% E/E" + "<sup>R</sup>" + " (Extended Black)"); 
   }else if (femE == "ER/e+"){
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");   
   }else if (femE == "ER/eWh"){
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");
   }else if (femE == "ER/eb"){
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "100% E/e" + "<sup>Wh</sup>" + " (Extended Black)");  
   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else if (femE == "eWh/eb"){
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "100% E/e" + "<sup>b</sup>" + " (Extended Black)"); 
   }else if (femE == "eb/e+"){
   win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else {
	 win.document.write("<br />" + "100% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }
}	 
//calculate male E/e+ X female E locus alleles
if (maleE == "E/e+"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + " (Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");  	 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)" );  
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wildtype)" );      
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");  	
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wildtype)" );
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)" );	 
   }else {
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + "(Wild Type)");
   }
}	
//calculate male E/ER X female E locus alleles
if (maleE == "E/ER"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)");  	 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );  
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)" );      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)" );      
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");  	
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)" );
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );	 
   }else {
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% E" + "<sup>R</sup>/" + "e" + "<sup>+</sup>" + "(Birchen)");
   }
}	
//calculate male E/eWh X female E locus alleles
if (maleE == "E/eWh"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");  		 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );  	 
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)" );  	 
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );	 
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  	 
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );	 
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );	 
   }else {
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>Wh</sup>/" + "e" + "<sup>+</sup>" + "(Wheaten)");
   }
}	
//calculate male E/eb X female E locus alleles
if (maleE == "E/eb"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 		 
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");		 
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");	 	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");  			 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" ); 	 
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );  	 	 
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)" );		 
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );	 
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)" );	 	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)"); 		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );		 
   }else {
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>/" + "e" + "<sup>b</sup>" + "(Wild Type)");
   }
}	
//calculate male ER/ER X female E locus alleles
if (maleE == "ER/ER"){
   if (femE == "E/e+"){
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup> " + "(Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "100% E/E" + "<sup>R</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)")	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)")	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)"); 	    }else if (femE == "ER/e+"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");   
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");   
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");  
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");   
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");    	 	 
   }else {
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>/" + "e" + "<sup>+</sup>" + "(Birchen)");
   }
}
//calculate male ER/e+ X female E locus alleles
if (maleE == "ER/e+"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)")	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)")	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");  	
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)")   	
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   }else {
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male ER/eWh X female E locus alleles
if (maleE == "ER/eWh"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)")	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){      	 
	 win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  	 
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)"); 		 
   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");     
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");  		
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");     	 
   }else {
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");
   }
}
//calculate male ER/eb X female E locus alleles
if (maleE == "ER/eb"){
   if (femE == "E/e+"){
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>b</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){ 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");  	
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");   	
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");  	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");     		
   }else {
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");
   }
}
//calculate male eWh/eWh X female E locus alleles
if (maleE == "eWh/eWh"){
   if (femE == "E/e+"){
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten)");
   }else if (femE == "E/E"){ 
	 win.document.write("<br />" + "100% E/e" + "<sup>Wh</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% ER/e" + "<sup>Wh</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");   
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");  
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");    	 	 
   }else {
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>/" + "e" + "<sup>+</sup>" + "(Wheaten)");
   }
}
//calculate male eWh/e+ X female E locus alleles
if (maleE == "eWh/e+"){
   if (femE == "E/e+"){ 
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	    }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   }else {
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male eWh/eb X female E locus alleles
if (maleE == "eWh/eb"){
   if (femE == "E/e+"){ 
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E/e" + "<sup>b</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   }else {
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");
   }
}
//calculate male eb/eb X female E locus alleles
if (maleE == "eb/eb"){
   if (femE == "E/e+"){
   win.document.write("<br />" + "50% E/e" + "<sup>b</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup> " + "(Wild Type)");
   }else if (femE == "E/E"){ 
	 win.document.write("<br />" + "100% E/e" + "<sup>b</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");   
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");    }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");   
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "100% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)"); 	 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "50% e" + "<sup>b</sup>" + "/e" + "<sup>+b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");    	 	 
   }else {
	 win.document.write("<br />" + "100% e" + "<sup>+</sup>/" + "e" + "<sup>b</sup>" + "(Wild Type)");
   }
}	
//calculate male eb/e+ X female E locus alleles
if (maleE == "eb/e+"){
   if (femE == "E/e+"){ 
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup> " + "(Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup> " + "(Wild Type), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	    }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else {
	 win.document.write("<br />" + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male e+/e+ X female E locus alleles
if (maleE == "e+/e+"){
   if (femE == "E/e+"){
   win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup> " + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />" + "100% E/e" + "<sup>+</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");    }else if (femE == "eWh/e+"){
   win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eb/eb"){
	 win.document.write("<br />" + "100% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 	 
   }else if (femE == "eb/e+"){
     win.document.write("<br />" + "50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");    	 	 
   }else {
	 win.document.write("<br />" + "100% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + "(Wild Type)");
   }
}	
// --------- calculate Eumelanin Diluters probabilities ---------
// ---- calculate c locus probabilities ----
//heading
win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
//calculate male c/c X female c locus alleles
if (maleC == "c/c"){
   if (femC == "C+/c"){
   win.document.write("<br />" + "50% c/c (Recessive White), 50% C" + "<sup>+</sup>/" + "c (non-white)");
   }else if (femC == "c/c"){
	 win.document.write("<br />" + "100% c/c (Recessive White)");
	 }else {
	 win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "c (non-white)");
	 }
}	 
//calculate male C+/c X female c locus alleles
if (maleC == "C+/c"){
   if (femC == "C+/c"){
   win.document.write("<br />" + "25% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup> " + "(non-white), " + "50% C" + "<sup>+</sup>/" + "c (non-white), " + "25% c/c (Recessive White)");
   }else if (femC == "c/c"){
	 win.document.write("<br />" + "50% c/c (Recessive White), 50% C" + "<sup>+</sup>/" + "c (non-white)");
	 }else {
	 win.document.write("<br />" + "50% C" + "<sup>+</sup>/"+ "c (non-white), " + "50% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
	 }
}	 
//calculate male C+/C+ X female c locus alleles
if (maleC == "C+/C+"){
   if (femC == "C+/c"){
   win.document.write("<br />" + "50% C" + "<sup>+</sup>/" + "c (non-white), " + "50% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
   }else if (femC == "c/c"){
	 win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "c (non-white)");
	 }else {
	 win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
	 }
}	
/* this section calculate lav locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
 
//calculate male lav/lav X female lav locus alleles
if (maleLav == "lav/lav"){
   if (femLav == "Lav+/lav"){
   win.document.write("<br />" + "50% lav/lav (Lavender), 50% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else if (femLav == "lav/lav"){
	 win.document.write("<br />" + "100% lav/lav (Lavender)");
	 }else {
	 win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
	 }
}	 
//calculate male Lav+/lav X female lav locus alleles
if (maleLav == "Lav+/lav"){
   if (femLav == "Lav+/lav"){
     win.document.write("<br />" + "25% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup> " + "(non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "lav (non-lavender), " + "25% lav/lav (Lavender)");
   }else if (femLav == "lav/lav"){
	 win.document.write("<br />" + "50% lav/lav (Lavender), 50% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else {
	 win.document.write("<br />" + "50% Lav" + "<sup>+</sup>/"+ "lav (non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }
}	 
//calculate male Lav+/Lav+ X female lav locus alleles
if (maleLav == "Lav+/Lav+"){
   if (femLav == "Lav+/lav"){
     win.document.write("<br />" + "50% Lav" + "<sup>+</sup>/" + "lav (non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }else if (femLav == "lav/lav"){
	 win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else {
	 win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }
}	
/* this section calculate Bl locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: "); 
//calculate male Bl/Bl X female Bl locus alleles
if (maleBl == "Bl/Bl"){
   if (femBl == "Bl/bl+"){
     win.document.write("<br />" + "50% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else if (femBl == "Bl/Bl"){
	 win.document.write("<br />" + "100% Bl/Bl (Splash)");
   }else {
	 win.document.write("<br />" + "100% Bl/bl" + "<sup>+</sup>" + " (Blue)");
	 }
}	 
//calculate male Bl/bl+ X female Bl locus alleles
if (maleBl == "Bl/bl+"){
   if (femBl == "Bl/bl+"){
     win.document.write("<br />" + "25% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup> " + "(Blue), " + "25% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }else if (femBl == "Bl/Bl"){
	 win.document.write("<br />" + "50% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else {
	 win.document.write("<br />" + "50% Bl/bl" + "<sup>+</sup> " + " (Blue), " + "50% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }
}	 
//calculate male bl+/bl+ X female Bl locus alleles
if (maleBl == "bl+/bl+"){
   if (femBl == "Bl/bl+"){
     win.document.write("<br />" + "50% Bl/bl" + "<sup>+</sup> " + "(Blue), " + "50% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }else if (femBl == "Bl/Bl"){
	 win.document.write("<br />" + "100% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else {
	 win.document.write("<br />" + "100% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }
}	
/* this section calculate I locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: "); //heading

//calculate male I/I X female I locus alleles
if (maleI == "I/I"){
   if (femI == "I/i+"){
     win.document.write("<br />" + "50% I/I (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "100% I/I (Dominant White)");
   }else if (femI == "I/ID"){
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "100% I/I" + "<sup>D</sup>" + "(Dominant White)"); 
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "100% I/I" + "<sup>S</sup>" + "(Dominant White)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else {
	 win.document.write("<br />" + "100% I/i" + "<sup>+</sup>" + " (Dominant White)");
	 }
}
//calculate male I/i+ X female I locus alleles
if (maleI == "I/i+"){
   if (femI == "I/i+"){
     win.document.write("<br />" + "25% I/I (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I/I" + "<sup>D</sup>" + " (Dominant White)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else {
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}



// NEW NEW NEW NEW NEW NEW NEW 
//calculate male I/ID X female I locus alleles
if (maleI == "I/ID"){
   if (femI == "I/i+"){
     win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I/I" + "<sup>D</sup>" + "  (Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I (Dominant White), 50% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "25% I/I (Dominant White), 25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else {
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
	 }
}

//calculate male I/IS X female I locus alleles
if (maleI == "I/IS"){
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I/I" + "<sup>S</sup>" + "  (Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I (Dominant White), 25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I/I" + "<sup>S</sup>" + "  (Dominant White)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "25% I/I (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else {
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male ID/ID X female I locus alleles
if (maleI == "ID/ID"){
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "100% I/I" + "<sup>D</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else {
	 win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/i" + "<sup>S</sup>" + "(Dun)");
	 }
}
//calculate male ID/i+ X female I locus alleles
if (maleI == "ID/i+"){ 
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash),  25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	 win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}
//calculate male ID/IS X female I locus alleles
if (maleI == "ID/IS"){ 
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash),  25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else {
	 win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male IS/IS X female I locus alleles
if (maleI == "IS/IS"){ 
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "100% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White),  50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else {
	 win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male IS/i+ X female I locus alleles
if (maleI == "IS/i+"){ 
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky),  25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky), I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	 win.document.write("<br />" + "50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male i+/i+ X female I locus alleles
if (maleI == "i+/i+"){ 
   if (femI == "I/i+"){ 
     win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	 win.document.write("<br />" + "100% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "I/IS"){
	    win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White),  50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	 win.document.write("<br />" + "100% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}



/* this section calculate choc locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");  //heading
//calculate male choc/choc X female choc locus alleles
if (maleChoc == "choc/choc"){
   	if (femChoc == "Choc+"){
   		win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 50% choc (Chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "50% choc/choc (Chocolate) males, 50% choc (Chocolate) females");
	}
}	
//calculate male choc/Choc+ X female choc locus alleles
if (maleChoc == "choc/Choc+"){
   	if (femChoc == "Choc+"){
   		win.document.write("<br />" + "25% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 25% Choc" + "<sup>+</sup>" + "/Choc" + "<sup>+</sup>" + " (non-chocolate) males, 25% choc (Chocolate) females, 25% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "25% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 25% choc/choc (Chocolate) males, 25% choc (Chocolate) females, 25% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
	}
}
//calculate male Choc+/Choc+ X female choc locus alleles
if (maleChoc == "Choc+/Choc+"){
   	if (femChoc == "Choc+"){
   		win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/Choc" + "<sup>+</sup>" + " (non-chocolate) males, 50% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 50% Choc" + "<sup>+</sup>" + "(non-chocolate) females");
	}
}

// --------- calculate Eumelanin Extender genes probabilities ---------

/* this section calculate Melanotic - Ml locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: "); //heading
//calculate male Ml/Ml X female Ml locus alleles
if (maleMl == "Ml/Ml"){
   if (femMl == "Ml/ml+"){
   win.document.write("</br>" + "50% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + "(Melanotic)");
   }else if (femMl == "Ml/Ml"){
	 win.document.write("</br>" + "100% Ml/Ml (Melanotic)");
	 }else {
	 win.document.write("</br>" + "100% Ml/ml" + "<sup>+</sup>" + " (Melanotic)");
	 }
}	 
//calculate male Ml/ml+ X female Ml locus alleles
if (maleMl == "Ml/ml+"){
   if (femMl == "Ml/ml+"){
   win.document.write("</br>" + "25% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + " (Melanotic), " + "25% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + " (non-melanotic)");
   }else if (femMl == "Ml/Ml"){
	 win.document.write("</br>" + "50% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + " (Melanotic)");
	 }else {
	 win.document.write("</br>" + "50% Ml/ml" + "<sup>+</sup> " + "(Melanotic), " + "50% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + "(non-melanotic)");
	 }
}	 
//calculate male ml+/ml+ X female Ml locus alleles
if (maleMl == "ml+/ml+"){
   if (femMl == "Ml/ml+"){
   win.document.write("</br>" + "50% Ml/ml" + "<sup>+</sup> " + "(Melanotic), " + "50% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup> " + "(non-melanotic)");
   }else if (femMl == "Ml/Ml"){
	 win.document.write("</br>" + "100% Ml/ml" + "<sup>+</sup> " + "(Melanotic)");
	 }else {
	 win.document.write("</br>" + "100% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + "(non-melanotic)");
	 }
}

/* this section calculate Charcoal - cha locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: "); //heading
//calculate male cha/cha X female cha locus alleles
if (maleCha == "cha/cha"){
   if (femCha == "cha/Cha+"){
   win.document.write("<br />" + "50% cha/cha (Charcoal), 50% Cha" + "<sup>+</sup>/" + "cha" + " (non-charcoal)");
   }else if (femCha == "cha/cha"){
	 win.document.write("<br />" + "100% cha/cha (Charcoal)");
	 }else {
	 win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "cha" + " (non-charcoal-test2)");
	 }
}	 
//calculate male Cha+/cha X female cha locus alleles
if (maleCha == "cha/Cha+"){
   if (femCha == "cha/Cha+"){
   win.document.write("<br />" + "25% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup> " + "(non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "cha " + "(non-charcoal), " + "25% cha/cha (Charcoal)");
   }else if (femCha == "cha/cha"){
	 win.document.write("<br />" + "50% cha/cha (Charcoal), 50% Cha" + "<sup>+</sup>/" + "cha " + "(non-charcoal)");
	 }else {
	 win.document.write("<br />" + "50% Cha" + "<sup>+</sup>/"+ "cha (non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup>" + "(non-charcoal)");
	 }
}	 
//calculate male Cha+/Cha+ X female cha locus alleles
if (maleCha == "Cha+/Cha+"){
   if (femCha == "cha/Cha+"){
   win.document.write("<br />" + "50% Cha" + "<sup>+</sup>/" + "cha (non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup> " + "(non-charcoal)");
   }else if (femCha == "cha/cha"){
	 win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "cha (non-charcoal)");
	 }else {
	 win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup>" + "(non-charcoal)");
	 }
}	
// --------- calculate Eumelanin Restrictors (Columbian) genes probabilities ---------
/* this section calculate Columbian - Co locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); //heading
//calculate male Co/Co X female Co locus alleles
if (maleCo == "Co/Co"){
   if (femCo == "Co/co+"){
   win.document.write("</br>" + "50% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + "(Columbian)");
   }else if (femCo == "Co/Co"){
	 win.document.write("</br>" + "100% Co/Co (Columbian)");
	 }else {
	 win.document.write("</br>" + "100% Co/co" + "<sup>+</sup>" + " (Columbian)");
	 }
}	 
//calculate male Co/co+ X female Co locus alleles
if (maleCo == "Co/co+"){
   if (femCo == "Co/co+"){
   win.document.write("</br>" + "25% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + " (Columbian), " + "25% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + " (non-melanotic)");
   }else if (femCo == "Co/Co"){
	 win.document.write("</br>" + "50% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + " (Columbian)");
	 }else {
	 win.document.write("</br>" + "50% Co/co" + "<sup>+</sup> " + "(Columbian), " + "50% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + "(non-Columbian)");
	 }
}	 
//calculate male co+/co+ X female Co locus alleles
if (maleCo == "co+/co+"){
   if (femCo == "Co/co+"){
   win.document.write("</br>" + "50% Co/co" + "<sup>+</sup> " + "(Columbian), " + "50% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup> " + "(non-Columbian)");
   }else if (femCo == "Co/Co"){
	 win.document.write("</br>" + "100% Co/co" + "<sup>+</sup> " + "(Columbian)");
	 }else {
	 win.document.write("</br>" + "100% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + "(non-Columbian)");
	 }
}
/* this section calculate Dark Brown - Db locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: "); //heading
//calculate male Db/Db X female Db locus alleles
if (maleDb == "Db/Db"){
   if (femDb == "Db/db+"){
   win.document.write("</br>" + "50% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + "(Dark Brown)");
   }else if (femDb == "Db/Db"){
	 win.document.write("</br>" + "100% Db/Db (Dark Brown)");
	 }else {
	 win.document.write("</br>" + "100% Db/db" + "<sup>+</sup>" + " (Dark Brown)");
	 }
}	 
//calculate male Db/db+ X female Db locus alleles
if (maleDb == "Db/db+"){
   if (femDb == "Db/db+"){
   win.document.write("</br>" + "25% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + " (Dark Brown), " + "25% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + " (non-Dark Brown)");
   }else if (femDb == "Db/Db"){
	 win.document.write("</br>" + "50% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + " (Dark Brown)");
	 }else {
	 win.document.write("</br>" + "50% Db/db" + "<sup>+</sup> " + "(Dark Brown), " + "50% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + "(non-Dark Brown)");
	 }
}	 
//calculate male db+/db+ X female Db locus alleles
if (maleDb == "db+/db+"){
   if (femDb == "Db/db+"){
   win.document.write("</br>" + "50% Db/db" + "<sup>+</sup> " + "(Dark Brown), " + "50% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup> " + "(non-Dark Brown)");
   }else if (femDb == "Db/Db"){
	 win.document.write("</br>" + "100% Db/db" + "<sup>+</sup> " + "(Dark Brown)");
	 }else {
	 win.document.write("</br>" + "100% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + "(non-Dark Brown)");
	 }
}

// --------- calculate Pheomelanin Diluters (Gold Diluters) genes probabilities ---------

/* this section calculate Gold Dilute - Di locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); //heading
//calculate male Di/Di X female Di locus alleles
if (maleDi == "Di/Di"){
   if (femDi == "Di/di+"){
   win.document.write("</br>" + "50% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + "(Gold Dilute)");
   }else if (femDi == "Di/Di"){
	 win.document.write("</br>" + "100% Di/Di (Gold Dilute)");
	 }else {
	 win.document.write("</br>" + "100% Di/di" + "<sup>+</sup>" + " (Gold Dilute)");
	 }
}	 
//calculate male Di/di+ X female Di locus alleles
if (maleDi == "Di/di+"){
   if (femDi == "Di/di+"){
   win.document.write("</br>" + "25% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + " (Gold Dilute), " + "25% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + " (non-Gold Dilute)");
   }else if (femDi == "Di/Di"){
	 win.document.write("</br>" + "50% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + " (Gold Dilute)");
	 }else {
	 win.document.write("</br>" + "50% Di/di" + "<sup>+</sup> " + "(Dark Brown), " + "50% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + "(non-Gold Dilute)");
	 }
}	 
//calculate male di+/di+ X female Di locus alleles
if (maleDi == "di+/di+"){
   if (femDi == "Di/di+"){
   win.document.write("</br>" + "50% Di/di" + "<sup>+</sup> " + "(Gold Dilute), " + "50% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup> " + "(non-Gold Dilute)");
   }else if (femDi == "Di/Di"){
	 win.document.write("</br>" + "100% Di/di" + "<sup>+</sup> " + "(Gold Dilute)");
	 }else {
	 win.document.write("</br>" + "100% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + "(non-Gold Dilute)");
	 }
}
/* this section calculate Inhibitor of Gold (Cream) - ig locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); //heading
//calculate male ig/ig X female ig locus alleles
if (maleIg == "ig/ig"){
   if (femIg == "ig/Ig+"){
   win.document.write("<br />" + "50% ig/ig (Cream), 50% Ig" + "<sup>+</sup>/" + "ig" + " (non-Cream)");
   }else if (femIg == "ig/ig"){
	 win.document.write("<br />" + "100% ig/ig (Cream)");
	 }else {
	 win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "ig" + " (non-Cream)");
	 }
}	 
//calculate male Ig+/ig X female ig locus alleles
if (maleIg == "ig/Ig+"){
   if (femIg == "ig/Ig+"){
   win.document.write("<br />" + "25% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup> " + "(non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "ig " + "(non-Cream), " + "25% ig/ig (Cream)");
   }else if (femIg == "ig/ig"){
	 win.document.write("<br />" + "50% ig/ig (Cream), 50% Ig" + "<sup>+</sup>/" + "ig " + "(non-Cream)");
	 }else {
	 win.document.write("<br />" + "50% Ig" + "<sup>+</sup>/"+ "ig (non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup>" + "(non-Cream)");
	 }
}	 
//calculate male Ig+/Ig+ X female ig locus alleles
if (maleIg == "Ig+/Ig+"){
   if (femIg == "ig/Ig+"){
   win.document.write("<br />" + "50% Ig" + "<sup>+</sup>/" + "ig (non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup> " + "(non-Cream)");
   }else if (femIg == "ig/ig"){
	 win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "ig (non-Cream)");
	 }else {
	 win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup>" + "(non-Cream)");
	 }
}	
/* this section calculate Champagne Blond - Cb locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: "); //heading
//calculate male Cb/Cb X female Cb locus alleles
if (maleCb == "Cb/Cb"){
   if (femCb == "Cb/cb+"){
   win.document.write("</br>" + "50% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + "(Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	 win.document.write("</br>" + "100% Cb/Cb (Champagne Blond)");
	 }else {
	 win.document.write("</br>" + "100% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond)");
	 }
}	 
//calculate male Cb/cb+ X female Cb locus alleles
if (maleCb == "Cb/cb+"){
   if (femCb == "Cb/cb+"){
   win.document.write("</br>" + "25% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond), " + "25% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + " (non-Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	 win.document.write("</br>" + "50% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond)");
	 }else {
	 win.document.write("</br>" + "50% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond), " + "50% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + "(non-Champagne Blond)");
	 }
}	 
//calculate male cb+/cb+ X female Cb locus alleles
if (maleCb == "cb+/cb+"){
   if (femCb == "Cb/cb+"){
   win.document.write("</br>" + "50% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond), " + "50% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup> " + "(non-Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	 win.document.write("</br>" + "100% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond)");
	 }else {
	 win.document.write("</br>" + "100% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + "(non-Champagne Blond)");
	 }
}
/* this section calculate sex-linked Silver/Gold locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");  //heading
//calculate male s+/s+ X female S locus alleles
if (maleS == "s+/s+"){
   	if (femS == "s+"){
   		win.document.write("<br />" + "50% s" + "<sup>+</sup>" + "/s" + "<sup>+</sup>" + " (Sex-linked Gold) males, 50% s" + "<sup>+</sup>" +  " (Sex-linked Gold) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "50% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 50% s" + "<sup>+</sup>" + "(Sex-linked Gold) females");
	}
}	
//calculate male S/s+ X female S locus alleles
if (maleS == "S/s+"){
   	if (femS == "s+"){
   		win.document.write("<br />" + "25% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 25% s" + "<sup>+</sup>" + "/s" + "<sup>+</sup>" + " (Sex-linked Gold) males, 25% S (Sex-linked Silver) females, 25% s" + "<sup>+</sup>" + " (Sex-linked Gold) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "25% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 25% S/S (Sex-linked Silver) males, 25% S (Sex-linked Silver) females, 25% s" + "<sup>+</sup>" + " (Sex-linked Gold) females");
	}
}
//calculate male S/S X female S locus alleles
if (maleS == "S/S"){
   	if (femS == "s+"){
   		win.document.write("<br />" + "50% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 50% S (Sex-linked Silver) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "50% S/S (Sex-linked Silver) males, 50% S (Sex-linked Silver) females");
	}
}

// --------- calculate Pheomelanin Enhancers (Gold Enhancers) genes probabilities ---------

/* this section calculate Mahogany - Mh locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: "); //heading
//calculate male Mh/Mh X female Mh locus alleles
if (maleMh == "Mh/Mh"){
   if (femMh == "Mh/mh+"){
   win.document.write("</br>" + "50% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + "(Mahogany)");
   }else if (femMh == "Mh/Mh"){
	 win.document.write("</br>" + "100% Mh/Mh (Mahogany)");
	 }else {
	 win.document.write("</br>" + "100% Mh/mh" + "<sup>+</sup>" + " (Mahogany)");
	 }
}	 
//calculate male Mh/mh+ X female Mh locus alleles
if (maleMh == "Mh/mh+"){
   if (femMh == "Mh/mh+"){
   win.document.write("</br>" + "25% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + " (Mahogany), " + "25% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + " (non-Mahogany)");
   }else if (femMh == "Mh/Mh"){
	 win.document.write("</br>" + "50% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + " (Mahogany)");
	 }else {
	 win.document.write("</br>" + "50% Mh/mh" + "<sup>+</sup> " + "(Mahogany), " + "50% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + "(non-Mahogany)");
	 }
}	 
//calculate male mh+/mh+ X female Mh locus alleles
if (maleMh == "mh+/mh+"){
   if (femMh == "Mh/mh+"){
   win.document.write("</br>" + "50% Mh/mh" + "<sup>+</sup> " + "(Mahogany), " + "50% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup> " + "(non-Mahogany)");
   }else if (femMh == "Mh/Mh"){
	 win.document.write("</br>" + "100% Mh/mh" + "<sup>+</sup> " + "(Mahogany)");
	 }else {
	 win.document.write("</br>" + "100% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + "(non-Mahogany)");
	 }
}
// --------- calculate Secondary Pattern genes probabilities ---------

/* this section Pattern Pg locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: "); //heading
//calculate male Pg/Pg X female Pg locus alleles
if (malePg == "Pg/Pg"){
   if (femPg == "Pg/pg+"){
   win.document.write("</br>" + "50% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + "(Pattern)");
   }else if (femPg == "Pg/Pg"){
	 win.document.write("</br>" + "100% Pg/Pg (Pattern)");
	 }else {
	 win.document.write("</br>" + "100% Pg/pg" + "<sup>+</sup>" + " (Pattern)");
	 }
}	 
//calculate male Pg/pg+ X female Pg locus alleles
if (malePg == "Pg/pg+"){
   if (femPg == "Pg/pg+"){
   win.document.write("</br>" + "25% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + " (Pattern), " + "25% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + " (non-Pattern)");
   }else if (femPg == "Pg/Pg"){
	 win.document.write("</br>" + "50% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + " (Pattern)");
	 }else {
	 win.document.write("</br>" + "50% Pg/pg" + "<sup>+</sup> " + "(Pattern), " + "50% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + "(non-Pattern)");
	 }
}	 
//calculate male pg+/pg+ X female Pg locus alleles
if (malePg == "pg+/pg+"){
   if (femPg == "Pg/pg+"){
   win.document.write("</br>" + "50% Pg/pg" + "<sup>+</sup> " + "(Pattern), " + "50% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup> " + "(non-Pattern)");
   }else if (femPg == "Pg/Pg"){
	 win.document.write("</br>" + "100% Pg/pg" + "<sup>+</sup> " + "(Pattern)");
	 }else {
	 win.document.write("</br>" + "100% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + "(non-Pattern)");
	 }
}
/* this section Sex-linked Barring - B locus probabilities */ // add BSd
win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: ");  //heading
//calculate male b+/b+ X female B locus alleles
if (maleB == "b+/b+"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "50% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non- barring) males, 50% b" + "<sup>+</sup>" +  " (non-barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "50% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 50% b" + "<sup>+</sup>" + "(non-barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + "  (Sex-linked Dilute) males, 50% b" + "<sup>+</sup>" +  " (non-barred) females");	  
	}
}	
//calculate male B/b+ X female B locus alleles
if (maleB == "B/b+"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non-barred) males, 25% B (Sex-linked Barred) females, 25% b" + "<sup>+</sup>" + " (non-barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% B/B (Sex-linked Barred - Light) males, 25% B (Sex-linked Barred) females, 25% b" + "<sup>+</sup>" + " (non-barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B (Sex-Linked Dilute), " + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" +  " (non-barred) females, 25% B (Sex-linked Barred) females");	  	
	}
}
//calculate male B/B X female B locus alleles
if (maleB == "B/B"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "50% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 50% B (Sex-linked Barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "50% B/B (Sex-linked Barred - Light) males, 50% B (Sex-linked Barred) females");
	}else if (femB == "BSd") {	
	win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males, 50% B (Sex-linked Barred) females");		
	}
}
//calculate male BSd/BSd X female B locus alleles 
if (maleB == "BSd/BSd"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "50% B/B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) males, 50% B" + "<sup>Sd</sup>" + "(Sex-linked Dilute) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "  (Sex-linked Dilute - White) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females");	  
	}
}
//calculate male BSd/b+ X female B locus alleles 
if (maleB == "BSd/b+"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non-barred) males, 25% b" + "<sup>+</sup>" + " (non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females" );
   	}else if (femB == "B"){
		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males,  25% b" + "<sup>+</sup>" + "(non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "(Sex-Linked Dilute- White) males, 25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" +  " (non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females");
	}
}
//calculate male BSd/B X female B locus alleles 
if (maleB == "BSd/B"){
   	if (femB == "b+"){
   		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred) males, 25% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females, 25% B (Sex-linked Barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males, 25% B/B (Sex-linked Barred - Light) males, 25% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females, 25% B (Sex-linked Barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "  (Sex-linked Dilute - White) males, 25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute - Light) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females , 25% B (Sex-linked Barred) females");  
	}
}

/* this section Erminette Er locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
//calculate male Er/Er X female Er locus alleles
if (maleEr == "Er/Er"){
   if (femEr == "Er/er+"){
     win.document.write("<br />" + "50% Er/Er (White), 50% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else if (femEr == "Er/Er"){
	 win.document.write("<br />" + "100% Er/Er (White)");
   }else {
	 win.document.write("<br />" + "100% Er/er" + "<sup>+</sup>" + " (Erminette)");
	 }
}	 
//calculate male Er/er+ X female Er locus alleles
if (maleEr == "Er/er+"){
   if (femEr == "Er/er+"){
     win.document.write("<br />" + "25% Er/Er (White), 50% Er/er" + "<sup>+</sup> " + "(Erminette), " + "25% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }else if (femEr == "Er/Er"){
	 win.document.write("<br />" + "50% Er/Er (White), 50% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else {
	 win.document.write("<br />" + "50% Er/er" + "<sup>+</sup> " + " (Erminette), " + "50% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }
}	 
//calculate male er+/er+ X female Er locus alleles
if (maleEr == "er+/er+"){
   if (femEr == "Er/er+"){
     win.document.write("<br />" + "50% Er/er" + "<sup>+</sup> " + "(Erminette), " + "50% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }else if (femEr == "Er/Er"){
	 win.document.write("<br />" + "100% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else {
	 win.document.write("<br />" + "100% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }
}

/* this section calculate Mottled mo locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: "); //heading
//calculate male mo/mo X female mo locus alleles
if (maleMo == "mo/mo"){
   if (femMo == "Mo+/mo"){
   win.document.write("<br />" + "50% mo/mo (Mottled), 50% Mo" + "<sup>+</sup>/" + "mo" + " (non-mottled)");
   }else if (femMo == "mo/mo"){
	 win.document.write("<br />" + "100% mo/mo (Mottled)");
	 }else {
	 win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "mo" + " (non-mottled)");
	 }
}	 
//calculate male Mo+/mo X female mo locus alleles
if (maleMo == "Mo+/mo"){
   if (femMo == "Mo+/mo"){
   win.document.write("<br />" + "25% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup> " + "(non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "mo " + "(non-mottled), " + "25% mo/mo (Mottled)");
   }else if (femMo == "mo/mo"){
	 win.document.write("<br />" + "50% mo/mo (Mottled), 50% Mo" + "<sup>+</sup>/" + "mo " + "(non-mottled)");
	 }else {
	 win.document.write("<br />" + "50% Mo" + "<sup>+</sup>/"+ "mo (non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup>" + "(non-mottled)");
	 }
}	 
//calculate male Mo+/Mo+ X female mo locus alleles
if (maleMo == "Mo+/Mo+"){
   if (femMo == "Mo+/mo"){
   win.document.write("<br />" + "50% Mo" + "<sup>+</sup>/" + "mo (non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup> " + "(non-mottled)");
   }else if (femMo == "mo/mo"){
	 win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "mo (non-mottled)");
	 }else {
	 win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup>" + "(non-mottled)");
	 }
}	

// --------- calculate Leg/Skin colour genes probabilities ---------

/* this section calculate Fibromelanosis - Fm locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); //heading
//calculate male Fm/Fm X female Fm locus alleles
if (maleFm == "Fm/Fm"){
   if (femFm == "Fm/fm+"){
   win.document.write("</br>" + "50% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + "(Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	 win.document.write("</br>" + "100% Fm/Fm(Fibromelanosis)");
	 }else {
	 win.document.write("</br>" + "100% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis)");
	 }
}	 
//calculate male Fm/fm+ X female Fm locus alleles
if (maleFm == "Fm/fm+"){
   if (femFm == "Fm/fm+"){
   win.document.write("</br>" + "25% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis), " + "25% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + " (non-Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	 win.document.write("</br>" + "50% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis)");
	 }else {
	 win.document.write("</br>" + "50% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis), " + "50% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + "(non-Fibromelanosis)");
	 }
}	 
//calculate male fm+/fm+ X female Fm locus alleles
if (maleFm == "fm+/fm+"){
   if (femFm == "Fm/fm+"){
   win.document.write("</br>" + "50% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis), " + "50% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup> " + "(non-Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	 win.document.write("</br>" + "100% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis)");
	 }else {
	 win.document.write("</br>" + "100% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + "(non-Fibromelanosis)");
	 }
}
/* this section calculate Inhibitor of Dermal - Id locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: ");  //heading
//calculate male id+/id+ X female Id locus alleles
if (maleId == "id+/id+"){
   	if (femId == "id+"){
   		win.document.write("<br />" + "50% id" + "<sup>+</sup>" + "/id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) males, 50% id" + "<sup>+</sup>" +  " (Sex-linked Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "50% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 50% id" + "<sup>+</sup>" + "(Sex-linked Dermal Pigment) females");
	}
}	
//calculate male Id/id+ X female Id locus alleles
if (maleId == "Id/id+"){
   	if (femId == "id+"){
   		win.document.write("<br />" + "25% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 25% id" + "<sup>+</sup>" + "/id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) males, 25% Id (Sex-linked Inhibitor of Dermal Pigment) females, 25% id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "25% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 25% Id/Id (Sex-linked Inhibitor of Dermal Pigment) males, 25% Id (Sex-linked Inhibitor of Dermal Pigment) females, 25% id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) females");
	}
}
//calculate male Id/Id X female Id locus alleles
if (maleId == "Id/Id"){
   	if (femId == "id+"){
   		win.document.write("<br />" + "50% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 50% Id (Sex-linked Inhibitor of Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "50% Id/Id (Sex-linked Inhibitor of Dermal Pigment) males, 50% Id (Sex-linked Inhibitor of Dermal Pigment) females");
	}
}


/* this section calculate Yellow Skin - w locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); //heading
//calculate male w/w X female w locus alleles
if (maleW == "w/w"){
   if (femW == "w/W+"){
   win.document.write("<br />" + "50% w/w (Yellow Skin), 50% W" + "<sup>+</sup>/" + "w" + " (White Skin)");
   }else if (femW == "w/w"){
	 win.document.write("<br />" + "100% w/w (Yellow Skin)");
	 }else {
	 win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "w" + " (White Skin)");
	 }
}	 
//calculate male W+/w X female w locus alleles
if (maleW == "w/W+"){
   if (femW == "w/W+"){
   win.document.write("<br />" + "25% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup> " + "(White Skin), " + "50% W" + "<sup>+</sup>/" + "w " + "(White Skin), " + "25% w/w (Yellow Skin)");
   }else if (femW == "w/w"){
	 win.document.write("<br />" + "50% w/w (Yellow Skin), 50% W" + "<sup>+</sup>/" + "w " + "(White Skin)");
	 }else {
	 win.document.write("<br />" + "50% W" + "<sup>+</sup>/"+ "w (White Skin), " + "50% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup>" + "(White Skin)");
	 }
}	 
//calculate male W+/W+ X female w locus alleles
if (maleW == "W+/W+"){
   if (femW == "w/W+"){
   win.document.write("<br />" + "50% W" + "<sup>+</sup>/" + "w (White Skin), " + "50% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup> " + "(White Skin)");
   }else if (femW == "w/w"){
	 win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "w (White Skin)");
	 }else {
	 win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup>" + "(White Skin)");
	 }
}	
/* this section calculate sex-linked Yellow - y locus probabilities */
win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: ");  //heading
//calculate male y/y X female y locus alleles
if (maleY == "y/y"){
   	if (femY == "Y+"){
   		win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/y (non-sex-linked yellow skin) males, 50% y (Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "50% y/y (Sex-linked Yellow Skin) males, 50% y (Sex-linked Yellow Skin) females");
	}
}	
//calculate male y/Y+ X female y locus alleles
if (maleY == "y/Y+"){
   	if (femY == "Y+"){
   		win.document.write("<br />" + "25% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 25% Y" + "<sup>+</sup>" + "/Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) males, 25% y (Sex-linked Yellow Skin) females, 25% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "25% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 25% y/y (Sex-linked Yellow Skin) males, 25% y (Sex-linked Yellow Skin) females, 25% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
	}
}
//calculate male Y+/Y+ X female y locus alleles
if (maleY == "Y+/Y+"){
   	if (femY == "Y+"){
   		win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) males, 50% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 50% Y" + "<sup>+</sup>" + "(non-Sex-linked Yellow Skin) females");
	}
}
/* ----------------- END calculations and output of offspring genotypes --------------- */
//new document.write additions will wipe previous document.write, starting again after "close"
win.document.write("<br />" + "<br />" + "<a href='javascript:self.close();'>Close</a>");
}
/* ------- END output of results.htm window with genotypes - "calculate" button -------- */
////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////
/* -------------------- START calucations for SELECTED loci only -------------- */
function submitFuncSelect(){ 
if (win != null){ 
  win.close();
}
//size of results.htm
win = window.open("results.htm", null); //, "width=600, height=750, top=45, left=50, scrollbar=yes"
//win.document.write("<head><link href="../css/calc.css" rel="stylesheet" type="text/css" /></head>"); //attach CSS
win.document.write("<body bgcolor='#AA8899'>"); // background colour of results.htm
//heading 
win.document.write("<h2>" + "---Parent Genotypes Selected---" + "</h2>"); 
//parent genotypes
win.document.write("Parent Male Genotype is: " + "<p style='color: #660000;'>" + maleE + " " + maleC + " " + maleLav + " " + maleBl + " " + maleI + " " + maleChoc + " " + maleMl + " " + maleCha + " " + maleCo + " " + maleDb + " " + maleDi + " " + maleIg + " " + maleCb + " " + maleS + " " + maleMh + " " + malePg + " " + maleB + " " + maleEr + " " + maleMo + " " + maleFm + " " + maleId + " " + maleW + " " + maleY + "</p>");
win.document.write("<br />" + "Parent Female Genotype is: " + "<p style='color: #660000;'>" + femE + " " + femC + " " + femLav + " " + femBl + " " + femI + " " + femChoc + " " + femMl + " " + femCha + " " + femCo + " " + femDb + " " + femDi + " " + femIg + " " + femCb + " " + femS + " " + femMh + " " + femPg + " " + femB + " " + femEr + " " + femMo + " " + femFm + " " + femId + " " + femW + " " + femY + "</p>");
// this section calculate offspring probabilities, & output genotypes
//heading
win.document.write("<br />" + "<h2>" + "---Offspring Probabilities---" + "</h2>"); 
/* ----------------- START calculations and output of offspring genotypes --------------- */
// --------- calculate E locus probabilities ---------
//heading
//calculate male E/E X female E locus alleles
if (maleE == "E/E"){
   if (femE == "E/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E/E (Extended Black)");
   }else if (femE == "E/ER"){
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black)");	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)"); 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E/E" + "<sup>R</sup>" + " (Extended Black)"); 
   }else if (femE == "ER/e+"){
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");   
   }else if (femE == "ER/eWh"){
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 	   
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");
   }else if (femE == "ER/eb"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");    
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E/e" + "<sup>Wh</sup>" + " (Extended Black)");  
   }else if (femE == "eWh/e+"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");    
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else if (femE == "eWh/eb"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");    
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");
   }else if (femE == "eb/eb"){
	  win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");  
	 win.document.write("<br />" + "100% E/e" + "<sup>b</sup>" + " (Extended Black)"); 
   }else if (femE == "eb/e+"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");    
   win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }else {
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E/e" + "<sup>+</sup>" + " (Extended Black)");
   }
}	 
//calculate male E/e+ X female E locus alleles
if (maleE == "E/e+"){
   if (femE == "E/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + " (Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");  	 
   }else if (femE == "ER/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)" );  
   }else if (femE == "ER/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );      
   }else if (femE == "ER/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wildtype)" );      
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");  	
   }else if (femE == "eWh/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wildtype)" );
   }else if (femE == "eWh/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );
   }else if (femE == "eb/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 
   }else if (femE == "eb/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)" );	 
   }else {
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + "(Wild Type)");
   }
}	
//calculate male E/ER X female E locus alleles
if (maleE == "E/ER"){
   if (femE == "E/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)");  	 
   }else if (femE == "ER/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );  
   }else if (femE == "ER/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)" );      
   }else if (femE == "ER/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)" );      
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");  	
   }else if (femE == "eWh/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );
   }else if (femE == "eWh/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)" );
   }else if (femE == "eb/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 
   }else if (femE == "eb/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)" );	 
   }else {
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% E" + "<sup>R</sup>/" + "e" + "<sup>+</sup>" + "(Birchen)");
   }
}	
//calculate male E/eWh X female E locus alleles
if (maleE == "E/eWh"){
   if (femE == "E/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 	 
   }else if (femE == "E/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");	 
   }else if (femE == "E/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");  		 
   }else if (femE == "ER/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );  	 
   }else if (femE == "ER/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)" );  	 
   }else if (femE == "ER/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );	 
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  	 
   }else if (femE == "eWh/e+"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );	 
   }else if (femE == "eWh/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eb/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)" );	 
   }else {
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>Wh</sup>/" + "e" + "<sup>+</sup>" + "(Wheaten)");
   }
}	
//calculate male E/eb X female E locus alleles
if (maleE == "E/eb"){
   if (femE == "E/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 		 
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black)");		 
   }else if (femE == "E/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E/" + "e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "E/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "25% E/E (Extended Black), 50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");	 	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");  			 
   }else if (femE == "ER/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" ); 	 
   }else if (femE == "ER/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)" );  	 	 
   }else if (femE == "ER/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)" );		 
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );	 
   }else if (femE == "eWh/eb"){
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), 25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)" );	 	 
   }else if (femE == "eb/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)"); 		 
   }else if (femE == "eb/e+"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), 25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)" );		 
   }else {
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>/" + "e" + "<sup>b</sup>" + "(Wild Type)");
   }
}	
//calculate male ER/ER X female E locus alleles
if (maleE == "ER/ER"){
   if (femE == "E/e+"){
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 	   
   win.document.write("<br />" + "50% E/E" + "<sup>R</sup> " + "(Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen)");
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E/E" + "<sup>R</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 	
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)")	  
   }else if (femE == "E/eb"){
	  win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");  
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)")	  	 
   }else if (femE == "ER/ER"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen)"); 	    }else if (femE == "ER/e+"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 	 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");   
   }else if (femE == "ER/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");      
   }else if (femE == "ER/eb"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");   
   }else if (femE == "eWh/eWh"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");   }else if (femE == "eWh/e+"){
	win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 	 
   win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");  
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");   
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	   }else if (femE == "eb/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");    	 	 
   }else {
	  win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");  
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>/" + "e" + "<sup>+</sup>" + "(Birchen)");
   }
}
//calculate male ER/e+ X female E locus alleles
if (maleE == "ER/e+"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	 win.document.write("<br />"  + "Offspring E locus allele probabilities are: ");   
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)")	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)")	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");  	
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)")   	
   }else if (femE == "eWh/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	 
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   }else {
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male ER/eWh X female E locus alleles
if (maleE == "ER/eWh"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)")	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){      	 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  	 
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   }else if (femE == "eWh/eWh"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)"); 		 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");     
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");  		
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");     	 
   }else {
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");
   }
}
//calculate male ER/eb X female E locus alleles
if (maleE == "ER/eb"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/E" + "<sup>R</sup> " + "(Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup> " + "(Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/E" + "<sup>R</sup>" + " (Extended Black), " + "50% E/e" + "<sup>b</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/E" + "<sup>R</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");  	
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/E" + "<sup>R</sup>" + " (Birchen), 50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");   	
   }else if (femE == "eWh/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");  	 
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");     		
   }else {
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");
   }
}
//calculate male eWh/eWh X female E locus alleles
if (maleE == "eWh/eWh"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten)");
   }else if (femE == "E/E"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E/e" + "<sup>Wh</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% ER/e" + "<sup>Wh</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");   
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   
   }else if (femE == "eWh/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten)");  }else if (femE == "eWh/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");  
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");   }else if (femE == "eb/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");    	 	 
   }else {
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>/" + "e" + "<sup>+</sup>" + "(Wheaten)");
   }
}
//calculate male eWh/e+ X female E locus alleles
if (maleE == "eWh/e+"){
   if (femE == "E/e+"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");   }else if (femE == "eWh/eWh"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");     
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	    }else if (femE == "eb/eb"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   }else {
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male eWh/eb X female E locus alleles
if (maleE == "eWh/eb"){
   if (femE == "E/e+"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup> " + "(Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup> " + "(Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "50% E/e" + "<sup>b</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>Wh</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>Wh</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + "(Brown)");   }else if (femE == "eWh/eWh"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>Wh</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   }else {
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");
   }
}
//calculate male eb/eb X female E locus alleles
if (maleE == "eb/eb"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "50% E/e" + "<sup>b</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup> " + "(Wild Type)");
   }else if (femE == "E/E"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E/e" + "<sup>b</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");   
   }else if (femE == "eWh/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten)");    }else if (femE == "eWh/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)");   
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown)"); 	 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>b</sup>" + "/e" + "<sup>+b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");    	 	 
   }else {
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>+</sup>/" + "e" + "<sup>b</sup>" + "(Wild Type)");
   }
}	
//calculate male eb/e+ X female E locus alleles
if (maleE == "eb/e+"){
   if (femE == "E/e+"){ 
   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E/e" + "<sup>b</sup> " + "(Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup> " + "(Wild Type), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + "(Wild Type)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>b</sup>" + " (Extended Black), " + "50% E/e" + "<sup>+</sup>" + " (Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + "(Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "25% E/e" + "<sup>b</sup>" + " (Extended Black), " + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% E/e" + "<sup>+</sup>" + " (Extended Black), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	 
   }else if (femE == "ER/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
      win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + "(Wheaten)");   }else if (femE == "ER/eb"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% E" + "<sup>R</sup>" + "/e" + "<sup>b</sup>" + " (Birchen), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + "(Wild Type)");   }else if (femE == "eWh/eWh"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)"); 	 
   }else if (femE == "eWh/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>b</sup>" + " (Wheaten), 25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), " + "25% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 25% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");  	    }else if (femE == "eb/eb"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");		 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "25% e" + "<sup>b</sup>" + "/e" + "<sup>b</sup>" + " (Brown), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), " + "25% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else {
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");
   }
}
//calculate male e+/e+ X female E locus alleles
if (maleE == "e+/e+"){
   if (femE == "E/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "50% E/e" + "<sup>+</sup> " + "(Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup> " + "(Wild Type)");
   }else if (femE == "E/E"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E/e" + "<sup>+</sup> " + "(Extended Black)");	 
	}else if (femE == "E/ER"){
		win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)");	  
   }else if (femE == "E/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");	  
   }else if (femE == "E/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% E/e" + "<sup>+</sup>" + " (Extended Black), " + "50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");	  	 
   }else if (femE == "ER/ER"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen)"); 	   }else if (femE == "ER/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");   
   }else if (femE == "ER/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");      
   }else if (femE == "ER/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% E" + "<sup>R</sup>" + "/e" + "<sup>+</sup>" + " (Birchen), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eWh/eWh"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten)");    }else if (femE == "eWh/e+"){
		 win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
   win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type)");  
   }else if (femE == "eWh/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>Wh</sup>" + "/e" + "<sup>+</sup>" + " (Wheaten), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");   
   }else if (femE == "eb/eb"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)"); 	 
   }else if (femE == "eb/e+"){
	   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
     win.document.write("<br />" + "50% e" + "<sup>+</sup>" + "/e" + "<sup>+</sup>" + " (Wild Type), 50% e" + "<sup>+</sup>" + "/e" + "<sup>b</sup>" + " (Wild Type)");    	 	 
   }else {
	//   win.document.write("<br />"  + "Offspring E locus allele probabilities are: "); 
	// win.document.write("<br />" + "100% e" + "<sup>+</sup>/" + "e" + "<sup>+</sup>" + "(Wild Type)");
   }
}	
// --------- calculate Eumelanin Diluters probabilities ---------
// ---- calculate c locus probabilities ----
//heading
//win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
//calculate male c/c X female c locus alleles
if (maleC == "c/c"){
   if (femC == "C+/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
   win.document.write("<br />" + "50% c/c (Recessive White), 50% C" + "<sup>+</sup>/" + "c (non-white)");
   }else if (femC == "c/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% c/c (Recessive White)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "c (non-white)");
	 }
}	 
//calculate male C+/c X female c locus alleles
if (maleC == "C+/c"){
   if (femC == "C+/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
   win.document.write("<br />" + "25% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup> " + "(non-white), " + "50% C" + "<sup>+</sup>/" + "c (non-white), " + "25% c/c (Recessive White)");
   }else if (femC == "c/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% c/c (Recessive White), 50% C" + "<sup>+</sup>/" + "c (non-white)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% C" + "<sup>+</sup>/"+ "c (non-white), " + "50% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
	 }
}	 
//calculate male C+/C+ X female c locus alleles
if (maleC == "C+/C+"){
   if (femC == "C+/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
   win.document.write("<br />" + "50% C" + "<sup>+</sup>/" + "c (non-white), " + "50% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
   }else if (femC == "c/c"){
	   win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "c (non-white)");
	 }else {
	//	 win.document.write("<br />" + "<br />" + "Offspring c  locus allele probabilities are: "); 
	// win.document.write("<br />" + "100% C" + "<sup>+</sup>/" + "C" + "<sup>+</sup>" + " (non-white)");
	 }
}	
/* this section calculate lav locus probabilities */

 
//calculate male lav/lav X female lav locus alleles
if (maleLav == "lav/lav"){
   if (femLav == "Lav+/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
   win.document.write("<br />" + "50% lav/lav (Lavender), 50% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else if (femLav == "lav/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 win.document.write("<br />" + "100% lav/lav (Lavender)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
	 }
}	 
//calculate male Lav+/lav X female lav locus alleles
if (maleLav == "Lav+/lav"){
   if (femLav == "Lav+/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
     win.document.write("<br />" + "25% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup> " + "(non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "lav (non-lavender), " + "25% lav/lav (Lavender)");
   }else if (femLav == "lav/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 win.document.write("<br />" + "50% lav/lav (Lavender), 50% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 win.document.write("<br />" + "50% Lav" + "<sup>+</sup>/"+ "lav (non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }
}	 
//calculate male Lav+/Lav+ X female lav locus alleles
if (maleLav == "Lav+/Lav+"){
   if (femLav == "Lav+/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
     win.document.write("<br />" + "50% Lav" + "<sup>+</sup>/" + "lav (non-lavender), " + "50% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }else if (femLav == "lav/lav"){
	   win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "lav (non-lavender)");
   }else {
	   //win.document.write("<br />" + "<br />" + "Offspring lav  locus allele probabilities are: ");
	 //win.document.write("<br />" + "100% Lav" + "<sup>+</sup>/" + "Lav" + "<sup>+</sup>" + " (non-lavender)");
   }
}	
/* this section calculate Bl locus probabilities */
 
//calculate male Bl/Bl X female Bl locus alleles
if (maleBl == "Bl/Bl"){
   if (femBl == "Bl/bl+"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
     win.document.write("<br />" + "50% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else if (femBl == "Bl/Bl"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Bl/Bl (Splash)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Bl/bl" + "<sup>+</sup>" + " (Blue)");
	 }
}	 
//calculate male Bl/bl+ X female Bl locus alleles
if (maleBl == "Bl/bl+"){
   if (femBl == "Bl/bl+"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
     win.document.write("<br />" + "25% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup> " + "(Blue), " + "25% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }else if (femBl == "Bl/Bl"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 win.document.write("<br />" + "50% Bl/Bl (Splash), 50% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 win.document.write("<br />" + "50% Bl/bl" + "<sup>+</sup> " + " (Blue), " + "50% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }
}	 
//calculate male bl+/bl+ X female Bl locus alleles
if (maleBl == "bl+/bl+"){
   if (femBl == "Bl/bl+"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
     win.document.write("<br />" + "50% Bl/bl" + "<sup>+</sup> " + "(Blue), " + "50% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }else if (femBl == "Bl/Bl"){
	   win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Bl/bl" + "<sup>+</sup>" + " (Blue)");
   }else {
	   //win.document.write("<br />" + "<br />" + "Offspring Bl locus allele probabilities are: ");
	 //win.document.write("<br />" + "100% bl" + "<sup>+</sup>/" + "bl" + "<sup>+</sup>" + " (non-blue)");
   }
}	
/* this section calculate I locus probabilities */
 //heading

//calculate male I/I X female I locus alleles
if (maleI == "I/I"){
   if (femI == "I/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "50% I/I (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I/I (Dominant White)");
   }else if (femI == "I/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I/I" + "<sup>D</sup>" + "(Dominant White)"); 
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I/I" + "<sup>S</sup>" + "(Dominant White)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I/i" + "<sup>+</sup>" + " (Dominant White)");
	 }
}
//calculate male I/i+ X female I locus alleles
if (maleI == "I/i+"){
   if (femI == "I/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I/I" + "<sup>D</sup>" + " (Dominant White)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}

//calculate male I/ID X female I locus alleles
if (maleI == "I/ID"){
   if (femI == "I/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I/I" + "<sup>D</sup>" + "  (Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I (Dominant White), 50% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)"); 
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I (Dominant White), 25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
	 }
}

//calculate male I/IS X female I locus alleles
if (maleI == "I/IS"){
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I/I" + "<sup>S</sup>" + "  (Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/I (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I (Dominant White), 25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I/I" + "<sup>S</sup>" + "  (Dominant White)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male ID/ID X female I locus alleles
if (maleI == "ID/ID"){
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I/I" + "<sup>D</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/i" + "<sup>S</sup>" + "(Dun)");
	 }
}
//calculate male ID/i+ X female I locus alleles
if (maleI == "ID/i+"){ 
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash),  25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}
//calculate male ID/IS X female I locus alleles
if (maleI == "ID/IS"){ 
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>D</sup>" + " (Dominant White), 50% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + " (Dun- Splash),  25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "25% I/I" + "<sup>D</sup>" + " (Dominant White), 25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>D</sup>" + "(Dun- Splash), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male IS/IS X female I locus alleles
if (maleI == "IS/IS"){ 
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I/I" + "<sup>S</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White),  50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male IS/i+ X female I locus alleles
if (maleI == "IS/i+"){ 
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/I" + "<sup>S</sup>" + " (Dominant White), 50% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + " (Dun),  25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + " (Dun)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "25% I/I" + "<sup>S</sup>" + " (Dominant White), 25% I/i" + "<sup>+</sup>" + " (Dominant White), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky),  25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>D</sup>" + "/I" + "<sup>S</sup>" + "(Dun), 25% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + " (Smoky), I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "25% I" + "<sup>S</sup>" + "/I" + "<sup>S</sup>" + "(Smoky), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 25% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
	 }
}
//calculate male i+/i+ X female I locus alleles
if (maleI == "i+/i+"){ 
   if (femI == "I/i+"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
     win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
   }else if (femI == "I/I"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "100% I/i" + "<sup>+</sup>" + " (Dominant White)"); 
   }else if (femI == "I/ID"){ 
   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	 win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White), 50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "I/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	    win.document.write("<br />" + "50% I/i" + "<sup>+</sup>" + " (Dominant White),  50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)");
   }else if (femI == "ID/ID"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun)");
   }else if (femI == "ID/i+"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)"); 
   }else if (femI == "ID/IS"){
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>D</sup>" + "/i" + "<sup>+</sup>" + "(Dun), 50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + " (non-Smoky adults, Smoky chick Down)"); 
   }else if (femI == "IS/IS") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "100% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down)");
   }else if (femI == "IS/i+") {
	   win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	   win.document.write("<br />" + "50% I" + "<sup>S</sup>" + "/i" + "<sup>+</sup>" + "(non-Smoky adults, Smoky chick Down), 50% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + " (non- Dominant White)");
   }else {
	 //  win.document.write("<br />" + "<br />" + "Offspring I locus allele probabilities are: ");
	// win.document.write("<br />" + "100% i" + "<sup>+</sup>" + "/i" + "<sup>+</sup>" + "(non- Dominant White)");
	 }
}
/* this section calculate choc locus probabilities */
  //heading
//calculate male choc/choc X female choc locus alleles
if (maleChoc == "choc/choc"){
   	if (femChoc == "Choc+"){
		win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
   		win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 50% choc (Chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
		win.document.write("<br />" + "50% choc/choc (Chocolate) males, 50% choc (Chocolate) females");
	}
}	
//calculate male choc/Choc+ X female choc locus alleles
if (maleChoc == "choc/Choc+"){
   	if (femChoc == "Choc+"){
		win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
   		win.document.write("<br />" + "25% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 25% Choc" + "<sup>+</sup>" + "/Choc" + "<sup>+</sup>" + " (non-chocolate) males, 25% choc (Chocolate) females, 25% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
		win.document.write("<br />" + "25% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 25% choc/choc (Chocolate) males, 25% choc (Chocolate) females, 25% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
	}
}
//calculate male Choc+/Choc+ X female choc locus alleles
if (maleChoc == "Choc+/Choc+"){
   	if (femChoc == "Choc+"){
		//win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
   		//win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/Choc" + "<sup>+</sup>" + " (non-chocolate) males, 50% Choc" + "<sup>+</sup>" + " (non-chocolate) females");
   	}else if (femChoc == "choc"){
		win.document.write("<br />" + "<br />" + "Offspring choc locus allele probabilities are: ");
		win.document.write("<br />" + "50% Choc" + "<sup>+</sup>" + "/choc (non-chocolate) males, 50% Choc" + "<sup>+</sup>" + "(non-chocolate) females");
	}
}

// --------- calculate Eumelanin Extender genes probabilities ---------

/* this section calculate Melanotic - Ml locus probabilities */
 //heading
//calculate male Ml/Ml X female Ml locus alleles
if (maleMl == "Ml/Ml"){
   if (femMl == "Ml/ml+"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
   win.document.write("</br>" + "50% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + "(Melanotic)");
   }else if (femMl == "Ml/Ml"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Ml/Ml (Melanotic)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Ml/ml" + "<sup>+</sup>" + " (Melanotic)");
	 }
}	 
//calculate male Ml/ml+ X female Ml locus alleles
if (maleMl == "Ml/ml+"){
   if (femMl == "Ml/ml+"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
   win.document.write("</br>" + "25% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + " (Melanotic), " + "25% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + " (non-melanotic)");
   }else if (femMl == "Ml/Ml"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Ml/Ml (Melanotic), 50% Ml/ml" + "<sup>+</sup>" + " (Melanotic)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Ml/ml" + "<sup>+</sup> " + "(Melanotic), " + "50% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + "(non-melanotic)");
	 }
}	 
//calculate male ml+/ml+ X female Ml locus alleles
if (maleMl == "ml+/ml+"){
   if (femMl == "Ml/ml+"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
   win.document.write("</br>" + "50% Ml/ml" + "<sup>+</sup> " + "(Melanotic), " + "50% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup> " + "(non-melanotic)");
   }else if (femMl == "Ml/Ml"){
	   win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Ml/ml" + "<sup>+</sup> " + "(Melanotic)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring Ml locus allele probabilities are: ");
	// win.document.write("</br>" + "100% ml" + "<sup>+</sup>/" + "ml" + "<sup>+</sup>" + "(non-melanotic)");
	 }
}

/* this section calculate Charcoal - cha locus probabilities */
 //heading
//calculate male cha/cha X female cha locus alleles
if (maleCha == "cha/cha"){
   if (femCha == "cha/Cha+"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
   win.document.write("<br />" + "50% cha/cha (Charcoal), 50% Cha" + "<sup>+</sup>/" + "cha" + " (non-charcoal)");
   }else if (femCha == "cha/cha"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	 win.document.write("<br />" + "100% cha/cha (Charcoal)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "cha" + " (non-charcoal)");
	 }
}	 
//calculate male Cha+/cha X female cha locus alleles
if (maleCha == "cha/Cha+"){
   if (femCha == "cha/Cha+"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
   win.document.write("<br />" + "25% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup> " + "(non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "cha " + "(non-charcoal), " + "25% cha/cha (Charcoal)");
   }else if (femCha == "cha/cha"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	 win.document.write("<br />" + "50% cha/cha (Charcoal), 50% Cha" + "<sup>+</sup>/" + "cha " + "(non-charcoal)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	 win.document.write("<br />" + "50% Cha" + "<sup>+</sup>/"+ "cha (non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup>" + "(non-charcoal)");
	 }
}	 
//calculate male Cha+/Cha+ X female cha locus alleles
if (maleCha == "Cha+/Cha+"){
   if (femCha == "cha/Cha+"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
   win.document.write("<br />" + "50% Cha" + "<sup>+</sup>/" + "cha (non-charcoal), " + "50% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup> " + "(non-charcoal)");
   }else if (femCha == "cha/cha"){
	   win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "cha (non-charcoal)");
	 }else {
	//	 win.document.write("<br />" + "<br />" + "Offspring cha locus allele probabilities are: ");
	// win.document.write("<br />" + "100% Cha" + "<sup>+</sup>/" + "Cha" + "<sup>+</sup>" + "(non-charcoal)");
	 }
}	
// --------- calculate Eumelanin Restrictors (Columbian) genes probabilities ---------
/* this section calculate Columbian - Co locus probabilities */
//heading
//calculate male Co/Co X female Co locus alleles
if (maleCo == "Co/Co"){
   if (femCo == "Co/co+"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + "(Columbian)");
   }else if (femCo == "Co/Co"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Co/Co (Columbian)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Co/co" + "<sup>+</sup>" + " (Columbian)");
	 }
}	 
//calculate male Co/co+ X female Co locus alleles
if (maleCo == "Co/co+"){
   if (femCo == "Co/co+"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
   win.document.write("</br>" + "25% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + " (Columbian), " + "25% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + " (non-melanotic)");
   }else if (femCo == "Co/Co"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Co/Co (Columbian), 50% Co/co" + "<sup>+</sup>" + " (Columbian)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Co/co" + "<sup>+</sup> " + "(Columbian), " + "50% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + "(non-Columbian)");
	 }
}	 
//calculate male co+/co+ X female Co locus alleles
if (maleCo == "co+/co+"){
   if (femCo == "Co/co+"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Co/co" + "<sup>+</sup> " + "(Columbian), " + "50% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup> " + "(non-Columbian)");
   }else if (femCo == "Co/Co"){
	   win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Co/co" + "<sup>+</sup> " + "(Columbian)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring Co locus allele probabilities are: "); 
	// win.document.write("</br>" + "100% co" + "<sup>+</sup>/" + "co" + "<sup>+</sup>" + "(non-Columbian)");
	 }
}
/* this section calculate Dark Brown - Db locus probabilities */
 //heading
//calculate male Db/Db X female Db locus alleles
if (maleDb == "Db/Db"){
   if (femDb == "Db/db+"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
   win.document.write("</br>" + "50% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + "(Dark Brown)");
   }else if (femDb == "Db/Db"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Db/Db (Dark Brown)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Db/db" + "<sup>+</sup>" + " (Dark Brown)");
	 }
}	 
//calculate male Db/db+ X female Db locus alleles
if (maleDb == "Db/db+"){
   if (femDb == "Db/db+"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
   win.document.write("</br>" + "25% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + " (Dark Brown), " + "25% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + " (non-Dark Brown)");
   }else if (femDb == "Db/Db"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Db/Db (Dark Brown), 50% Db/db" + "<sup>+</sup>" + " (Dark Brown)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Db/db" + "<sup>+</sup> " + "(Dark Brown), " + "50% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + "(non-Dark Brown)");
	 }
}	 
//calculate male db+/db+ X female Db locus alleles
if (maleDb == "db+/db+"){
   if (femDb == "Db/db+"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
   win.document.write("</br>" + "50% Db/db" + "<sup>+</sup> " + "(Dark Brown), " + "50% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup> " + "(non-Dark Brown)");
   }else if (femDb == "Db/Db"){
	   win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Db/db" + "<sup>+</sup> " + "(Dark Brown)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring Db locus allele probabilities are: ");
	// win.document.write("</br>" + "100% db" + "<sup>+</sup>/" + "db" + "<sup>+</sup>" + "(non-Dark Brown)");
	 }
}

// --------- calculate Pheomelanin Diluters (Gold Diluters) genes probabilities ---------

/* this section calculate Gold Dilute - Di locus probabilities */
//heading
//calculate male Di/Di X female Di locus alleles
if (maleDi == "Di/Di"){
   if (femDi == "Di/di+"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + "(Gold Dilute)");
   }else if (femDi == "Di/Di"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Di/Di (Gold Dilute)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Di/di" + "<sup>+</sup>" + " (Gold Dilute)");
	 }
}	 
//calculate male Di/di+ X female Di locus alleles
if (maleDi == "Di/di+"){
   if (femDi == "Di/di+"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
   win.document.write("</br>" + "25% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + " (Gold Dilute), " + "25% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + " (non-Gold Dilute)");
   }else if (femDi == "Di/Di"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Di/Di (Gold Dilute), 50% Di/di" + "<sup>+</sup>" + " (Gold Dilute)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Di/di" + "<sup>+</sup> " + "(Dark Brown), " + "50% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + "(non-Gold Dilute)");
	 }
}	 
//calculate male di+/di+ X female Di locus alleles
if (maleDi == "di+/di+"){
   if (femDi == "Di/di+"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Di/di" + "<sup>+</sup> " + "(Gold Dilute), " + "50% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup> " + "(non-Gold Dilute)");
   }else if (femDi == "Di/Di"){
	   win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Di/di" + "<sup>+</sup> " + "(Gold Dilute)");
	 }else {
	//	 win.document.write("<br />" + "<br />" + "Offspring Di locus allele probabilities are: "); 
	// win.document.write("</br>" + "100% di" + "<sup>+</sup>/" + "di" + "<sup>+</sup>" + "(non-Gold Dilute)");
	 }
}
/* this section calculate Inhibitor of Gold (Cream) - ig locus probabilities */
//heading
//calculate male ig/ig X female ig locus alleles
if (maleIg == "ig/ig"){
   if (femIg == "ig/Ig+"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
   win.document.write("<br />" + "50% ig/ig (Cream), 50% Ig" + "<sup>+</sup>/" + "ig" + " (non-Cream)");
   }else if (femIg == "ig/ig"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% ig/ig (Cream)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "ig" + " (non-Cream)");
	 }
}	 
//calculate male Ig+/ig X female ig locus alleles
if (maleIg == "ig/Ig+"){
   if (femIg == "ig/Ig+"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
   win.document.write("<br />" + "25% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup> " + "(non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "ig " + "(non-Cream), " + "25% ig/ig (Cream)");
   }else if (femIg == "ig/ig"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% ig/ig (Cream), 50% Ig" + "<sup>+</sup>/" + "ig " + "(non-Cream)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% Ig" + "<sup>+</sup>/"+ "ig (non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup>" + "(non-Cream)");
	 }
}	 
//calculate male Ig+/Ig+ X female ig locus alleles
if (maleIg == "Ig+/Ig+"){
   if (femIg == "ig/Ig+"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
   win.document.write("<br />" + "50% Ig" + "<sup>+</sup>/" + "ig (non-Cream), " + "50% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup> " + "(non-Cream)");
   }else if (femIg == "ig/ig"){
	   win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "ig (non-Cream)");
	 }else {
	//	 win.document.write("<br />" + "<br />" + "Offspring ig locus allele probabilities are: "); 
	// win.document.write("<br />" + "100% Ig" + "<sup>+</sup>/" + "Ig" + "<sup>+</sup>" + "(non-Cream)");
	 }
}	
/* this section calculate Champagne Blond - Cb locus probabilities */
 //heading
//calculate male Cb/Cb X female Cb locus alleles
if (maleCb == "Cb/Cb"){
   if (femCb == "Cb/cb+"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
   win.document.write("</br>" + "50% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + "(Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Cb/Cb (Champagne Blond)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond)");
	 }
}	 
//calculate male Cb/cb+ X female Cb locus alleles
if (maleCb == "Cb/cb+"){
   if (femCb == "Cb/cb+"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
   win.document.write("</br>" + "25% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond), " + "25% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + " (non-Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Cb/Cb (Champagne Blond), 50% Cb/cb" + "<sup>+</sup>" + " (Champagne Blond)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond), " + "50% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + "(non-Champagne Blond)");
	 }
}	 
//calculate male cb+/cb+ X female Cb locus alleles
if (maleCb == "cb+/cb+"){
   if (femCb == "Cb/cb+"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
   win.document.write("</br>" + "50% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond), " + "50% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup> " + "(non-Champagne Blond)");
   }else if (femCb == "Cb/Cb"){
	   win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Cb/cb" + "<sup>+</sup> " + "(Champagne Blond)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring Cb locus allele probabilities are: ");
	// win.document.write("</br>" + "100% cb" + "<sup>+</sup>/" + "cb" + "<sup>+</sup>" + "(non-Champagne Blond)");
	 }
}
/* this section calculate sex-linked Silver/Gold locus probabilities */
  //heading
//calculate male s+/s+ X female S locus alleles
if (maleS == "s+/s+"){
   	if (femS == "s+"){
	//	win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
   		//win.document.write("<br />" + "50% s" + "<sup>+</sup>" + "/s" + "<sup>+</sup>" + " (Sex-linked Gold) males, 50% s" + "<sup>+</sup>" +  " (Sex-linked Gold) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
		win.document.write("<br />" + "50% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 50% s" + "<sup>+</sup>" + "(Sex-linked Gold) females");
	}
}	
//calculate male S/s+ X female S locus alleles
if (maleS == "S/s+"){
   	if (femS == "s+"){
		win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
   		win.document.write("<br />" + "25% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 25% s" + "<sup>+</sup>" + "/s" + "<sup>+</sup>" + " (Sex-linked Gold) males, 25% S (Sex-linked Silver) females, 25% s" + "<sup>+</sup>" + " (Sex-linked Gold) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
		win.document.write("<br />" + "25% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 25% S/S (Sex-linked Silver) males, 25% S (Sex-linked Silver) females, 25% s" + "<sup>+</sup>" + " (Sex-linked Gold) females");
	}
}
//calculate male S/S X female S locus alleles
if (maleS == "S/S"){
   	if (femS == "s+"){
		win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
   		win.document.write("<br />" + "50% S/s" + "<sup>+</sup>" + " (Sex-linked Silver) males, 50% S (Sex-linked Silver) females");
   	}else if (femS == "S"){
		win.document.write("<br />" + "<br />" + "Offspring S locus allele probabilities are: ");
		win.document.write("<br />" + "50% S/S (Sex-linked Silver) males, 50% S (Sex-linked Silver) females");
	}
}

// --------- calculate Pheomelanin Enhancers (Gold Enhancers) genes probabilities ---------

/* this section calculate Mahogany - Mh locus probabilities */
 //heading
//calculate male Mh/Mh X female Mh locus alleles
if (maleMh == "Mh/Mh"){
   if (femMh == "Mh/mh+"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
   win.document.write("</br>" + "50% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + "(Mahogany)");
   }else if (femMh == "Mh/Mh"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Mh/Mh (Mahogany)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Mh/mh" + "<sup>+</sup>" + " (Mahogany)");
	 }
}	 
//calculate male Mh/mh+ X female Mh locus alleles
if (maleMh == "Mh/mh+"){
   if (femMh == "Mh/mh+"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
   win.document.write("</br>" + "25% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + " (Mahogany), " + "25% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + " (non-Mahogany)");
   }else if (femMh == "Mh/Mh"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Mh/Mh (Mahogany), 50% Mh/mh" + "<sup>+</sup>" + " (Mahogany)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Mh/mh" + "<sup>+</sup> " + "(Mahogany), " + "50% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + "(non-Mahogany)");
	 }
}	 
//calculate male mh+/mh+ X female Mh locus alleles
if (maleMh == "mh+/mh+"){
   if (femMh == "Mh/mh+"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
   win.document.write("</br>" + "50% Mh/mh" + "<sup>+</sup> " + "(Mahogany), " + "50% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup> " + "(non-Mahogany)");
   }else if (femMh == "Mh/Mh"){
	   win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Mh/mh" + "<sup>+</sup> " + "(Mahogany)");
	 }else {
	//	 win.document.write("<br />" + "<br />" + "Offspring Mh locus allele probabilities are: ");
	// win.document.write("</br>" + "100% mh" + "<sup>+</sup>/" + "mh" + "<sup>+</sup>" + "(non-Mahogany)");
	 }
}
// --------- calculate Secondary Pattern genes probabilities ---------

/* this section Pattern Pg locus probabilities */
 //heading
//calculate male Pg/Pg X female Pg locus alleles
if (malePg == "Pg/Pg"){
   if (femPg == "Pg/pg+"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
   win.document.write("</br>" + "50% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + "(Pattern)");
   }else if (femPg == "Pg/Pg"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Pg/Pg (Pattern)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Pg/pg" + "<sup>+</sup>" + " (Pattern)");
	 }
}	 
//calculate male Pg/pg+ X female Pg locus alleles
if (malePg == "Pg/pg+"){
   if (femPg == "Pg/pg+"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
   win.document.write("</br>" + "25% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + " (Pattern), " + "25% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + " (non-Pattern)");
   }else if (femPg == "Pg/Pg"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Pg/Pg (Pattern), 50% Pg/pg" + "<sup>+</sup>" + " (Pattern)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 win.document.write("</br>" + "50% Pg/pg" + "<sup>+</sup> " + "(Pattern), " + "50% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + "(non-Pattern)");
	 }
}	 
//calculate male pg+/pg+ X female Pg locus alleles
if (malePg == "pg+/pg+"){
   if (femPg == "Pg/pg+"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
   win.document.write("</br>" + "50% Pg/pg" + "<sup>+</sup> " + "(Pattern), " + "50% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup> " + "(non-Pattern)");
   }else if (femPg == "Pg/Pg"){
	   win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 win.document.write("</br>" + "100% Pg/pg" + "<sup>+</sup> " + "(Pattern)");
	 }else {
		 //win.document.write("<br />" + "<br />" + "Offspring Pg locus allele probabilities are: ");
	 //win.document.write("</br>" + "100% pg" + "<sup>+</sup>/" + "pg" + "<sup>+</sup>" + "(non-Pattern)");
	 }
}
/* this section Sex-linked Barring - B locus probabilities */ // add BSd
 //heading
//calculate male b+/b+ X female B locus alleles
if (maleB == "b+/b+"){
   	if (femB == "b+"){
		//win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   	//	win.document.write("<br />" + "50% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non- barring) males, 50% b" + "<sup>+</sup>" +  " (non-barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "50% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 50% b" + "<sup>+</sup>" + "(non-barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + "  (Sex-linked Dilute) males, 50% b" + "<sup>+</sup>" +  " (non-barred) females");	  
	}
}	
//calculate male B/b+ X female B locus alleles
if (maleB == "B/b+"){
   	if (femB == "b+"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non-barred) males, 25% B (Sex-linked Barred) females, 25% b" + "<sup>+</sup>" + " (non-barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% B/B (Sex-linked Barred - Light) males, 25% B (Sex-linked Barred) females, 25% b" + "<sup>+</sup>" + " (non-barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B (Sex-Linked Dilute), " + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" +  " (non-barred) females, 25% B (Sex-linked Barred) females");	  	
	}
}
//calculate male B/B X female B locus alleles
if (maleB == "B/B"){
   	if (femB == "b+"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   		win.document.write("<br />" + "50% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 50% B (Sex-linked Barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "50% B/B (Sex-linked Barred - Light) males, 50% B (Sex-linked Barred) females");
	}else if (femB == "BSd") {	
	win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
	win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males, 50% B (Sex-linked Barred) females");		
	}
}
//calculate male BSd/BSd X female B locus alleles 
if (maleB == "BSd/BSd"){
   	if (femB == "b+"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "50% B/B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) males, 50% B" + "<sup>Sd</sup>" + "(Sex-linked Dilute) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "50% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "  (Sex-linked Dilute - White) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females");	  
	}
}
//calculate male BSd/b+ X female B locus alleles 
if (maleB == "BSd/b+"){
   	if (femB == "b+"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" + "/b" + "<sup>+</sup>" + " (non-barred) males, 25% b" + "<sup>+</sup>" + " (non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females" );
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred - Dark) males, 25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males,  25% b" + "<sup>+</sup>" + "(non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "(Sex-Linked Dilute- White) males, 25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% b" + "<sup>+</sup>" +  " (non-barred) females, 25% B" + "<sup>Sd</sup>" + " (Sex-linked Dilute) females");
	}
}
//calculate male BSd/B X female B locus alleles 
if (maleB == "BSd/B"){
   	if (femB == "b+"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
   		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/b" + "<sup>+</sup>" + " (Sex-linked Dilute) males, 25% B/b" + "<sup>+</sup>" + " (Sex-linked Barred) males, 25% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females, 25% B (Sex-linked Barred) females");
   	}else if (femB == "B"){
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute) males, 25% B/B (Sex-linked Barred - Light) males, 25% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females, 25% B (Sex-linked Barred) females");
	}else if (femB == "BSd") {
		win.document.write("<br />" + "<br />" + "Offspring B locus allele probabilities are: "); 
		win.document.write("<br />" + "25% B" + "<sup>Sd</sup>" + "/B" + "<sup>Sd</sup>" + "  (Sex-linked Dilute - White) males, 25% B" + "<sup>Sd</sup>" + "/B (Sex-linked Dilute - Light) males, 50% B" + "<sup>Sd</sup>" +  " (Sex-linked Dilute) females , 25% B (Sex-linked Barred) females");  
	}
}

/* this section Erminette Er locus probabilities */

//calculate male Er/Er X female Er locus alleles
if (maleEr == "Er/Er"){
   if (femEr == "Er/er+"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
     win.document.write("<br />" + "50% Er/Er (White), 50% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else if (femEr == "Er/Er"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% Er/Er (White)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% Er/er" + "<sup>+</sup>" + " (Erminette)");
	 }
}	 
//calculate male Er/er+ X female Er locus alleles
if (maleEr == "Er/er+"){
   if (femEr == "Er/er+"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
     win.document.write("<br />" + "25% Er/Er (White), 50% Er/er" + "<sup>+</sup> " + "(Erminette), " + "25% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }else if (femEr == "Er/Er"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% Er/Er (White), 50% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else {
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% Er/er" + "<sup>+</sup> " + " (Erminette), " + "50% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }
}	 
//calculate male er+/er+ X female Er locus alleles
if (maleEr == "er+/er+"){
   if (femEr == "Er/er+"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
     win.document.write("<br />" + "50% Er/er" + "<sup>+</sup> " + "(Erminette), " + "50% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }else if (femEr == "Er/Er"){
	   win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% Er/er" + "<sup>+</sup>" + " (Erminette)");
   }else {
	   //win.document.write("<br />" + "<br />" + "Offspring Er locus allele probabilities are: "); 
	 //win.document.write("<br />" + "100% er" + "<sup>+</sup>/" + "er" + "<sup>+</sup>" + " (non-Erminette)");
   }
}

/* this section calculate Mottled mo locus probabilities */
 //heading
//calculate male mo/mo X female mo locus alleles
if (maleMo == "mo/mo"){
   if (femMo == "Mo+/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
   win.document.write("<br />" + "50% mo/mo (Mottled), 50% Mo" + "<sup>+</sup>/" + "mo" + " (non-mottled)");
   }else if (femMo == "mo/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
	 win.document.write("<br />" + "100% mo/mo (Mottled)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
	 win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "mo" + " (non-mottled)");
	 }
}	 
//calculate male Mo+/mo X female mo locus alleles
if (maleMo == "Mo+/mo"){
   if (femMo == "Mo+/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
   win.document.write("<br />" + "25% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup> " + "(non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "mo " + "(non-mottled), " + "25% mo/mo (Mottled)");
   }else if (femMo == "mo/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
	 win.document.write("<br />" + "50% mo/mo (Mottled), 50% Mo" + "<sup>+</sup>/" + "mo " + "(non-mottled)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
	 win.document.write("<br />" + "50% Mo" + "<sup>+</sup>/"+ "mo (non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup>" + "(non-mottled)");
	 }
}	 
//calculate male Mo+/Mo+ X female mo locus alleles
if (maleMo == "Mo+/Mo+"){
   if (femMo == "Mo+/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
   win.document.write("<br />" + "50% Mo" + "<sup>+</sup>/" + "mo (non-mottled), " + "50% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup> " + "(non-mottled)");
   }else if (femMo == "mo/mo"){
	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
	   win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "mo (non-mottled)");
	 }else {
//	   win.document.write("<br />" + "<br />" + "Offspring mo locus allele probabilities are: ");
//	   win.document.write("<br />" + "100% Mo" + "<sup>+</sup>/" + "Mo" + "<sup>+</sup>" + "(non-mottled)");
	 }
}	

// --------- calculate Leg/Skin colour genes probabilities ---------

/* this section calculate Fibromelanosis - Fm locus probabilities */
//heading
//calculate male Fm/Fm X female Fm locus alleles
if (maleFm == "Fm/Fm"){
   if (femFm == "Fm/fm+"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + "(Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Fm/Fm(Fibromelanosis)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis)");
	 }
}	 
//calculate male Fm/fm+ X female Fm locus alleles
if (maleFm == "Fm/fm+"){
   if (femFm == "Fm/fm+"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
   win.document.write("</br>" + "25% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis), " + "25% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + " (non-Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Fm/Fm (Fibromelanosis), 50% Fm/fm" + "<sup>+</sup>" + " (Fibromelanosis)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	 win.document.write("</br>" + "50% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis), " + "50% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + "(non-Fibromelanosis)");
	 }
}	 
//calculate male fm+/fm+ X female Fm locus alleles
if (maleFm == "fm+/fm+"){
   if (femFm == "Fm/fm+"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
   win.document.write("</br>" + "50% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis), " + "50% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup> " + "(non-Fibromelanosis)");
   }else if (femFm == "Fm/Fm"){
	   win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	 win.document.write("</br>" + "100% Fm/fm" + "<sup>+</sup> " + "(Fibromelanosis)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring Fm locus allele probabilities are: "); 
	// win.document.write("</br>" + "100% fm" + "<sup>+</sup>/" + "fm" + "<sup>+</sup>" + "(non-Fibromelanosis)");
	 }
}
/* this section calculate Inhibitor of Dermal - Id locus probabilities */
 //heading
//calculate male id+/id+ X female Id locus alleles
if (maleId == "id+/id+"){
   	if (femId == "id+"){
		//win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
   		//win.document.write("<br />" + "50% id" + "<sup>+</sup>" + "/id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) males, 50% id" + "<sup>+</sup>" +  " (Sex-linked Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
		win.document.write("<br />" + "50% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 50% id" + "<sup>+</sup>" + "(Sex-linked Dermal Pigment) females");
	}
}	
//calculate male Id/id+ X female Id locus alleles
if (maleId == "Id/id+"){
   	if (femId == "id+"){
		win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
   		win.document.write("<br />" + "25% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 25% id" + "<sup>+</sup>" + "/id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) males, 25% Id (Sex-linked Inhibitor of Dermal Pigment) females, 25% id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
		win.document.write("<br />" + "25% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 25% Id/Id (Sex-linked Inhibitor of Dermal Pigment) males, 25% Id (Sex-linked Inhibitor of Dermal Pigment) females, 25% id" + "<sup>+</sup>" + " (Sex-linked Dermal Pigment) females");
	}
}
//calculate male Id/Id X female Id locus alleles
if (maleId == "Id/Id"){
   	if (femId == "id+"){
		win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
   		win.document.write("<br />" + "50% Id/id" + "<sup>+</sup>" + " (Sex-linked Inhibitor of Dermal Pigment) males, 50% Id (Sex-linked Inhibitor of Dermal Pigment) females");
   	}else if (femId == "Id"){
		win.document.write("<br />" + "<br />" + "Offspring Id locus allele probabilities are: "); 
		win.document.write("<br />" + "50% Id/Id (Sex-linked Inhibitor of Dermal Pigment) males, 50% Id (Sex-linked Inhibitor of Dermal Pigment) females");
	}
}


/* this section calculate Yellow Skin - w locus probabilities */
//heading
//calculate male w/w X female w locus alleles
if (maleW == "w/w"){
   if (femW == "w/W+"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
   win.document.write("<br />" + "50% w/w (Yellow Skin), 50% W" + "<sup>+</sup>/" + "w" + " (White Skin)");
   }else if (femW == "w/w"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% w/w (Yellow Skin)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "w" + " (White Skin)");
	 }
}	 
//calculate male W+/w X female w locus alleles
if (maleW == "w/W+"){
   if (femW == "w/W+"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
   win.document.write("<br />" + "25% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup> " + "(White Skin), " + "50% W" + "<sup>+</sup>/" + "w " + "(White Skin), " + "25% w/w (Yellow Skin)");
   }else if (femW == "w/w"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% w/w (Yellow Skin), 50% W" + "<sup>+</sup>/" + "w " + "(White Skin)");
	 }else {
		 win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	 win.document.write("<br />" + "50% W" + "<sup>+</sup>/"+ "w (White Skin), " + "50% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup>" + "(White Skin)");
	 }
}	 
//calculate male W+/W+ X female w locus alleles
if (maleW == "W+/W+"){
   if (femW == "w/W+"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
   win.document.write("<br />" + "50% W" + "<sup>+</sup>/" + "w (White Skin), " + "50% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup> " + "(White Skin)");
   }else if (femW == "w/w"){
	   win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	 win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "w (White Skin)");
	 }else {
		// win.document.write("<br />" + "<br />" + "Offspring w locus allele probabilities are: "); 
	// win.document.write("<br />" + "100% W" + "<sup>+</sup>/" + "W" + "<sup>+</sup>" + "(White Skin)");
	 }
}	
/* this section calculate sex-linked Yellow - y locus probabilities */
 //heading
//calculate male y/y X female y locus alleles
if (maleY == "y/y"){
   	if (femY == "Y+"){
		win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
   		win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/y (non-sex-linked yellow skin) males, 50% y (Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
		win.document.write("<br />" + "50% y/y (Sex-linked Yellow Skin) males, 50% y (Sex-linked Yellow Skin) females");
	}
}	
//calculate male y/Y+ X female y locus alleles
if (maleY == "y/Y+"){
   	if (femY == "Y+"){
		win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
   		win.document.write("<br />" + "25% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 25% Y" + "<sup>+</sup>" + "/Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) males, 25% y (Sex-linked Yellow Skin) females, 25% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
		win.document.write("<br />" + "25% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 25% y/y (Sex-linked Yellow Skin) males, 25% y (Sex-linked Yellow Skin) females, 25% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
	}
}
//calculate male Y+/Y+ X female y locus alleles
if (maleY == "Y+/Y+"){
   	if (femY == "Y+"){
	//	win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
   	//	win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) males, 50% Y" + "<sup>+</sup>" + " (non-Sex-linked Yellow Skin) females");
   	}else if (femY == "y"){
		win.document.write("<br />" + "<br />" + "Offspring y locus allele probabilities are: "); 
		win.document.write("<br />" + "50% Y" + "<sup>+</sup>" + "/y (non-Sex-linked Yellow Skin) males, 50% Y" + "<sup>+</sup>" + "(non-Sex-linked Yellow Skin) females");
	}
}
/* ----------------- END calculations and output of offspring genotypes --------------- */
//new document.write additions will wipe previous document.write, starting again after "close"
win.document.write("<br />" + "<br />" + "<a href='javascript:self.close();'>Close</a>");
}
/* ------- END output of results.htm window with genotypes - "calculate" button -------- */
/* ---- START resetting variables/wildtypes and uncheck all radio buttons - "reset" button ---- */
function resetFunc(){
//reset all radio buttons to false (ie unchecked)
//reset E locus buttons
document.getElementById("maleEE").checked=false;
document.getElementById("maleEe+").checked=false;
document.getElementById("maleEER").checked=false;
document.getElementById("maleEeWh").checked=false;
document.getElementById("maleEeb").checked=false;
document.getElementById("maleERER").checked=false;
document.getElementById("maleEReWh").checked=false;
document.getElementById("maleEReb").checked=false;
document.getElementById("maleERe+").checked=false;
document.getElementById("maleeWheWh").checked=false;
document.getElementById("maleeWhe+").checked=false;
document.getElementById("maleeWheb").checked=false;
document.getElementById("maleebe+").checked=false;
document.getElementById("maleebeb").checked=false;
document.getElementById("femaleEE").checked=false;
document.getElementById("femaleEe+").checked=false;
document.getElementById("femaleEER").checked=false;
document.getElementById("femaleEeWh").checked=false;
document.getElementById("femaleEeb").checked=false;
document.getElementById("femaleERER").checked=false;
document.getElementById("femaleEReWh").checked=false;
document.getElementById("femaleEReb").checked=false;
document.getElementById("femaleERe+").checked=false;
document.getElementById("femaleeWheWh").checked=false;
document.getElementById("femaleeWhe+").checked=false;
document.getElementById("femaleeWheb").checked=false;
document.getElementById("femaleebe+").checked=false;
document.getElementById("femaleebeb").checked=false;
//reset recessive white buttons
document.getElementById("malecc").checked=false;
document.getElementById("maleC+c").checked=false;
document.getElementById("femalecc").checked=false;
document.getElementById("femaleC+c").checked=false;
//reset lavender buttons
document.getElementById("malelavlav").checked=false;
document.getElementById("maleLav+lav").checked=false;
document.getElementById("femalelavlav").checked=false;
document.getElementById("femaleLav+lav").checked=false;
//reset blue buttons
document.getElementById("maleBlBl").checked=false;
document.getElementById("maleBlbl+").checked=false;
document.getElementById("femaleBlBl").checked=false;
document.getElementById("femaleBlbl+").checked=false;

//reset dominant white locus buttons
document.getElementById("maleII").checked=false;
document.getElementById("maleIi+").checked=false;
document.getElementById("maleIID").checked=false;
document.getElementById("maleIIS").checked=false;
document.getElementById("maleIDi+").checked=false;
document.getElementById("maleIDIS").checked=false;
document.getElementById("maleISIS").checked=false;
document.getElementById("maleISi+").checked=false;
document.getElementById("maleIDID").checked=false;
document.getElementById("femaleII").checked=false;
document.getElementById("femaleIi+").checked=false;
document.getElementById("femaleIID").checked=false;
document.getElementById("femaleIIS").checked=false;
document.getElementById("femaleIDi+").checked=false;
document.getElementById("femaleIDIS").checked=false;
document.getElementById("femaleISIS").checked=false;
document.getElementById("femaleISi+").checked=false;
document.getElementById("femaleIDID").checked=false;
//reset sex-linked chocolate buttons
document.getElementById("malechocchoc").checked=false;
document.getElementById("malechocChoc+").checked=false;
document.getElementById("femalechocchoc").checked=false;
//reset melanotic buttons
document.getElementById("maleMlMl").checked=false;
document.getElementById("maleMlml+").checked=false;
document.getElementById("femaleMlMl").checked=false;
document.getElementById("femaleMlml+").checked=false;
//reset charcoal buttons
document.getElementById("malechacha").checked=false;
document.getElementById("malechaCha+").checked=false;
document.getElementById("femalechacha").checked=false;
document.getElementById("femalechaCha+").checked=false;
//reset columbian buttons
document.getElementById("maleCoCo").checked=false;
document.getElementById("maleCoco+").checked=false;
document.getElementById("femaleCoCo").checked=false;
document.getElementById("femaleCoco+").checked=false;
//reset dark brown buttons
document.getElementById("maleDbDb").checked=false;
document.getElementById("maleDbdb+").checked=false;
document.getElementById("femaleDbDb").checked=false;
document.getElementById("femaleDbdb+").checked=false;

//reset gold dilute buttons
document.getElementById("maleDiDi").checked=false;
document.getElementById("maleDidi+").checked=false;
document.getElementById("femaleDiDi").checked=false;
document.getElementById("femaleDidi+").checked=false;
//reset Champange Blonde buttons
document.getElementById("maleCbCb").checked=false;
document.getElementById("maleCbcb+").checked=false;
document.getElementById("femaleCbCb").checked=false;
document.getElementById("femaleCbcb+").checked=false;
//reset cream buttons
document.getElementById("maleigig").checked=false;
document.getElementById("maleigIg+").checked=false;
document.getElementById("femaleigig").checked=false;
document.getElementById("femaleigIg+").checked=false;
//reset silver buttons
document.getElementById("maleSS").checked=false;
document.getElementById("maleSs+").checked=false;
document.getElementById("femaleSS").checked=false;
//reset mahogany buttons
document.getElementById("maleMhMh").checked=false;
document.getElementById("maleMhmh+").checked=false;
document.getElementById("femaleMhMh").checked=false;
document.getElementById("femaleMhmh+").checked=false;
//reset pattern gene buttons
document.getElementById("malePgPg").checked=false;
document.getElementById("malePgpg+").checked=false;
document.getElementById("femalePgPg").checked=false;
document.getElementById("femalePgpg+").checked=false;
//reset erminette buttons
document.getElementById("maleErrErr").checked=false;
document.getElementById("maleErerr+").checked=false;
document.getElementById("femaleErrErr").checked=false;
document.getElementById("femaleErerr+").checked=false;
//reset mottled locus buttons
document.getElementById("malemomo").checked=false;
document.getElementById("maleMo+mo").checked=false;
document.getElementById("femalemomo").checked=false;
document.getElementById("femaleMo+mo").checked=false;
//reset barring buttons
document.getElementById("maleBB").checked=false;
document.getElementById("maleBb+").checked=false;
document.getElementById("maleBSdb+").checked=false;
document.getElementById("maleBSdBSd").checked=false;
document.getElementById("maleBSdB").checked=false;
document.getElementById("femaleBB").checked=false;
document.getElementById("femaleBSd").checked=false;
//reset Fm buttons
document.getElementById("maleFmFm").checked=false;
document.getElementById("maleFmfm+").checked=false;
document.getElementById("femaleFmFm").checked=false;
document.getElementById("femaleFmfm+").checked=false;
//reset Id buttons
document.getElementById("maleIddIdd").checked=false;
document.getElementById("maleIdidd+").checked=false;
document.getElementById("femaleIddIdd").checked=false;
//reset yellow skin buttons
document.getElementById("maleww").checked=false;
document.getElementById("malewW+").checked=false;
document.getElementById("femaleww").checked=false;
document.getElementById("femalewW+").checked=false;
//reset sex-linked recessive yellow buttons
document.getElementById("maleyy").checked=false;
document.getElementById("maleyY+").checked=false;
document.getElementById("femaleyy").checked=false;
//reset variables to defaults
maleE = "e+/e+";
femE = "e+/e+";
maleMo = "Mo+/Mo+";
femMo = "Mo+/Mo+";
maleC = "C+/C+";
femC = "C+/C+";
maleLav = "Lav+/Lav+";
femLav = "Lav+/Lav+";
maleBl = "bl+/bl+";
femBl = "bl+/bl+";
maleI = "i+/i+";
femI = "i+/i+";
maleChoc = "Choc+/Choc+";
femChoc = "Choc+";
maleMl = "ml+/ml+";
femMl = "ml+/ml+";
maleCha = "Cha+/Cha+";
femCha = "Cha+/Cha+";
maleCo = "co+/co+";
femCo = "co+/co+";
maleDb = "db+/db+";
femDb = "db+/db+";
maleDi = "di+/di+";
femDi = "di+/di+";
maleIg = "Ig+/Ig+";
femIg = "Ig+/Ig+";
maleCb = "cb+/cb+";
femCb = "cb+/cb+";
maleS = "s+/s+";
femS = "s+";
maleMh = "mh+/mh+";
femMh = "mh+/mh+";
malePg = "pg+/pg+";
femPg = "pg+/pg+";
maleB = "b+/b+";
femB = "b+";
maleEr = "er+/er+";
femEr = "er+/er+";
maleFm = "fm+/fm+";
femFm = "fm+/fm+";
maleId = "id+/id+";
femId = "id+";
maleW = "W+/W+";
femW = "W+/W+";
maleY = "Y+/Y+";
femY = "Y+";

//reset swapFemale & swapMale photos in table
document.getElementById('swapFemale').style.background="url('../images/calc_js/tbl_wildtype_hen.jpg')";
document.getElementById('swapMale').style.background="url('../images/calc_js/tbl_wildtype_roo.jpg')";
}
/* ---- END resetting variables/wildtypes and uncheck all radio buttons - "reset" button ---- */
// -->