In[]:=
CompoundExpression[
]
​​deploy
Sun 7 May 2023 02:08:51
Related question:
​https://math.stackexchange.com/questions/4693978/tricky-laplace-transform-problem​
​https://math.stackexchange.com/questions/4686487/solving-frac-partial-partial-t-f-hf-int-mathrm-d-i-h-f​
​
Related notebooks:
- https://www.wolframcloud.com/obj/yaroslavvb/nn-linear/forum-mean-field-equation.nb
In[]:=
ClearAll["Global`*"];​​d=∞;​​p=11/10.;​​h1=
-p
(i+1.)
/Zeta[p];​​z1=s+2h1;​​relError[a_,b_]:=
(a-b)
a
;​​int1=
d
∫
0
h1
z1
i;​​int2=
d
∫
0
2
h1
z1
i;​​times=Table[t,{t,2000000.,10000000,2000000}];​​cvals=TableInverseLaplaceTransform
int1
1
int2
-1
,s,t,{t,times};​​Print["continuous: ",cvals];​​SF=StringForm;​​ListLinePlot[{times,cvals},AxesLabel->{"t","f(t)"},PlotLabel->SF["p=``",p]]
continuous: {0.140605,0.137127,0.134958,0.133369,0.132109}
Out[]=