开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > matlab例程 > 查看源码
input_callback.m
资源名称：Kalman_matlab00000.rar　[点击查看]
上传用户：jspk663
上传日期：2013-08-19
资源大小：232k
文件大小：2k
源码类别：

matlab例程

开发平台：

Matlab

input_callback.m：源码内容
  1. function input_callback()
  3. %%%%%%%%%%%%%%%%%%%%%
  4. % defaut parameters %
  5. %%%%%%%%%%%%%%%%%%%%%
  6. A=[1 0 
  7.    0 1];          %Φ(k+1,k)
  8. B=[.1 .3
  9.    .2 .2];        %Γ(k+1,k)
  10. H=[.1 2
  11.    .3 .4];        %H(k)　　
  12. Q=[.2 .1
  13.    .1 .4];        %Q(k)
  14. R=[.1 .05
  15.    .05 .1];       %R(k)
  16. P0=[.1 0
  17.      0 .4];       %P(0)
  18. X0=[0 0]';        %X(0,0)
  20. %%%%%%%%%%%%%%
  21. % inpudialog %
  22. %%%%%%%%%%%%%%
  23. prompt={'Φ(k+1,k):(n×n)','Γ(k+1,k):(n×p)','H(k):(m×n)','Q(k):(p×p)','R(k):(m×m)',...
  24.         'P(0):(n×n)','X(0,0):(n×1)'};
  25. title='Input Parameters';
  26. lines=[2 2 2 2 2 2 2];
  27. def={num2str(A),num2str(B),num2str(H),num2str(Q),num2str(R),num2str(P0),...
  28.         num2str(X0)};
  29. answer=inputdlg(prompt,title,lines,def);
  30. if isempty(answer)
  31.     return
  32. end
  34. %%%%%%%%%%%%%%%%%%%
  35. % save parameters %
  36. %%%%%%%%%%%%%%%%%%%
  38. exist=0;
  39. if ~isempty(answer{1})
  40.    A=str2num(answer{1});
  41.     if exist 
  42.        save inidata A -append;
  43.     else
  44.        save inidata A;
  45.        exist=1;
  46.     end
  47. end
  48. if ~isempty(answer{2})
  49.    B=str2num(answer{2});
  50.     if exist 
  51.        save inidata B -append;
  52.     else
  53.        save inidata B;
  54.        exist=1;
  55.     end
  56. end
  57. if ~isempty(answer{3})
  58.    H=str2num(answer{3});
  59.     if exist 
  60.        save inidata H -append;
  61.     else
  62.        save inidata H;
  63.        exist=1;
  64.     end
  65. end
  66. if ~isempty(answer{4})
  67.    Q=str2num(answer{4});
  68.     if exist 
  69.        save inidata Q -append;
  70.     else
  71.        save inidata Q;
  72.        exist=1;
  73.     end
  74. end
  75. if ~isempty(answer{5})
  76.    R=str2num(answer{5});
  77.     if exist 
  78.        save inidata R -append;
  79.     else
  80.        save inidata R;
  81.        exist=1;
  82.     end
  83. end
  84. if ~isempty(answer{6})
  85.    P0=str2num(answer{6});
  86.     if exist 
  87.        save inidata P0 -append;
  88.     else
  89.        save inidata P0;
  90.        exist=1;
  91.     end
  92. end
  93. if ~isempty(answer{7})
  94.    X0=str2num(answer{7});
  95.     if exist 
  96.        save inidata X0 -append;
  97.     else
  98.        save inidata X0;
  99.        exist=1;
  100.     end
  101. end
  103. CI=findobj(gcf,'tag','compo1');
  104. set(CI,'userdata',[]);
  106. generatezk;