Перемножение матриц в Delphi, конкретный случай

[Дарья Inc.]

Я в delphi совершенный новичок, фактически чайник можно сказать...
Подскажите пожалуйста, как в delphi7 перемножить матрицу размером 3х3, на матрицу столбец, в которой каждый элемент - разность (напр. Х1-Х2);

A1[1,1]:= -sin(B1)*cos(L1);
A1[1,2]:= -sin(B1)*sin(L1);
A1[1,3]:= cos(B1);
A1[2,1]:= -sin(L1);
A1[2,2]:= cos(L1);
A1[2,3]:=0;
A1[3,1]:= cos(B1)*cos(L1);
A1[3,2]:= cos(B1)*sin(L1);
A1[3,3]:= sin(B1);


умножить на


Mat1[1]:=(X2-X1);
Mat1[2]:=(Y2-Y1);
Mat1[3]:=(Z2-Z1);

[Sazary]

Посмотрите тут:
http://programmersforum.ru/showthrea...t=41696&page=2
произведение матрицы на вектор