##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: August, 2016 # Modified: 2016-10-03/22:46-0400 ##+ # # cos.icn, demonstrate the the Cosine function # procedure main() write("cos(r): Domain all real repeating within 0 <= r <= 2pi (in radians), Range: -1 <= x <= 1") every r := 0.0 to &pi * 2 by &pi/4 do { write(left("cos(" || r || ")", 24), " radians = ", cos(r)) } end