summaryrefslogtreecommitdiff
path: root/schofield.wl
diff options
context:
space:
mode:
Diffstat (limited to 'schofield.wl')
-rw-r--r--schofield.wl4
1 files changed, 2 insertions, 2 deletions
diff --git a/schofield.wl b/schofield.wl
index 6adbe10..7597891 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -60,8 +60,6 @@ eqMid[D_:2][f_, g_][m_] := SeriesCoefficient[
Assumptions -> Join[$Assumptions, {θ > 0, θ < θc}]
]
-eq[D_:2][f_, g_][m_] := Flatten[{eqLow[D][f, g][#], eqMid[D][f, g][#], eqHigh[D][f, g][#]} & /@ Range[0, m]]
-
Φs = {
-1.197733383797993,
-0.318810124891,
@@ -107,5 +105,7 @@ GhRules = MapIndexed[dRule[Gh], Ghs];
rules[f_, g_] := Join[{B -> ruleB[2][f, g]}, ΦRules, GlRules, GhRules]
+eq[D_:2][f_, g_][m_] := Select[Flatten[{eqLow[D][f, g][#], eqMid[D][f, g][#], eqHigh[D][f, g][#]} & /@ Range[0, m]] /. rules[f, g], # != 0 &]
+
EndPackage[]