In[]:=
CompoundExpression[
]
​​deploy
Wed 7 Jun 2023 22:35:44

Gamma break-even point

Main notebook:
- zeta-breakeven.nb​
​
​
​
​
​
​
Out[]=
CloudObject[
https://www.wolframcloud.com/obj/yaroslavvb/nn-linear/forum-gamma-breakeven.nb
]
In[]:=
Clear["Global`*"];​​breakeven[r0_]:=y/.With{r=SetPrecision[r0,10]},FindRootGamma
1
1+x
,0==2Gamma
1
1+x
,Exp[y],{y,
-x
10
};​​empiricalPlot=DiscretePlot[breakeven[r],{x,1,20,1},PlotRange->All,AxesLabel->{"x","y"},PlotLabel->"f(x)"]
Out[]=
​
In[]:=
breakeven[r0_]:=y/.With{r=SetPrecision[r0,10]},FindRoot2Gamma
1
1+x
,Exp[y]-x-12,{y,
-x
10
};​​empiricalPlot=DiscretePlot[breakeven[r],{x,1,20,1},PlotRange->All,AxesLabel->{"x","y"},PlotLabel->"f(x)"]
Out[]=
In[]:=
InverseSeries@Series2Gamma
1
1+x
,Exp[y]-x-12,{x,∞,2}
Out[]=
-x+-
1
2
+2Gamma[0,
y

]+
-2Gamma[0,
y

]Log[
y

]-2MeijerG[{{},{1,1}},{{0,0,0},{}},
y

]
x
+
1
2
x
-Gamma[0,
y

]Log[
y

]-4
2
Gamma[0,
y

]
Log[
y

]+Gamma[0,
y

]
2
Log[
y

]
-MeijerG[{{},{1,1}},{{0,0,0},{}},
y

]-4Gamma[0,
y

]MeijerG[{{},{1,1}},{{0,0,0},{}},
y

]+2Log[
y

]MeijerG[{{},{1,1}},{{0,0,0},{}},
y

]+2MeijerG[{{},{1,1,1}},{{0,0,0,0},{}},
y

]+
3
O
1
x
