mirror of
https://github.com/revarbat/BOSL2.git
synced 2025-08-19 06:41:17 +02:00
fix tests and bugs revealed by new tests
This commit is contained in:
@@ -368,6 +368,17 @@ module test_gaussian_rands() {
|
||||
assert_equal(len(nums3), 1000);
|
||||
assert_equal(nums1, nums3);
|
||||
assert(nums1!=nums2);
|
||||
|
||||
R = [[4,2],[2,17]];
|
||||
data = gaussian_rands(100000,[0,0],R,seed=49);
|
||||
assert(approx(mean(data), [0,0], eps=1e-2));
|
||||
assert(approx(transpose(data)*data/len(data), R, eps=2e-2));
|
||||
|
||||
R2 = [[4,2,-1],[2,17,4],[-1,4,11]];
|
||||
data3 = gaussian_rands(100000,[1,2,3],R2,seed=97);
|
||||
assert(approx(mean(data3),[1,2,3], eps=1e-2));
|
||||
cdata = move(-mean(data3),data3);
|
||||
assert(approx(transpose(cdata)*cdata/len(cdata),R2,eps=.1));
|
||||
}
|
||||
test_gaussian_rands();
|
||||
|
||||
|
Reference in New Issue
Block a user