SetDirectory["d:\\democondens\\webtest"]

(* Then,  select a number from the list,  
      for example 1 with the Korteweg - 
        de Vries equation. *)  
 (* 
      Enter your choice in the pop - 
        up window,  (which may get hidden behind your notebook window). *)

Get["condens2009.m"]

pdeform[listallrhos]

listallrhos

pdeform[rho[x, t]]

split[j[x, t]]

split[rho[x, t]]

rho[x, t]