Function Dcos

Part of:

package f2cl-lib
( dcos < x > )