SetDirectory["d:\\demopdespecialsolutions"]

Get["PDESpecialSolutionsV2.m"]

??  PDESpecialSolutions

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

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

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]

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}]

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}, 
      SolveAlgebraicSystem -> False]

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]

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]

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], 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]*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}]

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}]

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]

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]

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[{u[x, t]*D[u[x, t], t]  - 
            u[x, t]*D[u[x, t], {x, 2}]  - D[u[x, t], x]^2   - 
            u[x, t]^2*(1 - u[x, t]^3)  ==  0}, {u[x, t]}, {x, 
        t}, {},  Form  ->  Tanh]

lhsoldfisher  =  
      u[x, t]*D[u[x, t], t]  - u[x, t]*D[u[x, t], {x, 2}]  - 
        D[u[x, t], x]^2   - u[x, t]^2*(1 - u[x, t]^3)

lhrnewfisher  =  
      Numerator[
        Factor[lhsoldfisher  /.  {u[x, t]  ->  v[x, t]^(2/3), 
              D[u[x, t], t]  ->   D[v[x, t]^(2/3), t],  
              D[u[x, t], x]  ->   D[v[x, t]^(2/3), x],  
              D[u[x, t], {x, 2}]  ->   D[
                  v[x, t]^(2/3), {x, 2}]}]]

PDESpecialSolutions[{-9 v[x, t]^2+9 v[x, t]^4+6 v[x, t] Derivative[0, 1][v][x, t]-2 ((Derivative[1, 0][v][x, t])^2)-6 v[x, t] Derivative[2, 0][v][x, t]== 0},{v[x, t]},{x, t},{}, Form  ->  Tanh]

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}]

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},  Form -> SechTanh]

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 -> SechTanh]

PDESpecialSolutions[{D[u[x],  x]  - (r/k)* 
              u[x]*( k - u[x])  ==  0},  
      u[x],  {x},  {r, k},  Form -> Tanh]

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

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