SLIDE 31 @ D @ D @ D @ D @ D @ D @ D @ D @ D @ D @ D @ D @ D @ D Vars = Union@Table@x@iD, 8i, 1, 4<DD êê N; Vars = Append@Vars, m2D 8x@1.D, x@2.D, x@3.D, x@4.D, m2< D For@i = 1, i § Length@GBD, i++, Print@i, " : ", GB@@iDDD; D 1 : 31.9034 + 1. m2 2 : 3.44658 + 1. x@4.D 3 : -0.196787 + 1. x@3.D 4 : 3.15867 + 1. x@2.D 5 : 4.39864 + 1. x@1.D
ü variabl
@ GB = GroebnerBasis@Cut@0, 1, 2, 3, 4D, VarsD; D D D D D
ü
D Num5 = H c@0D + Sum@c@i1D * Vars@@i1DD, 8i1, 1, Length@VarsD<D + Sum@c@i1, i2D * Vars@@i1DD * Vars@@i2DD, 8i1, 1, Length@VarsD<, 8i2, i1, Length@VarsD<D + Sum@c@i1, i2, i3D * Vars@@i1DD * Vars@@i2DD * Vars@@i3DD, 8i1, 1, Length@VarsD<, 8i2, i1, Length@VarsD<, 8i3, i2, Length@VarsD<D + Sum@c@i1, i2, i3, i4D * Vars@@i1DD * Vars@@i2DD * Vars@@i3DD * Vars@@i4DD, 8i1, 1, Length@VarsD<, 8i2, i1, Length@VarsD<, 8i3, i2, Length@VarsD<, 8i4, i3, Length@VarsD<D + Sum@c@i1, i2, i3, i4, i5D * Vars@@i1DD * Vars@@i2DD * Vars@@i3DD * Vars@@i4DD * Vars@@i5DD, 8i1, 1, Length@VarsD<, 8i2, i1, Length@VarsD<, 8i3, i2, Length@VarsD<, 8i4, i3, Length@VarsD<, 8i5, i4, Length@VarsD<D L < <D c@0D + m2 c@5D + m22 c@5, 5D + m23 c@5, 5, 5D + m24 c@5, 5, 5, 5D + m25 c@5, 5, 5, 5, 5D + c@1D x@1.D + m2 c@1, 5D x@1.D + m22 c@1, 5, 5D x@1.D + m23 c@1, 5, 5, 5D x@1.D + m24 c@1, 5, 5, 5, 5D x@1.D + c@1, 1D x@1.D2 + m2 c@1, 1, 5D x@1.D2 + m22 c@1, 1, 5, 5D x@1.D2 + m23 c@1, 1, 5, 5, 5D x@1.D2 + c@1, 1, 1D x@1.D3 + m2 c@1, 1, 1, 5D x@1.D3 + m22 c@1, 1, 1, 5, 5D x@1.D3 + c@1, 1, 1, 1D x@1.D4 + m2 c@1, 1, 1, 1, 5D x@1.D4 + c@1, 1, 1, 1, 1D x@1.D5 + c@2D x@2.D + m2 c@2, 5D x@2.D + m22 c@2, 5, 5D x@2.D + m23 c@2, 5, 5, 5D x@2.D + m24 c@2, 5, 5, 5, 5D x@2.D + c@1, 2D x@1.D x@2.D + m2 c@1, 2, 5D x@1.D x@2.D + m22 c@1, 2, 5, 5D x@1.D x@2.D + m23 c@1, 2, 5, 5, 5D x@1.D x@2.D + @ D @ D @ D @ D @ D @ D @ D @ D @ D @ @ D @ Length@%D 252
ü due
PolynomialReduce MonomialList resto 4.39864
...