6.3 Suspended Ceiling Design Process - Bilkent University

End If
Next j
total_row(i) = k
'assign values to the antecedent set of element i
k = 0
For j = 1 To n
If reach(j, i) 0 Then
k = k + 1
column(i, k) = j
End If
Next j
total_column(i) = k
Next i
End Sub
' banding Macro
' This macro creates bands in the matrix
'
Sub Banding() 'finds the most upstream set of activities
that can be worked concurrently in the time step
Dim in_band As Boolean
For i = 1 To n
WN(i) = False 'initialize all activities to do NO work during
this time step
Next i
j = n + 1 'keeps from looking for full band when no
activities left
For i = 1 To n 'find first activity that can do work during the
current time step
If W(i) > 0 Then
WN(i) = True
j = i + 1 'sets j to the following activity
Exit For 'leave loop once the first activity is found
End If
Next i
' band_complete = False 'all activities for band have not been
found
Do While j