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/07/02 01:24:05
![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中每个元素的所有关](/uploads/image/z/10196389-37-9.jpg?t=Mathematica+%E5%A6%82%E4%BD%95%E6%8F%90%E5%87%BA%E8%BF%99%E4%BA%9B%E8%A1%A8%3F%E5%A6%82%E4%BD%95%E6%8F%90%E5%87%BA%E8%BF%99%E4%BA%9B%E8%A1%A8%3F%E4%BE%8B%E5%A6%82%EF%BC%9A%E8%BE%93%E5%85%A5%EF%BC%9As1+%3D+%7B%7Ba%2Cb%7D%2C%7Ba%2Cc%7D%2C%7Ba%2Cd%7D%2C%7Bb%2Cd%7D%2C%7Bb%2Ce%7D%2C%7Bc%2Cd%7D%2C%7Bc%2Ce%7D%7D%3Bs2%3D%7Ba%2Cb%2Ce%7D%3B%E8%BE%93%E5%87%BA%E4%B8%80%EF%BC%9As3%3D%7B%7B%7Ba%2Cb%7D%2C%7Ba%2Cc%7D%2C%7Ba%2Cd%7D%7D%2C%7B%7Ba%2Cb%7D%2C%7Bb%2Cd%7D%2C%7Bb%2Ce%7D%7D%2C%7B%7Bb%2Ce%7D%2C%7Bc%2Ce%7D%7D%7D%E5%8D%B3%E4%BB%8Es1%E4%B8%AD%E6%8F%90%E5%8F%96s2%E4%B8%AD%E6%AF%8F%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E6%89%80%E6%9C%89%E5%85%B3)
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]