Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples
☜

$%COSH

Draft MDC Standard

☞

2 MATH Library
2.22 COSH

COSH(X,PREC) ;
	New E,F,I,P,R,T,XX
	Set PREC=$Get(PREC,11)+1
	Set @("E=1E-"_PREC)
	Set XX=X*X,F=1,(P,R,T)=1,I=1
	For  Set T=T*XX,F=I+1*I*F,R=T/F+R,P=P-R/R,I=I+2 If -E<P,P<E Quit
	Quit R
Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples

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:02:15.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)