pscad 自定义模块

zlw

pscad自带的例子中，和MATLAB互联仿真画磁滞回线的那个例子。matlab的程序能否解读一下，想把它做成c语言编的程序。
function [out_IF] = hyst_plot(I_F)
%
% This function is generated by MATLAB-PSCAD component generator V1.0
2 g3 l+ {0 n4 M4 H% H%
% Input:
9 w' R' b, B# U, g  h- o$ Q! G2 c%        I_F of dimension 2 1
2 v  v) f' T5 [4 v' w$ s%
# V! z* D7 m. P; v3 c0 Q%
( ^2 v5 P/ {$ X0 F& f/ c% Output:
%        out_IF of dimension 1 1

global Ia flux my_nom

; D6 m, V$ N9 r/ Gn2=15;                % points number
1 i1 o1 G% E& P+ q( GFlim=2.5;                % Flux limit
0 n7 C  ~- ^  S2 l" l( [) wIlim=0.1;                % Current limit
$ ]) |7 ?3 h3 l4 k9 v
%if ~exist('my_nom')
  my_nom=1;
  Ia(n2)=0;
  flux(n2)=0;
%end
. ]5 B- Y- ~) Z5 U4 N- s  mfigure(1);
for i=n2-1:-1:1
9 H+ Z1 t) p4 f: ?$ D% ] Ia(i+1)=Ia(i);
; c* }# ~0 i1 h/ B- j flux(i+1)=flux(i);
end
Ia(1)=I_F(1);
flux(1)=I_F(2);
5 V6 @+ z8 g2 t5 j1 A% line(Ia,flux);
7 j! @8 a0 ~9 F& S6 T; y plot(Ia,flux);
7 y7 X) V. v- e& u$ g5 \& r set (gca,'XLim',[-Ilim Ilim],'YLim',[-Flim Flim]);
* H2 P4 I6 N5 [$ I% N pause(realmin);
! N8 l' w" ~* S  |7 Q& p4 |; U- y
+ Y  F% [1 r7 B$ K- j4 ?" u7 V. Kout_IF=0.0;