|
|
|
|
|
|
|
| ☜ | $%EXPDraft MDC Standard | ☞ | ||||
EXP(X,PREC) ;
New L,LIM,K,VALUE
Set PREC=$Get(PREC,11)
Set L=X,VALUE=X+1
Set LIM=$Select((PREC+3)'>11:PREC+3,1:11),@("LIM=1E-"_LIM)
For K=2:1 Set L=L*X/K,VALUE=VALUE+L Quit:($Translate(L,"-")<LIM)
Quit VALUE
|
|
|
|
|
|
|
Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.
Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.
This page most recently updated on 16-Nov-2023, 16:50:44.
For comments, contact Ed de Moel (demoel@jacquardsystems.com)