In[]:=
ClearAll["`*"]
In[]:=
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->Φ
In[]:=
Plot[f[Φ],{Φ,-1,3},PlotRange->{Automatic,{-50,50}},GridLines->Automatic,AxesLabel{"Φ","f[Φ]"}]
Out[]=
In[]:=
Plot[f[Φ],{Φ,-1,3},PlotRange->{Automatic,{-70,70}},GridLines->Automatic,GridLinesStyleDirective[Orange,Dashed],AxesOrigin{1,0},PlotLegends"f[Φ]",AxesLabel{"Φ","f[Φ]"}]
Out[]=
f[Φ]
In[]:=
Plot[f[Φ],{Φ,-1,3},PlotRange->{Automatic,{-70,70}},GridLines->{Table[n,{n,-1,3,1/5}],Table[n,{n,-70,70,10}]},GridLinesStyleDirective[Green],AxesOrigin{1,0},PlotLegends"f[Φ]",AxesLabel{"Φ","f[Φ]"}]
Out[]=
f[Φ]