Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41

Метод простых итераций для решения СЛАУ (консоль -> форма)

19.04.2015, 18:30. Показов 3644. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток. Есть код реализации метода простых итераций для решения СЛАУ в консоли, нужно сделать так, чтобы матрица А заполнялась из одного Стринггрида, B из второго, n бралось из cspinedita, ну и eps из edita.Вот код:
C++
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
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include <conio.h>
#include <math.h>
 
 
    const n = 5;
 
    float A[n][n] = {
                    { 79.2,   0,  35, 19.8,  24 },
                    { 39.6,  85,   0, 19.8,  25 },
                    { 19.8, -15,  45,    0,  10 },
                    { 49.5,  18,  20, 89.1,   0 },
                    {  9.9,  15,  20,-49.5,  95 },
                    };
 
    float  B[n]  = { 86, 55, 77, 5, -64};
 
    float  X[30][n] = {0};
    float  TEST[n];
    float  summ;
    float  eps;
    int    k = 0;
 
 
bool ExitFunc(float eps)
{
    if(k == 0) return true;
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps )
        return true;
    }return false;      
}
 
void main(void)
    {   
    printf("Enter eps:");
    scanf("%f",&eps);
    do 
    {
    for(int i=0; i<n; i++)        
        {
        summ = 0;
        for(int j=0; j<n; j++)
           if(i!=j)
              summ += A[i][j] * X[k][j];
        X[k+1][i] = (1/A[i][i]) * (B[i] - summ);            
        }
    k++;
    }while(ExitFunc(eps));
 
    //Проверка
    printf("\nResult:\n");
    for(int j=0; j<n; j++)
       printf("%4.8f   ",X[k][j]);
 
    printf("\nTest:\n");
    for(int i=0; i<n; i++)
        {
        for(int j=0; j<n; j++)
           TEST[i] +=(A[i][j] * X[k][j]);
        printf("%4.8f  ", TEST[i]);
        }
 
    printf("\nIterations:\n%i",k);
    getch();
    }
Помогите пожалуйста.Буду благодарен.

Добавлено через 8 минут
Попробовал реализовать, но выводит ошибки:
C++
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
double X[30][n]={0};//тут: constant expression required
int    k = 0;
bool ExitFunc(float eps){// и тут: declaration syntax error
    if(k == 0){ return true;}
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps){
        return true;}
    }return false;
}
int i,j;
double** A;
double* B;
float  summ;
float  eps;
Edit1->Text="0,0001";
bool ExitFunc(float eps);
n=StrToInt(CSpinEdit4->Value);
B=new double[n];
//float  TEST[n];
for(int i=0;i<n;i++){
  A[i]=new double[n];
  }
for(int i=0; i<n ;i++){
    for (int j=0;j<n;j++){
        A[i][j]=StrToFloat(StringGrid8->Cells[i][j]);
        B[i]=StrToFloat(StringGrid9->Cells[0][j]);
        }
        }
 
eps=StrToFloat(Edit1->Text);
 
do
{
  for(int i=0; i<n; i++)
  {
    summ = 0;
    for(int j=0; j<n; j++)
    if(i!=j)
      summ += A[i][j] * X[k][j];
    X[k+1][i] = (1/A[i][i]) * (B[i] - summ);
    Memo4->Lines->Add(FloatToStr(k+1)+"-ÿ èòåðàöèÿ:");
    Memo4->Lines->Add(X[k+1][i]);
 
  }
  k++;
}while(ExitFunc(eps));
 
for(int j=0; j<n; j++){
       StringGrid10->Cells[0][j]=FloatToStr(X[k][j]);}
Добавлено через 28 минут
И все это происходит после нажатия кнопки
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.04.2015, 18:30
Ответы с готовыми решениями:

Метод простых итераций для решения СЛАУ
Всем добрый вечер! Столкнулся с заданием на тему решения СЛАУ методом простых итераций и Зейделя. В итоге завис с первым методом:...

Метод простых итераций для решения СЛАУ
Доброго времени суток. Если у кого нибудь есть готовые программы для данного метода, скиньте пожалуйста. Особенно написанные на Borland C++.

Метод простых итераций для решения СЛАУ
Здравствуйте. Есть функция, реализующая метод простых итераций: void ProstIterMetode() {int i,j; double *x0,delta,*E; x0=new...

10
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
19.04.2015, 21:42
Я не понял, вот этот последний код - он прописан в обработчике кнопки?

А в целом, чехарда какая-то. Размеры статического массива нельзя задавать не-константами, прототипы размещать после определения функций тоже ни к чему.
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 00:28  [ТС]
Да, в кнопке, помогите, как правильно будет
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 00:36
Для начала. Правильно будет - вынести определение функции ExitFunc за пределы обработчика клика кнопки. И задавать размеры массива X[][] константами. И объявление обозначенного массива тоже следует вынести либо в глобальную область видимости, либо в класс, где будет объявлен метод ExitFunc...
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 12:35  [ТС]
но мне нужно значение n брать из edita

Добавлено через 37 секунд
т.е. из cspinedita
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 13:04
Значит, статический массив отпадает.
Вот так можно создать и использовать массив произвольного размера:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// объявляем, причем лучше в классе формы...
double * arr[ 30 ];
 
void __fastcall TForm1::btn_2Click( TObject * Sender )
{
    // создаем
    long N( sedit_1->Value );
 
    for ( int i( 0 ), i_limit( 30 ); i < i_limit; ++i )
    {
        arr[ i ] = new double[ N ];
    }
 
    // как-то используем массив
    // ...
 
    // и потом освобождаем его
    for ( int i( 0 ), i_limit( 30 ); i < i_limit; ++i )
    {
        delete[ ]arr[ i ];
    }
}
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 13:40  [ТС]
после нажатия на кнопку выдает ошибку:
вот скрин
Миниатюры
Метод простых итераций для решения СЛАУ (консоль -> форма)  
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 14:35  [ТС]
вроде исправил написал
C++
1
2
3
4
A = new double * [n];
for(int i=0;i<n;i++){
 A[i]=new double[n];
  }
Добавлено через 5 минут
но потом после заполнения массивов и нажатия на кнопку новая ошибка:
Миниатюры
Метод простых итераций для решения СЛАУ (консоль -> форма)  
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 20:38
Хто такое массив "В"?
Лучше всего приводи полный код в его последнем виде. Иначе непонятно по одним только скринам, что не так.

Также изображения и прочие файлы следует загружать на форум. Расширенный режим редактора -> управление вложениями.
0
1408 / 572 / 127
Регистрация: 31.10.2011
Сообщений: 1,960
20.04.2015, 22:47
Цитата Сообщение от BAOlOEJlbLLlUK Посмотреть сообщение
но потом после заполнения массивов и нажатия на кнопку новая ошибка:
X[k+1][i]
что такое X и что такое k?
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
21.04.2015, 23:51  [ТС]
B - это столбец свободных коэффициентов, X- это вектор решения, k- это итерация

Добавлено через 3 минуты
функция:
C++
1
2
3
4
5
6
7
8
9
10
int k=0;
double **X;
bool ExitFunc(float eps);
bool ExitFunc(float eps){
    if(k == 0){ return true;}
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps){
        return true;}
    }return false;
}
обработчик клика
C++
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
int n;
n=StrToInt(CSpinEdit4->Value);
//double
//int    k = 0;
X = new double * [n];
for ( int i=0; i<n; ++i )
    {
        X[i] = new double[n];
    }
//int i,j;
double** A;
double* B;
float  summ;
float  eps;
//Edit1->Text="0,0001";
B=new double[n];
//float  TEST[n];
A = new double * [n];
for(int i=0;i<n;i++){
 A[i]=new double[n];
  }
for(int i=0; i<n ;i++){
    for (int j=0;j<n;j++){
        A[i][j]=StrToFloat(StringGrid8->Cells[i][j]);
        B[i]=StrToFloat(StringGrid9->Cells[0][j]);
        }
        }
do
{
  for(int i=0; i<n; i++)
  {
    summ = 0;
    for(int j=0; j<n; j++){
    if(i!=j){
      summ += A[i][j] * X[k][j];}}
    X[k+1][i] = (1/(A[i][i])*(B[i] - summ));
    Memo4->Lines->Add(FloatToStr(k+1)+"-я итерация:");
    Memo4->Lines->Add(X[k+1][i]);
 
  }
  k++;
}while(ExitFunc(eps));
 
for(int j=0; j<n; j++){
       StringGrid10->Cells[0][j]=FloatToStr(X[k][j]);}
for ( int i=0; i<n ; ++i )
    {
        delete[]X[i];
    } 
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.04.2015, 23:51
Помогаю со студенческими работами здесь

Метод простых итераций для решения СЛАУ
Здравствуйте. Попытался сделать программу для решения СЛАУ методом простых итераций. Не работает. Вернее работает неправильно. Помогите...

Метод простых итераций и метод Зейделя для решения СЛАУ
1. Методом простых итераций и методом Зейделя решить СЛАУ вида Bx=с B=\begin{pmatrix}21 &amp; 3 &amp; 1 &amp; 1\\ 3 &amp; 21 &amp; 2...

Преобразование СЛАУ для решения методом простых итераций
Нужно решить СЛАУ методом простых итераций, условие сходимости не выполняются ни для одного уравнения в системе. Не могу преобразовать...

Алгоритм написания для решения СЛАУ методом простых итераций
Прошу помощи в написании программы для решения СЛАУ методом итераций. Нет, я не прошу писать код за меня, я прошу вашей помощи, чтобы...

Метод простых итераций для СЛАУ
Доброго времени суток всем!!! решаю СЛАУ методом простых итераций, проблема вот в чем: не могу понять, как сделать расчет по к-ым...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru