Similar Cookies

similarCookies.fs

let biscuitA = ["refined wheat flour";"sugar";"edible vegetable oil";
                "edible coconut products";"invert syrup";"milk solids";
                "edible starch";"raising agent";"edible common salt";
                "baking powder";"solbake";"emulsifier"]

let biscuitB = ["refined wheat flour";"cocoa powder";"suger";"cocoa butter";
                "dextrose";"lecithin";"vanillin";"edible vegetable oil";
                "raising agent";"cocoa solids";"edible common salt";"emulsifier"]

let biscuitC = ["refined wheat flour";"suger";"cocoa solids";
                "cocoa butter";"dextrose";"emulsifier";
               "edible vegitable fat";"desiccated coconut butter";
               "skimmed milk powder";"raising agents";"vanillin"]

let biscuitD = ["refined wheat flour";"suger";"edible vegitable oil";
                "edible starch";"arrowroot";"maize";
                "invert syrup";"milk solids";"raising agents";
                "dough conditioner";"edible common salt";"emulsifier"]
//Finding similarities between Biscuit B and other biscuits 
//using tanimoto coefficient 
let simBC_t = tanimotoCoeff biscuitB biscuitC
let simBD_t = tanimotoCoeff biscuitB biscuitD
let simBA_t = tanimotoCoeff biscuitB biscuitA

//Finding similarities between Biscuit A and other biscuits
//using tanimoto coefficient 
let simAB_t = tanimotoCoeff biscuitA biscuitB
let simAC_t = tanimotoCoeff biscuitA biscuitC
let simAD_t = tanimotoCoeff biscuitA biscuitD

//Finding similarities between Biscuit B and other biscuits
//using simple matching coefficient 
let simBC_s = simpleMatchingCoeff biscuitB biscuitC
let simBD_s = simpleMatchingCoeff biscuitB biscuitD
let simBA_s = simpleMatchingCoeff biscuitB biscuitA

//Finding similarities between Biscuit A and other biscuits
//using simple matching coefficient
let simAB_s = simpleMatchingCoeff biscuitA biscuitB
let simAC_s = simpleMatchingCoeff biscuitA biscuitC
let simAD_s = simpleMatchingCoeff biscuitA biscuitD

//Finding similarities between Biscuit B and other biscuits
//using sokal sneath 1  coefficient
let simBC_ss = SS1 biscuitB biscuitC
let simBD_ss = SS1 biscuitB biscuitD
let simBA_ss = SS1 biscuitB biscuitA

//Finding similarities between Biscuit A and other biscuits
//using sokal sneath 1  coefficient
let simAB_ss = SS1 biscuitA biscuitB
let simAC_ss = SS1 biscuitA biscuitC
let simAD_ss = SS1 biscuitA biscuitD