acoth.m File Reference

Functions
	!assert (all(abs(acoth(x)-v)< sqrt(eps)))
!error	acoth ()
!error	acoth (1, 2)
Variables
function	w
endfunction!test	!rt2 = sqrt (2)
	!rt3 = sqrt (3)
	!v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6]
	!x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3]

---

Function Documentation

!assert

(

all(abs(acoth(x)-v)< sqrt(eps))

)

!error acoth	(	1	,
		2
	)

!error acoth

(

)

---

Variable Documentation

endfunction !test !rt2 = sqrt (2)

!rt3 = sqrt (3)

!v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6]

!x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3]

endif w

Initial value:

 acoth (z)

  if (nargin != 1)
    print_usage ()