diff options
author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-04-15 11:30:51 +0200 |
---|---|---|
committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-04-15 11:30:51 +0200 |
commit | 86302ed839cc3e783e68fe5177ac41496e5db145 (patch) | |
tree | 815bbd919cd69980e99ab5a75fbd71d80c24e5b6 /schofield.wl | |
parent | a1b51f53540b09ec4276a6f69536c4fe506fc513 (diff) | |
download | mma-86302ed839cc3e783e68fe5177ac41496e5db145.tar.gz mma-86302ed839cc3e783e68fe5177ac41496e5db145.tar.bz2 mma-86302ed839cc3e783e68fe5177ac41496e5db145.zip |
Changes.
Diffstat (limited to 'schofield.wl')
-rw-r--r-- | schofield.wl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/schofield.wl b/schofield.wl index 8ac7ffc..1c9482c 100644 --- a/schofield.wl +++ b/schofield.wl @@ -47,7 +47,7 @@ ExpIntegralEi[1/(B \[Theta] - B \[Theta]c)] - B \[Theta] + B \[Theta]c))]) RFHigh[ξ0_][ξ_] := (1+(ξ/ξ0)^2)^(5/6) - 1 -RF[θ_] := AL RFLow[B, θc][θ] + AH RFHigh[θ0][θ] + AM θ^2 +RF[n_][θ_] := AL RFLow[B, θc][θ] + AH RFHigh[θ0][θ] + Sum[A[i] θ^(2(i+1)), {i, 0, n}] ruleB[g_] := B - π / (2 1.3578383417066) (- g'[θc] / t[θc]^Δ[2]) ruleθ0[g_] := Simplify[g[I θ0]/(-t[I θ0])^Δ[2]/I] - 0.18930 @@ -132,7 +132,7 @@ newSol[eqs_, oldSol_, newVars_, δ_:0, opts___] := FindRoot[ oldSol /. Rule -> List, Thread[{newVars, δ * RandomVariate[NormalDistribution[], Length[newVars]]}] ], - MaxIterations -> 10000, + MaxIterations -> 500, opts ] |