30.01.2013 Views

6.3 Suspended Ceiling Design Process - Bilkent University

6.3 Suspended Ceiling Design Process - Bilkent University

6.3 Suspended Ceiling Design Process - Bilkent University

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

End With<br />

For i = 1 To n<br />

Cells(i + 2, i + 2).Select<br />

With Selection.Interior<br />

.ColorIndex = 1<br />

.Pattern = xlSolid<br />

End With<br />

Next i<br />

''''''''''''''''''''''''''''''''''''''''''''''''<br />

For i = 1 To n 'loading DSM(n,n,1) values<br />

For j = 1 To n<br />

DSM(i, j, 1) = Worksheets("DSM").Cells(i + 1, j + 2)<br />

Next j<br />

Next i<br />

For i = 1 To n<br />

DSM(i, i, 1) = 1<br />

Next i<br />

For i = 1 To n<br />

For j = 1 To n<br />

temp2(i, j) = DSM(i, j, 1)<br />

Next j<br />

Next i<br />

Sheets("DSM").Select 'loading parameters<br />

Cells(2, 1).Select<br />

For i = 1 To n<br />

Parameter(i) = Cells(i + 1, 1)<br />

color(i) = ActiveCell.Interior.ColorIndex<br />

Cells(2 + i, 1).Select<br />

Next i<br />

'start calculating the reachability matrix<br />

For i = 1 To n - 1<br />

For j = 1 To n<br />

For k = 1 To n<br />

temp1(j, k) = temp2(j, k)<br />

Next k<br />

Next j<br />

For j = 1 To n<br />

m = 1<br />

Do Until m > n<br />

For k = 1 To n<br />

temp2(j, m) = temp1(j, k) * DSM(k, m, 1) + temp2(j, m)<br />

If temp2(j, m) > 1 Then temp2(j, m) = 1<br />

Next k<br />

m = m + 1<br />

226

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!