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.