-- -*- M2-comint -*- {* hash: 583468828 *}

i1 : A = typeA(3);

i2 : hilbertSeries multIdeal(3,A)

           18
      1 - T
o2 = --------
            4
     (1 - T)

o2 : Expression of class Divide

i3 : H = new MutableHashTable

o3 = MutableHashTable{}

o3 : MutableHashTable

i4 : scan(40,i -> (
                         s := i/20.;
                         I := multIdeal(s,A);
                         if not H#?I then H#I = {s} else H#I = H#I|{s}));

i5 : netList sort values H -- values of s giving same multiplier ideal

     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+
o5 = |0  |.05 |.1 |.15 |.2 |.25 |.3 |    |   |    |   |    |   |    |
     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+
     |.35|.4  |.45|.5  |.55|.6  |.65|    |   |    |   |    |   |    |
     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+
     |.7 |.75 |.8 |.85 |.9 |.95 |   |    |   |    |   |    |   |    |
     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+
     |1  |1.05|1.1|1.15|1.2|1.25|1.3|1.35|1.4|1.45|1.5|1.55|1.6|1.65|
     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+
     |1.7|1.75|1.8|1.85|1.9|1.95|   |    |   |    |   |    |   |    |
     +---+----+---+----+---+----+---+----+---+----+---+----+---+----+

i6 :