未注册

把下面程序复制到m文件Array.m 中，并把Array.m文件放在当前路径下。

function A=Array(array_name,sz)

%% 要生成 50×60 符号矩阵 只要使用命令如：
%% A=Array('a',[50,60]); B=Array('b',[50,60]); 等等
%% 要生成 600 符号 只要使用命令如：
%% V=Array('v',600); U=Array('v',600); 等等
if length(sz)==2
for it=1:sz(1)
for jt=1:sz(2)
A(it,jt)=sym([array_name,num2str(it),'_',num2str(jt)]);
end
end
elseif length(sz)==1
for kt=1:sz(1)
A(kt)=sym([array_name,num2str(kt)]);
end
else
error('Demension of Arrary should be less then 3 ');
end


%% Bodhitreechen (Shanghai Maritime University) 2010 6 23