time-to-botec/squiggle/node_modules/jstat/test/linearalgebra/qr-test.js
NunoSempere b6addc7f05 feat: add the node modules
Necessary in order to clearly see the squiggle hotwiring.
2022-12-03 12:44:49 +00:00

41 lines
1.4 KiB
JavaScript

var vows = require('vows');
var assert = require('assert');
var suite = vows.describe('jStat');
require('../env.js');
suite.addBatch({
'QR decomposition': {
'topic': function() {
return jStat;
},
'example1': function(jStat) {
var A = [[12, -51, 4], [6, 167, -68], [-4, 24, -41]];
var QR = jStat.QR(A);
var Q = QR[0];
var R = QR[1];
var tol = 0.0001;
assert.epsilon(tol, Q[0][0], 0.8571428571428571);
assert.epsilon(tol, Q[0][1], -0.39428571428571446);
assert.epsilon(tol, Q[0][2], -0.3314285714285714);
assert.epsilon(tol, Q[1][0], 0.4285714285714286);
assert.epsilon(tol, Q[1][1], 0.902857142857143);
assert.epsilon(tol, Q[1][2], 0.034285714285714315);
assert.epsilon(tol, Q[2][0], -0.28571428571428575);
assert.epsilon(tol, Q[2][1], 0.1714285714285711);
assert.epsilon(tol, Q[2][2], -0.9428571428571428);
assert.epsilon(tol, R[0][0], 13.999999999999998);
assert.epsilon(tol, R[0][1], 21.00000000000001);
assert.epsilon(tol, R[0][2], -14.0);
assert.epsilon(tol, R[1][0], 5.506706202140777e-16);
assert.epsilon(tol, R[1][1], 175.00000000000003);
assert.epsilon(tol, R[1][2], -70.0);
assert.epsilon(tol, R[2][0], 3.0198066269804255e-16);
assert.epsilon(tol, R[2][1], 9.237055564881295e-16);
assert.epsilon(tol, R[2][2], 35.0);
}
}
});
suite.export(module);