5. Описание программы .
5.1. Описание типов.
Для хранения координат точек графика кривой Михайлова используется двухмерный массив размерностью 2х92.
haggard=array[1..2] of array[1..92] of integer;
Для хранения координат точек пересечения кривой Михайлова с осями координат используется два двухмерных массива размерностью 2х2.
arch=array[1..2] of array[1..2] of double;
5.2. Описание глобальных переменных.
m: haggard – используется для хранения координат точек графика кривой Михайлова.
mx,my: arch - используется для хранения координат точек пересечения кривой Михайлова с осями координат.
x, y:integer – соответственно X-ая и Y-ая координаты графика.
i, k1:integer – переменные счётчики.
k:integer – счётчик количества пересечений кривой Михайлова с осями координат.
tx,ty:integer – переменные счётчики в массиве.
w:double – значение .
5.3. Описание процедур и функций.
Процедура “dekart”.
procedure dekart;
Рисует оси координат, и масштабную сетку.
Процедура “ramka”.
procedure ramka;
Рисует рамку вокруг графика.
Процедура “ress”.
procedure ress;
Рассчитывает точки графика кривой Михайлова и записывает их значения в массив m. А так же записывает координаты точек пересечения графика с осями и соответствующие значения в массивыmx и my. В переменную k заносится количество точек пересечения графика с осями.
Процедура “grafic”.
procedure grafic;
Рисует график, используя значения, рассчитанные в процедуре “ ress ”.
Процедура “rasc”.
procedure rasc;
Выводит на экран координаты точек графика при изменении от 0 до 3.25, с интервалом значений 0.036.
Процедура “vd”
procedure vd;
Выводит на экран координаты точек пересечения графика с осями координат.
Процедура “shod”.
procedure shod;
Рассчитывает значения угла поворота вектора , число корней характеристического уравнения с положительной вещественной частью, и на основе этих значений выводит на экран соответствующее заключение об устойчивости или неустойчивости САР.
Оконные функции.
function WindowProc (Window: HWnd; Mesage, WParam ,
LParam : LongWord) : LongInt; stdcall;
function WindowProc2 (Window2: HWnd; Mesage, WParam ,
LParam : LongWord) : LongInt; stdcall;
Принимают сообщения от обработчика сообщений и выполняют соответствующие действия.
5.4. Тело программы.
Вначале переменным maxx и maxy присваиваются значения разрешения экрана. Затем описываются классы окон и создаются 3 окна указанных классов. После этого выполняются процедуры:
ress;
dekart;
grafic;
rasc;
ramka;
vd;
shod;
После этого запускается цикл обработки сообщений.
СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ.
1. Малкин И.Г. Теория устойчивости движения. - .М.: Наука, 1972. - 530с.
2. Меркин Д.Р. Введение в теорию устойчивости движения. - М.: Наука, 1981. – 312с.