NB. written by NAKANO yoshihiro wr=: 1!:2&2 rd=: 1!:1 NB. * (2 16) decibase 0.199997 NB. cf. 2b1.0011011 NB. * 2 antidb 0.0011011 decibase=: 3 : 0 : X =. 0{ x n =. 1{ x Y =. y i=.0 GY=. 0. label_1. yx=. ( Y * X ) lyx=. <. yx dyx =. yx - lyx Y =. dyx GY=. GY, lyx i=.i+1 if. i < n do. goto_1. end. wr ' 0. ' }. GY ) antidb=: 3 : 0 : X=.x dx=.% X Y=.y cy=. ": Y n=. _2 + # cy adb=. 0.0 i=.1 label_i. dxi=. dx^i cyi=. (i+1) { cy yi=. ". cyi dxy=. dxi * yi adb=. adb + dxy i=.i+1 if. i < n+1 do. goto_i. end. adb )