Биоритмы человека. Программа для расчета VBA Excel
Простой пример, как из одних данных (дата рождения и длины циклов 23,28,33,54,84) с помощью макроса получить нужные данные (циклические графики биоритмов человека), т.е. расчетные значения на заданный день
- Биоритмы человека
- Физический, эмоциональный, интеллектуальный циклы
- Программа для расчета значений на заданный день (или неделю)
- Вывод на диаграмму Excel с помощью VBA
- Добавлены Психокинетический и Астро-ментальный циклы
Приложение 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 графики»
Если у Вас остались вопросы, то задать их Вы можете, нажав на эту кнопочку ...
Поделиться в соц сетях: