pscad 自定义模块

zlw

pscad自带的例子中，和MATLAB互联仿真画磁滞回线的那个例子。matlab的程序能否解读一下，想把它做成c语言编的程序。
function [out_IF] = hyst_plot(I_F)
! n6 Z1 [( M- _%
0 g. G! j6 s. w2 b: ~3 b- v' g% This function is generated by MATLAB-PSCAD component generator V1.0
%
" t+ n7 j7 h+ Y( l, a% Input:
$ X$ J% y& g- T4 ~$ w9 Z4 _+ n: K%        I_F of dimension 2 1
%
7 w* n& e' A; t8 |%
% Output:
$ ~  V% [: h4 u8 g, w%        out_IF of dimension 1 1
" U7 N- y) H) v  c6 Z
8 {2 f3 Z6 ^, A4 ~( R. rglobal Ia flux my_nom
4 a7 ^% ^4 m; \6 ]
n2=15;                % points number
1 _+ x6 a# S7 T8 t/ s  kFlim=2.5;                % Flux limit
Ilim=0.1;                % Current limit

2 L. {  ]+ y( G! b, M$ s% U7 i%if ~exist('my_nom')
5 h4 P2 d- [' S" H' m; i3 @  my_nom=1;
4 v; `" u6 R9 o. n5 E* {  Ia(n2)=0;
  flux(n2)=0;
  o$ g6 [- J+ d! `; E# t' v% f%end
figure(1);
for i=n2-1:-1:1
+ U$ k" ^( L5 E" |& u$ _ Ia(i+1)=Ia(i);
flux(i+1)=flux(i);
end
Ia(1)=I_F(1);
2 O9 [5 V% \& K3 R2 i9 @! g$ u flux(1)=I_F(2);
8 @  A" l$ L4 s& I3 |) Y% line(Ia,flux);
plot(Ia,flux);
set (gca,'XLim',[-Ilim Ilim],'YLim',[-Flim Flim]);
pause(realmin);
$ z( O; B. U# M3 e
) f6 ^" C+ l1 J  o, H( Nout_IF=0.0;