home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / kmpl9803.zip / 0_exp.cmd < prev    next >
OS/2 REXX Batch file  |  1998-02-14  |  548b  |  35 lines
  1. /* REXX-Funktion 0_exp.CMD */
  2.    "@ echo off"
  3.                    
  4.    parse arg x,ND
  5.    NUMERIC DIGITS ND+40
  6.  
  7.    if x=0 then do; u=1; signal W; end
  8.    if abs(x)>=1.0E9 then signal VW 
  9.  
  10.    xg=trunc(x)
  11.    xr=x-xg
  12.    yxg=efunk(1,ND)
  13.    yxr=efunk(xr,ND)
  14.    u=yxr*yxg**xg
  15.  
  16. W: numeric digits ND+5
  17.    return(Format(u))
  18. EXIT
  19.  
  20. efunk:
  21.    Procedure
  22.    arg x, ND+40
  23.    g=1; n=1; y=1
  24.    do forever
  25.      g=g*x/n
  26.      if abs(g/y) < 10**(-ND-30) then leave
  27.      y=y+g
  28.      n=n+1
  29.    end
  30.    return(y)
  31.    
  32. vW:
  33.    return(NULL)
  34.    EXIT
  35.