cot.m File Reference

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

---

Function Documentation

!assert

(

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

)

!error cot	(	1	,
		2
	)

!error cot

(

)

---

Variable Documentation

endfunction !test !rt2 = sqrt (2)

!rt3 = sqrt (3)

!v = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3]

!x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6]

endif w

Initial value:

 cot (z)

  if (nargin != 1)
    print_usage ()