getarea.m

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

function out = getarea(a,idx,type)

if length(a.con(1,:)) <= 4
  switch type
   case 1
    out = ones(length(idx),1);
   case 0
    out = ones(a.n,1);
  end  
else
  switch type
   case 1
    out = a.con(idx,5);
   case 0 % all
    out = a.con(:,5);
  end
end