6.3 Suspended Ceiling Design Process - Bilkent University

Loop
Next j
Next i
'now, the final temp2 array contains the answer for the reachability
matrix
'so give the values in temp2 to the reachability matrix
For i = 1 To n
For j = 1 To n
reach(i, j) = temp2(i, j)
Next j
Next i
Partition
Find_Levels
End Sub
' partition Macro
' This macro partitions the matrix based on the reachability matrix result
'
Option Explicit
Option Base 1
Public row As Variant
'row(x,y) contains the reachability set of each element in DSM
'x indicates the element in the matrix this variable is associated with
'y indicates the order of the variable in the reachability set of element
Public column As Variant
'column(x,y) contains the antecedent set of each element in DSM
'x indicates the element in the matrix this variable is associated with
'y indicates the order of the variable in the antecedent set of element
Public total_row As Variant 'total number of elements in the reachability
set
Public total_column As Variant 'total number of elements in the
antecedent set
Sub Partition()
Dim i, j, k As Integer
ReDim row(n, n), column(n, n)
ReDim total_row(n), total_column(n)
Application.ScreenUpdating = False
For i = 1 To n
'assign values to the reachability set of element i
k = 0
For j = 1 To n
If reach(i, j) 0 Then
k = k + 1
row(i, k) = j
227