Source position: upca.pas line 54
procedure PCA(
R: TMatrix;
Nvar: Integer;
Lambda: TVector;
C: TMatrix;
Rc: TMatrix
);