; ACos Example
; ------------

; ACos is the inverse of Cos: given a cosine value between -1.0 and
; 1.0, it returns the matching angle in DEGREES, from 180 down to 0.

Print "     value  ACos(value)"
Print "-----------------------"

For n=-4 To 4
    v#=n/4.0
    Print RSet(v,10)+RSet(ACos(v),12)
Next

Print ""

; Feeding a cosine back through ACos recovers the original angle
Print "Cos(60)       = "+Cos(60)
Print "ACos(Cos(60)) = "+ACos(Cos(60))

Print ""
Print "Press any key to close the example"
WaitKey

End