Uses MtxExpr, Statistics, Math387;
procedure Example;
var D,DHat: Matrix;
  stress: double;
begin
  D.Size(2,2,false,[0,1,2,3]);
  DHat.Size(2,2,false,[0.1,1.2,2.5,3]);
  // Calculate stress value - measure for GOF
  // Smaller stress value means better GOF.
  stress := MDScaleStress(D,DHat);
end;

#include "MtxExpr.hpp"
#include "Statistics.hpp"
void __fastcall Example()
{
    sMatrix D,DHat;
    D.SetIt(2,2,false, OPENARRAY(double, (0,1,2,3)));
    DHat.SetIt(2,2,false, OPENARRAY(double, (0.1,1.2,2.5,3)));

    // Calculate stress value - measure for GOF
    // Smaller stress value means better GOF.
    double stress = MDScaleStress(D,DHat);
}