(* d_7ski.m *)
(* Menu item 1-10 *)

(* Last Updated:  14 May, 2007, 13:03 by DP at CSM *)

(***  SEVENTH ORDER KdV - SK-Ito Case  ***)

skitorules = {aa -> 252, bb -> 63, cc -> 378, dd -> 126, ee -> 63,
              ff -> 42, gg -> 21};

eq[1] = D[u[1][x,t],t] + aa*u[1][x,t]^3*D[u[1][x,t],x] +
        bb*D[u[1][x,t],x]^3 +
        cc*u[1][x,t]*D[u[1][x,t],x]*D[u[1][x,t],{x,2}] +
        dd*u[1][x,t]^2*D[u[1][x,t],{x,3}] +
        ee*D[u[1][x,t],{x,2}]*D[u[1][x,t],{x,3}] +
        ff*D[u[1][x,t],x]*D[u[1][x,t],{x,4}] +
        gg*u[1][x,t]*D[u[1][x,t],{x,5}] +
        D[u[1][x,t],{x,7}] /. skitorules;

diffFunctionListINPUT = {eq[1]};
numDependentVariablesINPUT = 1;
independentVariableListINPUT = {x};
nameINPUT = "Seventh order KdV-SK-Ito Equation";

parametersINPUT = {};
weightedParametersINPUT = {};

userWeightRulesINPUT = {};
rankRhoINPUT = Null;
explicitIndependentVariablesInDensitiesINPUT = Null;
formRhoINPUT = {}

formrho[x,t] = {};

(* d_7ski.m *)
(* end of file *)
