pscad 自定义模块

zlw

pscad自带的例子中，和MATLAB互联仿真画磁滞回线的那个例子。matlab的程序能否解读一下，想把它做成c语言编的程序。
function [out_IF] = hyst_plot(I_F)
%
% This function is generated by MATLAB-PSCAD component generator V1.0
%
% Input:
%        I_F of dimension 2 1
( r$ H$ S( J  K! ?2 V) M" b%
%
! u; {  t5 s) i$ W/ K% Output:
%        out_IF of dimension 1 1
& b7 }, c( O: ~5 i7 A
. W: D& `; i& `* W9 H' A" bglobal Ia flux my_nom
& ~) [; ]1 K7 E3 J4 A
/ J* i( L! y9 F3 M" |; l7 ^n2=15;                % points number
4 }2 M. H) k$ d5 x3 `" t8 [( uFlim=2.5;                % Flux limit
Ilim=0.1;                % Current limit

9 z# _* ~; K4 R# h2 M4 C%if ~exist('my_nom')
  my_nom=1;
3 K6 T2 |8 q. W& N2 X: m  Ia(n2)=0;
1 w& I( T" a) r  flux(n2)=0;
%end
figure(1);
for i=n2-1:-1:1
/ T. L9 `" D7 |2 G1 R: g Ia(i+1)=Ia(i);
flux(i+1)=flux(i);
, j  t0 N% ?$ fend
" T" E6 e, h) x; ^) X& m$ P3 q Ia(1)=I_F(1);
flux(1)=I_F(2);
% line(Ia,flux);
plot(Ia,flux);
set (gca,'XLim',[-Ilim Ilim],'YLim',[-Flim Flim]);
pause(realmin);
9 M3 y2 [- j6 Z& n
out_IF=0.0;