Home › groups › Hive group

Progress sin, cos, tan finally resolved !

Fri, 2011-08-12 18:24 — alonb

Every once in a while a question comes up in the Progress forums ...

I can't find the sin, cos, tan functions ?

I'm happy to say this question has finally been resolved

thanks to Jeff Pilant who donated the sin, cos, tan functions

to the Progress STandard Libraries (STL) open source project.

http://www.oehive.org/project/lib


/* test-slibmath.p */

{slib/slibmath.i}



define var iDegree as int no-undo.

repeat iDegree = 0 to 360 by 5:

    display
        iDegree                             format ">>9"                column-label "Degree"
        math_tan( math_deg2rad( iDegree ) ) format "->9.99999999999"    column-label "tan"
        math_sin( math_deg2rad( iDegree ) ) format "->9.99999999999"    column-label "sin"
        math_cos( math_deg2rad( iDegree ) ) format "->9.99999999999"    column-label "cos"
    with width 320 stream-io.

end. /* repeat */