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

опять у людей яндекс за неуплату отключили...
ps. по слову "вычЕсление" не найдет

(1) яндекс поправит :))

(1) а ты проверь :)

нет как раз интересует код на 1С, за слово вычЕсление простите

(3) ЛОЛ!!!

(3) а я не буду :)
(2) умственные способности яндекса весьма своебразны - например, слово "афтор" он предлагает исправить на "афтар"

Посмеялись =), а может кто по существу подскажет как на 1С красивше посчитать определитель?

приведи к диагональному виду и перемнож диагональные элементы...

(8) как? пробовую через вложенные таблицы значений, но как то это изначально сложно, должно быть проще

в универе вроде бы через обычные массивы такие задачки решают

Посмотри в гугле "Метод Гаусса".

(11) спасибо, но я это все уже посмотрел =), у меня проблема в том как правильно составить рекурсивную процедуру в которую я передам ТаблицуЗначений (матрица 1с-овская =)) и которая расчитает мне определитель для данной матрицы причем матрица может быть не только 3-го порядка... задача программерская а 1С-ники как известно не программируют а решают проблемы =).

Вот мой вариант Опред всегда получаться равным 0, к вечеру от матриц в голове уже бардак ( вечером возьму в прокате Матрицу 1-ю может озарит =) )
Процедура ПолучитьОпределитель(матрица,СтрокаИскл,СтолбецИскл,множитель,Опред)
   нСтроки = 0;
    нКолонки = 0;
    
   матрицаОпр = СоздатьОбъект("ТаблицаЗначений");
    
    Для к = 1 По матрица.КоличествоКолонок() Цикл
      Если к <> СтолбецИскл Тогда
        
        нКолонки = нКолонки + 1;
        матрицаОпр.НоваяКолонка("_" + СокрЛП(нКолонки));
        
        Для н = 1 По матрица.КоличествоСтрок() Цикл
          Если н <> СтрокаИскл Тогда
            
            нСтроки = нСтроки + 1;
            матрицаОпр.НоваяСтрока();
            матрицаОпр.УстановитьЗначение(нСтроки,нКолонки,матрица.ПолучитьЗначение(н,к));
            
          КонецЕсли;
        КонецЦикла;
      КонецЕсли;
    КонецЦикла;
    Если матрицаОпр.КоличествоКолонок() > 2 Тогда
      Для н = 1 По матрицаОпр.КоличествоКолонок() Цикл
        
        ПолучитьОпределитель(матрицаОпр,СтрокаИскл,н,матрицаОпр.ПолучитьЗначение(1,н),Опред);
        
      КонецЦикла;
    Иначе
      
      Опред = Опред + множитель * (матрицаОпр.ПолучитьЗначение(1,1) * матрицаОпр.ПолучитьЗначение(2,2)) - (матрицаОпр.ПолучитьЗначение(1,2) * матрицаОпр.ПолучитьЗначение(2,1));
      
    КонецЕсли;
    
КонецПроцедуры // ВычислитьОпределитель

Обратить матрицу при помощи определителей можно только из учебника. Для реальных матриц получится полная фигня. Есть другие алгоритмы, которые позволяют частично избежать плохой обусловленности (вырожденности) реальных матриц

(14) мне этот способо показался наиболее простым и наглядным
матрицы всегда будут квадратными разве этого недостаточно?

подпишусь под (14)
Для матрицы 3*3 конечно подойдет, но вот для нормальных размерностей (хотя бы 10*10) будут проблемы с ошибками округления и т.п. В числяке были нормальные методы обращения матриц, методом Гаусса по-моему.

Вообще в общем случае задача стоит о распределении затрат между подразделениями предприятия которые оказывают друг другу услуги или работы и т.д. например Охрана она охраняет хоз часть а хоз часть стирает форму охране и т.д., нашли определенный метод решения задачи... и вот тут эта Обратная матрица =)

(16) по поводу округлений вполне согласен, попробую подумать над Гауссом подумать завтра в офис притащат учебник по Высшей математике =) в котором вроде бы "доступно написано"

(18) В яндексе набираем "обратная матрица" ...и смотрим метод Гаусса ...

встречные услуги...
в пинципе, можно еще как прогрессию посчитать - по 2-м попередельным распределениям определить коэффициенты и вперед... но это может быть даже более трудоемким.
При решении задачи методом Гаусса к квадратной матрице пристыковывается единичная, потом в квадратной части методом Гаусса с выбором ведущего элемента делается приведение к единичной форме (как будто решаешь линейную задачу), в единичном блоке получаешь обратную. Может юыьб еще какие телодвижения понадобятся...

//*******************************************
Функция ПолучитьОпределитель(матрица)
  
  Если матрица.КоличествоКолонок() > 2 Тогда
    // Разложим по первой строке
    Опред = 0;
    Для СтолбецИскл = 1 По матрица.КоличествоКолонок() Цикл
      
      матрицаОпр = СоздатьОбъект("ТаблицаЗначений");
      Для к = 1 По матрица.КоличествоКолонок() Цикл
        Если к <> СтолбецИскл Тогда
          
          нКолонки = нКолонки + 1;
          матрицаОпр.НоваяКолонка();
          
          Для н = 2 По матрица.КоличествоСтрок() Цикл
              
            матрицаОпр.НоваяСтрока();
            матрицаОпр.УстановитьЗначение(н-1,нКолонки,матрица.ПолучитьЗначение(н,к));
          КонецЦикла;
        КонецЕсли;
      КонецЦикла;
      Опред = Опред + ?(СтолбецИскл%2=1, 1,-1) * Матрица.ПолучитьЗначение(1,н) * ПолучитьОпределитель(матрицаОпр);
      
    КонецЦикла;
  Иначе
    
    Опред = (матрицаОпр.ПолучитьЗначение(1,1) * матрицаОпр.ПолучитьЗначение(2,2)) - (матрицаОпр.ПолучитьЗначение(1,2) * матрицаОпр.ПолучитьЗначение(2,1));
    
  КонецЕсли;
  Возврат Опред;
КонецФункции
Типа того...

(0) На 3-м курсе моей курсовой был такой расчет. Идея в использовании модифицированного QR-метода и интеллектуального контроля сходимости итераций. Всё проще, если она симметричная.

+22 Имеется в виду приведение несимметричной матрицы к треугольному виду и вычисление корневых векторов, если есть вырожденные корни.

(22) Матрица всегда будет квадратной я так понимаю это и есть симметричная.
"QR-метода и интеллектуального контроля сходимости итераций" =) поищим и почитаем.., а как относитесь к методу Гаусса?
(21) Спасибо

Симметричная - это относительно диагонали симметрия... Опять таки, есть замечательный способ обращения матрицы путем решения системы уравнений. А на решение - выбрать самый эффективный метод.

Пойду наверное я с тортиком на кафедру Высшей математики, заодно может мне там объяснять для чего выполняються именно эти волшебные действия.
(25, 22) Значит на ваш взгляд наиболее полный алгоритм следующий:
1) Оценить матрицу путем приведения к симметричному виду
2) по результатам п. 1 выбрать метод определения
3) Реализовать используемый метод.
т.е. просто обратить любую квадратную матрицу универсальным методом сложно или может привести к значительной погрешности?
Учтем что данные исходной матрицы это проценты от 1 до 100, с точностью до целых.