查看: 6073|回复: 1

matlab栈工具箱

[复制链接]

字体大小: 正常放大

hbhzwj

3 主题	3 听众	58 积分

升级 55.79%

该用户从未签到

电梯直达

1^#

发表于 2008-9-18 08:54 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

matlab也是可以实现常用的数据结构的，这个是我找到实现栈结构的matlab代码
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

function display(q,ki,kj)
%QUEUE/DISPLAY command window display of a queue object.
% 调用格式
% display(q) 笼统显示整个队列
% display(q,ki) 单下标法显示具体队列元素的内容
% display(q,ki,kj) 双下标法显示具体队列元素的内容
if nargin==0;error( ' 缺少输入宗量，即被显示对象！ ' ); end
switch nargin
case 1 % 显示整个队列
      [m,n]=size(q);
      vname=inputname(1); % 被显示对象 q 的名称
      if isempty(vname) % 显示对象若无名称
         fprintf( 'ans=\n' ); % 按 MATLAB教程：惯例，屏幕显示 ans 缺省名
      elseif fprintf( '%s=\n' ,vname); % 对象有名称时，则屏幕以字符串形式显示名称
      end ;

      if isempty(q) % 假如被显示对象为“空”
         fprintf( ' [ empty ' ) %<17>
         fprintf( '%s' ,class(q)) %<18>
         fprintf( ' ]\n\n' ); %<19>
      elseif m*n==1; % 被显示对象今包含一个“元素”时
         fprintf( ' %s: ' ,q.name); % 屏幕先以字符串形式显示所存放对象的名称
         disp(q.value); % 紧接着，不换行，显示所存放对象的内容
         fprintf( '\n' );
      else % 被显示对象今包含多个“元素”时
         fprintf( ' [ %d*%d ' ,m,n) % 以下 3 条指令只显示队列“元素”排列 <25>
         fprintf( '%s' ,class(q)) %<26>
         fprintf( ' ]\n\n' ); %<27>
      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

function [n,v,q]=goout(p)
% @QUEUE/GOOUT removes the first(the front) element from a queue.
% 调用格式
% goout(p) 从队列 p 中的第一个元素离队 .
% v=goout(p) v 是从 p 队列中移出的那第一个元素的“值”
% [n,v]=goout(p) n,v 分别是从 p 队列中移出的那第一个元素的“名称”和“值”
% [n,v,q]=goout(p) n,v 分别是从 p 队列中移出的那第一个元素的“名称”和“值”
% q 是被移去第一个元素后的新队列
if nargin==0 ;error( 'No queue specifide.' ); end ;
if nargout>3;error( 'Too many output arguments.' ); end ;
if nargin>1 error( 'Too many input arguments.' ); end ;
if ~isa(p, 'queue' );error([inputname(1), ' is not a queue.' ]); end ;
if isempty(p)
q1=p;
else
[m,n]=size(p);
v1=p(1).value;n1=p(1).name;
if m*n==1
q1=queue;
else
q1=p(2:end);
end
end

if nargout<3;
assignin( 'caller' ,inputname(1),q1);
end ;

if nargout==0,
evalin( 'caller' ,inputname(1));
end
if nargout>=1;v=v1; end ;
if nargout>=2;n=n1; end ;
if nargout==3;q=q1; end ;

function f=isempty(q)
%@QUEUE/ISEMPTY True for an empty queue object.
f=0;
[m,n]=size(q);
if m*n==1;
if isempty(q.value) & isempty(q.name) %<6>
      f=1;
end ;
end ;

function q=queue(v)
%@QUEUE/QUEUE queue class constructor function
% 调用格式
% q=queue 创建一个 " 空 " 队列对象 .
% q=queue(v) 创建包含变量 v 的队列对象。
superiorto( 'double', 'struct' , 'cell' , 'char' , 'inline' , 'sym' );
% 使 queue 对象具有最高优先级 <6>
if nargin>1;error( 'Too many arguments.' ); end ;
if nargin==0 % 没有输入宗量情况
q.value=[]; % value 域被赋“空阵”
q.name= '' ; % name 域不给任何字符
q=class(q, 'queue' ); % 给变量 q 挂上 queue 标签
elseif isa(v, 'queue' ); % 输入宗量是同类对象情况
q=v; % 直接把输入量赋给 q
else % 非同类输入宗量情况
q.value=v; % 在 value 域中放置输入对象 v 的内容
q.name=inputname(1); % 在 name 域中放置输入对象名 v 字符

if isempty(q.name) % 假如输入量无名
      q.name=[ '(' class(v) ')' ]; % 就采用 v 本身的类名
end

q=class(q, 'queue' ); % 给变量 q 挂上 queue 标签 <20>
end

[ 本帖最后由 hbhzwj 于 2008-9-18 08:57 编辑 ]

zan