From f618466c25d43f3bae9e40920273bf77de1e1149 Mon Sep 17 00:00:00 2001 From: leochanj105 Date: Mon, 19 Oct 2020 23:09:30 -0400 Subject: initial sd-vbs initial sd-vbs add sd-vbs sd-vbs --- SD-VBS/common/matlab/selfCheck.m | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 SD-VBS/common/matlab/selfCheck.m (limited to 'SD-VBS/common/matlab/selfCheck.m') diff --git a/SD-VBS/common/matlab/selfCheck.m b/SD-VBS/common/matlab/selfCheck.m new file mode 100644 index 0000000..55c8de8 --- /dev/null +++ b/SD-VBS/common/matlab/selfCheck.m @@ -0,0 +1,27 @@ +function ret = selfCheck(in1, path, tol) + +r1 = size(in1, 1); +c1 = size(in1, 2); + +ret = 1; + +file = [path, '/expected.m']; +fd = fopen(file, 'r'); + +[in2, count] = fscanf(fd, '%d'); + +if(count ~= (r1*c1) ) + fprintf(1, 'Dimensions mismatch: Expected %d\t Observed %d\n', count, (r1*c1)); + ret = -1; +else + ret = 1; + for i=1:(r1*c1) + if( (abs(in1(i)) - abs(in2(i)) > tol) || (abs(in2(i)) - abs(in1(i))) > tol) + fprintf(1, 'Checking Error: Index %d\tExpected %d\tObserved %d\n', i, in2(i), in1(i)); + ret = -1; + break; + end + end + +end + -- cgit v1.2.2