Campbell CR1000

Section 7. Installation
Table 24. CRBasic Example. 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
Table 25. CRBasic Example. 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
BeginProg
Scan (1,Sec,0,0)
For i = 1 To 2
'For each column of the source array A(), copy the column into a row of the
'destination array At()
At(i,-1)() = A(-1,i)()
Next i
NextScan
EndProg
190