Форум программистов, компьютерный форум CyberForum.ru

Решение системы методом Жордана-Гаусса с комплексными числами - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Перевод с паскаля на с++ http://www.cyberforum.ru/cpp-beginners/thread1175200.html
uses crt; var m,k:integer; begin write('Введите целое число m>1 m='); read(m); k:=0; while exp(ln(4)*k)<m do inc(k); k:=k-1; write('k=',k,' 4^',k,'=',exp(ln(4)*k)) end.
C++ Изменить число на количество цифр в нём Задан текст. Определить количество наибольшее количество цифр, идущих в нём подряд. #include "stdafx.h" #include "stdlib.h" #include "stdio.h" #include "iostream" using namespace std; void main() { const char* str = "4730 12417 389238"; http://www.cyberforum.ru/cpp-beginners/thread1175188.html
C++ Создать класс для роботы с одномерным массивом
Создать класс для роботы с одномерным массивом целых чисел. В ней должны быть поля int IntArray int n Должен быть который создает массив размерности n И прога должна разрешать Вводить значение с клавы
Определить самое длинное слово среди тех слов, вторая буква в которых а C++
Задан ряд символов. Группы символов, которые разделены пробелом и не содержат в себе пробелов, называются словами. Определить самое длинное слово среди тех слов, вторая буква в которых а.
C++ Перевод с паскаля на с++ http://www.cyberforum.ru/cpp-beginners/thread1175163.html
program z1; var i,j,m,k,z,x,l:integer; begin readln(m); for i:=0 to m do begin z:=1; if i=0 then z:=1 else begin x:=i; while x<>0 do begin z:=z*4;
C++ Нахождение линейно зависимых векторов У нас есть матрица вида: 1 1 1 1 0 1 0 1 1 1 1 0 1 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 Cтолбцы - координаты векторов. Как найти линейно зависимые вектора? подробнее

Показать сообщение отдельно
Ajaja
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 9
14.05.2014, 00:14     Решение системы методом Жордана-Гаусса с комплексными числами
Решение системы методом Жордано-Гаусса. Коэффициенты обрабатываются в объединенной матрице комплексных коэффициентов в алгебраической форме.
Исходные данные:
файл с коэффициентами системы алгебраических уравнений в виде матрицы размером в N строк и N+1 столбцов, в N+1 столбце находятся свободные члены системы уравнений (2<=N<=100).
Коэффициенты - комплексные вещественные числа с точностью 10-3, представленные в алгебраической форме.
Выходные данные:
файл значений решения системы уравнений в комплексной форме: алгебраической – ReX+j* ImX. При отсутствии решения записывается строка “No solution”.

помогите плиз...

вот у меня есть тут код в паскале, работает правильно, но с комплексными числами я не могу придумать как это реализовать... помогите люди добрые


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
program ajaja;
 
Label m1;
Var   a,a5: array [1..25,1..25] of real;
      b,b5: array [1..25] of real;
      k,i,m,n,st:integer;
      t,x,x1,x2,x3,a1,b1,c1:real;
BEGIN
 write('Vvedite razmernost');
 readln(n);
 For i:=1 to n do
 For k:=1 to n do begin
  write('a[',i,',',k,']=');readln(a[i,k]);a5[i,k]:=a[i,k];
 end;
 writeln('Vvedite svobodnye chleny B');
 For i:=1 to n do begin
  write('b[',i,']=');readln(b[i]);b5[i]:=b[i];
 end;
 writeln('Nachalnaya matriza');
 For i:=1 to n do begin
  For k:=1 to n do begin
   write('a[',i,',',k,']=',a[i,k]:5:2,'':4);
  end;
  writeln('b[',i,']=',b[i]:5:2,'':4);
 end;
 writeln;
 For k:=1 to n do begin
  st:=k;
  For i:=k to n do
   If a[st,k]<=a[i,k] Then st:=i;
  For i:=1 to n do begin
   t:=a[k,i];
   a[k,i]:=a[st,i];
   a[st,i]:=t;
  end;
  t:=b[k];
  b[k]:=b[st];
  b[st]:=t;
  For i:=1 to n do begin
   If i=k Then i:=i+1;
   If i=n+1 Then goto m1;
   t:=a[i,k]/a[k,k];
   For m:=1 to n do
    a[i,m]:=a[i,m]-t*a[k,m];
   b[i]:=b[i]-t*b[k];
  end;
  m1:
 end;
 writeln(' Konechnaya matriza');
 For i:=1 to n do begin
  For k:=1 to n do begin
   write('a[',i,k,']=',a[i,k]:5:2,'':4);
  end;
  writeln('b[',i,']=',b[i]:5:2,'':4);
 end;
 writeln;
 For k:=1 to n do begin
  x:=b[k]/a[k,k];
  writeln('x(',k,')=',x:5:2);
  a[1,k]:=x;
 end;
END.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru