/11/24 10:39:22 In[11]:=
u[Φ_]:=1+Csch[Φ]+Tanh[Φ]​​β=κ=α=κ0=k=1;​​ω=ak+br+cs+
1
96
(8
3
k
β+9kακ0(16+5ακ0));​​f[Φ_]:=ak+br+cs-ω+
15
32
k
2
α
2
u[Φ]
u'[x]+
1
6
3
k
βu'''[x]/.x->Φ
/11/24 10:39:28 In[17]:=
Plot[f[Φ],{Φ,0,3}]
/11/24 10:39:28 Out[17]=