
(* h_cal.m *)

(* Last Updated: August 16, 2012 at 18:00 in Golden *)

(* debug = False; *)

(***             An equation due to Calogero             ***)
(*** u_t - 3 (u^2 u_x + 3 u u_x^2 + u^4 u_x) - u_3x = 0  ***)

eq[1][x,t] = D[u[1][x,t],t]-3((u[1][x,t])^2*D[u[1][x,t],{x,2}]+
             3*u[1][x,t]*(D[u[1][x,t],x])^2+(u[1][x,t])^4*D[u[1][x,t],x])-
             D[u[1][x,t],{x,3}];
noeqs = 1;
name = "An equation due to Calogero";
parameters = {};
weightpars = {};

formrho[x,t] = {};

(* h_cal.m *) 
