uses MtxExpr,
Math387,
MtxVec, MtxVecEdit,
Polynoms;
var Coeff: Vector;
A: Matrix;
begin
A.SetIt(3,3,false,[1, 4, -1,
2, 1, 5,
3, -2, 0]);
PolyCoeff(A,Coeff);
ViewValues(Coeff,'Coefficients');
end;
#include "MtxExpr.hpp"
#include "Polynoms.hpp"
#include "MtxVecTee.hpp"
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
sVector Coeff;
sMatrix A;
A.SetIt(3,3,false,OPENARRAY(double,(1, 4, -1,
2, 1, 5,
3, -2, 0)));
PolyCoeff(A,Coeff);
ViewValues(Coeff,"Coefficients");
}
