公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

–2 投票
311 浏览

已知数据data = {1, 12, 34, 4, 5, 3 7, 9},指定位置列表{1,3,4,7},现在想对data的1,3,4,7位置元素除以2,其余位置元素除以3,然后把运算后的元素列表再赋给data,问该如何操作...

我只会下面这个操作

data[[#]]/18 & /@ {1, 3, 4, 7}

 

问题关闭原因: 已解决
分类:列表操作 | 用户: mma-2-2-2 (1.3k 分)
已关闭 用户:mma-2-2-2

2 个回答

+1 投票
 
已采纳
data = {1, 12, 34, 4, 5, 37, 9};
p = {1, 3, 4, 7};
MapIndexed[If[SubsetQ[p, #2], #/2, #/3] &, data]

{1/2,4,17,2,5/3,37/3,9/2}

 

 

用户: Lozmlve*永 (1.1k 分)
采纳于 用户:mma-2-2-2
0 投票

也可以这样写

data = {1, 12, 34, 4, 5, 37, 9};
p = {1, 3, 4, 7};
data*SparseArray[Thread[p -> 1/2], Length@data, 1/3]
Table[If[MemberQ[p, i], data[[i]]/2, data[[i]]/3], {i, 1, 
Length[data]}]

 

用户: mma-2-2-2 (1.3k 分)
...