Question

Consider the databases (EEG signal data): EEG_Normal, and EEG_Seizure. Curve length. This equation is useful in predicting the stability of the values of a signal. If, in a given interval, the value of this feature is low, it is an indicative that the signal is stable, otherwise the signal is unstable. We calculate this using: CL = $1=11|Xi+1 – xil (1) Root mean square. This equation is defined as the square root of the mean of the squares of the values of the signal. The root mean square (also known as quadratic mean) is determined by: 8 = $1=1 } OFVN Nes equal to the total numbers of samples for each column. 1) Using Visual Basic calculate for each column the equations (1) y (2). 2) Visualize the results obtained in (1). 3) Explain if there is any difference in the results obtained per column within a database, and when comparing between the 2 databases.

I just want the codes for visual basics for the curve length and the root mean square equation i provided above. This is for my visual basics class. Help!..........

Answer 1

Below are the two functions where the calculations can be done

S1: To calculate the Curve Length the below function to be used.

Pass the Column arrays of each of the table and calculate

Function processMyArr(ParamArray MyTab() As Variant) As Integer
Dim N As Long
Dim curvLen As Integer
Dim resMod As Integer
For N = LBound(MyTab) To UBound(MyTab)
resMod = MyTab(N + 1) - MyTab(N)
curvLen = curvLen + resMod
Next N
processMyArr = finalStr
End Function

S2: To calculate the Root Mean Square velocity the following function to be used.

Function processRMS(ParamArray MyTab() As Variant) As Float
Dim N As Long
Dim curvLen As Float
For N = LBound(MyTab) To UBound(MyTab)
curvLen = curvLen + (MyTab(N) * MyTab(N))
Next N
Dim latRes As Float
latRes = curvLen / N
processMyArr = Sqr(latRes)
End Function