•Calculation and reduction of the amplitude

ampp4 = (CreateFCAmp[mesontreeinsert, AmplitudeLevel -> Classes][[1]] /. D -> Sequence[] /. channel // WriteOutUMatrices // SUNReduce) ;

ampl4 = ampp4 /. subpar /. udrules // MandelstamReduce // Simplify

1/(f _ K^(ó  ))^4 (8 (16 L _ 6^( ) (m _ K^(ó  ))^4 + 8 L _ 8^( ) (m _ K^(ó  ))^4 + 2 L _ 6^( ) (m _ π^(ó  ))^2 (m _ K^(ó  ))^2 - 4 L _ 4^( ) (m _ K^(ó  r ))^2 (m _ K^(ó  ))^2 - 2 L _ 5^( ) (m _ K^(ó  r ))^2 (m _ K^(ó  ))^2 + 6 L _ 3^( ) (m _ K^(ó  r ))^4 - 4 s L _ 3^( ) (m _ K^(ó  r ))^2 - 4 t L _ 3^( ) (m _ K^(ó  r ))^2 + s^2 L _ 3^( ) + t^2 L _ 3^( ) + s t L _ 3^( ) + 2 L _ 1^( ) (6 (m _ K^(ó  r ))^4 - 4 (s + t) (m _ K^(ó  r ))^2 + s^2 + t^2 + s t) + 2 L _ 2^( ) (6 (m _ K^(ó  r ))^4 - 4 (s + t) (m _ K^(ó  r ))^2 + s^2 + t^2 + s t)))

Converted by Mathematica  (July 10, 2003)