From da028e72642af1b5d914a66e3f458f10c2c7ca0c Mon Sep 17 00:00:00 2001
From: Jaron Kent-Dobias <jaron@kent-dobias.com>
Date: Fri, 1 Oct 2021 10:55:29 +0200
Subject: Function rename.

---
 schofield.wl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/schofield.wl b/schofield.wl
index f6d2efc..3a57f96 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -59,7 +59,7 @@ invDerivativeList[n_][f_][x_] := Module[
   MapIndexed[{Pn, i} \[Function] Pn/dfs[[1]]^(2 i[[1]] - 1), Pns]
   ]
 
-dFdξLowList[n_, h_][m_] := Module[
+dGdξLowList[n_, h_][m_] := Module[
   { ds, dF, df },
   ds = invDerivativeList[m+1][Function[θ, h[θ] / t[θ]^Δ[2]]][θc];
   dF = NestList[Function[f, D[f, θ]], RFReg[n][θ], m] + Table[dfLow[AL, B][k], {k, 0, m}] /. θ -> θc;
@@ -71,7 +71,7 @@ dFdξLowList[n_, h_][m_] := Module[
   Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}]
 ]
 
-dFdξList[n_, h_][m_, θp_] := Module[
+dGdξList[n_, h_][m_, θp_] := Module[
   { ds, dF, df },
   ds = invDerivativeList[m+1][Function[θ, h[θ] / RealAbs[t[θ]]^Δ[2]]][θp];
   dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp;
@@ -83,7 +83,7 @@ dFdξList[n_, h_][m_, θp_] := Module[
   Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}]
 ]
 
-dFdηList[n_, h_][m_, θp_] := Module[
+dΦdηList[n_, h_][m_, θp_] := Module[
   { ds, dF, df },
   ds = invDerivativeList[m+1][Function[θ, t[θ] / h[θ]^(1 / Δ[2])]][θp];
   dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp;
@@ -183,9 +183,9 @@ formResiduals[data_, functions_, δ_:10^(-15)] := If[Head[#1]===Around,
   (#2-#1["Value"]) / Max[#1["Uncertainty"], δ],
   (#2-#1) / δ] & @@@ Thread[{data, functions}]
 
-resLow[n_, g_, δ_][m_] := formResiduals[Gls[[;;m+1]], dFdξLowList[n, g][m], δ]
+resLow[n_, g_, δ_][m_] := formResiduals[Gls[[;;m+1]], dGdξLowList[n, g][m], δ]
 
-resHigh[n_, g_, δ_][m_] := Rest[formResiduals[Ghs[[;;m+1]], dFdξList[n, g][m, 0], δ][[;;;;2]]]
+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]
 chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2]
-- 
cgit v1.2.3-54-g00ecf