Workspace_cos()

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

WORKSPACE_COS() w1=Workspace cos(w)

Workspace_cos

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

PROCEDURE workspace_cos; PARAMETERS w1=workspace; RESULT wres
	wres = w1
	wres.y = cos(w1.y)
	wres.e = abs( sin(w1.y) * w1.e )
ENDPROCEDURE