batch("c:\\Users\\whereman.NATH\\data\\maxima-5.44.0\\s-mZK-run4c-Sep8-2020.dat");

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

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

printeqn(lode);

eta1;

eta2;

eta3;

phi1;

/* assignment to eta[1], etc. is necessary if lode was generated with info_given : false */

/* I inserted a factor kkk to make sure that everything works properly. */
/* Determining equations should only be satisfied when kkk = 1. */

eta[1] : kkk*eta1;

eta[2] : eta2;

eta[3]:eta3;

phi[1]: phi1;

/* substituting the eta[1], etc. into the determining equations */

lodesubstituted : printeqn(ev(lode));

/* add qualifier diff to ev to compute the derivatives and simplify with expand or factor */

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