In[]:=
(***Figure1***)ClearAll[u]v=0.5;u[x_,t_]:=4ArcTan[(v*Sinh[x/(1-)])/(Cosh[v*t/(1-)])]Labeled[Plot3D[u[x,t],{x,-20,20},{t,0,30},ColorFunctionFunction[{x,t,z},RGBColor[x,t,2x+2t]],AxesLabel{"x","t","u(x,t)"}],"Figure 1: Breathers type soliton for SG equation"]
2
v
2
v
Out[]=
Figure 1: Breathers type soliton for SG equation |
In[]:=
(***Figure2***)ClearAll[u]β=1;α=2.5;γ=.75;d=0.5;n=1;ξ0=2;u[x_,t_]:=(-β)/(2*γ)+(Sqrt[-4*α*γ]*Tanh[d])(2*γ)*Tanh[d*n+(((-4*α*γ)*Tanh[d])(2*γ))*t+ξ0]Labeled[Plot3D[u[x,t],{x,-10,10},{t,0,20},ColorFunctionFunction[{x,t,z},RGBColor[x,t,2x+2t]],AxesLabel{"x","t","u(x,t)"}],"Figure 2: Breathers type soliton for SG equation"]
2
β
2
β
\
Out[]=
Figure 2: Breathers type soliton for SG equation |
In[]:=
(***Figure3***)ClearAll[u]β=1;α=2.5;b0=-1;d=0.5;n=1;ξ0=2;γ=.75;ξn=d*n+(((-4*α*γ)*Tanh[d])(2*γ))*t+ξ0;u[x_,t_]:=((-β)/(2*γ))*(Exp[ξn]+b0*Exp[-ξn])+(((-4*α*γ)*Tanh[d])*(Exp[ξn]-b0*Exp[-ξn]))(b0*Exp[-ξn]+Exp[ξn])Labeled[Plot3D[u[x,t],{x,-10,10},{t,0,20},ColorFunctionFunction[{x,t,z},RGBColor[x,t,2x+2t]],AxesLabel{"x","t","u(x,t)"}],"Figure 3: exp-function method"]
2
β
\
2
β
Out[]=
Figure 3: exp-function method |