Skip to content

Commit

Permalink
remove factors from wave result
Browse files Browse the repository at this point in the history
they will be added to C++ template
  • Loading branch information
Markus-Bach committed Feb 24, 2017
1 parent 3a7cae5 commit 87aa493
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions meta/WeinbergAngle.m
Expand Up @@ -204,8 +204,8 @@
Module[{neutrinodiagrs, electrondiagrs, result},
neutrinodiagrs = ExcludeDiagrams[GenerateDiagramsWave[SARAH`Neutrino], TreeMasses`IsVector];
electrondiagrs = ExcludeDiagrams[GenerateDiagramsWave[SARAH`Electron], TreeMasses`IsVector];
result = {WeinbergAngle`DeltaVB[{WeinbergAngle`fswave, {SARAH`gO1}, SARAH`Neutrino}, 1/2 * Plus @@ (WaveResult[#, includeGoldstones] &) /@ neutrinodiagrs],
WeinbergAngle`DeltaVB[{WeinbergAngle`fswave, {SARAH`gO1}, SARAH`Electron}, 1/2 * Plus @@ (WaveResult[#, includeGoldstones] &) /@ electrondiagrs]};
result = {WeinbergAngle`DeltaVB[{WeinbergAngle`fswave, {SARAH`gO1}, SARAH`Neutrino}, Plus @@ (WaveResult[#, includeGoldstones] &) /@ neutrinodiagrs],
WeinbergAngle`DeltaVB[{WeinbergAngle`fswave, {SARAH`gO1}, SARAH`Electron}, Plus @@ (WaveResult[#, includeGoldstones] &) /@ electrondiagrs]};
Return[result];
];

Expand Down Expand Up @@ -234,7 +234,7 @@
body = body <> CConversion`ExpandSums[Parameters`DecreaseIndexLiterals[Parameters`DecreaseSumIndices[expr], TreeMasses`GetParticles[]] /.
vertexRules /.
a_[List[i__]] :> a[i], "result"];
body = body <> "\nreturn result * oneOver16PiSqr;";
body = body <> "\nreturn result;";
body = TextFormatting`IndentText[TextFormatting`WrapLines[body]];
decl = decl <> body <> "}\n";
Return[{prototype, decl}];
Expand Down

0 comments on commit 87aa493

Please sign in to comment.