L A T E X output

RemoveBlankSpace[x_String] := FixedPoint[StringReplace[#, "  " -> " "] &, x] ;

toLaTeX[x_] := StringReplace[ToString[x /. _RenormalizationState -> Sequence[] /. Pair[Momentum[p2], Momentum[p2]]^i_ :> "q^" <> ToString[2 i] /. {LeutwylerJBar[a__, ___Rule] :> LeutwylerJBar[a]} /. {Pi -> "\pi", Log -> "\log", Pair[_LorentzIndex, ___] -> Sequence[], _DecayConstant -> "f", CouplingConstant[ChPTVirtualPhotons2[4], i_, ___] :> "l_{" <> ToString[i] <> "}" /; i < 8, CouplingConstant[ChPTVirtualPhotons2[4], i_, ___] :> "h_{" <> ToString[i - 7] <> "}" /; 7 < i < 11, CouplingConstant[ChPTVirtualPhotons2[4], i_, ___] :> "k_{" <> ToString[i - 10] <> "}" /; 10 < i, CouplingConstant[ChPTVirtualPhotons2[2], ___] :> "C", CouplingConstant[QED[1], ___] :> "e", MandelstamT -> "t", MandelstamS -> "s", MandelstamU -> "u", ParticleMass[Pion] -> "m_{\rm \pi}", ParticleMass[PionPlus] -> "m_{\rm \pi^{+}}", ParticleMass[PionZero] -> "m_{\rm \pi^{0}}", ParticleMass[Photon] -> "m_{\rm \gamma}", ScaleMu -> "\mu", C0 -> "C_0", D0 -> "D_0"}, FormatType -> InputForm, PageWidth -> 120], {"\"" -> "", "\pi" -> "pi", "\gamma" -> "gamma", "\log" -> "log", "\mu" -> "mu", "I" -> "i", "\overline" -> "overline", "[" -> "(", "]" -> ")", "*" -> " ", "\n" -> "", "LeutwylerJBar" -> "\overline{J}", "Mr" -> "M^r"}] // RemoveBlankSpace // StandardForm ;

jbarsfull

4 Overscript[J, _] _ (m _ γ^(ó  r  ))^2(s) (e^(  ))^4 + 4 Overscript[J, _] _ (m _ γ^(ó  r  ))^2(t) (e^(  ))^4 + (4 Overscript[J, _] _ ((m _ π^+^(ó  r  ))^2 (m _ γ^(ó  r  ))^2)((m _ π^+^(ó  r  ))^2) (-80 u (m _ π^+^(ó  r  ))^4 - 8 s t (m _ π^+^(ó  r  ))^2 + 6 (s - 4 (m _ π^+^(ó  r  ))^2) (t - 4 (m _ π^+^(ó  r  ))^2) (m _ π^0^(ó  r  ))^2 + 3 s t u + 6 (e^(  ))^2 (f _ π^(ó    ))^2 (-16 (m _ π^+^(ó  r  ))^4 + 8 u (m _ π^+^(ó  r  ))^2 + s^2 + t^2 + s t)) (e^(  ))^2)/(3 (f _ π^(ó    ))^2 (s - 4 (m _ π^+^(ó  r  ))^2) (4 (m _ π^+^(ó  r  ))^2 - t)) + (Overscript[J, _] _ (m _ π^0^(ó  r  ))^2(s) (s - (m _ π^0^(ó  r  ))^2)^2)/(2 (f _ π^(ó    ))^4) + (Overscript[J, _] _ (m _ π^0^(ó  r  ))^2(t) (t - (m _ π^0^(ó  r  ))^2)^2)/(2 (f _ π^(ó    ))^4) + (Overscript[J, _] _ (m _ π^+^(ó  r  ))^2(u) (-2 (e^(  ))^2 (f _ π^(ó    ))^2 - 4 (m _ π^+^(ó  r  ))^2 + 2 (m _ π^0^(ó  r  ))^2 + u)^2)/(2 (f _ π^(ó    ))^4) + 1/(6 t^2 (f _ π^(ó    ))^4 (t - 4 (m _ π^+^(ó  r  ))^2)) (Overscript[J, _] _ (m _ π^+^(ó  r  ))^2(t) (4 (e^(  ))^4 (-32 (m _ π^+^(ó  r  ))^6 + 8 (2 s + 15 t) (m _ π^+^(ó  r  ))^4 - 28 t (2 s + 3 t) (m _ π^+^(ó  r  ))^2 + t^2 (25 s + 14 t)) (f _ π^(ó    ))^4 + 4 t (e^(  ))^2 (32 (m _ π^+^(ó  r  ))^6 - 16 (s + 3 t) (m _ π^+^(ó  r  ))^4 + 2 t (-12 (m _ π^0^(ó  r  ))^2 + 16 s + 21 t) (m _ π^+^(ó  r  ))^2 + t^2 (6 (m _ π^0^(ó  r  ))^2 - 13 s - 8 t)) (f _ π^(ó    ))^2 + t^2 (t - 4 (m _ π^+^(ó  r  ))^2) (32 (m _ π^+^(ó  r  ))^4 - 4 (12 (m _ π^0^(ó  r  ))^2 + s - 2 t) (m _ π^+^(ó  r  ))^2 + 24 (m _ π^0^(ó  r  ))^4 - 12 t (m _ π^0^(ó  r  ))^2 + t (s + 2 t)))) + 1/(6 s^2 (f _ π^(ó    ))^4 (s - 4 (m _ π^+^(ó  r  ))^2)) (Overscript[J, _] _ (m _ π^+^(ó  r  ))^2(s) (4 (e^(  ))^4 (-32 (m _ π^+^(ó  r  ))^6 + 8 (15 s + 2 t) (m _ π^+^(ó  r  ))^4 - 28 s (3 s + 2 t) (m _ π^+^(ó  r  ))^2 + s^2 (14 s + 25 t)) (f _ π^(ó    ))^4 + 4 s (e^(  ))^2 (32 (m _ π^+^(ó  r  ))^6 - 16 (3 s + t) (m _ π^+^(ó  r  ))^4 + 2 s (-12 (m _ π^0^(ó  r  ))^2 + 21 s + 16 t) (m _ π^+^(ó  r  ))^2 + s^2 (6 (m _ π^0^(ó  r  ))^2 - 8 s - 13 t)) (f _ π^(ó    ))^2 + s^2 (s - 4 (m _ π^+^(ó  r  ))^2) (s (2 s + t) + 4 (6 (m _ π^0^(ó  r  ))^4 - 3 (4 (m _ π^+^(ó  r  ))^2 + s) (m _ π^0^(ó  r  ))^2 + (m _ π^+^(ó  r  ))^2 (8 (m _ π^+^(ó  r  ))^2 + 2 s - t)))))

% // toLaTeX // InputForm

-(e^4 \log(m_{\rm \gamma}^2/\mu^2))/(2 \pi^2) - ((8 e^2 f^2 s t (8 m_{\rm \pi^{+}}^2 - 9 \
m_{\rm \pi^{0}}^2 + 3 u) + 4 e^4 f^4 (-8 m_{\rm \pi^{+}}^4 + s^2 + 7 s t + t^2 + 2 m_{\rm \
\pi^{+}}^2 u) + s t (64 m_{\rm \pi^{+}}^4 + 60 m_{\rm \pi^{0}}^4 + 5 s^2 + 8 s t + 5 t^2 + \
24 m_{\rm \pi^{0}}^2 u - 4 m_{\rm \pi^{+}}^2 (48 m_{\rm \pi^{0}}^2 + u))) \log(m_{\rm \
\pi^{+}}^2/\mu^2))/(96 f^4 \pi^2 s t) - ((10 m_{\rm \pi^{0}}^4 + s^2 + t^2 + 4 m_{\rm \
\pi^{0}}^2 (-4 m_{\rm \pi^{+}}^2 + u)) \log(m_{\rm \pi^{0}}^2/\mu^2))/(32 f^4 \pi^2)


Converted by Mathematica  (July 10, 2003)