ВУЗ:
Составители:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 34
- 35
- 36
- 37
- 38
- …
- следующая ›
- последняя »