From 095a9eb1e848b4f8fc501f0755468f1b13536695 Mon Sep 17 00:00:00 2001
From: Jaron Kent-Dobias <jaron@kent-dobias.com>
Date: Thu, 29 Jul 2021 18:53:25 +0200
Subject: Changes.

---
 schofield.wl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'schofield.wl')

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
 ]
 
-- 
cgit v1.2.3-54-g00ecf