(* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *)
(* File: polyharm.tst *)
(* Created: September 13, 1991 *)
(* Revised: December 11, 1992 *)
(* *)
(* Tested with the aid of Mathematica Version 2.0 for Microsoft Windows. *)
(* ======================================================================== *)
(* *)
(* Testing Program for PolyHarm Package *)
(* *)
(* *)
(* by Alexander Urintsev *)
(* *)
(* ======================================================================== *)
(* *)
(* INPUT DATA ARE AS FOLLOWS: *)
mmax = 2 (* maximum power of Laplace- or wave- equation operator *)
nmax = 4 (* maximum power of computed homogeneous polynomials *)
kmax = 4 (* amount of independent variables *)
(* VariableDegree=True - to calculate the homogeneous polynomials of *)
(* powers: from power=0 to power=n, including; *)
(* VariableDegree=False - to calculate the homogeneous polynomials of *)
(* power=n only. *)
VariableDegree = True
(* PrtForm=1 - to get output of polynomials and also information about *)
(* current errors; *)
(* PrtForm=2 - no output of polynomials. *)
PrtForm = 2
(* ======================================================================== *)
<