Calculation of inbreeding coefficient

I have a database (PHP+mySQL) which is pretty straight forward: first field is ID, second is the name of dog(Name), third is the ID of his father (SireID) 4th is the ID of his mother (DameID), other fields are not relevant. What I now need is an algorithm that will calculate the COI - coefficient of inbreeding. There are two methods to calculate it: Wright's equation and Hardiman's method that are both explained here: [login to view URL] but there are of course many other pages that explain this maybe even better. I would prefer implementing Wright's method, so the final solution look something like this: ~ ~ ~ Inbreeding Coefficient: 8.094% Top contributing ascendants : Partial inbreeding due to Prinz v. Norden Stamm 1.869% Partial inbreeding due to Graaf Quirinus v. Neerlands Stam 1.343% Partial inbreeding due to Tequila Mali del Citone 0.703% Partial inbreeding due to Hertog Alpha v. Le Dobry 0.616% Partial inbreeding due to Gamon di Campovalano 0.561% Partial inbreeding due to Astor del Citone 0.419% Partial inbreeding due to Elisir di Campovalano 0.3% Partial inbreeding due to Ebo v.d. Groote Maat 0.293% Partial inbreeding due to Kastra v. Norden Stamm 0.249% Partial inbreeding due to Guy's Hilo v. Norden Stamm 0.191% Partial inbreeding due to Bryan v. Forell 0.175% Partial inbreeding due to Nimrod Hilo v. Franckenhorst 0.118% Most inbred ascendants : Elisir di Campovalano 25% Elite di Campovalano 25% Dea Dolores v. Franckenhorst 20.45% Dexter v. Franckenhorst 20.45% Hertog Alpha v. Le Dobry 14.06% Statistics for Sire and Dam: Coefficient of Relationship between Sire and Dam 14.8426% Coefficient of Inbreeding of Sire 3.9334% Coefficient of Inbreeding of Dam 14.4547% ~ ~ ~ Thank you for attention!