function q=comein(p,varargin)
% @QUEUE\COMEIN 	a variable comes to the end of a queue.
% 調用格式
%  comein(p,a,b,...)			使輸入宗量a,b等排在p之后形成新隊列，
%									其名沿用p位置上的輸入隊列名.
%  q=comein(p,a,b,...)		使輸入宗量a,b等排在p之后形成新隊列 q . 
if nargin<2 error('comein needs at least two arguments.');end;
if ~isa(p,'queue') error([inputname(1),' is not a queue']);end;
q0=p;
qzzy=class(p);					%獲取第一輸入宗量的類別字符串				<10>
for i=1:length(varargin)
   temp=varargin{i};
   s=eval([qzzy,'(temp)']);		%使后來元素成為與第一輸入宗量相同的類別	<13>
   s.name=inputname(i+1);
   if isempty(s.name)					%假如某輸入宗量本身無名稱
      s.name=['(' class(temp) ')'];	%則把它的類別名作為名稱使用
   end
   if isempty(q0)						%假如前隊列是"空"隊列
      q0=s;								%則直接進入隊列
   else									%假如前隊列非"空"
      q0=[q0 s];							%則新變量排在隊尾
   end
end
if nargout==0;							%假如沒有輸出宗量
   assignin('caller',inputname(1),q0);%新隊列沿用第一個輸入隊列名
   evalin('caller',inputname(1));
else										%假如有輸入輸出宗量 
   q=q0;									%新隊列名為q
end