Algorithm to calculate proportion of genes identity by descent, to map QTL in half-sibs families