内容简介作者简介 - 科学与工程计算系

[m,n]=size(q);
vname=inputname(1);
if isempty(vname)
fprintf('ans=\n');
elseif fprintf('%s=\n',vname);
end;
if isempty(q)
fprintf(' [ empty ') %
fprintf('%s',class(q)) %
fprintf(' ]\n\n'); %
elseif m*n==1;
fprintf(' %s: ',q.name);
disp(q.value);
fprintf('\n');
else
fprintf(' [ %d*%d ',m,n] %
fprintf('%s',class(q)) %
fprintf(' ]\n\n'); %
end
case 2
disp(['The content of ',inputname(1),'(',int2str(ki),')'])
disp(['is a ''',class(q(ki).value),''' object'])
fprintf(' %s=\n',q(ki).name);
disp(q(ki).value);
fprintf('\n');
case 3
disp(['The content of ',inputname(1),'(',int2str(ki),',',int2str(kj),')'])
disp(['is a ''',class(q(ki,kj).value),''' object'])
fprintf(' %s=\n',q(ki,kj).name);
disp(q(ki,kj).value);
fprintf('\n');
end
(5)
[@queue\isempty.m]
function f=isempty(q)
%@QUEUE\ISEMPTY
f=0;
[m,n]=size(q);
if m*n==1;
if isempty(q.value) & isempty(q.name) %
f=1;
end;
end;
(6)
[ @queue\comein.m]
function q=comein(p,varargin)
% @QUEUE\COMEIN
% 调用格式
%
21