function ST=stack(v)
% 調用格式
%		ST=stack 		創建一個"空"堆棧對象.
%  		ST=stack(v) 	創建包含變量v的堆棧對象。
if nargin>1;error('Too many arguments.');end;
if nargin==0							% 沒有輸入宗量情況
   Q=queue;
   s.value=[];						% value 域被賦"空陣"
   s.name='';							% name 域不給任何字符
elseif isa(v,'stack');				% 輸入宗量是同類對象情況
   s=v;								% 直接把輸入量賦給 q
   Q=queue(evalin('caller',inputname(1)));%生成隊列對象
else									% 非同類輸入宗量情況
   s.value=v;							% 在 value 域中放置輸入對象 v 的內容
   s.name=inputname(1);				% 在 name 域中放置輸入對象名 v 字符
   if isempty(s.name)				% 假如輸入量無名
      s.name=['(' class(v) ')'];	% 就采用 v 本身的類名
   end
   Q=queue(evalin('caller',inputname(1)));%生成隊列對象
end
ST=class(s,'stack',Q);				% 產生繼承父類對象Q性質的ST堆棧子類