|
|
|
|
|
|
|
| ☜ | $%CSINDraft MDC Standard | ☞ | ||||
CSIN(Z,PREC) ;
New IA,E1,E2
;
Set PREC=$Get(PREC,11)
;
Set IA=$%CMUL^MATH(Z,"0%1")
Set E1=$%CEXP^MATH(IA,PREC)
Set IA=-IA_"%"_(-$Piece(IA,"%",2))
Set E2=$%CEXP^MATH(IA,PREC)
Set IA=$%CSUB^MATH(E1,E2)
Set IA=$%CMUL^MATH(IA,"0.5%0")
Quit $%CMUL^MATH("0%–1",IA)
|
|
|
|
|
|
|
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:03:23.
For comments, contact Ed de Moel (demoel@jacquardsystems.com)