6.3 Suspended Ceiling Design Process - Bilkent University

For counter = 1 To i
For counter1 = 1 To i
If counter = counter1 Then
R(counter, counter1) = 1
Else
R(counter, counter1) = 0
End If
Next counter1
Next counter
'assigning the value of parameter relation to R(m,n)
Sheets("information").Select
judge = 1
k = 2
Do Until judge = 0
judge1 = 1
m = 1
Cells(k, 1).Select
Do Until judge1 = 0
If Cells(k, 1).Value = parameter(m) Then
judge1 = 0
ElseIf m > i Then
judge1 = 0
Else
m = m + 1
End If
Loop
m1 = m
Cells(k, 2).Select
judge1 = 1
m = 1
Do Until judge1 = 0
If Cells(k, 2).Value = parameter(m) Then
judge1 = 0
ElseIf m > i Then
judge1 = 0
Else
m = m + 1
End If
Loop
m2 = m
R(m2, m1) = 1
k = k + 1
If Cells(k, 1).Value = "end" Then
judge = 0
End If
Loop
'output un-partitioned matrix
Sheets("unpartitioned matrix").Select
221