(Subscript[I, p])=∑(((Subscript[P, t])(Subscript[G, t])(Subscript[G, r])(λ^2))/((((4π))^2)(d^n)L)),