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
Related Tags
interpolation × 864plotting × 154
differential-equations × 116
numerical-integration × 101
list-manipulation × 54
fitting × 54
equation-solving × 47
calculus-and-analysis × 42
numerics × 41
finite-element-method × 41
splines × 39
data × 36
functions × 34
graphics × 27
performance-tuning × 26
bugs × 24
function-construction × 22
mathematical-optimization × 22
warning-messages × 22
polynomials × 19
table × 18
mesh × 17
graphics3d × 13
piecewise × 12
smoothing × 10