(Subscript[(Overscript[F, →]), D])=4π(Subscript[μ, f])(Subscript[R, p])((Subscript[(Overscript[U, →]), f])-(Subscript[(Overscript[U, →]), p]))[((1+(3/2)(Overscript[μ, ˆ]))/(1+(Overscript[μ, ˆ])))],