Evaluate over all observation sequences of length 13

Generate list of all possible observation sequences of length 13

obs = Table[IntegerDigits[i, 2, 13] + 1, {i, 0, 2^13 - 1}] ;

Compute evaluation probabilities

p1 = LogProb[#, λ1] & /@ obs ;

p2 = LogProb[#, λ2] &/@ obs ;

Number of equal observation probabilities

n = Length[Position[Chop[p1 - p2], 0]]

168

Percentage of all possible observation sequences

n * 100/(2^13) // N

2.05078

Created by Mathematica  (October 20, 2003)