scroll.m

来自「内模控制器（IMC）工具箱。包括参数整定、PID控制器参数转换等」· M 代码 · 共 21 行

function scroll(handle,flag)
global Xwc_ub_w  Xwc_lb_w

if strcmp(get(handle(16),'String'),'upper')
   data=Xwc_ub_w;
else
   data=Xwc_lb_w;
end
row=str2num(get(handle(14),'String'));
col=str2num(get(handle(15),'String'));
temp=str2num(get(handle(3),'String'));
index=find(data{row,col}(:,2)<temp);
index=max(index);
if temp-data{row,col}(index,2) > data{row,col}(index+1,2)-temp
   index=index+1;
end
index=index+flag;
set(handle(3),'String',num2str(data{row,col}(index,2)));
set(handle(5),'String',num2str(data{row,col}(index,1)));
set(handle(8),'String',lessblnk(num2str(data{row,col}(index,3:end))));