Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата

    For l = -1 To 1

     For m = -1 To 1

      k = k + 1

      c(i, j) = c(i, j) + a(k) * b(i + l, j + m)

     Next m

    Next l

   Next j

  Next i

  For i = 1 To n

   For j = 1 To n

    Color = SetColor(c(i, j))

    Line (6 * (i - 1), 6 * (j - 1))-(6 * i - 1, 6 * j - 1), Color, BF

    b(i, j) = c(i, j)

   Next j

  Next i

 Next f

End Sub

Public Function SetColor(z As Single) As Long

 Dim t As Byte

 Select Case z

  Case Is < Zmin

   SetColor = RGB(0, 63, 0)

  Case Zmin To Z14

   t = 63 + 192 * (z - Zmin) / R4

   SetColor = RGB(0, t, 0)

Рекомендуем скачать другие рефераты по теме: сестринские рефераты, тезис.





Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата