Mathematica 如何取出匹配的元素?

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/18 20:02:34

Mathematica 如何取出匹配的元素?
如何取出匹配的元素?
例如; 取出与s2匹配的元素
输入：s1={{a->x,b->y,c->y,d->x,e->z,e->z,g->z,h->w}};
s2={x,w};
输出 s3={a,d,h}
以及任意多层表的元素取出,例如
输入：s1={{a->x,b->y,c->y},{d->x,e->z,e->z,g->z,h->w}}};
s2={x,w};
输出 s3={{a},{d,h}}

s1 = {{a -> x, b -> y, c -> y, d -> x, e -> z, e -> z, g -> z, h -> w}};
s2 = {x, w};
s3 = s1 /. Rule[a_, b_] /; MemberQ[s2, b] :> a /. Rule[a_, b_] -> Sequence[]
==> {{a, d, h}}
s4 = {{a -> x, b -> y, c -> y}, {d -> x, e -> z, e -> z, g -> z, h -> w}};
s5 = {x, w};
s6 = s4 /. Rule[a_, b_] /; MemberQ[s5, b] :> a /. Rule[a_, b_] -> Sequence[]
==> {{a}, {d, h}}

mathematica如何把矩阵里的元素取出来这个用mathematica的模式匹配怎么写? mathematica 如何在矩阵中提取部分元素累加 Mathematica 9.0 如何清除所有的变量 mathematica画出的图形如何输出? Mathematica 如何指定参数的范围 mathematica 方程的解,如何绘制出来 mathematica中定义数组 a={}后,如何取出单独的数a1,a2……或者用别的方法也可以急用 mathematica中如何从一个矩阵中取出一个子矩阵请问如何在matlab中取出某个矩阵中的最大元素所在的列编号 MATLAB,如何取出一个1×n矩阵的最后一个元素? 【Mathematica】Mathematica Plot的用法