load("c:\\Users\\whereman.NATH\\data\\maxima-5.44.0\\s-HD-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] : k2*x[1]+k3*x[1]^2+k1;

eta[2] : 3*(k2-k4)*x[2]+k5;

phi[1] : kkk*(2*k3*x[1]+k4)*u[1];

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