oh,there are some useless [ and ]s,a shorter version is recur=:(] * [: +/\ %) */\
2008/3/9, Xu Zuoqian <[EMAIL PROTECTED]>: > Oh,Mike,your solution is so beautiful! > > recur=:[ (] * [:+/\ [ % ]) [: */\ ] > EMA2=:([EMAIL PROTECTED] , [ * [EMAIL PROTECTED]) recur (1, (<:@[EMAIL > PROTECTED]) $ [EMAIL PROTECTED]) > > (0.1&EMA -: 0.1&EMA2) p:i.10 > 1 > > 6!:2 '0.1&EMA i.1e6' > 2.80876 > > 6!:2 '0.1&EMA1 i.1e6' > 3.781998 > > 6!:2 '0.1&EMA2 i.1e6' > 0.314285 > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
