IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Метод гаусса
greteon
сообщение 31.05.2007 15:37
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Помогите с блок-схемой алгоритма приведения матрицы к верхне треугольной и нижне треугольной...И решения системы уравнений.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 15:53
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Приведение к верхнетреугольной есть в ЧАВО
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 16:07
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


а поконкретнее
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 16:22
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Какая именно конкретность нужна?
Сделать copy-paste того куска кода из FAQ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 16:49
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Ссылку поточнее, я тупо не вижу где :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 16:59
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Тьфу ты wink.gif
Вообще не на тот форум отвечал. unsure.gif
Верхнедиагональная матрица - просто нули под главной диагональю.
Нижнедиагональная над
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 31.05.2007 17:01
Сообщение #7


Гость






Точнее ссылку дать нельзя - она и так указывает на нужный пост... Внизу этого поста см. "Вычисление детерминанта (определителя) матрицы приведением к диагональному виду." - там сначала матрица приводится к диагональному виду (что тебе и надо), и только потом считается ее определитель.
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 17:04
Сообщение #8


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


А, всё-таки не перепутал форумы nea.gif
Или перепутал norespect.gif

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

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

Как вывообще по такой жаре думать можете? unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 17:16
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Я запускал ту программу... Не понимаю где в коде место преобразования матрицы :-)

Сообщение отредактировано: greteon - 31.05.2007 17:19
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 31.05.2007 17:18
Сообщение #10


Гость






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

greteon, показывай данные, которые вводил в программу...
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 17:20
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Ну короче я сидиотничал, работает всё правильно :-) Хорошая программа :-) Не понимаю где в коде место преобразования матрицы :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 17:23
Сообщение #12


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 17:27
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


"pred(n)" ... "succ(i)" что это?-)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 31.05.2007 17:29
Сообщение #14


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


pred - предыдущий
succ - последующий
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
greteon
сообщение 31.05.2007 17:33
Сообщение #15


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


т.е. можно заменить на n-1 и i+1
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.04.2024 19:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"