在PSCAD中用fortran编程怎样实现单神经元PID控制器

我家雪

大家好，最近一直在忙仿真，用到单神经元PID控制，在MATLAB中可以用S函数搭建其模型（见附件），但在pscad中用fortran语言不太会，请求高手指点，很急！各位朋友帮帮忙！下面是在MATLAB中的单神经元PID的S函数编写的文件，结合。

1. function [sys,x0,str,ts] =Sfunction(t,x,u,flag,yita,K)
   5 z, x6 l5 h4 K7 j3 ^+ W
2. % function [sys,x0,str,ts] =Sfunction(t,x,u,flag,K)
   & p. n6 E& Q1 X3 \/ J& o
3. switch flag,
   
4. 
   : X) J' L; b( h8 }7 T- {: K: c% z
5.   case 0,
   
6.     [sys,x0,str,ts]=mdlInitializeSizes;
   1 |* B2 H: q6 F" Q+ G
7.   case {1,4,9},
   # @7 b& J" i) B& r
8.     sys=[];
   4 V' V; Z" K' s
9.   case 2,
   9 ^* x+ a& E7 G! `: H0 G
10. %     sys=mdlUpdate(t,x,u);
    2 |+ C/ n& N4 K+ K& @9 b* h
11.     sys=mdlUpdate(t,x,u,yita);
    
12. 
    
13.   case 3,
    
14.     sys=mdlOutputs(t,x,u,K);
    & M. y. a* U- d6 A! Q
15.   otherwise
      w+ t/ B  L# K; F( C7 h( @
16.     error(['Unhandled flag = ',num2str(flag)]);
    
17. end
    
18. 
    
19. function [sys,x0,str,ts]=mdlInitializeSizes()
    
20. 
    
21. sizes = simsizes;
    0 J5 j  [& s4 U
22. sizes.NumContStates  = 0;
    " @/ ~1 P9 e  D, F9 r9 ?
23. sizes.NumDiscStates  = 3;
    3 z( u" y  c# d8 }/ ?' `
24. sizes.NumOutputs     = 4;
    . q# j  F4 Q7 V7 h8 T2 y
25. sizes.NumInputs      = 4;
    , w4 l+ @1 g$ v( U' Q9 T$ p8 t6 F8 e
26. sizes.DirFeedthrough = 1;
    8 x: q& l' j7 R' H9 l
27. sizes.NumSampleTimes = 1;  
    
28. sys = simsizes(sizes);
    ! x2 t( ]- R4 m- {; ^$ S7 H8 i( X" _
29. 
    ; [3 l" S4 G$ s' \
30. x0  = [9;0.01;0];
    " K0 Y7 M2 ]4 q
31. 
    ) c4 }$ x9 L  T) X
32. str = [];
    ! l8 [4 X& |% i  n( @: F9 M
33. 
    : M. G' p# `4 O: \9 V
34. ts  = [-1 0];
    % n$ F9 U) d/ W
35. 
    
36. function sys=mdlUpdate(t,x,u,yita)
    
37. % function sys=mdlUpdate(t,x,u)
    
38. sys=x+yita*u(1)*u(4)*(2*u(1)-u(2));
    
39. 
    
40. function sys=mdlOutputs(t,x,u,K)   
    
41. xx=[u(1)-u(2) u(1) u(1)+u(3)-2*u(2)];   
    3 O) Z" N4 g, C+ K: }
42. sys =[u(4)+K*xx*x/sum(abs(x));x/sum(abs(x))];
    

复制代码

redplum

fortran语言怎么和MATLAB结合呢

QTB

学习了，谢谢楼主