ObjectScript Reference
$ZCOT


$ZCOT(n)
n  An angle in radians. 
READ "Input a number: ",num IF num=0 { WRITE !,"zero is an illegal value" } ELSE { WRITE !,"the cotangent is: ",$ZCOT(num) } QUIT
WRITE !,"the cotangent is: ",$ZCOT(1.0) WRITE !,"the cotangent is: ",$ZCOT($DOUBLE(1.0)) WRITE !,"the cotangent is: ",$ZCOT(1.0) WRITE !,"the cotangent is: ",$ZCOT($DOUBLE(1.0)) WRITE !,"the cotangent is: ",$ZCOT($ZPI/2) WRITE !,"the cotangent is: ",$ZCOT($DOUBLE($ZPI)/2)