dumpsub.m

来自「matlab有限元分析工具,比经较全面的一个手册,请大家下载呀」· M 代码 · 共 16 行

function dumpsub(s)

l = length(s);
for j = 1 : l
  oline = sprintf('j = %d type = %s subs = ', j, s(j).type);
  for k = 1 : length(s(j).subs)
    if s(j).subs{k} == ':'
      oline = [oline,'[:] '];
    else
      oline = [oline, '[', sprintf('%d ', s(j).subs{k}),'] '];
    end
  end
  disp(oline);
end