change output of DeltaVBwave[] to resemble the FSSelfEnergy[...]

FlexibleSUSY · Feb 13, 2017 · 0a0334f · 0a0334f
1 parent ea84452
commit 0a0334f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -2521,7 +2521,7 @@ corresponding tadpole is real or imaginary (only in models with CP
                   effectiveCouplingsFileName];
               extraVertices = EffectiveCouplings`GetNeededVerticesList[effectiveCouplings];
 	      Put[vertexRules =
-		      Vertices`VertexRules[Join[nPointFunctions, extraVertices, {deltaVBwave}], Lat$massMatrices],
+		      Vertices`VertexRules[Join[nPointFunctions, extraVertices, deltaVBwave], Lat$massMatrices],
 		  vertexRuleFileName],
 	      vertexRules = Get[vertexRuleFileName];
               effectiveCouplings = Get[effectiveCouplingsFileName];

diff --git a/meta/WeinbergAngle.m b/meta/WeinbergAngle.m
@@ -203,7 +203,8 @@
     Module[{neutrinodiagrs, electrondiagrs, result},
            neutrinodiagrs = ExcludeDiagrams[GenerateDiagramsWave[SARAH`Neutrino], TreeMasses`IsVector];
            electrondiagrs = ExcludeDiagrams[GenerateDiagramsWave[SARAH`Electron], TreeMasses`IsVector];
-           result = 1/2 * (SARAH`sum[SARAH`gO1, 1, 2, Plus @@ (WaveResult[#, includeGoldstones] &) /@ neutrinodiagrs] + SARAH`sum[SARAH`gO1, 1, 2, Plus @@ (WaveResult[#, includeGoldstones] &) /@ electrondiagrs]);
+           result = {WeinbergAngle`DeltaVB[{WeinbergAngle`wave, SARAH`Neutrino}, 1/2 * SARAH`sum[SARAH`gO1, 1, 2, Plus @@ (WaveResult[#, includeGoldstones] &) /@ neutrinodiagrs]],
+                     WeinbergAngle`DeltaVB[{WeinbergAngle`wave, SARAH`Electron}, 1/2 * SARAH`sum[SARAH`gO1, 1, 2, Plus @@ (WaveResult[#, includeGoldstones] &) /@ electrondiagrs]]};
            Return[result];
           ];