Statesim.m
上传用户:eighthdate
上传日期:2014-05-24
资源大小:270k
文件大小:1k
源码类别:

其他行业

开发平台:

Matlab

  1. function [wdot] = statesim(t,w)
  2. % Hadi Saadat, 1998
  3. % Given the solution of the time-varying matrix Riccati equation found
  4. % by the function riccasim, this function solves the state equation in
  5. % conjunction with the optimal control equation.
  6. global A B Q R t0 tf x0
  7. [A,B,Q,R,t0,tf,x0]=system(A,B,Q,R,t0,tf,x0);
  8. n=length(A); nsq=n*n;
  9. s=reshape(w(1:n*n),n,n)';
  10. r=inv(R);
  11. sdot=[s*A+A'*s+Q-s*B*r*B'*s];
  12. wdot=reshape(sdot',1,nsq);
  13. x(1:n)=w(nsq+1:nsq+n);
  14. u=-r*B'*s*x';
  15. xdot=[A*x'+B*u];
  16. wdot(nsq+1:nsq+n)=xdot(1:n);
  17. wdot=wdot';