/* Command file w_kdvru3.com for Korteweg-de Vries equation */
/* Uses the file w_kdvru3.dat and symmgrp2009.max under Macsyma */

batchload("d:\\macsyma\\macsyma2\\symmetry\\symmgrp2009.max")$

/* writefile("d:\\macsyma\\macsyma2\\symmetry\\w_kdvru3.out"); */

batch("d:\\macsyma\\macsyma2\\symmetry\\w_kdvru3.dat")$
symmetry(1,0,0)$
printeqn(lode)$ 

save("d:\\macsyma\\macsyma2\\symmetry\\wlodekdvru3.lsp",lode)$ 

/* closefile(); */
/* quit(); */

/* end of command file w_kdvru3.com */