block.m

来自「电力系统分析计算程序」· M 代码 · 共 21 行

function [enables,prompts] = block(a,object,values,enables,prompts)

switch values{8}
  
 case 'on'
  
  cx1 = 'plot([0 1 1 0 0],[0 0 1 1 0]), ';
  cx2 = 'color(''blue''), ';
  cx3 = 'plot([0 1],[0 1],[0 1],[1 0],[0.5 1 0.5 0 0.5],[0 0.5 1 0.5 0])';
    
 case 'off'
  
  cx1 = 'plot(x,y), ';
  cx2 = 'color(''blue''), ';
  cx3 = 'plot([0.1 0.3 0.5]-0.6,[0.3 -0.3 0.3],0.45*xt+0.1,0.6*yt)';
  
end

display = [cx1, cx2, cx3];
set_param(object,'MaskDisplay',display);