Перемножение одной матрицы на другую в Delphi

[ННН]

Пожалйста,подскажите!!!

[Карась]

Сначало надо это сделать на бумажке. Выяснить когда можно перемножать, а когда нельзя. "Увидеть" принцип действия.
В голове "собрать" алгоритм, сделать наброски будущей программы.
Правильно обьяснить это ДелфКе : )

Где Ваши наработки?

[Ulex]

Из учебника по 3D графике:

function MatrixMul(const a, b: TD3DMatrix) : TD3DMatrix;
var
i,j,k : Integer;
begin
Result := ZeroMatrix;
for i := 0 to 3 do
for j := 0 to 3 do
for k := 0 to 3 do
Result.m[i,j] := Result.m[i,j] + (a.m[k,j] * b.m[i,k]);
end;

Матрица TD3DMatrix размерности 4*4 вида-

TD3DMatrix = packed record
case integer of
0 : (_11, _12, _13, _14: TD3DValue;
_21, _22, _23, _24: TD3DValue;
_31, _32, _33, _34: TD3DValue;
_41, _42, _43, _44: TD3DValue);
1 : (m : array [0..3, 0..3] of TD3DValue);
end;

ZeroMatrix - TD3DMatrix матрица со всеми элементами=0
Под другую размерность матриц, или матрицу на вектор - тут уж сами.

[ННН]

мне надо через TPageControl,TTabSheet,TStringGrid, TSpinEdit

[Карась]

Что значит "через" ?

[ННН]

сама программа расчета была написана с помощью этих компонентов

[Карась]

У Вас есть конкретные вопросы?
Если нету, то тему - флуд, а просьба - фриланс.

[ННН]

парамрщзщзрхщз

[Карась]

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

Действительно. К перемножению матриц она не имеет никакого отношения.
Этот код рисует график в Чарте или чтото похожее.

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

[ННН]

это другой вопрос! нужно вычислить функцию y:=sqrt((a*sin(x1)+ln(a))/1+sin(x1-1/4))/sin(x1); при заданых пользователем:параметре а, предах изменения аргумента X и шаге его изменения! там вроде длясамой функции задать условия надо!