autogui.html

这是一个PID自动调节的程序

0109 <span class="comment">% set up S-function</span>
0110 sizes = simsizes;
0111 
0112 sizes.NumContStates  = 0;
0113 sizes.NumDiscStates  = 0;
0114 sizes.NumOutputs     = 0;
0115 sizes.NumInputs      = 2;
0116 sizes.DirFeedthrough = 1;
0117 sizes.NumSampleTimes = 1;
0118 
0119 sys = simsizes(sizes);
0120 
0121 x0  = [];
0122 str = [];
0123 ts  = [0.1 0];
0124 
0125 <a href="#_sub23" class="code" title="subfunction LocalPIDInit(RefBlock)">LocalPIDInit</a>(RefBlock);
0126 <span class="comment">% end mdlInitializeSizes</span>
0127 
0128 
0129 <span class="comment">%=============================================================================</span>
0130 <span class="comment">% mdlUpdate</span>
0131 <span class="comment">% Update the PID GUI animation.</span>
0132 <span class="comment">%=============================================================================</span>
0133 <a name="_sub2" href="#_subfunctions" class="code">function sys = mdlUpdate(t,x,u)</a>
0134 fig = get_param(gcbh,<span class="string">'UserData'</span>);
0135 <span class="keyword">if</span> ishandle(fig),
0136    <span class="keyword">if</span> strcmp(get(fig,<span class="string">'Visible'</span>),<span class="string">'on'</span>),
0137       ud = get(fig,<span class="string">'UserData'</span>);
0138       <a href="#_sub22" class="code" title="subfunction LocalPIDSets(time,ud,u)">LocalPIDSets</a>(t,ud,u);
0139    <span class="keyword">end</span>
0140 <span class="keyword">end</span>
0141 sys = [];
0142 <span class="comment">% end mdlUpdate</span>
0143 
0144 
0145 <span class="comment">%=============================================================================</span>
0146 <span class="comment">% LocalDeleteBlock</span>
0147 <span class="comment">% The animation block is being deleted, delete the associated figure.</span>
0148 <span class="comment">%=============================================================================</span>
0149 <a name="_sub3" href="#_subfunctions" class="code">function LocalDeleteBlock</a>
0150 fig = get_param(gcbh,<span class="string">'UserData'</span>);
0151 <span class="keyword">if</span> ishandle(fig),
0152    delete(fig);
0153    set_param(gcbh,<span class="string">'UserData'</span>,-1)
0154 <span class="keyword">end</span>
0155 <span class="comment">% end LocalDeleteBlock</span>
0156 
0157 
0158 <span class="comment">%=============================================================================</span>
0159 <span class="comment">% LocalDeleteFigure</span>
0160 <span class="comment">% The animation figure is being deleted, set the S-function UserData to -1.</span>
0161 <span class="comment">%=============================================================================</span>
0162 <a name="_sub4" href="#_subfunctions" class="code">function LocalDeleteFigure</a>
0163 ud = get(gcbf,<span class="string">'UserData'</span>);
0164 set_param(ud.Block,<span class="string">'UserData'</span>,-1);
0165 <span class="comment">% end LocalDeleteFigure</span>
0166 
0167 
0168 <span class="comment">%=============================================================================</span>
0169 <span class="comment">% LocalSliderSP</span>
0170 <span class="comment">% The callback function for the animation window slider SP control</span>
0171 <span class="comment">%=============================================================================</span>
0172 <a name="_sub5" href="#_subfunctions" class="code">function LocalSliderSP</a>
0173 ud = get(gcbf,<span class="string">'UserData'</span>);
0174 set_param(ud.RefBlock,<span class="string">'Value'</span>,num2str(get(gcbo,<span class="string">'Value'</span>)));
0175 <span class="comment">% end LocalSliderSP</span>
0176 
0177 
0178 <span class="comment">%=============================================================================</span>
0179 <span class="comment">% LocalSliderCV</span>
0180 <span class="comment">% The callback function for the animation window slider CV control</span>
0181 <span class="comment">%=============================================================================</span>
0182 <a name="_sub6" href="#_subfunctions" class="code">function LocalSliderCV</a>
0183 <span class="keyword">global</span> CVVALUE
0184 ud = get(gcbf,<span class="string">'UserData'</span>);
0185 CVVALUE = get(gcbo,<span class="string">'Value'</span>);
0186 set(ud.EditCV,<span class="string">'String'</span>,num2str(CVVALUE));
0187 <span class="comment">% end LocalSliderCV</span>
0188 
0189 
0190 <span class="comment">%=============================================================================</span>
0191 <span class="comment">% LocalEditCV</span>
0192 <span class="comment">% The callback function for the edit field of parameter CV</span>
0193 <span class="comment">%=============================================================================</span>
0194 <a name="_sub7" href="#_subfunctions" class="code">function LocalEditCV</a>
0195 <span class="keyword">global</span> CVVALUE
0196 ud = get(gcbf,<span class="string">'UserData'</span>);
0197 CVVALUE = str2num(get(ud.EditCV,<span class="string">'String'</span>));
0198 set(ud.SlideCV,<span class="string">'Value'</span>,CVVALUE);
0199 <span class="comment">% end LocalEditCV</span>
0200 
0201 
0202 <span class="comment">%=============================================================================</span>
0203 <span class="comment">% LocalClose</span>
0204 <span class="comment">% The callback function for the animation window close button.  Delete</span>
0205 <span class="comment">% the animation figure window.</span>
0206 <span class="comment">%=============================================================================</span>
0207 <a name="_sub8" href="#_subfunctions" class="code">function LocalClose</a>
0208 delete(gcbf)
0209 <span class="comment">% end LocalClose</span>
0210 
0211 
0212 <span class="comment">%=============================================================================</span>
0213 <span class="comment">% LocalAutotune</span>
0214 <span class="comment">% The callback function for the autotune button. Start autotuning</span>
0215 <span class="comment">%=============================================================================</span>
0216 <a name="_sub9" href="#_subfunctions" class="code">function LocalAutotune</a>
0217 <span class="keyword">global</span> AUTOTUNE
0218 <span class="keyword">global</span> INACTIVE
0219 AUTOTUNE = 1;
0220 INACTIVE = 1;
0221 ud = get(gcbf,<span class="string">'UserData'</span>);
0222 set(ud.SlideSP,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0223 set(ud.EditSP,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0224 set(ud.SlideCV,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0225 set(ud.EditCV,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0226 set(ud.Man,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0227 set(ud.Auto,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0228 set(ud.EditK,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0229 set(ud.EditTi,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0230 set(ud.EditTd,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0231 set(ud.Editb,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0232 set(ud.EditN,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0233 set(ud.Ident,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0234 set(ud.Tuning,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0235 set(ud.TuningParam,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0236 set(ud.Structure,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0237 <span class="comment">% end LocalAutotune</span>
0238 
0239 
0240 <span class="comment">%=============================================================================</span>
0241 <span class="comment">% LocalMan</span>
0242 <span class="comment">% The callback function for the manual selector button</span>
0243 <span class="comment">%=============================================================================</span>
0244 <a name="_sub10" href="#_subfunctions" class="code">function LocalMan</a>
0245 <span class="keyword">global</span> AUTOMAN
0246 ud = get(gcbf,<span class="string">'UserData'</span>);
0247 set(ud.Auto,<span class="string">'Value'</span>,0);
0248 set(ud.Man,<span class="string">'Value'</span>,1);
0249 set(ud.EditCV,<span class="string">'Enable'</span>,<span class="string">'on'</span>);
0250 set(ud.SlideCV,<span class="string">'Enable'</span>,<span class="string">'on'</span>);
0251 AUTOMAN = 0;
0252 <span class="comment">% end LocalMan</span>
0253 
0254 
0255 <span class="comment">%=============================================================================</span>
0256 <span class="comment">% LocalAuto</span>
0257 <span class="comment">% The callback function for the automatic selector button</span>
0258 <span class="comment">%=============================================================================</span>
0259 <a name="_sub11" href="#_subfunctions" class="code">function LocalAuto</a>
0260 <span class="keyword">global</span> AUTOMAN
0261 ud = get(gcbf,<span class="string">'UserData'</span>);
0262 set(ud.Man,<span class="string">'Value'</span>,0);
0263 set(ud.Auto,<span class="string">'Value'</span>,1);
0264 set(ud.EditCV,<span class="string">'Enable'</span>,<span class="string">'off'</span>);
0265 set(ud.SlideCV,<span class="string">'Enable'</span>,<span class="string">'inactive'</span>);
0266 AUTOMAN = 1;
0267 <span class="comment">% end LocalAuto</span>
0268 
0269 
0270 <span class="comment">%=============================================================================</span>
0271 <span class="comment">% LocalEditK</span>
0272 <span class="comment">% The callback function for the edit field of parameter K</span>
0273 <span class="comment">%=============================================================================</span>
0274 <a name="_sub12" href="#_subfunctions" class="code">function LocalEditK</a>
0275 <span class="keyword">global</span> PIDPARAMETERS
0276 ud = get(gcbf,<span class="string">'UserData'</span>);
0277 PIDPARAMETERS = [str2num(get(ud.EditK,<span class="string">'String'</span>)) PIDPARAMETERS(2:5)];
0278 <span class="comment">% end LocalEditK</span>
0279 
0280 
0281 <span class="comment">%=============================================================================</span>
0282 <span class="comment">% LocalEditTi</span>
0283 <span class="comment">% The callback function for the edit field of parameter Ti</span>
0284 <span class="comment">%=============================================================================</span>