diff options
| -rw-r--r-- | schofield.wl | 4 |
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[] |