((Subscript[P, r])=(((Subscript[P, t])(Subscript[G, t])(Subscript[A, r])σ (F^4))/((((4π))^2)(R^4)))(1))