diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-12-21 19:15:07 +0100 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-12-21 19:15:07 +0100 |
| commit | 63aba3f33f80b56e82c7f8c29cd49fac0002c2f5 (patch) | |
| tree | db0b777a26f203bc22bc6e505ef082e80ab3297f | |
| parent | b71f4f5fd402ef107a7b0ab3a4712e3dcefa31be (diff) | |
| download | mma-63aba3f33f80b56e82c7f8c29cd49fac0002c2f5.tar.gz mma-63aba3f33f80b56e82c7f8c29cd49fac0002c2f5.tar.bz2 mma-63aba3f33f80b56e82c7f8c29cd49fac0002c2f5.zip | |
Small change.
| -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[] |