From 189442f556e878dbaaa525bc119847864895e85f 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 692b5387f86..3919cebdbda 100644 --- a/M2/Macaulay2/m2/basis.m2 +++ b/M2/Macaulay2/m2/basis.m2 @@ -180,7 +180,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