Алгебра матриц

[RUSt88]

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

[Z1000000]

Да на тебе уже готовое из Инета. Все что тебе нужно здесь есть.

public
constructor Create(const Rows, Cols: Word); overload; // Создаёт нулевую матрицу
constructor Create(const Count: Word); overload; // Создаёт квадратную матрицу
constructor Create(Arr: TMatrixData); overload;
// Создаёт матрицу из массива
constructor Create(Matrix: TMatrix); overload; // Создаёт матрицу из матрицы
constructor Create(const FileName: string); overload; // Создаёт матрицу из файла
constructor CreateE(const N: Word); // Создаёт единичную матрицу порядка N
function Addition(Matrix: TMatrix): TMatrix; // Сумма матриц
procedure ApplyFunction(Func: TFunction); overload;
// Обработка всех элементов функцией одного аргумента;
procedure ApplyFunction(Func: TIndFunction); overload;
{ Обработка всех элементов функцией 3 аргументов
(2 поседних - индекс строки и столбца в которых находится элемент) }
function ChangeCols(ColIndex1, ColIndex2: Integer): TMatrix; // Обмен столбцами
function ChangeRows(RowIndex1, RowIndex2: Integer): TMatrix; // Обмен строками
function Clone(var Matrix: TMatrix): Boolean; // Создание копии матрицы
function DeleteCols(Index: Integer; Count: Word): TMatrix; // Удаляет столбцы
function DeleteRows(Index: Integer; Count: Word): TMatrix; // Удаляет строки
function Det: Extended; // Определитель матрицы
function Equivalent(Matrix: TMatrix; Epsilon: Extended = 0): Boolean;
// Сравнение матриц
class procedure Error(const Msg: string; Data: Integer); overload; virtual;
class procedure Error(Msg: PResStringRec; Data: Integer); overload;
function FlipHorizontal: TMatrix; // Отражает слева направо
function FlipVertical: TMatrix; // Отражает сверху вниз
function InsertCols(Matrix: TMatrix; Index: Word): TMatrix;
// Вставляет столбцы
function InsertRows(Matrix: TMatrix; Index: Word): TMatrix;
// Вставляет Строки
function LoadFromFile(FileName: string): Boolean;
// Загружает матрицу из файла
function Mult(Matrix: TMatrix): TMatrix; overload; // Умножение на матрицу
function Mult(const Num: Extended): TMatrix; overload; // Умножение на число
function Power(Exponent: SmallInt): TMatrix;
function Rank: Word; // Ранг матрицы
function Ret: TMatrix; // Обращает Матрицу;
function SaveToFile(FileName: string): Boolean; // Сохраняет матрицу в файл
function Square: Boolean; // Проверка квадратности матрицы
function Subtraction(Matrix: TMatrix): TMatrix; // Разность матриц
function Trace: Extended; // След Матрицы.
function Transposing: TMatrix; // Транспонирует матрицу
function TurnLeft: TMatrix; // Поворот против часовой стрелки
function TurnRight: TMatrix; // Поворот по часовой стрелки
property ColCount: Word read GetColCount; // Кол-во столбцов
property Items[Row, Col: Integer]: Extended read Get write Put; default;
// Элементы матрицы
property Minor[Row, Col: Integer]: Extended read GetMinor;
// Минор к элементу Items [Row, Col]
property RowCount: Word read GetRowCount; // Кол-во строк
end;

[kok222]

Помогите пожалуйста создать программу stringgrid "замена столбца матрицы" Дельфи

[Z1000000]

Замена столбца на что ?
Два столбца местами поменять ?