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

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

printeqn(lode);

printselecteqn(lode,1,10);

printselecteqn(lode,11,16);

/* 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] : cc1*(x[1]+2*mm*x[3])+cc3;

eta[2] : (cc4+2*aa*cc1)*x[3]+cc1*x[2]+cc5;

eta[3] : 3*cc1*x[3]+cc2;

phi[1] : -kkk*2*cc1*u[1]+cc4;

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