Компьютерная графика, мультимедиа и игры на Visual C#


         

Глава Расчет и изображение - часть 3


    'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:

    Dim myArrayVB_2(20000, 1) As Single 'Автомат-ки обнуляется.

    'Значение первой границы массива myArrayVB_2:

    Dim N_1_myArrayVB_2 As Integer

    'Счетчик элементов массива:

    Dim ii As Integer = -1

    'Рисуем линию уровня f(x, y) = LevelCurves:

    Private Sub PlotLevelCurve(ByVal g As Graphics, _

    ByVal LevelCurves As Single, ByVal x_min As Single, _

    ByVal x_max As Single, ByVal y_min As Single, _

    ByVal y_max As Single, _

    Optional ByVal step_size As Single = 0.1, _

    Optional ByVal start_x As Single = 1.0, _

    Optional ByVal start_y As Single = 1.0, _

    Optional ByVal tolerance As Single = 0.02)

        'Объявляем индексы элементов всех массивов:

        Dim i, j As Integer

        'Программируем 1-й массив для рисования здесь.

        'Задаем границы индексов 1-го массива myArrayVB(i, j):

        Dim N_x As Integer = 2000

        Dim N_y As Integer = 1

        'Объявляем 1-й массив myArrayVB(i, j) переменных Single,

        'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:

        Dim myArrayVB(N_x, N_y) As Single 'Автомат-ки обнуляется.

        'Значение первой границы массива myArrayVB:

        Dim N_1_myArrayVB As Integer

        'Объявляем переменные для точек линий уровня:

        Dim num_points As Integer

        Dim x0 As Single : Dim y0 As Single

        Dim x1 As Single : Dim y1 As Single

        Dim x2 As Single : Dim y2 As Single

        Dim dx As Single : Dim dy As Single

        'Находим точку (x0, y0) на линии уровня LevelCurves:

        FindPointOnCurve(x0, y0, LevelCurves, _

        start_x, start_y, tolerance)

        'Начальная точка линии:

        num_points = 1

        'Следующая линия уровня LevelCurves:

        x2 = x0

        y2 = y0

        i = -1 'Задаем до цикла.

        'Начало цикла Do - Loop:

        Do

            x1 = x2

            y1 = y2

            'Находим следующую точку на линии:

            Gradient(x2, y2, dx, dy)




Содержание  Назад  Вперед