Campbell CR800 Series - Array Assigned Expression: Sum Columns and Rows

Section 7. Installation
185
• If indices are not specified, or none have been preceded with a minus
sign, the least significant dimension of the array is assumed.
• The offset into the dimension being accessed is given by (a,b,c).
• If the array is referenced as array(), the starting point is array(1,1,1) and
the least significant dimension is accessed. For example, if the array is
declared as test(a,b,c), and subsequently referenced as test(), then the
starting point is test(1,1,1) and dimension c is accessed.
Array Assigned Expression: Sum Columns and Rows
'This example sums three rows and two columns of a 3x2 array.
'Source array image:
'1.23,2.34
'3.45,4.56
'5.67,6.78
Public Array(3,2) = {1.23,2.34,3.45,4.56,5.67,6.78}'load values into source array
Public RowSum(3)
Public ColumnSum(2)
BeginProg
Scan(1,Sec,0,0)
'For each row, add up the two columns
RowSum() = Array(-1,1)() + Array(-1,2)()
'For each column, add up the three rows
ColumnSum() = Array(1,-1)() + Array(2,-1)() + Array(3,-1)()
NextScan
EndProg
Array Assigned Expression: Transpose an Array
'This example transposes a 3x2 array to a 2x3 array
'Source array image:
'1,2
'3,4
'5,6
'Destination array image (transpose of source):
'1,3,5
'2,4,6
'Dimension and initialize source array
Public A(3,2) = {1,2,3,4,5,6}
'Dimension destination array
Public At(2,3)
'Delcare For/Next counter
Dim i