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

P.freq:=2;
P.faza:=0;
end;


{/********* Функция изменения параметров *************************/}
{/******* Вызывается VisSim-ом при нажатии правой клавиши мыши ***/}
function myFPC( var P:Global ):Pchar; export; stdcall;
begin
{ Изменение параметров модели:
соответствующий очередности список названий параметров }
myFPC :='Начальное условие;Am;freq;faza';{ названия могут быть любые }
end;


{/************ Процедура Simulation Start ***************************/}
{/********* Вызывается VisSim-ом на первом шаге моделирования ******/}
procedure myFSS( var P:Global; var runCount:longint); export; stdcall;
begin
{ присвоение начальных условий интеграторам:
напряжений на конденсаторах, токов в индуктивностях ...}
ID1:=P.Uo;
end;


{/********** Процедура Simulation End *****************************/}
{/********* Вызывается VisSim-ом на последнем шаге моделирования ***/}
procedure myFSE( var P:Global; var runCount:longint); export; stdcall;
begin
{ сохранение значений интеграторов для повторного запуска
при многоэтапном моделировании:
напряжений на конденсаторах, токов в индуктивностях ...}



                                       37