##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October, 2016 # Modified: 2016-10-08/19:06-0400 ##+ # # atanh.icn, demonstrate the atan function # procedure main() write("atanh(r): -pi/2 to pi/2, Range: -1.0 <= x <= 1.0") every r := -1.0 to 1.0 by 0.25 do { write(left("atanh(" || r || ")", 24), " = ", atanh(r), " radians") } end