Mathematica 如何列出相同元素的位置表?如何列出相同元素的位置表?例如::输入:s1={a,a,a,b,b,c,e,h,e,b};s2={a,e,b};输出:s3={{1,2,3},{7,9},{4,5,10}}因为:a在s1中的位置是{1,2,3},e在s1中的位置是{7,9},b在s1中的位

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/07 06:27:41

Mathematica 如何列出相同元素的位置表?如何列出相同元素的位置表?例如::输入:s1={a,a,a,b,b,c,e,h,e,b};s2={a,e,b};输出:s3={{1,2,3},{7,9},{4,5,10}}因为:a在s1中的位置是{1,2,3},e在s1中的位置是{7,9},b在s1中的位
Mathematica 如何列出相同元素的位置表?
如何列出相同元素的位置表?
例如:
:输入:s1={a,a,a,b,b,c,e,h,e,b};
s2={a,e,b};
输出:s3={{1,2,3},{7,9},{4,5,10}}
因为:a在s1中的位置是{1,2,3},e在s1中的位置是{7,9},b在s1中的位置是{4,5,10},
因此:s3={{1,2,3},{7,9},{4,5,10}},

Mathematica 如何列出相同元素的位置表?如何列出相同元素的位置表?例如::输入:s1={a,a,a,b,b,c,e,h,e,b};s2={a,e,b};输出:s3={{1,2,3},{7,9},{4,5,10}}因为:a在s1中的位置是{1,2,3},e在s1中的位置是{7,9},b在s1中的位
自带函数里没有这个功能,不过可以下面一个语句实现：
Map[Flatten[Position[s1,#]] &,s2]
详细说明：
Position[s1,a] 给出 {{1},{2},{3}} 与你要的格式不同,经过 Flatten 以后变成 {1,2,3},写成函数的形式为 Flatten[Position[s1,#]] &,利用 Map 作用于 s2 的每一个元素上.

Mathematica 如何列出相同元素的位置表?如何列出相同元素的位置表?例如::输入:s1={a,a,a,b,b,c,e,h,e,b};s2={a,e,b};输出:s3={{1,2,3},{7,9},{4,5,10}}因为:a在s1中的位置是{1,2,3},e在s1中的位置是{7,9},b在s1中的位 Mathematica 如何得到这个组合表?如何得到这个组合表?1、有n个元素,有些元素可以是重复的2、把这n个元素随机分成若干组 ,使每组内不能有相同的元素3、且每组至少需有d1个元素,最多只能有d2 mathematica软件包如何使用? mathematica 如何去掉坐标轴 Mathematica如何生成23矩阵? mathematica如何定义动态矩阵 Mathematica 如何设置起始目录? mathematica 如何减少重复计算 Mathematica 如何设置显示字体 列出元素周期表 在mathematica中求指数为矩阵得计算哈密顿量 H=如何求exp(-H/T) 说明：希望热心人写出mathematica的表达式,结果并不是仅仅给每个元素求指数. 如何证明蜡烛的组成中有碳,氢等元素?请列出具体的实验步骤, Mathematica,用Table生成一个列表,如何将列表中的两列元素进行相减.最好可以再生成一个列表. 在Mathematica中,如何清除所有赋值? mathematica输入矩阵时如何增加一列 mathematica如何求隐函数极值 Mathematica 9.0 如何清除所有的变量 请问mathematica 如何画空间直线?