Wolfram Cloud Document

ClearAll[a,b,t,x,α]α:=2;a:=2.5;b:=-1;d:=3;

k[t,x]

0

=

-3a+3

2

3/2

a

tTanh

a

x

2



b+bCosh[

a

x]

;R1[t_,x_,m_,α_]:=

∂

x,x



k[t,x]

m-1

+a*

k[t,x]

m-1

+b*

m-1

∑

i=0

k[t,x]

i

*

k[t,x]

m-1-i

;Table

k[t,x]

m

=Integrate[

α-1

(t-z)

*((R1[t,x,m,α])/.tz),{z,0,t},GenerateConditionsFalse]Gamma[α],{m,1,d};sum1=

d

∑

i=0

k[t,x]

i

;