Get["~/doc/research/first_order_singularities/paper/IsingScalingFunction.wl"]

castest=Thread[{Range[2,7],-Table[1/2,{i,6}]DScriptMCasDηList[DataCas[2]][5]}]//N

ourtest=(DScriptF0DηList@@PrepareArgument[Data[2]])[5,1]//N

ListLogPlot[Abs@{Φs,ourtest,castest}]

Sqrt[1.16951]

1

Φs[[2]]

DScriptMCasDηList[DataCas[4]][1,1][[2]]

DScriptMCasDξList[DataCas[5]][1,1]

m0Cas[DataCas[4]]

castest=Table[{k,DScriptMCasDηList[DataCas[k]][1,1][[1]]/2+Φs[[2]]},{k,2,5}]//N

ListPlot[castest]