Функціонування складних саморозвиваються в часі відбувається неоднорідно. Їх характеристики схильні до змін, які підпорядковуються якимось нелінійним закономірностям. Звичайно, це відноситься і до такої складної системи, як людина. Фізичний стан, емоційний фон, інтенсивність і швидкість протікання розумових процесів схильні до впливу різних космічних, соціальних та інших зовнішніх і внутрішніх факторів.
Коли мова йде про нелінійному законі зміни, то перше, що спадає на думку - це циклічні коливання. Саме так і затверджується в традиційному і колись популярному вченні про біоритми *. Всього розрізняють три основних ритму - фізичний, емоційний і інтелектуальний. До них ще іноді додають четвертий - інтуїтивний, або надчутливий. Фізичний, емоційний та інтелектуальний цикли мають періоди, відповідно, в 23, 28 і 33 дня. Сверхчувственное або інтуїтивне сприйняття змінюється з періодом в 38 днів. Всі цикли, згідно з вченням про біоритми, беруть свій початок від дати народження і далі супроводжують людину протягом всього подальшого життя.
Програми, які зазвичай застосовуються для розрахунку біоритмів, виводять графіки трьох або чотирьох синусоїд на зазначеному часовому проміжку. А можна підійти до питання трохи інакше. Основних циклу три - фізичний, емоційний і інтелектуальний. І чистих кольорів теж три - червоний, зелений і синій. Що якщо поставити кожному циклу у відповідність свій чистий колір, а потім розфарбувати кожен день в календарі поточного року квітами, розрахованими по вашим біоритмам. Виходить кумедно. Адже кажуть, що життя смугаста. Ось ви і визуализируете ці смуги. До того ж такий календар виглядає досить святково і нарядно, незважаючи на неминучу присутність в ньому темних смуг. Зате тепер ви знаєте, чого чекати від життя :-).
Завдяки наявності в Visual Basic спеціального типу даних і набору процедур роботи з датами, програмування не викликає особливих проблем. Для початку необхідно ввести дату народження і рік, для якого буде здійснюватися розрахунок. Потім організуємо цикл від 1 січня до 31 грудня зазначеного року. У циклі розрахуємо кількість днів, які прожиті даною особою від дати народження до поточної дати. Отриману величину розділимо, відповідно, на 23, 28 і 33. Залишки від ділення і дадуть нам номер дня в кожному з трьох циклів. Потім розрахуємо для отриманих значень інтенсивність світіння кожної з трьох чистих колірних компонент. За допомогою функції RGB (x, y, z) змішаємо їх і отримаємо результуючий колір, в який і забарвимо поточний день. Використовуємо функції day і month для того, щоб виділити з змінної циклу число і місяць, які використовуємо як координати стовпців і рядків.
Private Sub Ok_Click () Dim d, n Dim c As Double pi = 3.141593 b = Birthday.Text y = YearForCalculation.Text For d = DateSerial (y, 1, 1) To DateSerial (y, 12, 31) n = DateDiff ( "d", b, d) f = n Mod 23 e = n Mod 28 i = n Mod 33 x = 255 * ((Sin ((f / 23) * 2 * pi)) + 1) / 2 y = 255 * ((Sin ((e / 28) * 2 * pi)) + 1) / 2 z = 255 * ((Sin ((i / 33) * 2 * pi)) + 1) / 2 j = Day (d ) k = Month (d) c = RGB (x, y, z) Screen.Line (14 * (j - 1), 24 * (k - 1)) - (14 * j - 1, 24 * k - 1 ), c, BF Next d End Sub
Очевидно, що найбільш несприятливі дні, пофарбовані в темні, сутінкові тони. Це означає, що ваше фізичне, емоційне і розумовий стан одночасно перебувають у стані занепаду. Дні, пофарбовані в яскраво виражені червоні тони, будуть характеризуватися фізичним підйомом на тлі емоційного та інтелектуального спаду. Зелені зони - час для буйства пристрастей, супроводжуваного не надто хорошим самопочуттям і дрімає розумом. Холодний розум буде превалювати в сині дні. Більш сприятливі дні, пофарбовані в яскраві змішані кольору. Наприклад, яскраво жовта тиждень означає емоційний підйом і хороше самопочуття. Ну і, звичайно, самий пік - це білі дні, коли все прекрасно: і тіло, і душа, і думки. На зображенні наведено приклад розрахунку кольорових біоритмів на 2003 рік чудовою французької співачки Патрісії Каас, яка відсвяткувала свій день народження 5 грудня.
Колесник, [email protected]
* Вальтер А. Аппель. Біоритми: підходите ви один одному / Переклад з німецької Аверіна Л.В. - М .: "Нолидж", 1996 г.
