Вычисление биологических ритмов человека

Специалисты насчитывают до 100 биологических ритмов (биоритмов), влияющих на работоспособность и самочувствие человека. Наиболее известными биоритмами являются физический (ФБ), эмоциональный (ЭБ), интеллектуальный (ИБ). Каждый биоритм имеет положительную и отрицательную фазы и нулевую точку - точку перемены знака фазы. В положительной фазе человек достигает более высоких результатов, быстрее восстанавливает ресурсы организма. В отрицательной фазе самочувствие хуже. Особенно плохое самочувствие отмечается в дни перемены знака фазы. Дни, когда два или все три цикла меняют знак фазы, называются критическими.

Программа, используя в качестве временной точки отсчета заданную дату, вычисляет значения функций биоритмов:

ФБ = sin(2р*N/23),

ЭБ = sin(2р*N/28),

ИБ = sin(2р*N/33),

где N - число дней, прошедших со дня рождения D1M1G1 (D - день, М - месяц, G - год) до текущей даты D2M2G2.

Исходные данные заносятся в ячейки памяти:

D1 → П7, M1 → П8, G1 → П9, D2 → П4, M2 → П5, G2 → П6, h → П1 (h - шаг изменения времени от точки отсчета; h = 1 - день вперед, h = -1 - день назад от точки отсчета).

Результаты вычислений записываются в ячейки памяти:

ФБ → П7, ЭБ → П8, ИБ → П9, N → П0.

Инструкция по пользованию программой для МК-52 с БРП-4

• 1. Наберите адрес 1133098 и введите программу, нажав клавиши А↑, ↑↓.
• 2. Установите переключатель Р/ГРД/Г в положение Р.
• 3. Введите исходные данные.
• 4. Включите счет, нажав клавиши В/0, С/П. Время вычисления 51 с.
• 5. Считайте результаты вычисления значений функции ФБ, ЭБ, ИБ для точки отсчета.
• 6. Включите счет, нажав клавишу С/П. Время вычисления около 15 с.
• 7. Считайте результаты для следующей временной точки.
• 8. Для повторного запуска программы повторите пп.5,6.
• 9. Постройте графики функций ФБ, ЭБ, ИБ.

Инструкция по пользованию программой для ЭКВМ

• 1. Загрузите программу с нулевого адреса.
• 2. Кнопкой "Р-ГРД-Г" установите режим Р.
• 3. Введите исходные данные.
• 4. Включите счет, нажав клавиши В/0, С/П.
• 5. Считайте результаты вычисления значений функции ФБ, ЭБ, ИБ для точки отсчета.
• 6. Включите счет, нажав клавишу С/П.
• 7. Считайте результаты для следующей временной точки.
• 8. Для повторного запуска программы повторите пп.5,6.
• 9. Постройте графики функций ФБ, ЭБ, ИБ.

Тестовый пример

Исходные данные: D1 = 4, M1 = 1, G1 = 1943, D2 = 18, M2 = 4, G2 = 1986, h = 1.

Результаты (из РЭ БРП-4, округлённо): ФБ = 0,63, ЭБ = - 0,78, ИБ = 0,54, ФБ = 0,4, ЭБ = - 0,9, ИБ = 0,69.

Результаты (ЭКВМ в режиме с индикацией 8 значащих цифр): ФБ = 0,63108794, ЭБ = - 0,78183148, ИБ = 0,54064082, ФБ = 0,39840109, ЭБ = - 0,90096887, ИБ = 0,69007901.

Программа "Вычисление биологических ритмов человека"

Программа 10 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "1", адрес 1133098.

Файл brp4-10.mkp (КС 4240/8)

Исходный текст для кросс-компилятора

Файл brp4-10.mkl

.CHARSET 1251

; БРП-4
; 10. Вычисление биологических ритмов человека (1 - 1133098)

.ORG 0
	GSB A49
	M 0
	RM 4
	M 7
	RM 5
	M 8
	RM 6
	M 9
	GSB A49
	RM 0
	-


A13:	 ; с адреса 47
	M 0
	23 /
	K FRAC
	F PI 2 *
	M A 
	*
	F SIN
	M 7
	RM 0
	28 /
	K FRAC
	RM A
	*
	F SIN
	M 8
	RM 0
	33 /
	K FRAC
	RM A
	*
	F SIN
	M 9
	R/S
	RM 0
	RM 1
	+
	GOTO A13


A49:	 ; с адреса 0, 9
	RM 8
	22 - 10 /
	K INT
	M A
	RM 9
	+
	1899 - 365,25 *
	K INT
	RM 8
	RM A
	12 * -
	14 -
	30,59 *
	K INT
	+
	29 +
	RM 7
	+
	RTN
	00
.END 

Примечание. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы.