•Coupling files

The coupling vectors for the FeynArts model files are generated and saved:

gencoup = GenericCoupling[melsimplified] ; gencoup // InputForm

{NonCommutative[CouplingConstant[QED[1], RenormalizationState[0]]*DiracGamma[μ3]]}

classcoup = ClassesCoupling[melsimplified] // Together ; classcoup // InputForm

{{I}}

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {Electron[0], Electron[0], Photon[0]}, PerturbationOrder -> 1, PhiModel -> QED] <> ".Gen"] ;

Using file name D:\\Program Files\\Wolfram Research\\Mathematica\\4.1\\AddOns\\Applications\\HighEnergyPhysics\\Phi\\CouplingVectors\\QEDF70F70V10o1.Gen

File does not exist, evaluating

Saving

CheckF[classcoup, XName[VertexFields -> {Electron[0], Electron[0], Photon[0]}, PerturbationOrder -> 1, PhiModel -> QED] <> ".Mod"] ;

Using file name D:\\Program Files\\Wolfram Research\\Mathematica\\4.1\\AddOns\\Applications\\HighEnergyPhysics\\Phi\\CouplingVectors\\QEDF70F70V10o1.Mod

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)