Computer code for "The worst 1-PS for rational curves with a unibranch singularity" by Jackson and Swinarski

Example 1: The worst 1-PS for the semigroup \( \langle 2,3\rangle\) for varying \(N\)

We demonstrate the calculation used to produce the first entry in Table 1 in Section 7.

Macaulay2, version 1.24.05
with packages: ConwayPolynomials, Elimination, IntegralClosure, InverseSystems, Isomorphism,
               LLLBases, MinimalPrimes, OnlineLookup, PrimaryDecomposition, ReesAlgebra,
               Saturation, TangentCone, Truncations, Varieties

i1 : load "Worst1PS.m2"

i2 : worst1PSAsNVaries({2,3})
N=4, I = {}
N=16, I = {4}
N=29, I = {4, 5}
N=75, I = {5}
N=146, I = {5, 6}

o2 = {{4, 15, {}}, {16, 28, {4}}, {29, 74, {4, 5}}, {75, 145, {5}}, {146, infinity, {5, 6}}}

o2 : List