Расчет биоритмов

Опубликовано в журнале Hard'n'Soft №3 2003

Ты числами достал меня, Махмуд!
Арабскими и римскими - любыми.
Их больше, чем на белом свете Будд,
Им Легион - незначащее имя.
http://www.dol.ru/users/levinb/glup_fr.htm

Как-то давно, в доперестроечные времена, на иссык-кульском пляже собралась толпа зевак. Все смотрели на чудо – старик предсказывал будущее, желающие бросали монеты, а он по книге читал им предсказания. Это теперь ни одна газета не обходится без астрологического прогноза на неделю и пол-Рунета занимают гороскопы, а в «те времена далекие, теперь почти былинные» (В. Высоцкий), пронизанные научным коммунизмом, истматом, диаматом и прочими заклинаниями, предсказатель выглядел таким же чудом, как мамонт или динозавр.

Единственные предсказания, допускаемые воинствующим материализмом в популярные издания были прогнозы, основанные на биоритмах. У каждого человека (и животного) есть цикличность процессов в организме, проявляющаяся в так называемых биоритмах. Им посвящена обширная литература и достаточное число страничек в Сети. Четверть века назад журнал «Техника-молодежи» сообщал, что таксисты Тбилиси не допускались к работе в дни, когда все ритмы били в минусах.

При желании разобраться с биоритмами досконально сразу возникают вопросы, например, почему эти ритмы запускаются именно с момента рождения, почему с положительной фазы, почему период не зависит от возраста, от темперамента, расы или условий жизни? Попытайтесь разобраться, а нас пока удовлетворит то, что все «подопытные» уверяют, что совпадает 100%, и, самое главное, то, что расчет биоритмов так и просится для программной реализации. Действительно, здесь приятные упражнения с синусоидами совпадают с тем, что результат работы программы будет интересен вашим сотрудникам, однокурсникам или домочадцам. Итак, известны три ритма – эмоциональный 17 дней, интеллектуальный 23 дня и физический 25 дней. (В некоторых источниках указаны другие значения периодов, но эти – классические, общеизвестные, впрочем, это и не так важно, главное верить, что работает). Тут нас ждут приятные хлопоты, связанные с расчетом количества дней от введенной даты рождения до начала текущего месяца, для чего придется вспомнить о високосных годах и о разном числе дней в месяцах. Подставив же это количество дней плюс счетчик дней, деленные на период, в аргумент синуса сразу получаем готовый график. Надо лишь выбрать масштаб амплитуды, задать цвет линий и соединить посчитанные точки.

Текст программы на VB6

Dim emoc(32) As Double, fiz(32) As Double, intel(32) As Double Private Sub End_Click() End End Sub Private Sub Start_Click() Cls Pi = 4 * Atn(1) x0 = 20 y0 = 220 'Проверка введенной даты на корректность If (day_r < 1) Or (day_r > 31) Or (mon_r < 1) Or (mon_r > 12) _ Or (day_r = 31 And mon_r = 2) _ Or (day_r = 31 And mon_r = 4) _ Or (day_r = 31 And mon_r = 6) _ Or (day_r = 31 And mon_r = 9) _ Or (day_r = 31 And mon_r = 11) _ Or (year_r > 2001) Or (year_r < 1000) Then MsgBox ("Неверная дата") 'Вычисление количества дней от дня рождения до начала текущего месяца day_n = 0 mon_n = Month(Date) year_n = Year(Date) day_delta = day_n - day_r mon_delta = mon_n - mon_r year_delta = year_n - year_r If day_delta < 0 Then day_delta = day_delta + 30.437 mon_delta = mon_delta - 1 End If If mon_delta < 0 Then mon_delta = mon_delta + 12 year_delta = year_delta - 1 End If kol_day = day_delta + mon_day * 30.437 + year_delta * 365.25 kol_d = 31 If mon_n = 4 Or mon_n = 6 Or mon_r = 9 Or mon_r = 11 Then kol_d = 30 If mon_n = 2 Then kol_d = 28 'Определение функций трех ритмов For i = 0 To kol_d emoc(i) = -150 * Sin(2 * Pi * (kol_day + i) / 17) fiz(i) = -140 * Sin(2 * Pi * (kol_day + i) / 25) intel(i) = -130 * Sin(2 * Pi * (kol_day + i) / 23) Next i 'Рисование синусоид For i = 1 To kol_d Line (x0 + 15 * (i - 1), y0)-(x0 + 15 * i, y0), RGB(0, 0, 0) Line (x0 + 15 * (i), 70)-(x0 + 15 * i, 370), RGB(190, 190, 190) ' DrawWidth = 3 Line (x0 + 15 * (i - 1), y0 + emoc(i - 1))-(x0 + 15 * i, y0 + emoc(i)), RGB(255, 0, 0) Line (x0 + 15 * (i - 1), y0 + fiz(i - 1))-(x0 + 15 * i, y0 + fiz(i)), RGB(0, 205, 0) Line (x0 + 15 * (i - 1), y0 + intel(i - 1))-(x0 + 15 * i, y0 + intel(i)), RGB(0, 0, 255) DrawWidth = 1 PSet (x0 + 15 * i - 5, y0) Print i Next i PSet (5, 45) Print "Биоритмы на"; Month(Date); " месяц "; Year(Date); "года" Bioritm.ForeColor = RGB(255, 0, 0) PSet (200, 45) Print "Эмоциональный" Bioritm.ForeColor = RGB(0, 205, 0) PSet (300, 45) Print "Физический" Bioritm.ForeColor = RGB(0, 0, 255) PSet (380, 45) Print "Интелллектуальный" Bioritm.ForeColor = RGB(90, 90, 90) For i = 1 To 10 PSet (x0, y0 - i * 15) Print "+" PSet (x0, y0 + i * 15) Print "-" Next i End Sub

Високосные года учтены тем, что для определения количества дней мы число лет умножаем не на 365, а на 365.25, это вносит небольшую погрешность, которая уменьшается с возрастом испытуемого и в любом случае на вид биоритмов не влияет. Посчитайте свои биоритмы, рассмотрите синусоиды и непременно вспомните, что было недомогание в период физических минусов и озарения в период интеллектуальных максимумов не зависимо от того – верите ли вы в эти биоритмы или нет.

Можете также попробовать сделать аплет, рассчитывающий биоритмы и выложить в Сети, составив конкуренцию немногим существующим: http://biow.kc.ru/base/ - там приняты другие периоды циклов, на любвеобильном http://www.lovies.ru/prognoz/bioritm2.htm рассчитывают ритмы для парочек и дают сомнительные советы о том, насколько партнеры подходят друг другу.

На http://www.sapr_mgsu.chat.ru/goroscop/bioritm/bioritm.htm и на http://iwep.ad-sbras.nsc.ru/test/ также можно «провериться на ритмичность» и сравнить результаты с результатами нашей программы.