diff options
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 ] |