(Subscript[tmp, 1])=-((p×((Subscript[r, i])-(Subscript[ℊ, i])))/2)=α((Subscript[r, i])-(Subscript[ℊ, i]));and   (Subscript[tmp, 2])=((p×((Subscript[r, i])-(Subscript[ℊ, i])))/4)=β((Subscript[r, i])-(Subscript[ℊ, i]))   or   γ((Subscript[r, i])-(Subscript[ℊ, i])).