作者t007123 (林英杰後援会!!!)
看板MATLAB
标题Re: [运算] 不尽相异物的排列
时间Thu Dec 1 10:12:28 2011
後来我仿照您的方法
用回圈自己替代 感觉有点笨的方法XD
% 用p代替[1,-1];符号b代替p
syms b
p=[1,-1];
A1=perms([b b 0])
[x y]=size(A1);
B1=zeros(x,6);
% 把b用p代入
for i=1:x
B1(i,1)=1;
k=2;
for j= 1:y
if A1(i,j)==0
B1(i,k)=0;
k=k+1;
end
if A1(i,j)==b
B1(i,k:k+1)=p;
k=k+2;
end
end
end
%去除重复项
B1=unique(B1,'rows')
: clc
: clear all
: syms b
: p=[1 -1];
: A1=perms([b b b 0]) %用符号b代替
: A1=unique(A1,'rows') %去除重复项
: A2=subs(A1,b,p) %把b用p代入
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.70.90.252