VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Записать в соседний диапазон, пропустив столбец, ячейки, начиная с 8-ого столбца https://www.cyberforum.ru/ vba/ thread1051981.html Записать в соседний диапазон, пропустив столбец, ячейки, начиная с 8-ого столбца, домноженные на значения из столбца G	Создать на рабочем листе excel таблицу значений какой-нибудь функции VBA Создать на рабочем листе excel таблицу значений какой-нибудь функции. Записать данные в,файл прямого доступа. Выбрать из файла запись с минимальным и максимальным значением функции и записать в файл последовательного доступа.
VBA Поиск не может быть осуществлен в столбцах, которые одновременно допускают несколько значений в записи Доброго дня. Столкнулся со следующей проблемой: Есть поле в которое вводится значение, и по этому значению фильтруются данные. Проблема в том, что среди данных есть поля с несколькими значениями. При поиске программа ругается. "Поиск не может быть осуществлен в столбцах, которые одновременно допускают несколько значений в записи." - если дословно. Вопрос! Как осуществить поиск в поле с... https://www.cyberforum.ru/ vba/ thread1051796.html	VBA Из массива Z[15] вещественных чисел удалить все повторяющиеся элементы Написать программу. Из массива Z вещественных чисел удалить все повторяющиеся элементы. https://www.cyberforum.ru/ vba/ thread1051780.html
VBA На каждую шестую ячейку вставить рабочие дни месеца Здраствуйте! Мне надо помощь. Надо на каждую 6 клетку вставить рабочие дни месеца. То есть на 6 клетку один дата, потом следующую 6 клетку следующую дату. Только рабочие дни, а праздники и воскресенье не надо. Можно сделать это с кодом VBA Excel?	VBA Удалить абзац по условию https://www.cyberforum.ru/ vba/ thread1051473.html Здравствуйте, уважаемые форумчане! Помогите с созданием макроса. Есть файл MS Word, в котором содержится несколько тысяч пунктов (по сути отдельных абзацев). Нужен макрос, который будет удалять абзацы, содержащие определённое слово или словосочетание.
VBA Определите первый и последний день месяца, в котором автомобиль отправился в путь Вот что имеется) Option Explicit Private Sub UserForm_Activate() txtT1 = Format(Now, "d/m/yy h:mm") txtT2 = Format(DateAdd("h", 1, Now), "d/m/yy h:mm") End Sub Private Sub cmdÂû÷èñëèòü_Click() Dim dtmT1 As Date Dim dtmT2 As Date https://www.cyberforum.ru/ vba/ thread1051418.html	VBA Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10 Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10. Если первое то число разделить на 10 если второе, то дробную часть от него отнять Очень нужно, буду благодарен
VBA Вставить на место нулевых элементов массива произведение отрицательных элементов массива вставить на место нулевых элементов массива произведение отрицательных элементов массива vba Помогите кому не сложно https://www.cyberforum.ru/ vba/ thread1051166.html	VBA Проверка данных с использованием диапазона допустимых значений https://www.cyberforum.ru/ vba/ thread1050965.html Добрый день. Ситуация следующая: создан алгоритм, который сохраняет в две переменные типа Range два диапазона - диапазон данных для проверки (допустим, №1) и диапазон с допустимыми значениями (допустим, №2) Далее каждая ячейка диапазона №1 с помощью цикла ищется в диапазоне №2 (через Find). Если совпадение найдено (т.е. значение является допустимым), то ок. Если не найдено, то ошибочное...
VBA Найти среднее арифметическое значение массива Помогите пожалуйта, ввести массив А(N). Найти среднее арифметическое значение массива. Максимальный элемент массива заменить на среднее арифметическое. Вывести преобразованный массив.	VBA Вычислить среднее арифметическое положительных элементов массива https://www.cyberforum.ru/ vba/ thread1050941.html Приветствую, помогите пожайлуйста с программой: "Вычислить среднее арифметическое положительных элементов массива."

max_48rus

Решение системы из 3 линейных уравнений методом простых итераций - VBA - Ответ 5538606

23.12.2013, 01:56. Показов 1314. Ответов 0

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Добрый день! Срочно нужно сделать задание по решению СЛАУ разными методами, метод Крамера и метод Гаусса сделал, а с простыми итерациями запутался. С математической точки зрения на сколько я понял, суть в том, что в каждом уравнении выражается x, через остальные переменные. Берутся начальные значения x01, x02, x03, у меня они приняты за "0", подставляются для нахождения x1, x2, x3, и если разница между x1 и x0 по модулю больше заданной точности, то полученные значения x1, x2, x3 подставляются вновь и сравниваются с предыдущими... Не пойму как правильно организовать цикл. Хочу разобраться в вопросе, объясните новичку, пожалуйста!

Система уравнений:

2,83 x1 + 2,5 x2 + 2,08 x3 = 33,28
3 x1 + 2,55 x2 + 2,07 x3 = 33,59
3,72 x1 + 3,21 x2 + 2,68 x3 = 43,43

По методу Гаусса ответы получены :
x1 = 5,948259574
x2 = -10,0313204
x3 = 19,96381077

Вот то, что я наделал, естественно неправильно

Visual Basic

Private Sub CommandButton1_Click()
Dim a(3, 3) As Single, i As Integer, j As Integer, k As Integer
Dim b(3) As Single
Dim x1 As Single, x2 As Single, x3 As Single, x01 As Single, x02 As Single, x03 As Single
 
For i = 1 To 3
b(i) = Cells(i, 5)
For j = 1 To 3
a(i, j) = Cells(i, j)
Next j
Next i
x1 = 0
x2 = 0
x3 = 0
k = 1
Do
x01 = x1
x02 = x2
x03 = x3
x1 = (b(1) - a(1, 3) * x03 - a(1, 2) * x02) / a(1, 1)
x2 = (b(2) - a(2, 1) * x01 - a(2, 3) * x03) / a(2, 2)
x3 = (b(3) - a(3, 1) * x01 - a(3, 2) * x02) / a(3, 3)
k = k + 1
Loop Until Abs(x1 - x01) < 0.001
Cells(9, 7) = x1: Cells(14, 7) = x2: Cells(19, 7) = x3
 
End Sub

Добавлено через 10 часов 40 минут
Большая просьба! Откликнитесь кто-нибудь! Очень срочно нужно!

Вернуться к обсуждению:
Решение системы из 3 линейных уравнений методом простых итераций VBA

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

23.12.2013, 01:56

Готовые ответы и решения:

Решение системы уравнений методом простых итераций с параметром при написании программы на языке Visual Basic
Здравствуйте, уважаемые программисты! Прошу помощи с заданием, необходимо решить систему уравнений...

Решение уравнений методом простых итераций с параметром
Здравствуйте! Мне очень нужна помощь! Пишу программу (задание курсовой) для решений уравнений...

Решение системы линейных алгебраических уравнений методом Якоби
Помогите пожалуйста. Нужен код на языке VBA для метода решения системы линейных алгебраических...

Решение системы линейных уравнений методом простых итераций
Здравствуйте! Нужна вот такая помощь, незнаю как написать такую программу.

	23.12.2013, 01:56

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

23.12.2013, 01:56

Помогаю со студенческими работами здесь

Решение системы линейных уравнений методом простых итераций
Доброго времени суток, дорогие друзья. У меня задание, написанное в заголовке. Код ругается на...

Решение систем линейных алгебраических уравнений методом Гаусса и методом простых итераций
Решение систем линейных алгебраических уравнений в Mathcad методом Гаусса и методом простых...

Решение системы линейных уравнений методом итераций
Парни, выручайте, нужно консольное приложение на c# для решения слау методом итераций, поиск на...

Решение системы уравнений методом простых итераций
Мужики помогите плиз! Нужно написать программу которая решала бы линейные системы уравнений методом...

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх