Algebra of Lie symmetries of viscous Burgers' equation

SetDirectory[NotebookDirectory[]];

<<"SymboLie.wl"

gens={{1,0,0},{0,1,0},{0,t,1},{2 t,x,-u},{t^2,t x,x- t u}};vars={t,x,u};pars={{},{}};

cs=StructureConstants[gens,vars];

CommutatorTable[cs]//MatrixForm

Timing[alg1=SubAlgebra[cs,pars,1];]

PrintOptimal[alg1]

PrintGraph[alg1,1]

Timing[alg2=SubAlgebra[cs,pars,2];]

PrintOptimal[alg2]

PrintGraph[alg2,1]

Timing[alg3=SubAlgebra[cs,pars,3];]

PrintOptimal[alg3]

PrintGraph[alg3,1]

Timing[alg4=SubAlgebra[cs,pars,4];]

PrintOptimal[alg4]

PrintGraph[alg4,1]

alg = {alg1,alg2,alg3,alg4}

SessionTime[]