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

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

printeqn(lode);

printselecteqn(lode,1,27);

printselecteqn(lode,1,24);

printselecteqn(lode,1,5);

/* 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*x[2]+k2;

eta[2] : -k1*x[1]+k3;

eta[3] : k4;

eta[4] : k5;

phi[1] : 0;

phi[2] : k7*a1*x[4]^2+k8*a1*x[4]+k9;

phi[3] : -kkk*2*k7*x[4]-k8;

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