Лидеры рейтинга

ID: 405049

vsetin

Студент

2828


ID: 401284

Михаил Александров

Советник

906

Россия, Санкт-Петербург


ID: 226425

Konstantin Shvetski

Модератор

662

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

380

Россия, пос. Теплоозёрск, ЕАО


ID: 400669

epimkin

Профессионал

350


ID: 325460

CradleA

Мастер-Эксперт

297

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

260

Беларусь, Гомель


8.9.0

20.06.2021

JS: 2.9.2
CSS: 4.5.10
jQuery: 3.6.0
DataForLocalStorage: 2021-06-22 16:46:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 159896

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Motoden
Дата: 08.02.2009, 02:52 Консультация закрыта
Поступило ответов: 0

Доброго времени суток, уважаемые эксперты!
Требуется реализовать метод простой итерации для решения нелинейной системы состоящей из семи уравнений. Вот такой:

x[0]=x[1]^3+x[2]-x[3]+2x[5]+x[6]-13
x[1]=10x[0]-x[2]+x[3]+100x[4]^2-x[5]-x[6]+6
x[2]=x[0]^2+x[1]+x[3]+x[4]+x[5]+x[6]-2
x[3]=x[0]-x[1]-x[2]+x[4]^2+x[5]-x[6]+2
x[4]=x[0]^2+2x[1]-2x[2]-x[3]+x[5]+x[6]-5
x[5]=4x[0]^2+2x[1]+2x[2]-4x[3]+5x[4]-x[6]-8
x[6]=5x[0]+5x[1]-3x[2]+4x[3]-x[4]^2+x[5]-3

корни системы уравнений:
x[0]=0
x[1]=2
x[2]=1
x[3]=-1
x[4]=0
x[5]=1
x[6]=1

И есть еще другие корни...

Ниже приведены 2 модуля. Код необходимо дописать в методе "tsolver.SolveByIterations" с использованием при необходимости метода "tSolver.OneStep_iterations" в модуле MainClass2.

Приложение:

Ответов пока не поступило

Мини-форум консультации # 159896
Motoden

1

= общий =    08.02.2009, 03:26

Очень хотелось бы, чтобы задача была решена за первую половину дня воскресенья:)
Если нужны исходные файлы, обращайтесь. Вышлю на почту, ибо не знаю можно ли их здесь как-нибудь прикрепить...

Motoden

2

= общий =    08.02.2009, 05:08

Первому, кто выполнит задание, положу на счёт WebMoney 100WMR в знак уважения и благодарности.(напишите, пожалуйста, номер вашего рублевого кошелька в личном сообщении)

Motoden

3

= общий =    08.02.2009, 15:41

кто-нибудь возьмётся за задание?

Motoden

4

= общий =    09.02.2009, 15:48

Назовите свою цену за задание

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 132

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 98

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0