display.m

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· M 代码 · 共 17 行

function display(p)

% DISPLAY Display function for pointers.

%   Copyright 2004 Nikolai Yu. Zolotykh


  disp(' ');
  disp([inputname(1),' = (pointer)']);
  disp(' ');
  if (p == 0)
    disp('  NULL');
    disp(' ');
  else
    disp(struct(p));
  end;