ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : OAM                                  2:5020/400     12 Jul 2001  17:03:04
 To : All
 Subject : Re: Рассчет биоpитма
 -------------------------------------------------------------------------------- 
 

 
 Рабочий пример на Clipper расчета биоритмов
 
 DiffDays := Today - BirthDate
 BioPsy := Int(100 * Sin((2 * Pi() / 28) * (DiffDays % 28)) )        //
 Эмоциональный    уровень
 BioInt := Int(100 * Sin((2 * Pi() / 33) * (DiffDays % 33)) )            //
 Интеллектуальный уровень
 BioPhy := Int(100 * Sin((2 * Pi() / 23) * (DiffDays % 23)) )         //
 Физический       уровень
 
 Pi() = 3.14159
 DiffDays % 23 - остаток от целочисленного деления на 23
 100  -  коэффициент для построения графика
 
 Today - дата вычисления уровней
 BirthDate - дата рождения
 DiffDays - количество дней между ними
 
 Андрей Максименко
 -----------
 И всё это - вилами по воде...
 --- ifmail v.2.15dev5
  * Origin: Comint Ltd (post does not reflect views of Comint Ltd) (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор