PolynomialMod

*To*: mathgroup at smc.vnet.net*Subject*: [mg121334] PolynomialMod*From*: Artur <grafix at csl.pl>*Date*: Sun, 11 Sep 2011 07:28:34 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Reply-to*: grafix at csl.pl

Dear Mathematica Gurus, Who is able help me to write Mathematica procedure which will be improovment of recent PolynomialMod. If we do PolynomialMod[ 1 + 3 #1 + 5 #1^2 + 5 #1^3 + 5 #1^4 + 3 #1^5 + #1^6, -1 + 2 #1^2 + #1^3] result is OK 1 + 6 #1 + 6 #1^2 But if we do PolynomialMod[1 + 3 #1 + 5 #1^2 + 5 #1^3 + 5 #1^4 + 3 #1^5 + #1^6, -1 + (-(3/2) - (I Sqrt[23])/2) #1 + (3/2 - (I Sqrt[23])/2) #1^2 + #1^3] Result is wrong good should be -2 + (-(1/2) - (I Sqrt[23])/2) x + x^2 Who is able to write good one procedure e.g. PolMod to automatic reduction of any degree polynomials by polynomial smaller degree? Best wishes Artur Jasinskii

**Follow-Ups**:**Re: PolynomialMod***From:*Andrzej Kozlowski <akoz@mimuw.edu.pl>