Workspace_tan()

Called by the generic function Tan(x) when x is of type Workspace.

WORKSPACE_TAN() w1=Workspace tan(w)

Workspace_tan

The default procedure definition and the calculation of errors for this procedure is shown below.

PROCEDURE workspace_tan; PARAMETERS w1=workspace; RESULT wres
	wres = w1
	wres.y = tan(w1.y)
	wres.e = w1.e/(cos(w1.y)^2)
ENDPROCEDURE