Ln P=(∑_(i=1)^n) (Subscript[k, i])   ln   (Subscript[av, i])+(∑_(i=1)^n) ((Subscript[n, i])-(Subscript[k, i]))ln(1-(Subscript[av, i]))((∂ln   P)/(∂a))=(∑_(i=1)^n) ((Subscript[k, i])/a)-(∑_(i=1)^n) ((((Subscript[n, i])-(Subscript[k, i])))/(1-(Subscript[av, i])))(Subscript[v, i])=0