SetDirectory["d:\\demopdespecialsolutions"]

SetDirectory["e:\\data\\demoPDESpecialSolutions\\\
AnalyzeSolveMarch2010"]

Get["PDESpecialSolutionsV3.m"]

??  PDESpecialSolutions

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

uu[x_] := 
      (1/2) k (1 + Tanh[(1/2) (2 phase + r x)])

D[uu[x], x]

PDESpecialSolutions[{D[u[x],  x]  - 
            a1* u[x]  +  (a1/a2)*u[x]^2  ==  0},  
      u[x],  {x},  {a1, a2},  Form -> Tanh,  
      Verbose  ->  True]

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},  Verbose  ->  True]

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

(* Example 11 :  
        Another Coupled KdV Systems (due to Guha and Roy) *)

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[{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,  
      Verbose  ->  True]

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,  
      Verbose  ->  True]

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]

generalizedfisherequation  =   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)

PDESpecialSolutions[{generalizedfisherequation  == 0},  
      u[x, t],  {x, t},  {},  Form -> Tanh,  
      Verbose  ->  True]

transformedgeneralizedfisherequation  =  
      generalizedfisherequation  /. 
{u[x, 
              t]   ->  
            v[x, t]^(2/3),  Derivative[m_, n_][u][x, 
              t]  ->  D[v[x, t]^(2/3), {x, m}, {t, n}]}

transformedfisherequation  = 
      Numerator[ 
        Factor[transformedgeneralizedfisherequation]]

PDESpecialSolutions[{transformedfisherequation  == 0},  
      v[x, t],  {x, t},  {},  Form -> Tanh,  
      Verbose  ->  True]