sec.m File Reference

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

---

Function Documentation

!assert

(

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

)

!error sec	(	1	,
		2
	)

!error sec

(

)

---

Variable Documentation

endfunction !test !rt2 = sqrt (2)

!rt3 = sqrt (3)

!v = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1]

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

endif w

Initial value:

 sec (z)

  if (nargin != 1)
    print_usage ()