Биоритмы человека. Программа для расчета VBA Excel

Простой пример, как из одних данных (дата рождения и длины циклов 23,28,33,54,84) с помощью макроса получить нужные данные (циклические графики биоритмов человека), т.е. расчетные значения на заданный день

1. Биоритмы человека
2. Физический, эмоциональный, интеллектуальный циклы
3. Программа для расчета значений на заданный день (или неделю)
4. Вывод на диаграмму Excel с помощью VBA
5. Добавлены Психокинетический и Астро-ментальный циклы

Приложение Excel, со встроенным механизмом макросов на языке VBA, как нельзя лучше подходит для этих целей.

Биоритмы человека

Мне лично не очень-то верилось, но какое-то время назад была популярна теория о трёх, неизменных ритмах (физической, интеллектуальной и эмоциональной активности с периодами в 23, 28, 33 дня, соответственно), рассчитываемых от даты рождения..

Ну почему бы этот алгоритм не положить на VBA?.

Рис.1        Биоритмы человека

А в целом, то, что показатели (значения) состояния человека (и физического, и эмоционального, и интеллектуального) изменяются во времени - это «к гадалке не ходи». Любой из нас может без труда найти примеры из собственного опыта... В определенные дни, даже проделав большую физическую или интеллектуальную работы - бывает совсем не чувствуешь усталость... Чего нельзя сказать про некоторые другие дни (неудачные для данного вида деятельности).

Вот только вопрос синусоидальные ли это колебания? И еще... насколько стабилен их период?

Может для установления показателя состояния человека лучше использовать не синусоидальный график, а программу тестирования в конкретный день И таким образом определять свои возможности в физическом, эмоциональном и интеллектуальном плане на сегодня

Физический, эмоциональный, интеллектуальный циклы

Физическая составляющая состояния человека характеризует его энергичность. Так, ориентируясь на этот показатель, можно говорить о выносливости, целеустремленности, инициативности, амбициозности.

Эмоциональная составляющая - это чувствительность к восприятию всех внешних факторов и внутренних переживаний (проблем). Поэтому в отдельные дни интуиция человека поразительна. Также с этим показателем связывают творческие способности индивидуума.

Интеллектуальная составляющая - это о возможностях умственной деятельности. Логика, рациональность, безошибочность подсчетов и перебора вариантов, плюс в какой-то мере, осторожность.

Программа для расчета значений на заданный день (или неделю)

Считаем количество дней от даты рождения до заданного дня.

SumDays = DateDiff("d", Cells(2, 1), Date + sf)
Где
     SumDays - сумма дней
     Date - функция, возвращающая системную дату компьютера (сегодняшнюю дату)
     sf - смещение от сегодняшней даты (влево или вправо)


Находим поочередно, через оператор Mod, остаток от деления (по модулю) на длину каждого из циклов.

Переводим этот остаток в радианы, считая что весь цикл это 2π радиан И находим синус...

Это и будет значение одного из показателей (физического, эмоционального или интеллектуального), которое синусоидально изменяться от -1 до 1 и обратно.

по коду:

'значение заданного параметра на заданный день
Private Function Znachenie(D As Integer, z As Integer) As Double
      Znachenie = Sin(2 * Pi * D / z)
End Function

Где
     D - остаток по модулю (или количество дней в последнем, не завершенном цикле)
     z - длина периода цикла


Вывод на диаграмму Excel с помощью VBA

Цветовую гамму диаграммы можете изменять по своему вкусу

Диапазоны чтения данных диаграммы тоже можно менять (например, сделать на месяц, а не на неделю, как сейчас), но только вместе с макросом, который рассчитывает и заполняет каждую ячейку Excel в трех строках Excel соответствующих циклов.

Могу проконсультировать по вопросам VBA по Вашей теме... Обращайтесь...

Тестирование - это наиболее важный этап в жизненном цикле программного продукта. Поэтому не верьте картинкам, фильмам и сказкам…

Только личное тестирование во всех наиболее сложных сочетаниях данных - должно убедить Вас в доброкачественности алгоритма и исходного кода!

Кому интересен код, скачать xls-файл для тестирования

Добавлены Психокинетический и Астро-ментальный циклы

Небольшая доработка…

А здесь можно скачать xls-файл не с тремя, а с пятью циклами, включая, Психокинетический цикл 54 дня (воплощение мыслей) и Астро-ментальный цикл (или Духовно-целительный) 84 дня отвечает за сон.
(подсказала Анна Литвиненко)

Все! Если после щелчка по "Запуск" Вы не видите результата, значит у Вас не включены макросы...

Другие примеры на языке «Visual Basic for application - VBA»

Другие примеры на тему «Математические методы компьютерной 2D 3D графики»