One Hat Cyber Team
Your IP :
216.73.216.14
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
/
View File Name :
arith1.m2
-- done: abs, divide, gcd, lcm, minus, plus, power, times, unary_minus -- not done / maybe todo: product, root, sum --- From OpenMath --- OMSEvaluators#"arith1" = new MutableHashTable; OMSEvaluators#"arith1"#"abs" = (args, attrs) -> ( a := apply(args, fromOpenMath); abs(a#0)) OMSEvaluators#"arith1"#"divide" = (args, attrs) -> ( a := apply(args, fromOpenMath); a#0/a#1 ) OMSEvaluators#"arith1"#"gcd" = (args, attrs) -> gcd(apply(args, fromOpenMath)) OMSEvaluators#"arith1"#"lcm" = (args, attrs) -> lcm(apply(args, fromOpenMath)) OMSEvaluators#"arith1"#"minus" = (args, attrs) -> ( a := apply(args, fromOpenMath); a#0 - a#1 ) OMSEvaluators#"arith1"#"plus" = (args, attrs) -> sum(apply(args, fromOpenMath)) OMSEvaluators#"arith1"#"power" = (args, attrs) -> ( a := apply(args, fromOpenMath); (a#0)^(a#1) ) OMSEvaluators#"arith1"#"times" = (args, attrs) -> ( a := apply(args, fromOpenMath); (a#0)*(a#1) ) OMSEvaluators#"arith1"#"unary_minus" = (args, attrs) -> ( a := apply(args, fromOpenMath); -(a#0)) -- OMSEvaluators#"arith1.product" = (args, attrs) -> -- OMSEvaluators#"arith1.root" = (args, attrs) -> -- OMSEvaluators#"arith1.sum" = (args, attrs) ->