^ 2 7.38906 (%!i.40) p. 2 7.38906 (^ = (%!i.40)&p.) 0j1p1 1 I'd just use ^
-- Raul On Sat, Dec 21, 2013 at 5:43 PM, km <k...@math.uh.edu> wrote: > Verb exp below uses the series for monadic ^ to calculate ^ y . Can you > remind me how to do exp tacitly? You may omit the "clean" part. Verb > clean replaces tiny real numbers by 0 . > > clean =: (* *!.1e_14@|)"0&.+. > > exp =: 3 : 0 > os =. 0 > s =. 1 > k =. 0 > t =. 1 > while. s ~: os do. > os =. s > k =. >: k > t =. t * y % k > s =. s + t > end. > clean s > ) > > exp 1 > 2.71828 > > ^1 > 2.71828 > > exp 0j1p1 > _1 > > ^ 0j1p1 > _1j1.22465e_16 > > (^0j1p1) = exp 0j1p1 > 1 > > VERSION NB. iPad > 1.3 5 > > --Kip Murray > > Sent from my iPad > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm