|
|
|
|
|
|
|
| ☜ | $%SQRTDraft MDC Standard | ☞ | ||||
SQRT(X,PREC) ;
If X<0 Set $Ecode=",M28,"
If X=0 Quit 0
;
Set PREC=$Get(PREC,11)
If X<1 Quit 1/$%SQRT^MATH(1/X,PREC)
;
New P,R,E
Set PREC=$Get(PREC,11)+1
Set @("E=1E-"_PREC)
;
Set R=X
For Set P=R,R=X/R+R/2,P=P-R/R If -E<P,P<E Quit
Quit R
|
|
|
|
|
|
|
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 30-Nov-2011, 20:08:05.
For comments, contact Ed de Moel (demoel@jacquardsystems.com)