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