procedure MxMT(ML: TFloatMatrix; MR: TFloatMatrix; var Mt: TFloatMatrix);

CommonMatrixMath

procedure SinCos(Theta: float; var Sin, Cos: float); asm FLD Theta FSINCOS FSTP tbyte ptr [edx] // Cos FSTP tbyte ptr [eax] // Sin FWAIT end;