Заполнение таблицы решения системы нелинейных уравнений

День добрый уважаемые. Помогите пожалуйста решить проблему.

Задача.
1. Необходимо решить систему линейного уравнения(3го порядка) и заполнить таблицу значениями R1 R2 R3, при том что изменяется только один коэффициент beta= от 15 до 360 с шагом 15, остальные постоянные кроме Mkr он принимает 2 значения 320 и 0 соответственно 2 таблицы

в скриншотах сама формула и таблица которая уже была заполнена ранее, у меня же должны получится такие же значения и такая же таблица. Это не курсовая или дипломная работа, а реальные расчёты для Разбивочного плана привязки башенного крана к жилому дома, жена попросила сделать, она инженер, естественно я не мог сказать что не справлюсь с Excel, сдела для одного значения, а потом понял что без циклов и VBA скорее всего не решить или решить но это будет адская простыня из матриц, даже если переложить на отдельный лист это не выход.


Что сделал
Пока решил систему для одного значения beta=15 методом обратной матрицы. для одного значения beta понадобилось кучу ячеек задействовать(матрица, обратная матрица и неизвестные), ума не приложу как организовать решение в цикле если можно без VBA если нет кто может предложить помочь готовое решение, в ВБА вообще никак.

https://preview.ibb.co/fhfVYJ/2.png
https://preview.ibb.co/gDVm7d/1.png

Вложения

решение системы уравнений.xlsx (12.1 Кб, 4 просмотров)

0

Timuridze, 1 - если речь идет об обратной матрице, то, обычно, это для системы линейных уравнений, а заголовок за нелинейные. 2 - Вы и вправду полагаете, что кто-то будет из вашего файла вытаскивать формулы из ячеек и складывать из них постановку задачи - просто пазл какой-то. Сомнительно, что кто-то будет этим заниматься. Надо написать какие уравнения, параметры, диапазоны их изменения. Насчет кучи ячеек при решении через VBA не волнуйтесь, хватит ресурсов компа.

0

Timuridze, 1 - если речь идет об обратной матрице, то, обычно, это для системы линейных уравнений, а заголовок за нелинейные.
Да разумеется речь о линейных, это опечатка, это понятно из текста сообщения.

2 - Вы и вправду полагаете, что кто-то будет из вашего файла вытаскивать формулы из ячеек и складывать из них постановку задачи - просто пазл какой-то.
а в чем проблема то, там 3 формулы всего?, файл я для ознакомления файл отправил, а мне в принципе достаточно было примера (взять данные с таких ячеек посчитать по формуле любое линейное уравнение( необязательно моё) в цикле (цикл в котором меняется один коэффициент от 15 до 360), сложить ответы в таблицу в таблицу). Да в общем то и в файле у меня ничего мудреного нет 3 формулы excel( Матрица(она готовая составленна уже) от неё обратная матрица(Мобр) и свободные члены(они тоже готовые) и перемножении матрицы(МУМНОЖ)...ВСЁ!
Я в VBA не понимаю ничего но думаю 3 эти функции в цикле вызвать можно как то. и это в общем то все что нужно мне.

3. Сомнительно, что кто-то будет этим заниматься. Надо написать какие уравнения, параметры, диапазоны их изменения. Насчет кучи ячеек при решении через VBA не волнуйтесь, хватит ресурсов компа.
Я про ячейки то в общем то и не волновался, я понимаю что хватит, дело не в этом эту задачу можно решить в лоб, используя эксель(и кучу ненужных вычислений на полях и нормально и красиво используя VBA и заполнить таблицу в цикле.

В общем в итоге покопался, сделал средствами Excel без vba, но все равно было бы интересно посмотреть реализацию решения линейных уравнений с изменяемым 1 коэффицентом с каким то шагом, и заполнение таблицы значений.

Миниатюры

   

0

Timuridze, ЕСЛИ ВЫ ВСЁ СДЕЛАЛИ, ТО МОЖЕТ БЫТЬ ЗАКРЫТЬ ТЕМУ. если это интересно вам, то для меня, например, это не интересно, а просто всё давно известно. Принято помогать людям, если есть проблемы, а если они кончились, то нужно ли ими заниматься? Удачи в работе вашей жене и вам. Что вы ей обещали, вы сделали.

0

Burk, да вы не нервничайте и не кричите капсом пожалуйста ))). Если вам не интересно закройте вкладку, и не пишите сюда. Когда задачу решал прогуглил все что можно, готового решения не было, если вам "всё давно известно" это не значит что "всем всё давно известно" и в будущем кому нибудь решение этой задачи не пригодилось бы.

0