FeynCalc is a Mathematica package for symbolic evaluation of Feynman diagrams and algebraic calculations in quantum field theory and elementary particle physics. Some of the features of FeynCalc are
knownResult = 2*SMP["e"]^4*((s^2 + u^2)/t^2) +
4*SMP["e"]^4*(u^2/(s*t)) + 2*SMP["e"]^4*((t^2 + u^2)/s^2);
FCCompareResults[ampSquaredMassless[0], knownResult,
Text -> {"\tCheck the final result:", "CORRECT.", "WRONG!"},
Interrupt -> {Hold[Quit[1]], Automatic}];
Print["\tCPU Time used: ", Round[N[TimeUsed[], 4], 0.001],
" s."];
Today most physicists draw Feynman diagrams in a more stylized way, highlighting the topology of propagation lines and vertices. (This diagram and Figure 4 are reproduced from Feynman 1949 (by permission of the American Physical Society.)