APL/J言語:多項式(polinomial)その2

APL/J言語:多項式(polinomial)その2

      • -

以下は例示です。

   c=: 1 2 1 [ d=: 1 3 3 1
   x=: 2 1 0 _1 _2
  ,.&.>*1 x
_648 _48 0 0 0

   f=: c&p.(+*-) d&p.
   f x
_648 _48 0 0 0

   ]g=: pD c pp d
5 20 30 20 5
  
   (g&p. ,: (c&p.*d&p.) D) x
405 80 5 0 5
405 80 5 0 5

*1:c pp d);((c pp d)&p. x);(c&p.*d&p.)x) +--+---+---+ | 1|243|243| | 5| 32| 32| |10| 1| 1| |10| 0| 0| | 5| _1| _1| | 1| | | +--+---+---+ ,.&.>((d&p.D x);(pD d);((pD d)&p. x);(pI d);pD pI d) +--+-+--+----+-+ |27|3|27| 0|1| |12|6|12| 1|3| | 3|3| 3| 1.5|3| | 0| | 0| 1|1| | 3| | 3|0.25| | +--+-+--+----+-+ ]e=: c(ps pp pd)d 0 _2 _9 _16 _14 _6 _1 e&p. x _648 _48 0 0 0 ( (c&p.+d&p.)*(c&p.-d&p.