forum.boolean.name - Откидывание периода угла

forum.boolean.name (http://forum.boolean.name/index.php)

- Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)

- - Откидывание периода угла (http://forum.boolean.name/showthread.php?t=1480)

impersonalis

12.09.2006 18:15

Откидывание периода угла

Функция приводит аргумент в значение 0 до 359

Код:

Function ConvertAng#(ang#)

;приведение к виду (0;359)

        If ang<0

                ang=ang+Ceil(Abs(ang)/360)*360

        ElseIf ang>=360

                ang=ang-Floor(ang/360)*360

        EndIf

        Return ang

End Function





Graphics 800,600

For i=1 To 360*3

        Plot i/2,ConvertAng#(i)

Next



While Not KeyHit(1)

Flip

Wend

End

pax	21.09.2006 00:18

Re: Откидывание периода угла

Вот еще один вариант:

Код:

Function ConvertAng2#(ang#)

        ang# = ang# Mod 360

        If ang# < 0 Then ang# = ang# + 360

        Return ang#

End Function

Часовой пояс GMT +4, время: 10:11.