L(B,{(Subscript[S, 1]),(Subscript[S, 2]),…   ,(Subscript[S, \[LeftDoubleBracketingBar]B\[RightDoubleBracketingBar]])})=(∑_(k=1)^(\[LeftDoubleBracketingBar]B\[RightDoubleBracketingBar]))(∑_(t=1)^(\[LeftDoubleBracketingBar](Subscript[S, k])\[RightDoubleBracketingBar]))(∑_(i=1)^(\[LeftDoubleBracketingBar]A\[RightDoubleBracketingBar]))-(((e^(Subscript[a, (Subscript[t, i])]))/((∑_(j=1)^(\[LeftDoubleBracketingBar]A\[RightDoubleBracketingBar]))(e^(Subscript[a, (Subscript[t, ij])])))))log (Subscript[a, (Subscript[t, i])]^( * ))