Algebra of Symmetries of 2 D stable viscous gas equations:
 S . V . Meleshko. Group classification of two - dimensional stable viscous gas equations . 
 Int . J . Non - Linear Mech ., vol. 34, 1999, 449 - 456.

SetDirectory[NotebookDirectory[]];

<< "SymboLie.wl"

gens={{1,0,0,0,0,0},{0,1,0,0,0,0},{-y,x,-v,u,0,0},{-x,-y,0,0,ρ,p},{0,0,u,v,ρ,3p}};vars={x,y,u,v,ρ,p}; pars={{},{}};

cs=StructureConstants[gens,vars];

ct=CommutatorTable[cs];ct//MatrixForm

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

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

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

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

PrintOptimal[alg1]

PrintGraph[alg1,1]

PrintOptimal[alg2]

PrintGraph[alg2,1]

PrintOptimal[alg3]

PrintGraph[alg3,1]

PrintOptimal[alg4]

PrintGraph[alg4,1]

alg={alg1,alg2,alg3,alg4}

SessionTime[]