From d17b33131c14864bd1eae275f49a3f148e21cf29 Mon Sep 17 00:00:00 2001
From: Leo Chan <leochanj@live.unc.edu>
Date: Thu, 22 Oct 2020 01:53:21 -0400
Subject: Squashed commit of the sb-vbs branch.

Includes the SD-VBS benchmarks modified to:
- Use libextra to loop as realtime jobs
- Preallocate memory before starting their main computation
- Accept input via stdin instead of via argc

Does not include the SD-VBS matlab code.

Fixes libextra execution in LITMUS^RT.
---
 SD-VBS/benchmarks/svm/src/c/examineExample.c | 67 ++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 SD-VBS/benchmarks/svm/src/c/examineExample.c

(limited to 'SD-VBS/benchmarks/svm/src/c/examineExample.c')

diff --git a/SD-VBS/benchmarks/svm/src/c/examineExample.c b/SD-VBS/benchmarks/svm/src/c/examineExample.c
new file mode 100644
index 0000000..5335f35
--- /dev/null
+++ b/SD-VBS/benchmarks/svm/src/c/examineExample.c
@@ -0,0 +1,67 @@
+/********************************
+Author: Sravanthi Kota Venkata
+********************************/
+
+#include "svm.h"
+
+int examineExample(int i, F2D* a, float* b, float C, F2D* e, F2D* X, F2D* Y, float tolerance, int N, float eps, int dim)
+{
+    int  ret, j, k, m, n;
+    float E, r1, randVal;
+    float maxDiff, temp;
+
+    if( ( asubsref(a,i) > 0) && ( asubsref(a,i) <C) )
+        E = asubsref(e,i);
+    else
+        E = cal_learned_func(i, a, b, N, Y, X, dim) - asubsref(Y,i);
+
+    r1 = subsref(Y,i,0) * E;
+    if( ((r1 < (-1*tolerance)) && ( asubsref(a,i) < C)) || ((r1 >tolerance) && ( asubsref(a,i) > 0)) )
+    {
+        maxDiff = 0;
+        j = i;
+
+        for(k=0; k<N; k++)
+        {
+            if( ( asubsref(a,k) > 0) && ( asubsref(a,k) < C) )
+            {
+                temp = fabsf( E - asubsref(e,k));
+                if (temp > maxDiff)
+                    j = k;
+            }
+        }
+
+        if ( i!=j)
+        {
+            ret = takeStep(i, j, a, C, e, Y, X, eps, b, N, dim);
+            if(ret == 1)
+                return ret;
+        }
+
+        randVal = 1.0;
+        for( k= (randVal*(N-2)); k<N; k++)
+        {
+            if( ( asubsref(a,k) > 0) && ( asubsref(a,k) <C) )
+            {
+                ret = takeStep(i, k, a, C, e, Y, X, eps, b, N, dim);
+                if (ret == 1)
+                    return ret;
+            }
+        }
+
+        for(k=0; k<N; k++)
+        {
+            ret = takeStep(i, k, a, C, e, Y, X, eps, b, N, dim);
+            if(ret == 1)
+                return ret;
+        }
+    }
+
+    
+    ret = 0;
+    return ret;
+}
+
+
+
+
-- 
cgit v1.2.2