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

Reply via email to