有什么函数能将指定函数应用到列表的指定层 - mathematica吧

level 6

sgylvqº 楼主

cf3 = {{"深圳", 37733831}, {"广州", 16990383}, {"佛山", 7316156}, {"东莞",
6732663}, {"惠州", 4008593}, {"珠海", 3444865}, {"中山",
2834187}, {"江门", 2568298}, {"茂名", 1398925}, {"汕头",
1382535}, {"湛江", 1312654}, {"清远", 1185366}, {"肇庆",
1142081}, {"韶关", 1010547}, {"梅州", 915872}, {"河源", 774780}, {"揭阳",
730161}, {"阳江", 642994}, {"云浮", 604807}, {"潮州", 480118}, {"汕尾",
424509}};

2021年04月21日 15点04分 1

level 6

sgylvqº 楼主

Cases[cf3, {p_, q_} -> {p, ScientificForm[N[q, 8]]}]

2021年04月21日 15点04分 2

sgylvqº

这样子为什么无法输出

2021年04月21日 15点04分

level 6

sgylvqº 楼主

{
#1, 10^-5 #
2 } & @@@NumberForm[ScientificForm[N[cf3, 4]], {5, 3}]
这样会报错，但如果把NumberForm[ScientificForm[N[cf3, 4]], {5, 3}]输出的结果复制代替NumberForm[ScientificForm[N[cf3, 4]], {5, 3}],就不会报错，为什么

2021年04月21日 16点04分 5

xzcyr

参看《为什么我的代码加了MatrixForm就出问题了？》，特别是“Form系列函数的某些特殊特性”一节。

2021年05月01日 03点05分

sgylvqº

认真看完了（我能看懂的部分），输出的结果是out再代入Form函数，实际上out没有Form的头部，但是在一行代码之内就会有Form的头部，要去掉才能加减乘除

2021年05月08日 03点05分

xzcyr

@sgylvqº 不对……你说的这个是第（1）节里的内容，但你触发的是第（2）节的内容。

2021年06月05日 01点06分

level 6

sgylvqº 楼主

{
#1, 10^-5 #
2} & @璐村惂鐢ㄦ埛_053SRMK馃惥 ((NumberForm[
ScientificForm[N[cf3, 4]], {5, 3}])[[1, 1]])(*去2个Form的头部*)

2021年05月08日 03点05分 6

sgylvqº

可了

2021年05月08日 03点05分