Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 5
1

Решение СЛАУ методом Зейделя

23.04.2011, 23:09. Показов 3114. Ответов 8
Метки нет (Все метки)

Доброго времени суток!
Помогите пожалуйста написать программу решения систем линейных уравнений методом Зейделя, а также методом простых итерации.погрешность сами вводим.
Заранее благодарен.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2011, 23:09
Ответы с готовыми решениями:

Решение СЛАУ методом простой итерации или методом Зейделя
Решение СЛАУ методом простоой интерпритации или методом Зейделя. Напишете пожалуйста пример решения

Решение СЛАУ с n количеством элементов методом Зейделя
Помогите написать программу в turbo pascale по решению СЛАУ с n количеством элементов методом...

Решение матрицы методом Зейделя
программа рабочая, но пишет что идёт переобогощение типа...т.е. якобы его не хватает...выдаёт...

Решение задач методом Гаусса-Зейделя
Помогите написать код программы. Вот собственно задача: 9x -2x -3x +x = 2 ...

8
6034 / 2151 / 750
Регистрация: 10.12.2010
Сообщений: 5,998
Записей в блоге: 3
24.04.2011, 00:28 2
Этого тут много. Используйте гугл и поиск по форуму.
0
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 5
24.04.2011, 15:29  [ТС] 3
нашел нужный код, но увы метод зейделя тут почему-то не работает...=( пишет что мол условия уравнений не подходят. Проверял рабочие варианты.

Добавлено через 14 часов 43 минуты
ап ап ап
0
609 / 134 / 132
Регистрация: 15.04.2010
Сообщений: 554
24.04.2011, 17:05 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
 
Var
 
   i, j: Integer;
 
   s1, s2, s, v, m: Data;
 
Begin
 
     { Исследуем сходимость }
 
     For i := 1 to n do begin
 
         s := 0;
 
         For j := 1 to n do
 
             If j <> i then
 
                s := s + Abs(a[i, j]);
 
         If s >= Abs(a[i, i]) then begin
 
            Seidel := false;
 
            Exit;
 
         end;
 
     end;
 
     Repeat
 
         m := 0;
 
         For i := 1 to n do begin
 
             { Вычисляем суммы }
 
             s1 := 0;
 
             s2 := 0;
 
             For j := 1 to i - 1 do
 
                 s1 := s1 + a[i, j] * x[j];
 
             For j := i to n do
 
                 s2 := s2 + a[i, j] * x[j];
 
             { Вычисляем новое приближение и погрешность }
 
             v := x[i];
 
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
 
             If Abs(v - x[i]) > m then
 
                m := Abs(v - x[i]);
 
         end;
 
     Until m < e;
 
     Seidel := true;
 
End;
 
Var
 
    n, i: Integer;
 
    a: Matrix;
 
    b, x: Vector;
 
    e: Data;
 
Begin
 
      ClrScr;
 
      Writeln('Программа решения систем линейных уравнений по методу Зейделя');
 
      Writeln;
 
      Writeln('Введите порядок матрицы системы (макс. 10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Введите точность вычислений');
 
      Repeat
 
             Write('>');
 
             Read(e);
 
      Until (e > 0) and (e < 1);
 
      Writeln;
 
      Writeln('Введите расширенную матрицу системы');
 
      ReadSystem(n, a, b);
 
      Writeln;
 
 
      { Предполагаем начальное приближение равным нулю }
 
      For i := 1 to n do
 
          x[i] := 0;
 
      If Seidel(n, a, b, x, e) then begin
 
         Writeln('Результат вычислений по методу Зейделя');
 
         WriteX(n, x);
 
      end
 
      else
 
          Writeln('Метод Зейделя не сходится для данной системы');
 
      Writeln;
 
End.
0
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 5
24.04.2011, 20:32  [ТС] 5
Цитата Сообщение от MAZUR777 Посмотреть сообщение
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
поясните пожалуйста, ибо matrix\vector выдает ошибку кода...
0
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 5
25.04.2011, 22:51  [ТС] 6
ап ап ап
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
26.04.2011, 10:15 7
Цитата Сообщение от Дмитрий[Минск
;1583955]ибо matrix\vector выдает ошибку кода...
Так объявите эти типы в начале программы, например
Pascal
1
2
type matrix=array[1..10,1..10] of real;   
       vector=array[1..10] of real;
Добавлено через 2 минуты
Кроме того нужно написать процедуры ввода расширенной матрицы ReadSystem(n, a, b);
и вывода корней WriteX(n, x);
или просто убрать их из кода и написать это в программе.
Думать хоть чуть нужно и соображать, а не ждать вечной халявы...
1
0 / 0 / 0
Регистрация: 23.04.2011
Сообщений: 5
26.04.2011, 21:35  [ТС] 8
Цитата Сообщение от Puporev Посмотреть сообщение
Думать хоть чуть нужно и соображать, а не ждать вечной халявы...
вот этим убили...
0
6034 / 2151 / 750
Регистрация: 10.12.2010
Сообщений: 5,998
Записей в блоге: 3
26.04.2011, 22:15 9
Цитата Сообщение от Puporev Посмотреть сообщение
Думать хоть чуть нужно и соображать, а не ждать вечной халявы...

Не по теме:

Дмитрий, совершенно правильно вам модератор говорит.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2011, 22:15

Решение СЛАУ методом Гаусса
Составить программу для решения СЛАУ методом Гаусса Помогите.

Решение СЛАУ-3 методом Гаусса (Крамера).
решите пожалуйста Для СЛУ-3 найти неизвестные методом Гаусса (Крамера).

Решение СЛАУ методом верхней и нижней релаксации
Помогите пожалуйста только основную программу пожалуйста СПАСИБО

Решение СЛАУ методом Гаусса - добавить вывод треугольного вида матрицы
Есть программа, которая решает систему линейных уравнений методом Гаусса. Нужно добавить вывод...

Решения матрицы методом Зейделя и Якоби
А= 31.45 2.42 3.25 В=21.24 2.31 24.43 1.12 10.15 ...

Найти точку минимума функции методом Гаусса-Зейделя
Помогите пожалуйста написать программу в Паскале. Помогите написать прогу в Паскале которая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru