Основы компьютерного моделирования систем управления. Макарычев П.П - 36 стр.

UptoLike

var ID1 : double; { вспомогательные переменные "dll"-модели }
{/********** Это базовая процедура в DLL *************************/}
{/********** Вызывается VisSim-ом на каждом шаге моделирования ***/}
procedure myF(var P:Global; var inV:InVector; var outV:OutVector); export;
stdcall;
begin
{ Расчеты, выполняемые на каждом шаге моделирования }
ID1:=ID1+inV[0]*inV[2]/2; outV[0]:=ID1; { интегрирование }
outV[1]:=P.Am*sin(2*Pi*inV[1]*P.freq+P.faza); { синтез синусоидального
сигнала }
end;
{/******** Функция размещения параметров ***********************/}
{/********* Вызывается VisSim-ом при создании блока **************/}
function myFPA( var pCount:integer):Longint; export; stdcall;
begin
{ pCount := 2; { число передаваемых параметров в диалоговое окно }
myFPA := sizeof(Global); { размер памяти необходимый под параметры }
end;
{/********* Процедура инициализации параметров *******************/}
{/********* Вызывается VisSim-ом после PA функции *****************/}
procedure myFPI( var P:Global ); export; stdcall;
begin
{ Инициализация параметров (координат) модели.
значения постоянных времени, напряжений, токов ...}
P.Uo:=0;
P.Am:=10;
3
6
var ID1 : double; { вспомогательные переменные "dll"-модели }


{/********** Это базовая процедура в DLL *************************/}
{/********** Вызывается VisSim-ом на каждом шаге моделирования ***/}
procedure myF(var P:Global; var inV:InVector; var outV:OutVector); export;
stdcall;
begin
{ Расчеты, выполняемые на каждом шаге моделирования }
ID1:=ID1+inV[0]*inV[2]/2; outV[0]:=ID1; { интегрирование }
outV[1]:=P.Am*sin(2*Pi*inV[1]*P.freq+P.faza); { синтез синусоидального
сигнала }
end;


{/******** Функция размещения параметров ***********************/}
{/********* Вызывается VisSim-ом при создании блока **************/}
function myFPA( var pCount:integer):Longint; export; stdcall;
begin
{ pCount := 2; { число передаваемых параметров в диалоговое окно }
myFPA := sizeof(Global); { размер памяти необходимый под параметры }
end;


{/********* Процедура инициализации параметров *******************/}
{/********* Вызывается VisSim-ом после PA функции *****************/}
procedure myFPI( var P:Global ); export; stdcall;
begin
{ Инициализация параметров (координат) модели.
значения постоянных времени, напряжений, токов ...}
P.Uo:=0;
P.Am:=10;



                                       36