((Underscript[minimize, P])   KL=(∑_(i=0)^I)(Subscript[p, i])log(((Subscript[p, i])/(Subscript[q, i])))(25a))