作业帮Mathematica 如何提出这些表?如何提出这些表?例如：输入：s1 = {{a,b},{a,c},{a,d},{b,d},{b,e},{c,d},{c,e}};s2={a,b,e};输出一：s3={{{a,b},{a,c},{a,d}},{{a,b},{b,d},{b,e}},{{b,e},{c,e}}}即从s1中提取s2中每个元素的所有关
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 15:46:31
Mathematica 如何提出这些表?如何提出这些表?例如：输入：s1 = {{a,b},{a,c},{a,d},{b,d},{b,e},{c,d},{c,e}};s2={a,b,e};输出一：s3={{{a,b},{a,c},{a,d}},{{a,b},{b,d},{b,e}},{{b,e},{c,e}}}即从s1中提取s2中每个元素的所有关
Mathematica 如何提出这些表?
如何提出这些表?例如：
输入：
s1 = {{a,b},{a,c},{a,d},{b,d},{b,e},{c,d},{c,e}};
s2={a,b,e};
输出一：
s3={{{a,b},{a,c},{a,d}},{{a,b},{b,d},{b,e}},{{b,e},{c,e}}}
即从s1中提取s2中每个元素的所有关联表输出s3；a的关联表是表示含有元素a的表 ；例如a的所有关联表是{{a,b},{a,c},{a,d}}； b的所有 关联表是{{a,b},{b,d},{b,e}}；e的所有 关联表是{{b,e},{c,e}},
下面输出二是指把s3中的a,b,c都排在前面 ：
输出二：
s3={{{a,b},{a,c},{a,d}},{{b,a},{b,d},{b,e}},{{e,b},{e,c}}}
Mathematica 如何提出这些表?如何提出这些表?例如：输入：s1 = {{a,b},{a,c},{a,d},{b,d},{b,e},{c,d},{c,e}};s2={a,b,e};输出一：s3={{{a,b},{a,c},{a,d}},{{a,b},{b,d},{b,e}},{{b,e},{c,e}}}即从s1中提取s2中每个元素的所有关
s3 = Select[s1, Function[x, MemberQ[x, #]]] & /@ s2
s3=Thread@{s2,Cases[s3[[#]],Except@s2[[#]],{2}]&/@Range@3}/.{a_,b_List}:>Map[{a,#}&,b]