4
You have two samples at {40.8953,-35.3553,68.4351} and the function I will use has a problem with that. I get around problem that by deleting one of the duplicate points and I use the function at 1
data2=Drop[data,{37}]/.{x_,y_,z_}:>{{x,y},z};
f=ResourceFunction["PolyharmonicSplineInterpolation"][data2,
Compiled->True, InterpolationOrder-&...
3
Mathematica doesn't know LogLogas function. Try
gstarELogLog =Interpolation[Map[Log, Transpose[{T, ge}]], InterpolationOrder -> 1]
gstarE[T_] := Exp[gstarELogLog[Log[T]]] // Quiet;
The equation gstarE[Tpt] == 10 has no real positive solution,because gstarE[Tpt]>10 .
Try instead
FindRoot[gstarE[Tpt] == 12 , {Tpt, 1/10, 10^-5 , 1} ]
(*{Tpt -> 0....
Only top voted, non community-wiki answers of a minimum length are eligible
