Помощь - Поиск - Пользователи - Календарь
Полная версия: Метод гаусса
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
greteon
Помогите с блок-схемой алгоритма приведения матрицы к верхне треугольной и нижне треугольной...И решения системы уравнений.
Ozzя
Приведение к верхнетреугольной есть в ЧАВО
greteon
а поконкретнее
Ozzя
Какая именно конкретность нужна?
Сделать copy-paste того куска кода из FAQ?
greteon
Ссылку поточнее, я тупо не вижу где :-)
Ozzя
Тьфу ты wink.gif
Вообще не на тот форум отвечал. unsure.gif
Верхнедиагональная матрица - просто нули под главной диагональю.
Нижнедиагональная над
volvo
Точнее ссылку дать нельзя - она и так указывает на нужный пост... Внизу этого поста см. "Вычисление детерминанта (определителя) матрицы приведением к диагональному виду." - там сначала матрица приводится к диагональному виду (что тебе и надо), и только потом считается ее определитель.
Ozzя
А, всё-таки не перепутал форумы nea.gif
Или перепутал norespect.gif

Там про определитель спрашивали unsure.gif

А попал как удачно ссылкой rolleyes.gif

Как вывообще по такой жаре думать можете? unsure.gif
greteon
Я запускал ту программу... Не понимаю где в коде место преобразования матрицы :-)
volvo
Оззя, про кондиционеры не слышал никогда? smile.gif

greteon, показывай данные, которые вводил в программу...
greteon
Ну короче я сидиотничал, работает всё правильно :-) Хорошая программа :-) Не понимаю где в коде место преобразования матрицы :-)
Ozzя
for i:=1 to pred(n) do begin
if abs(a[i,i])<epsilon then begin
det:=0.0; exit
end;

for j:=succ(i) to n do begin
d:=a[j,i]/a[i,i];
for k:=i to n do
a[j,k]:=a[j,k]-d*a[i,k];
end;
end;



Цитата
Оззя, про кондиционеры не слышал никогда?

Где ты в российских школах видел кондиционеры? unsure.gif
greteon
"pred(n)" ... "succ(i)" что это?-)))
Ozzя
pred - предыдущий
succ - последующий
greteon
т.е. можно заменить на n-1 и i+1
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.