💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Указания к выполнению лабораторной работы «Метод Эйлера».

1. Изучить литературу [1, 9] по вопросам решения ОДУ численными методами.

2. Составить программу решения системы ДУ методом Эйлера, протестировать ее на контрольных примерах.

3. Исходные данные для расчета балки взять по таблице 2 и рис.1.

4. Выполнить расчет для своего варианта и сохранить xls-файл с результатами работы.

5. Распечатать отчет с названием и целью работы, постановкой задачи, текстами программ и результатами расчетов.

Рисунок 1. Схемы нагружения балок.

Таблица 2

Исходные данные

Содержание лабораторной работы «Метод Эйлера».

Тема. Решение дифференциального уравнения изогнутой оси консольной балки методом Эйлера.

Цель. Изучить численные методы решения ОДУ, виды погрешностей при вычислениях, научиться составлять программы для решения систем дифференциальных уравнений.

Задание.

Решить систему дифференциальных уравнений

для заданного варианта балки. Оценить погрешность полученных результатов.

Пример входной информации, текста макроса, расчета и распечатки результатов для балки по варианту № 825.

Sub eyler()

'Ввод исходных данных из таблиц

l = Cells(2, 2).Value

q = Cells(3, 2).Value

p = Cells(4, 2).Value

EJ = Cells(5, 2).Value

n = Cells(6, 2).Value

'вычисление шага интегрирования

h = l / n

'задание начальных условий

x = 0: Z = 0: fi = 0: i = 0

label:

m = q * (l - x) ^ 2 / 2

'Вывод результатов в ячейки таблицы

Cells(7, 1 + i) = m

Cells(8, 1 + i) = fi

Cells(9, 1 + i) = Z * 1000

Cells(10, 1 + i) = x

i = i + 1: x = x + h

fi = fi + h * m / EJ

Z = Z - h * fi

If i < n + 1 Then GoTo label

End Sub

Рисунок 2. Распечатка результатов расчета методом Эйлера.

Проверка значения прогиба на конце балки при х=3 м.

= 6.75 * 2.25 / 41895= 0.3625 мм.

Вычисленное значение z = 0.3698 мм.

Оценка средней локальной погрешности при n=100 и h= 0.03м составляет

= 0.03^2*6.75/(2*41895) м = 3.63 * 10^-8 м.

Оценка глобальной погрешности за 100 шагов - 3.63 * 10^-6 м = 0.00725 мм.