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

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

  1. Биоритмы человека
  2. Физический, эмоциональный, интеллектуальный циклы
  3. Программа для расчета значений на заданный день (или неделю)
  4. Вывод на диаграмму 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-файл

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


Условия получения кода?    Показать?


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

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





Если у Вас остались вопросы, то задать их Вы можете, нажав на эту кнопочку ...


исходный код на заказ. orenstudent.ru Автоматизация документов MS Office. orenstudent.ru исходный код на заказ. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
Весь код по 49 руб


Не попадайтесь на удочку мошенников-кидал...
Сайт помощи студентам по программированию и информатике

Program code