(∑_(i=1)^T) (Subscript[f, th]) (Subscript[p, t])(Subscript[c, t])   with   (Subscript[p, t])=((Subscript[BF, 10])/(1+(Subscript[BF, 10])))