Simple package for replacing combinations of constants with single constants.

Package provides one function: `GroupConstants`

. To see how it works we first create an example expression:

` expr = (3 c + d + E^(2 x) + 4 π x^2 + 2 a b x z Log[y])/(5 h i x + e y^(5 f g));`

Replace combinations of constants with default parameters, treat `x`

and `y`

as variables:

```
GroupConstants[expr, {x, y}]
(* {
(E^(2 x) + 4 π x^2 + C[4] + x C[5] Log[y])/(x C[1] + y^C[3] C[2]),
<|C[1] -> 5 h i, C[2] -> e, C[3] -> 5 f g, C[4] -> 3 c + d, C[5] -> 2 a b z|>
} *)
```

Replace combinations of constants with `k<i>`

symbols, treat only `x`

as a variable:

```
GroupConstants[expr, x, GeneratedParameters -> (Symbol["k" <> ToString[#]] &)]
(* {
(E^(2 x) + k3 + k4 x + 4 π x^2)/(k2 + k1 x),
<|k1 -> 5 h i, k2 -> e y^(5 f g), k3 -> 3 c + d, k4 -> 2 a b z Log[y]|>
} *)
```