diff options
author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-07-29 18:53:25 +0200 |
---|---|---|
committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-07-29 18:53:25 +0200 |
commit | 095a9eb1e848b4f8fc501f0755468f1b13536695 (patch) | |
tree | 0fcb5ac8bf23601173397d1b58b0cdbdee49e322 /schofield.wl | |
parent | 2b0ae966a63c4ca6f3f3b8c6a34b969bb354e409 (diff) | |
download | mma-095a9eb1e848b4f8fc501f0755468f1b13536695.tar.gz mma-095a9eb1e848b4f8fc501f0755468f1b13536695.tar.bz2 mma-095a9eb1e848b4f8fc501f0755468f1b13536695.zip |
Changes.
Diffstat (limited to 'schofield.wl')
-rw-r--r-- | schofield.wl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/schofield.wl b/schofield.wl index c4ebc32..1347d84 100644 --- a/schofield.wl +++ b/schofield.wl @@ -86,9 +86,9 @@ eqHigh[n_, h_][m_] := (eqHighRHS[RF[n]][m] - eqHighLHS[h][m]) / m! eqMid[F_, h_][m_] := D[ F[θ] - t[θ]^2 Log[h[θ]^2]/(8 Δ[2]π) - h[θ]^((2-α[2])/Δ[2]) Φ[η] /. η -> t[θ] / h[θ]^(1 / Δ[2]), - {θ, m} ] /. θ -> 1 + {θ, m} ] / m! /. θ -> 1 -δ0 = 10^-14; +δ0 = 10^(-14); Φs = { -1.197733383797993, @@ -161,7 +161,7 @@ newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[ {#1, #2 + γ * RandomVariate[NormalDistribution[]]} & @@@ (oldSol /. Rule -> List), Thread[{newVars, δ * RandomVariate[NormalDistribution[], Length[newVars]]}] ], - MaxIterations -> 1000, + MaxIterations -> 50000, opts ] |