load("c:\\Users\\whereman.NATH\\data\\maxima-5.44.0\\s-KdV-run1-Sep8-2020.lsp");

batchload("c:\\Users\\whereman.NATH\\data\\maxima-5.44.0\\symmgrp2020.max")$

printeqn(lode);

printselecteqn(lode,1,4);

printselecteqn(lode,5,8);

/* Select the output cell with determining equations, */
/* right click to copy it in different formats, e.g., as an image which can be */
/* inserted into a Word document for easy printing. */ 

/* you can also test a solution of the determining equations. Note that kkk should be 1. */

eta[1] : (k1/3)*x[1]+k3*x[2]+k4;

eta[2] : k1*x[2]+k2;

phi[1] : -kkk*(2/3)*k1*u[1]+k3/bb;

lodeevaluated : printeqn(factor(ev(lode,diff)));