level 2 s-function

function park(block)

%call setup function

setup(block);

%endfunction


function setup(block)

% Register number of ports
block.NumInputPorts = 3;
block.NumOutputPorts = 2;

% Setup port properties to be inherited or dynamic
block.SetPreCompInpPortInfoToDynamic;
block.SetPreCompOutPortInfoToDynamic;

% Register parameters
block.NumDialogPrms = 0;

% Register sample times
% [0 offset] : Continuous sample time
% [positive_num offset] : Discrete sample time
%
% [-1, 0] : Inherited sample time
% [-2, 0] : Variable sample time
block.SampleTimes = [0 0];

block.SimStateCompliance = 'DefaultSimState';


block.RegBlockMethod('Outputs', @Outputs); % Required
block.RegBlockMethod('SetInputPortFrameData', @SetInpPortFrameData);
block.RegBlockMethod('Terminate', @Terminate); % Required

%end setup

%%
%% Outputs:

function Outputs(block)

teta = block.InputPort(1).Data;
ia = block.InputPort(2).Data;
ib = block.InputPort(3).Data;

id=ia*cos(teta)+ib*sin(teta);
iq=-ia*sin(teta)+ib*cos(teta);

block.OutputPort(1).Data = id;
block.OutputPort(2).Data = iq;

%end Outputs

function SetInpPortFrameData(block, idx, fd)

    block.InputPort(idx).SamplingMode = fd;
    for i=1:block.NumOutput.Ports
        block.OutputPort(i).SamplingMode = fd;
    end

%end SetInpPortFrameData

%%
%% Terminate:
function Terminate(block)

%end Terminate