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
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 10:45:06
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
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}}
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
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}}