Public Sub GenerateLUT()
Dim intRows = 19 As Int
Dim intCols = 7 As Int
Dim LUT(intRows, intCols) As Double
Dim FrontPed00(7) As Double
Dim FrontPed01(7) As Double
Dim FrontPed02(7) As Double
Dim FrontPed03(7) As Double
Dim FrontPed04(7) As Double
Dim FrontPed05(7) As Double
Dim FrontPed06(7) As Double
Dim FrontPed07(7) As Double
Dim FrontPed08(7) As Double
Dim FrontPed09(7) As Double
Dim FrontPed10(7) As Double
Dim FrontPed11(7) As Double
Dim FrontPed12(7) As Double
Dim FrontPed13(7) As Double
Dim FrontPed14(7) As Double
Dim FrontPed15(7) As Double
Dim FrontPed16(7) As Double
Dim FrontPed17(7) As Double
Dim FrontPed18(7) As Double
'Generate DATA
FrontPed00 = Array As Double ( 0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0)
FrontPed01 = Array As Double ( 1.0, 152.92, 152.92, 152.92, 152.92, 152.92, 152.92)
FrontPed02 = Array As Double ( 2.0, 152.08, 152.08, 152.17, 152.17, 152.17, 152.17)
FrontPed03 = Array As Double ( 3.0, 150.25, 150.25, 150.33, 150.33, 150.42, 150.42)
FrontPed04 = Array As Double ( 4.0, 148.58, 148.58, 148.67, 148.75, 148.83, 148.92)
FrontPed05 = Array As Double ( 5.0, 147.00, 147.08, 147.17, 147.25, 147.42, 147.50)
FrontPed06 = Array As Double ( 6.0, 145.58, 145.75, 145.92, 146.00, 146.08, 146.25)
FrontPed07 = Array As Double ( 7.0, 144.33, 144.50, 144.67, 144.83, 145.00, 145.08)
FrontPed08 = Array As Double ( 8.0, 143.17, 143.33, 143.58, 143.75, 144.00, 144.17)
FrontPed09 = Array As Double ( 9.0, 142.17, 142.42, 142.58, 142.83, 143.08, 143.25)
FrontPed10 = Array As Double (10.0, 141.33, 141.58, 141.83, 142.08, 142.25, 142.50)
FrontPed11 = Array As Double (11.0, 140.58, 140.83, 141.17, 141.42, 141.67, 141.92)
FrontPed12 = Array As Double (12.0, 140.00, 140.25, 140.58, 140.92, 141.17, 141.50)
FrontPed13 = Array As Double (13.0, 139.50, 139.83, 140.17, 140.50, 140.83, 141.17)
FrontPed14 = Array As Double (14.0, 139.17, 139.50, 139.92, 140.25, 140.58, 141.00)
FrontPed15 = Array As Double (15.0, 138.92, 139.33, 139.75, 140.08, 140.50, 140.83)
FrontPed16 = Array As Double (16.0, 138.83, 139.17, 139.58, 140.00, 140.42, 140.83)
FrontPed17 = Array As Double (17.0, 138.75, 139.17, 139.58, 140.00, 140.42, 140.92)
FrontPed18 = Array As Double (18.0, 138.75, 139.17, 139.58, 140.08, 140.50, 140.92)
' Populate 2 dimensional Array
Dim intRow As Int
Dim intCol As Int
Dim PedArray() As Double
For intRow = 0 To 18
Dim PedArray() As Double
Select intRow
Case 0: PedArray = FrontPed00
Case 1: PedArray = FrontPed01
Case 2: PedArray = FrontPed02
Case 3: PedArray = FrontPed03
Case 4: PedArray = FrontPed04
Case 5: PedArray = FrontPed05
Case 6: PedArray = FrontPed06
Case 7: PedArray = FrontPed07
Case 8: PedArray = FrontPed08
Case 9: PedArray = FrontPed09
Case 10: PedArray = FrontPed10
Case 11: PedArray = FrontPed11
Case 12: PedArray = FrontPed12
Case 13: PedArray = FrontPed13
Case 14: PedArray = FrontPed14
Case 15: PedArray = FrontPed15
Case 16: PedArray = FrontPed16
Case 17: PedArray = FrontPed17
Case 18: PedArray = FrontPed18
End Select
Dim l_strData As String
For intCol = 0 To 6
LUT(intRow, intCol) = PedArray(intCol)
Next 'intCol
Next 'intRow
'Display the LUT
For intRow = 0 To 18
Dim l_strData
l_strData = ""
For intCol = 0 To 6
If intCol > 0 Then
l_strData = l_strData & ", " & TAB
End If
If intRow = 0 Then
'Format the whole Top row as integers
l_strData = l_strData & NumberFormat2(LUT(intRow, intCol), 1, 1, 1, False)
Else if intCol = 0 Then
'Format the First Col as an integer
l_strData = l_strData & NumberFormat2(LUT(intRow, intCol), 1, 0, 0, False)
Else
'Format everything else as a double
l_strData = l_strData & NumberFormat2(LUT(intRow, intCol), 3, 2, 2, False)
End If
Next
Log(l_strData)
Next
' Next Step is to persist the 2 dimensional array to file ...