pscad 自定义模块

zlw

pscad自带的例子中，和MATLAB互联仿真画磁滞回线的那个例子。matlab的程序能否解读一下，想把它做成c语言编的程序。
8 i6 h! P) |' Y2 b+ Pfunction [out_IF] = hyst_plot(I_F)
%
% This function is generated by MATLAB-PSCAD component generator V1.0
%
% Input:
%        I_F of dimension 2 1
%
4 p1 k8 L% v9 Q3 m; q%
% Output:
& c7 L1 |  G: H2 s, O# G: m%        out_IF of dimension 1 1

global Ia flux my_nom
: y' v8 ]' |* h+ V" v) B) R# E
1 B; R2 O) H5 N$ _! ?6 Kn2=15;                % points number
. Z) h: G+ z# G, ?6 l, MFlim=2.5;                % Flux limit
: I3 `: A: [! L) z# ZIlim=0.1;                % Current limit
& Z# u" R# O" K5 H/ k1 A2 j& J( O
+ M  A* C4 Z$ j. s' p%if ~exist('my_nom')
7 W2 j* ?* o- `$ N% Z7 a8 z1 p  my_nom=1;
  Ia(n2)=0;
! f- n% F. a% h  flux(n2)=0;
%end
figure(1);
for i=n2-1:-1:1
) F, ~# O# r. O6 d Ia(i+1)=Ia(i);
flux(i+1)=flux(i);
) @0 _6 n- m/ s6 C* aend
Ia(1)=I_F(1);
- k$ a' ]6 ]# g, F6 j& G7 A flux(1)=I_F(2);
% line(Ia,flux);
5 B7 _: p) w- @7 n* }1 T plot(Ia,flux);
, d8 X' T7 _+ F" L set (gca,'XLim',[-Ilim Ilim],'YLim',[-Flim Flim]);
pause(realmin);

) [, j' N9 I% t2 @. a9 s/ dout_IF=0.0;