![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 31.05.2010
Сообщений: 1
|
![]()
Решить сист. уровнений методот простых итераций, точность Е=0.001
система: -2.0x1+1.9x2+8.2x3-2.8x4-8.7x5=-37.168 -6.7x1-1.6x2-9.9x3+8.2x4-2.9x5=46.744 -6.2x1-1.6x2+7.6x3-8.7x4-5.7x5=-35.534 7.8x1-6.0x2+9.1x3-4.3x4-4.1x5=49.920 0.8x1+1.4x2+5.1x3+0.3x4-9.4x5=-35.341 Немогу довести до робочего состояния код на С: #include <iostream.h> #include <stdlib.h> #include <stdio.h> #include <conio.h> #include <math.h> int main(int argc, char* argv[]) { double A[N][N]={ {-2.0, 1.9, 8.2, -2.8, -8.7}, {-6.7, -1.6, -9.9, 8.2, -2.9}, {-6.2, -1.6, 7.6, -8.7, -5.7}, {7.8, 6.0, 9.1, 4.3, -4.1}, {0.8, 1.4, 5.1, 0.3, -9.4} }; double a[N][N]={{0,0,0,0,0},{0,0,0,0,0},{0,0,0,0, 0},{0,0,0,0,0},{0,0,0,0,0}}; double b[N]={-37.168, 46.744, -35.534, 49.920, -35.341}; double X[N]={0,0,0,0,0}; double X1[N]={0,0,0,0,0}; double const E=0.001; int i,j,k; double c=0,s=0; for(i=0; i<N; i++) { for(j=0; j<N; j++) if(i!=j) a[i][j]=-(A[i][j]/A[i][i]); else a[i][j]=0; b[i]=b[i]/A[i][i]; } printf("\n"); do { for(i=0; i<N; i++) X[i]=X1[i]; for(i=0; i<N; i++) { for(j=0; j<N; j++) s+=X[j]*a[i][j]; X1[i]=b[i]+s; s=0; } k++; } while(fabs(X1[0]-X[0])>E); for(i=0; i<N; i++) printf("x[%d]=%lf;\n", i+1, X[i]); printf("Count of iterations: %d", k-1); getch(); return 0; } |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помоготе исправить ошибку в коде | Operator-cn | Общие вопросы C/C++ | 4 | 22.10.2009 23:40 |
Помогите исправить ошибку в коде на делфи | True_girl | Помощь студентам | 2 | 02.07.2009 00:57 |
Исправить ошибку в коде VBA. | NitriNKa | Помощь студентам | 2 | 29.04.2009 22:22 |
Помогите исправить ошибку в коде... | prizrak1390 | Общие вопросы Delphi | 4 | 26.04.2008 13:19 |