Создание обучающей системы автоматизированного проектирования маломощных электромеханических следящих систем, страница 45

    procedure cbZALaxClick(Sender: TObject);

    procedure cbRaspALaxClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    //---------------------------------------------------------------------

    procedure OpenDatabase();     //Открывает таблицу БД.

    procedure CloseDatabase();    //Закрывает таблицу.

    procedure CopyAppropriate();  //Копирует подходящие двигатели.

    function pch(): real;         //Определяет передаточное число.

    //---------------------------------------------------------------------

    //---------------------------------------------------------------------

    procedure LaxRazomkn(Kw, Ts, tau1, tau2 :real); //Строит ЛХ разомкнутой системы.

function ARazomkn(Kw, Ts, tau1, tau2, w :real) : real; //по таблице

    //Фаза колебаний разомкнутой системы.

    function PhiRazomkn(Ts, tau1, tau2, w :real):real; //Дано.

    //---------------------------------------------------------------------

    //---------------------------------------------------------------------

    procedure LAXZhelaem(Kw, T1, T2, T3, tau1, tau2 :real; vibor : byte); //Строит ЛАХ желаемой системы.

    function AZhelaem(Kw, T1, T2, T3, tau1, tau2, w :real; vibor: byte):real;   //Амплитуда колебаний желаемой системы.

    function PhiZhelaem(T1, T2, T3, tau1, tau2, w :real; vibor: byte) : real;  //Желаемая ЛФЧХ

    //---------------------------------------------------------------------

    //---------------------------------------------------------------------

    procedure LaxKU(KwUp, Kw, T1, T2, T3, tau1, tau2 :real; vibor: byte);              //Строит ЛАХ корректирующего устройства.

    function AKU(T1, T2, T3, Ts, tau1, tau2, w :real):real;         //Строит ЛАХ корректирующего устройства.

    function PhiKU(tau1, tau2, T2, w :real): real;      //Строит ЛАХ корректирующего устройства.

    //---------------------------------------------------------------------

    //---------------------------------------------------------------------

    procedure DrawGraphics();                     //Запускает построение графиков.

    //---------------------------------------------------------------------

    //---------------------------------------------------------------------

    procedure DrawVerticals(T1,T2,T3,Ts:real);          //Строит вертикальные линии - полюса.

procedure DrawVerticalsKU(T1,T2,T3,Ts,tau1,tau2:real);

    //---------------------------------------------------------------------

    procedure OutputDM();

    procedure OutputU();

    //---------------------------------------------------------------------

    procedure Table1CalcFields(DataSet: TDataSet);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure EngineGridSelectCell(Sender: TObject; ACol, ARow: Integer;

      var CanSelect: Boolean);

    procedure FormCreate(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure ClearTable(Grid: TStringGrid);

    procedure Edit15Change(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure SensorGridSelectCell(Sender: TObject; ACol, ARow: Integer;

      var CanSelect: Boolean);

    procedure Button2Click(Sender: TObject);

    procedure SensorGridClick(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure UGridDrawCell(Sender: TObject; ACol, ARow: Integer;

      Rect: TRect; State: TGridDrawState);

    procedure UGridSelectCell(Sender: TObject; ACol, ARow: Integer;

      var CanSelect: Boolean);

    procedure CalcForDraw(); // Вычисление данных и выбор T1

    function TestT3: Byte; //Выбор постоянной времени T3