Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 26.12.2016, 22:43   #1
newbieee
Пользователь
 
Регистрация: 24.10.2014
Сообщений: 20
Репутация: 10
По умолчанию Активировать код

Здравствуйте, имеется код паскаль/делфи, так как знаний мало, никак не могу активировать этот код, пытался приписать определение функции Matrix, потом ругается на n, и тд....Буду благодарен, если ответ будет развернутым, спасибо)

P.S: В этом коде удовлетворяет ли всё этим условиям?

Составление следующих процедур:
1) разложение матрицы на множители;
2) решение системы Аx = b;
3) нахождение определителя матрицы;
4) нахождение обратной матрицы;
Разложение получать, воспользовавшись методом LU-разложений (также используется метод Гаусса)
Портрет матрицы:
Матрица A – ленточная матрица, размера n*n с шириной ленты 2k + 1(n и k входящие параметры)

Код:

Procedure M_LU(A : Matrix ; Var L: Matrix ; Var U :Matrix  );
{ Процедура разложения исходной матрицы на нижнюю и верхнюю треугольные}
{                   A = L  *  U                                         }
{     матрицу А (задана в головной программе ) можно представить :
      L(lower)   :  в виде произведения  нижней  треугольной матрицы
                 (т.е. все элементы выше главной диагонали  у нее нулевые)
      U (upper) :  верхней треугольной  матрицы   (ниже главной
                 диагонали у нее нули , а на главной стоят единицы))}
(* Type  Типы , объявленные в программе:
           Matrix=array[1..n,1..n] of real;
           vektor=array[1..n] of real ; *)
{   n - размерность матрицы  }
Var
  i,j,k,m :integer;
  sum:real;
Begin
  for i:=1 to n do      {Столбец 1 матрицы А переписывается как  }
        L[i,1]:=A[i,1]; {         столбец 1 матрицы L             }
  for j:=2 to n do      {      Определяется строка 1   матрицы U }
        U[1,j]:=A[1,j] / L[1,1];
  {Для разложения матрицы А используется компактная схема метода Гаусса }
  for m:=2 to n do
   begin
     for i:=m to n do         {Заполнение матрицы L}
      begin
          sum:=0;
          for k:=1  to m-1 do  sum:=sum+ L[i,k]*U[k,m];
          L[i,m]:=A[i,m]-sum;
      end;
      for j:=m+1 to n do      {Заполнение матрицы U}
          begin
             sum:=0;
             for k:=1 to m-1 do
                 sum:=sum+ L[m,k]*U[k,j];
             U[m,j]:=(A[m,j] - sum) / L[m,m];
          end;
  end;
    for i:=1 to n do  U[i,i]:=1; {заполнение диагонали матрицы U }
 end;

newbieee вне форума  
Старый 26.12.2016, 23:02   #2
newbieee
Пользователь
 
Регистрация: 24.10.2014
Сообщений: 20
Репутация: 10
По умолчанию

Вот что реально надо найти, есть ли всё это в коде....
newbieee вне форума  
Закрытая тема



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
активировать книгу roborrr Microsoft Office Excel 4 30.07.2012 16:47
Активировать Memo Ilya_L Общие вопросы Delphi 6 16.06.2012 17:34
активировать horpenst Microsoft Office Excel 6 07.04.2012 17:43
Активировать окно... klmmn Win Api 7 26.03.2011 20:23
Активировать гиперссылки Verano naranjo Microsoft Office Excel 1 19.01.2011 13:11




06:17.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru