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

Dir : ~/usr/share/Macaulay2/MonodromySolver/

View File Name : misc.m2

-- self-explanatory
polynomialsWithSameSupportsAndRationalCoefficients = listOfPolynomials -> (
    p := first listOfPolynomials;
    S := QQ[gens ring p];
    apply(listOfPolynomials, p -> (
    	    (mons, coeffs) := coefficients p;    
    	    monsQQ := matrix apply(
		first \ exponents \ flatten entries mons,
		e -> {product apply(e, gens S, (ei, gi) -> gi^ei)}
		);
    	    coeffsQQ := matrix{for i from 1 to numcols mons list 1_QQ};
    	    (coeffsQQ*monsQQ)_(0,0)
	    )
    )
)
-- needed something less error-prone than random QQ (used for random specializations, eg. for mixed volumes
randomRationalNumber = () -> random(-50,50)/random(1,10)