減衰

APL/J言語

Kenneth IversonのMath for the Laymanを読んでいたらdecay(減衰)の話が出てきてかわいいグラフが描けたのでご紹介。

   load 'plot'
   decay=: ^ @ - @ (]%[)
   plot (sin * 6 & decay) 1r10 * i.300