pscad 自定义模块

zlw

pscad自带的例子中，和matlab互联仿真画磁滞回线的那个例子。matlab的程序能否解读一下，想把它做成c语言编的程序。
function [out_IF] = hyst_plot(I_F)
" {& B; ]) E0 w: _8 p4 c, W%
% This function is generated by MATLAB-PSCAD component generator V1.0
9 J  ]7 l  N/ }7 g+ ~! B7 K%
6 W2 ^0 A0 g8 |5 i  {9 ?% Input:
%        I_F of dimension 2 1
) E! L1 U% v: O2 v- |  i5 K%
%
% Output:
%        out_IF of dimension 1 1

  T! f9 L7 g/ @) R2 B4 Xglobal Ia flux my_nom

n2=15;                % points number
Flim=2.5;                % Flux limit
Ilim=0.1;                % Current limit
# o7 x. k7 v5 v/ T, _
%if ~exist('my_nom')
0 v& b& k4 `! ]0 X% V; e  my_nom=1;
: U( L% h9 D2 R% Y  Ia(n2)=0;
+ V! m' I  E2 z  flux(n2)=0;
%end
3 |  u, g% i, {# h  P3 }1 F' ifigure(1);
for i=n2-1:-1:1
0 D3 Z+ {# C2 H. a- @0 \ Ia(i+1)=Ia(i);
3 [0 Z  y6 K- n! G flux(i+1)=flux(i);
7 z: A7 U! U' K6 V( T5 L+ Yend
9 G/ r3 Z# j. j  W7 L0 G* K( ~ Ia(1)=I_F(1);
flux(1)=I_F(2);
% line(Ia,flux);
' b7 o$ ^' ~/ r6 T( v plot(Ia,flux);
set (gca,'XLim',[-Ilim Ilim],'YLim',[-Flim Flim]);
; l. G% {3 `8 M) r& I! F5 H- u pause(realmin);
7 A4 D+ `: z  o; I+ L# E2 |! h
out_IF=0.0;