diff options
author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-10-01 20:59:10 +0200 |
---|---|---|
committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-10-01 20:59:10 +0200 |
commit | 5269fa0fb763e7193738b6ae7ba1c62288da8ff9 (patch) | |
tree | 1739bd65a10b7d84a8b6c2035a828ea4cf25b829 /schofield.wl | |
parent | 58bcac0e92695c9efea5c865118bc3c3557b20e2 (diff) | |
download | mma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.tar.gz mma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.tar.bz2 mma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.zip |
Lots of work.
Diffstat (limited to 'schofield.wl')
-rw-r--r-- | schofield.wl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/schofield.wl b/schofield.wl index c60daf5..f32d855 100644 --- a/schofield.wl +++ b/schofield.wl @@ -187,7 +187,7 @@ resLow[n_, g_, δ_][m_] := formResiduals[Gls[[;;m+1]], dGdξLowList[n, g][m], δ resHigh[n_, g_, δ_][m_] := Rest[formResiduals[Ghs[[;;m+1]], dGdξList[n, g][m, 0], δ][[;;;;2]]] -res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], {ruleθ0[g] / 0.00005, ruleAH[g] / 0.02} /. Around[x_, _] :> x] +res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], {ruleθ0[g] / 0.00005(*, ruleAH[g] / 0.02*)} /. Around[x_, _] :> x] chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2] newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[ |