多項式によるサインカーブ

Kenneth Iversonを読んでいたら、次のような例題がありました。
(MATH for the LAYMAN http://www.jsoftware.com/jwiki/Books#MathfortheLayman)

   fc=: 1 0 _1r2 0 1r24 0 _1r720 0 1r40320 & p.
   fs=: 0 1 0 _1r6 0 1r120 0 _1r5040 & p.
   x=: 1r3*i:10
   plot x; (fs x),:fc x
   fs=: 0 1 0 _1r6 0 1r120 0 _1r5040 & p.

これを実行すると次のようなグラフになります。

多項式でこうしたカーブを書くのは初めてなのでおもしろく感じました。
1 2 6 24 120 720 5040 40320
という数列は考えてみたら、自然数の積ですね。

   */\>:i.8
1 2 6 24 120 720 5040 40320

ためしに変数を広くとってみたら、次のようになったのでゼロ近辺の近似であることがわかります。

   x=: 1r3*i:15
   plot x; (fs x),:fc x