Может быть есть аналог mod для Extended?

← →
Пгуые (2006-09-21 17:27) [0]

Может быть есть аналог mod для Extended?

Реализую вывод графиков биоритмов. Через TChart. Что обьявлено:

const Period: array [0..2] of Extended = (23.6884, 28.4261, 33.1638);

Вот кусок кода, отвечающий за добавление новых точек на графике:

for a:=0 to 2 do BiorithmChart.Series[a].AddXY(i,Sin((2*Pi)/Period[a]*(Days mod Period[a])),IntToStr(DayOf(D))+#13+IntToStr(MonthOf(D)));

Естественно, ошибка на (Days mod Period[a]), т.к mod только для integer. Использование integer (т.е будут 23,28,33 в константах) не допускается, т.к результаты буду совсем левыми. Может кто знает, как подружить mod и extended?

← →
palva © (2006-09-21 17:51) [1]

Разделить взять Frac и снова умножить.

← →
Наиль © (2006-09-21 18:05) [2]

> Sin((2*Pi)/Period[a]*(Days mod Period[a]))

т.к. синус периодичный, то достаточно Sin(2*P*Days/Period[a])

← →
Пгуые (2006-09-21 20:58) [3]

Спасибо за ответы. Ваш метод, Наиль, подошел ) благодарю

Может быть есть аналог mod для Extended? Найти похожие ветки