(D4)               CSM$USERS:[WHEREMAN.NSFSYMMETRY]S_HD.OUT;1

(C5) batch("s_hd.dat")$

(C6) /* Data file for the HARRY DYM equation */
/* For use with SYMMGRP.MAX */

/* number of independent variables: */

p : 2$

(C7) /* number of dependent variables: */

q : 1$

(C8) /* number of equations in the system: */

m : 1$

(C9) warnings:false$

(C10) parameters : [] $

(C11) sublisteqs :[all]$

(C12) subst_deriv_of_vi:true$

(C13) highest_derivatives : all$

(C14) info_given : false$

(C15) e1 : u[1,[0,1]]-u[1]^3*u[1,[3,0]];

                                         3
(D15)                      U          - U  U
                            1, [0, 1]    1  1, [3, 0]


(C16) v1 : u[1,[0,1]];

(D16)                              U
                                    1, [0, 1]

(C18) symmetry(1,0,0)$

/*********************************************************/

/*      WELCOME TO THE MACSYMA PROGRAM FOR THE           */

/*         CALCULATION OF THE SYMMETRY GROUP             */

/*                 IN BATCH MODE                         */

/*       WRITTEN BY B. CHAMPAGNE AND W. HEREMAN          */

/*         Project Supervision: P. WINTERNITZ            */

/*        Version 2.0 released on May 29, 1995           */

/*                   Copyright 1991                      */

/*********************************************************/

*** Number of determining equations before simplifications: 21 . ***

*** Number of determining equations after simplifications: 8 . ***

*** These determining equations are stored in LODE. ***

(C19) printeqn(lode)$

              d
Equation 1 : --- (ETA ) = 0
             dU      2
               1

              d
Equation 2 : --- (ETA ) = 0
             dX      2
               1

              d
Equation 3 : --- (ETA ) = 0
             dU      1
               1

              2
             d
Equation 4 : --- (PHI ) = 0
               2     1
             dU
               1

Equation 5 :

   2              2
  d              d
------- (PHI ) - --- (ETA ) = 0
dU  dX      1      2     1
  1   1          dX
                   1

Equation 6 :

                  3
 d            3  d
--- (PHI ) - U  (--- (PHI )) = 0
dX      1     1    3     1
  2              dX
                   1

Equation 7 :

         3                                3
   3    d                d            3  d
3 U  (------- (PHI )) + --- (ETA ) - U  (--- (ETA )) = 0
   1        2     1     dX      1     1    3     1
      dU  dX              2              dX
        1   1                              1

Equation 8 :

     d                   d
U  (--- (ETA )) - 3 U  (--- (ETA )) + 3 PHI  = 0
 1  dX      2        1  dX      1          1
      2                   1

(C20) save("lodehd.lsp",lode)$

(C21) closefile();