Re: [運算] 不盡相異物的排列
後來我仿照您的方法
用迴圈自己替代 感覺有點笨的方法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
討論串 (同標題文章)