From fbc3bac41301ae35e9e93f1ef51016d256ba9158 Mon Sep 17 00:00:00 2001 From: Mahrud Sayrafi Date: Tue, 9 Jul 2024 14:31:59 -0500 Subject: [PATCH] optimized basis(ZZ, Matrix) --- M2/Macaulay2/m2/basis.m2 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/M2/Macaulay2/m2/basis.m2 b/M2/Macaulay2/m2/basis.m2 index d3deab2c56..6b12c89171 100644 --- a/M2/Macaulay2/m2/basis.m2 +++ b/M2/Macaulay2/m2/basis.m2 @@ -179,7 +179,7 @@ inducedBasisMap = (G, F, f) -> ( -- this helper routine is useful for computing basis of a pair of composable -- matrices or a chain complex, when target f is the source of a matrix which -- we previously computed basis for. - psi := f * inducedMap(source f, , generators F); + psi := f * F.cache.Monomials; -- equivalent to f * inducedMap(source f, , gens F) phi := last coefficients(ambient psi, Monomials => generators G); map(G, F, phi, Degree => degree f)) -- TODO: benchmark against inducedTruncationMap in Truncations.m2