| Автор | Pascal. Решение СЛАУ методом Гаусса-Жордана |
|---|
| Нужно развязать систему в общем виде этим методом. Кто сделает? В обиде не оставлю. Нужно очень срочно! |
| c++ не пойдет? а то лень паскаль вспоминать... |
Ax=b
матрица А квадратная разлагается на произведение
LUx=b L - нижнетреугольная U - верхнетреугольная.
особенность именно этого метода что он может делаться либо в один проход либо в два, тогда сразу получается ответ без всяких перемножений треугольных матриц - реализацию в инете посмотри у меня есть но раздожение Краута и Жордана в два прохода |
| 2 гугл рулит =) |
нет, С++ не рулит. мне самой влом вспоминать паскаль. в визуале сама могу зделать. а тут именно в паскале нуна...
для MixFighter:
в гуглое есть теория, но мне за сегодня формул хватило. а на завтра нуна срочна.... |
| в принципе, есть фрагментик, точнее нашла..шас попробую попроверять...мдЭ...голова трещит за неделю этого всего програмирования и всего прочего... |
| у меня как раз паскаль но надо искать как срочно???? |
const
n = 2;
f = 0;
type
tV = array [f .. n] of real;
tM = array [f .. n] of tV;
Procedure GetLU(M: tM; var L, U: tM);
var
i, j, k : integer;
sum : real;
Begin
for i := f to n do
Begin
for j := f to n do
Begin
U[f, i] := M[f, i];
L[i, f] := M[i, f] / U[f, f];
sum := 0;
for k := f to i do sum := sum + L[i, k] * U[k, j];
U[i, j] := M[i, j] - sum;
if i > j then L[j, i] := 0 else
Begin
sum := 0;
for k := f to i do sum := sum + L[j, k] * U[k, i];
if U[i, i] <> 0 then L[j, i] := (M[j, i] - sum) / U[i, i];
end;
end;
end;
end;
вот это нарыла часть. не помню, как работать с процедурами....ужас..помогите доделать плз. |
| ну плз, помогите кто-нить |
| 10к никому не надо? эх...ладно, буду тогда с устра сама мучать на свежую голову... |
| я бы с удовольствием помог, но я в этом ни бум бум. А ваще девушки программисты - это наверное жесть) удачи) |
для Halfwolf:
я недавно учился в универе, девушка так програмила, что у меня аж дух захватывало) |
для Halfwolf:
програмирование - это не мой профиль, мне больше по душе сайты делать, нежели програмировать.... |
http://www.kurslab.chat.ru/10186691.htm
гугл рулит =) |
для kirill91:
а терь скачай ту прогу, и посмотри, что там вычисляется какая-то формула, но не то, что мне нужно. совсем не то. закинули что попало, только толку. спсб конешно, но там совсем не та програма, которая описана по этой сылке. |
http://pascal.sources.ru/math/index2.htm
прямая ссылка - http://pascal.sources.ru/math/gaussj.zip
посмотри, что там вычисляется какая-то формула
да, действительно что-то не то считают, а номальная прога там только за деньги =) |
для kirill91:
нет, тама токо метод Зейделя, а Гаусса-Жордано нету. ( |
для BlackLionGirl:
Три программы для решения матричных уравнений методами Гаусса, Гаусса-Зейделя и Гаусса-Жордана.
посмотри получше |
для kirill91:
я посмотрела, и скачала, в архиве два первых файла, третий - какая-то файля с разширением *.LIB |
для kirill91:
и еще, там ошибка на ошибке в исходниках...я там вчера тоже нашла это все, уже давно попроверяла. проверь сам, увидишь, что не катят. |
