如何删除在 scilab 上使用子图制作的多个绘图轴

Question

你好吗。我整天都在尝试做以下事情：我正在设计一个 PID 控制器，根据我想要分析的数据量，然后我在同一个图中只显示一个图或四个图（最后一个多图是用子图制作的)。

所有的计算和绘图都是在一个函数中完成的，函数选项取决于我想看到的内容，我正在编写的应用程序中有几个按钮和文本输入，并且知道 PID 设计和简单的或多个地块正在工作；我当前的程序是将轴句柄分配给函数内部的局部变量，当然，当程序退出函数时，这些变量会被破坏。

对该问题的更详细解释如下：如果我选择多个绘图然后我想要一个绘图那么我不知道如何删除四个轴以清理图形而不关闭它，所以当我想激活简单图，然后程序只擦除四个图之一，并将简单图打印在其余三个上，而其余三个子图仍然可见。以下是给我带来问题的代码：

grafico=sistem_graf;
disp(grafico);
if(isdef('aa')==%T);
    scf(aa);
    delete(get("current_axes"));
    disp("aa");
end
if(isdef('bb')==%T);
    scf(bb);
    delete(get("current_axes"));
    disp("bb");
end
if(isdef('cc')==%T);
    scf(cc);
    delete(get("current_axes"));
    disp("cc");
end
if(isdef('dd')==%T);
    scf(dd);
    delete(get("current_axes"));
    disp("dd");
end

select ventana
case 0
    tipoG=0;
    plot2d(T,graffta);
    xtitle('Ω(S)/R(S): Respuesta al escalón (Sistema original)','t [s]','Vel [rpm]'); 
    legend(['Original';'C/control P';'C/Control PI';'C/Control PID']);
    aa=get("current_axes");
    aa.axes_bounds = [1/3 0 2/3 1];
case 1
    tipoG=1;        
//        delete(get("current_axes"));        
    plot(T,[graffta;sist_P_ZN;sist_PI_ZN;sist_PID_ZN]);
    xtitle('Ω(S)/R(S): Respuesta al escalón','t [s]','Vel [rpm]'); 
    legend(['Original';'C/control P';'C/Control PI';'C/Control PID']);
    aa=get("current_axes");
    aa.axes_bounds=[1/3 0 2/3 1];
case 2
    tipoG=2;        
    //delete(get("current_axes"));  
    subplot(421);
    plot(T,[graffta;sist_P_ZN;sist_PI_ZN;sist_PID_ZN]);
    xtitle('Ω(S)/R(S): Respuesta al escalón','t [s]','Vel [rpm]'); 
    legend(['Original';'C/control P';'C/Control PI';'C/Control PID']);
    aa=get("current_axes");
    aa.axes_bounds=[1/3,0,1/3,1/2]
    subplot(422);
    plot2d(T,(kt*kp/(j*la))*(1/(afta*bfta))*(1+(1/(afta-bfta))*(bfta*exp(-afta*T)-afta*exp(-bfta*T))));
    xtitle('Ω(t)','t [s]','Vel [rpm]');
    bb=get("current_axes");
    bb.axes_bounds=[2/3,0,1/3,1/2];
    subplot(423);
    plot2d(T,(kt/(j*la))*(1/(afta*bfta))*((1/(afta-bfta))*(bfta*afta*exp(-bfta*T)-afta*bfta*exp(-afta*T))));
    xtitle('Variación de velocidad angular dΩ/dt','t [s]','Ac. [rpm/s^2]');
    cc=get("current_axes");
    cc.axes_bounds=[1/3,1/2,1/3,1/2];
    subplot(424);
    plot(T,[sist_P_ZN;sist_PI_ZN;sist_PID_ZN]);
    xtitle('Controladores','t [s]','Vel [rpm]');
    legend(['C/control P';'C/Control PI';'C/Control PID']);
    dd=get("current_axes");
    dd.axes_bounds=[2/3,1/2,1/3,1/2];
end

四个 if(isdef("variable_name")) 永远不会不起作用，因为当程序进入函数时，这些变量还不存在，它们是在带有 subplot 的绘图之后创建的。

如果图形属性是从图形的编辑菜单中显示的，那么所有子轴都会显示，但如果我尝试使用例如获取轴

a=get(sistem_graf.Axes(1))

然后显示控制台显示属性“Axes”不存在，所以我不知道如何解决问题。

请帮忙！

提前致谢。

2021 年 3 月 6 日更新：

我找到了一种让我需要的行为以 90% 工作的方法，它只会在我从详细绘图变为简单绘图（正在擦除一个图形）时失败，但向后工作正常，我之前更改了所有代码“选择ventana”到以下

if(imps(1) ~= -1)
    if(size(imps) == 1)
        sca(imps(1));
        disp(imps(1));
        delete(get("current_axes"));
    elseif(size(imps) > 1)
        sca(imps(1));
        delete(get("current_axes"));
        sca(imps(2));
        delete(get("current_axes"));
        sca(imps(3));
        delete(get("current_axes"));
        sca(imps(4));
        delete(get("current_axes"));
    end
end

并填充一个数组，其内容是上次调用函数时绘制的所有轴，该数组从函数返回到全局变量，最后该全局变量在下一次调用中提供给函数并分配给局部变量“imps”。

我认为这有点疯狂，但显然 scilab 没有引入静态变量方法。

Answer 1

如果我理解了你的问题，下面的小例子应该会对你有所帮助：

function fun(nb)
    ch = gcf().Children;
    delete(ch(ch.type=="Axes"))
    t = linspace(0,1,100);
    if nb==1
        plot(t,t)
    else
        for i=1:nb
            subplot(2,2,i)
            plot(t,t.^i)
        end
    end
endfunction
clf
uicontrol("style","pushbutton","units","normalized","Position",[0.1 0.1 0.4 0.1],"string","one plot","callback","fun(1)");
uicontrol("style","pushbutton","units","normalized","Position",[0.5 0.1 0.4 0.1],"string","four plots","callback","fun(4)");

我认为您缺少的机制如下：

ch = gcf().Children;
delete(ch(ch.type=="Axes"))

即允许删除绘图轴并使 uicontrols 保持活动状态的东西。上述构造使用逻辑索引。这里ch.type=="Axes" 是一个布尔值向量，当对应组件ch(i) 的type 字段为Axes 时，其组件i 等于true。然后，ch(ch.type=="Axes") 是ch 的组件子集，因此布尔索引的值为真。因此，最后，ch 的子集是Axes 类型的。