SetDirectory["d:\\yourdirectory"]

<< PDESpecialSolutions.m

(* 
      Be aware :  sometimes you have to retype the <<  above,  
      due to a small parsing error *) 
 (* 
      in Mathematica *) 
 (* 
      Never read in codes twice .  
          Quit the kernel prior to any new attempt. *)

Standard Cases

PDESpecialSolutions[
      D[u[x, t],  t]  +  6*alpha*u[x, t]*D[u[x, t], x]  +  
          D[u[x, t], {x, 3}]  ==  0,  
      u[x, t],  {x, t},  {alpha},  Form -> Tanh,  
      Verbose  ->  True,  SymbolicTest  ->  True,  
      NumericTest  ->  True,  
      HighestOrderFirst  ->  False]

PDESpecialSolutions[{D[u[x, t], {t, 2}] - D[u[x, t], {x, 2}] + 
            3*u[x, t]*D[u[x, t], {x, 2}] + 3*(D[u[x, t], x])^2 + 
            alpha*D[u[x, t], {x, 4}]  ==  0},  {u[x, t]},  {x, 
        t},  {alpha},  Verbose -> True,  Form -> Tanh,  
      SymbolicTest -> True,  NumericTest  ->  True]

PDESpecialSolutions[{D[u[x, t], t] + D[v[x, t], x]  ==  0,  
        D[v[x, t],  t] + D[u[x, t],  x] - 3*u[x, t]*D[u[x, t], x] - 
            alpha*D[u[x, t], {x, 3}]  ==  0},  {u[x, t], 
        v[x, t]},  {x, t},  {alpha},  Verbose -> True,  
      Form -> Tanh,  SymbolicTest -> True]

PDESpecialSolutions[{
D[u[x, t], 
              t]  - 
alpha * (6 * u[x, t] * 
                    D[u[x, t], x]   +   D[
                    u[x, t],  {x, 3}])  + 
2 * 
              beta * v[x, t]* D[v[x, t],  x]   == 
          0, 
D[v[x, t], t]  +  
3*
              u[x, t]*D[v[x, t], x]  + 
D[
              v[x, t], {x, 3}]  ==  
          0
}, 
{u[x, t],  v[x, t]}, {x, 
        t}, {alpha,  beta},  Form -> Sech,  
      Verbose  ->  True,  NumericTest -> True,  
      SymbolicTest  ->  True,  
      HighestOrderFirst  ->  False]

PDESpecialSolutions[
      D[u[x, y, z, t],  t]  +  6*u[x, y, z, t]^2*D[u[x, y, z, t], x]  +  
          D[u[x, y, z, t], {x, 1}, {y, 1}, {z, 1}]  ==  0,  
      u[x, y, z, t],  {x, y, z, t},  {},  Form -> Sech,  
      Verbose -> True]

PDESpecialSolutions[{D[u[x, t],  t]  -  D[u[x, t],  x]  -  
            2*v[x, t]  ==  0,  
        D[v[x, t],  t]  +  2*u[x, t]*w[x, t]  ==  0,  
        D[w[x, t],  t]  +  2*u[x, t]*v[x, t]  ==  0},  {u[x, 
          t],  v[x, t],  w[x, t]},  {x, t},  {},  
      Form -> SechTanh]

PDESpecialSolutions[
      D[u[x, y, z, t], t]  +  
alpha*u[x, y, z, t]*
            D[u[x, y, z, t], x]  + 
D[
            u[x, y, z, t],  {x, 3}] + 
D[u[x, y, z, t],  
            y,  y, y]  + 
D[u[x, y, z, t],  z,  z,  
            z]  == 0, 
u[x, y, z, 
        t], 
{x, y, z, 
        t}, 
{alpha}]

PDESpecialSolutions[
      D[u[x, y, z, t], t]  +  
alpha*u[x, y, z, t]*
            D[u[x, y, z, t], x]  + 
D[
            u[x, y, z, t],  {x, 3}] + 
D[u[x, y, z, t],  
            x,  y, y]  + 
D[u[x, y, z, t],  x,  z,  
            z]  == 0, 
u[x, y, z, 
        t], 
{x, y, z, t}, 
{alpha},  
      Form -> Sech]

PDESpecialSolutions[
      D[u[x, y, z, t],  t]  + 
alpha * 
            u[x, y, z, t] ^ 2 * 
            D[u[x, y, z, t], x]  +  
D[
            u[x, y, z, t],  {x, 3}] + 
D[u[x, y, z, t],  
            x,  y, y]  + 
D[u[x, y, z, t],  x,  z,  
            z]  == 0, 
u[x, y, z, 
        t], 
{x, y, z, 
        t}, 
{alpha}]

PDESpecialSolutions[
      D[u[x, y, z, t],  t]  + 
alpha * 
            u[x, y, z, t] ^ 2 * 
            D[u[x, y, z, t], x]  +  
D[
            u[x, y, z, t],  {x, 3}] + 
D[u[x, y, z, t],  
            x,  y, y]  + 
D[u[x, y, z, t],  x,  z,  
            z]  == 0, 
u[x, y, z, 
        t], 
{x, y, z, t}, 
{alpha},  
      Form -> Sech]

PDESpecialSolutions[
D[u[x, t], 
            t]  +  
u[x, t]* 
            D[u[x, t], x]  +  
D[
            u[x, t], {x, 2}] + 
alpha* 
            D[u[x, t], {x, 3}]  +  
D[
            u[x, t], {x, 4}]  ==  0, 
u[x, 
        t], 
{x, 
        t}, 
{alpha},   Form  ->  
        Tanh]

PDESpecialSolutions[{
D[u[x, t], 
              t]  - 
alpha * (6 * u[x, t] * 
                    D[u[x, t], x]   +   D[
                    u[x, t],  {x, 3}])  + 
2 * 
              beta * v[x, t]* D[v[x, t],  x]   == 
          0, 
D[v[x, t], t]  +  
3*
              u[x, t]*D[v[x, t], x]  + 
D[
              v[x, t], {x, 3}]  ==  
          0
}, 
{u[x, t],  v[x, t]}, {x, 
        t}, {alpha,  beta},  Form -> Cn,  NumericTest -> True,  
      Verbose -> True]

PDESpecialSolutions[{
D[u[x, t], 
              t]  +  
 α * v[x, t]*
              D[v[x, t], x]  +  
β*u[x, t]*
              D[u[x, t], x]  + 
γ * 
              D[u[x, t], {x, 3}]  == 
          0, 
D[v[x, t], 
              t]  +  
δ*
              D[u[x, t]*v[x, t], x]  + 
ϵ*v[x, t]*
              D[v[x, t], x]  == 
          0
}, 
{u[x, t],  
        v[x, t]}, 
{x, 
        t}, 
{α,  β,  γ ,  δ, ϵ},  
Form -> Sech,  
      Verbose -> True]

PDESpecialSolutions[{
D[u[x, t], 
              t]  - 
D[
              u[x, t], {x, 2}]  - 
u[x, 
                t]*(1 - u[x, t])  ==  
          0
}, 
{u[x, t]}, {x, 
        t}, {}]

PDESpecialSolutions[{
beta*
              D[v[z], z]  +  
Sqrt[2]*
              D[v[z],  {z, 2}]  - 
Sqrt[2]*
              v[z]*(1 - Sqrt[2]*v[z])*(alpha - 
                  Sqrt[2]*v[z])  ==  
          0
}, 
{v[
          z]}, 
{z}, 
{alpha,  beta},  
      NumericTest -> True]

PDESpecialSolutions[{
D[u[x, t], 
              t]  - 
D[u[x, t], 
              x]  - 
2*v[x, t]  ==  
          0, 
D[v[x, t], t]  - 
2*
              epsilon*u[x, t]*v[x, t]  == 
          0
}, 
{u[x, t], v[x, t]}, {x, 
        t}, {epsilon}]

PDESpecialSolutions[
      D[u[x, t], t]  + 
6*alpha*u[x, t]*
            D[u[x, t], x]  + 
6*beta*u[x, t]^2*
            D[u[x, t], x]  + 
gamma*
            D[u[x, t],  {x, 3}]  == 0, 
u[x, 
        t], {x, t}, {alpha,  beta,  gamma}]

PDESpecialSolutions[
      D[u[x, t], t]  + 
6*alpha*u[x, t]*
            D[u[x, t], x]  + 
6*beta*u[x, t]^2*
            D[u[x, t], x]  + 
gamma*
            D[u[x, t],  {x, 3}]  == 0, 
u[x, 
        t], {x, t}, {alpha,  beta,  gamma},  Form -> Sech]

PDESpecialSolutions[{D[u[x],  {x,  2}]  +  u[x]  +  
            alpha*u[x]^3  ==  0},  u[x],  {x},  {alpha},  
      Form -> Sn,  Verbose -> True,  
      SymbolicTest -> True]

PDESpecialSolutions[{D[
              u[x],  {x,  2}]  +  u[x]  +  alpha*u[x]^3  ==  
          0},  u[x],  {x},  {alpha},  Form -> Cn,  
      Verbose -> True,  SymbolicTest -> True]

China

PDESpecialSolutions[
      D[u[x, t], t]  +  u[x, t]*D[u[x, t], x]  + 
          p*D[u[x, t],  {x,  3}]  == 0,  
      u[x, t],  {x, t},  {p},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], {t, 2}]  + 2*q* u[x, t]*D[u[x, t], {x, 2}]  +  
          2*q*(D[u[x, t],  x])^2  +  p*D[u[x, t],  {x, 2}]  +  
          r*D[u[x, t],  {x,  4}] == 0,  
      u[x, t],  {x, t},  {p, q, r},  Verbose  ->  True,  
      Form  ->  sn,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t]  + u[x, t]*D[u[x, t], x]  +  D[u[x, t],  x]  -  
          p*D[u[x, t],  {x, 2}]  - q*D[u[x, t],  {x,  3}] == 0,  
      u[x, t],  {x, t},  {p, q},  Verbose  ->  True,  
      Form  ->  sn,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t]  + u[x, t]*D[u[x, t], x]  +  D[u[x, t],  x]  -  
          p*D[u[x, t],  {x, 2}]  - q*D[u[x, t],  {x,  3}] == 0,  
      u[x, t],  {x, t},  {p, q},  Verbose  ->  True,  
      Form  ->  tanh,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[{D[u[x, t], 
              t]  + u[x, t]*D[u[x, t], x]  +  D[v[x, t],  x]  + 
            s*D[u[x, t],  {x, 2}] == 
          0,  
D[v[x, t], t]  + u[x, t]*D[v[x, t], x] + 
            v[x, t]*D[u[x, t], x]  +  r*D[v[x, t],  {x, 2}]  + 
            p*D[u[x, t],  {x, 3}] == 0},  
 {u[x, 
          t], v[x, t]},  {x, t},  {p, r, s},  Verbose  ->  True,  
      Form  ->  tanh,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[{D[u[x, t], 
              t]  + u[x, t]*D[u[x, t], x]  +  D[v[x, t],  x]  + 
            q*D[D[u[x, t],  {x, 2}], t] == 
          0,  
D[v[x, t], t]  + u[x, t]*D[v[x, t], x] + 
            v[x, t]*D[u[x, t], x]  + p*D[u[x, t],  {x, 3}] == 
          0},  
 {u[x, t], v[x, t]},  {x, t},  {p, 
        q},  Verbose  ->  True,  Form  ->  tanh,  
      NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[{D[
              u[x, t], t]  + u[x, t]*D[u[x, t], x]  +  D[v[x, t],  x]  + 
            q*D[D[u[x, t],  {x, 2}], t] == 
          0,  
D[v[x, t], t]  + u[x, t]*D[v[x, t], x] + 
            v[x, t]*D[u[x, t], x]  + p*D[u[x, t],  {x, 3}] == 
          0},  
 {u[x, t], v[x, t]},  {x, t},  {p, 
        q},  Verbose  ->  True,  Form  ->  sn,  
      NumericTest  ->  True,  
      SymbolicTest  ->  True]

Abbott

PDESpecialSolutions[
      D[u[x, t], t] +  u[x, t]*D[u[x, t], x] - 
          D[u[x, t],  {x,  5}]  == 0,  u[x, t],  {x, t},  {},  
      Form  ->  sn,  Verbose  ->  True,  
      NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + alpha* u[x, t]^2*D[u[x, t], x] - 
          D[u[x, t],  {x,  5}]  == 0,  
      u[x, t],  {x, t},  {alpha},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] - sigma*u[x, t]*D[u[x, t], x] + u[x, t]^3*D[u[x, t], x] - 
          D[u[x, t],  {x,  7}]  == 0,  
      u[x, t],  {x, t},  {sigma},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], {t, 2}] - gamma* D[u[x, t], {x, 2}] + alpha*u[x, t] -  
          beta*u[x, t]^2 == 0,  
      u[x, t],  {x, t},  {alpha, beta,  gamma},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + u[x, t]*D[u[x, t], x] + D[u[x, t], {x, 2}] + 
          sigma*
D[u[x, t], {x, 3}] + 
          D[u[x, t],  {x,  4}] + 
          epsilon*D[u[x, t]*D[u[x, t], x], x]  == 0,  
      u[x, t],  {x, t},  {sigma, epsilon},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + u[x, t]* D[u[x, t], x] + D[u[x, t], {x, 3}] - 
          D[u[x, t], {x, 5}] == 0,  u[x, t],  {x, t},  {},  
      Form  ->  sn,  Verbose  ->  True,  
      NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + sigma*u[x, t]*D[u[x, t], x] + 
          u[x, t]^2*D[u[x, t], x] + 
D[u[x, t], {x, 3}] - 
          D[u[x, t],  {x,  5}] == 0,  
      u[x, t],  {x, t},  {sigma},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + 
          D[6*u[x, t]^5 + 
              10*alpha*(u[x, t]^2* D[u[x, t], {x, 2}] + 
                    u[x, t]*D[u[x, t], x]^2) + D[u[x, t], {x, 4}], 
            x] == 0,  u[x, t],  {x, t},  {alpha},  
      Form  ->  sn,  Verbose  ->  True,  
      NumericTest  ->  True,  
      SymbolicTest  ->  True]

PDESpecialSolutions[
      D[u[x, t], t] + 
          D[20*alpha*u[x, t]^7 + 
              70*(u[x, t]^4* D[u[x, t], {x, 2}] + 
                    2*u[x, t]^3*D[u[x, t], x]^2) + 
14*
                alpha*(u[x, t]^2* D[u[x, t], {x, 4}] + 
                    3*u[x, t]*D[u[x, t], {x, 2}]^2 + 
4*
                      u[x, t]* D[u[x, t], x]*D[u[x, t], {x, 3}] + 
                    5*D[u[x, t], {x, 2}]*
                      D[u[x, t], x]^2) + 
D[
                u[x, t], {x, 6}], x] == 0,  
      u[x, t],  {x, t},  {alpha},  Form  ->  sn,  
      Verbose  ->  True,  NumericTest  ->  True,  
      SymbolicTest  ->  True]