☜	$%COTH Draft MDC Standard					☞

2 MATH Library
2.24 COTH

COTH(X,PREC) ;
	New SINH
	If 'X Quit "INFINITE"
	;
	Set PREC=$Get(PREC,11)
	Set SINH=$%SINH^MATH(X,PREC)
	If 'SINH Quit "INFINITE"
	Quit $%COSH^MATH(X,PREC)/SINH

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:49:39.

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