Mathematica中统计和查找包含某个字符的元素，怎么做？
mathematica吧
全部回复
仅看楼主
level 3
qjy22qqqq 楼主
Mathematica中统计和查找包含某个字符的元素，怎么做？
比如{王2，王5，李4，王6，李2}
查找“王”
返回{王2，王5，王6}
统计包含“王”的元素个数
3
该用哪两个命令？
2019年05月29日 05点05分 1
吧务
level 7
wengdeping88
Select[{"王2", "王5", "李4", "王6", "李2"}, ! StringFreeQ[#, "王"] &]
Length@璐村惂鐢ㄦ埛_053Q95e馃惥
2019年05月29日 07点05分 2
qjy22qqqq
如何让集合中所有元素变成字符串？
2019年05月29日 15点05分
qjy22qqqq
我试过了，即使我把整个列表转化成字符串集合，然后命名，程序还是不识别这个名字
2019年05月29日 16点05分
level 3
qjy22qqqq 楼主
zzz= MapThread[
InputForm[TextString[#]] &, {{王2, 王*2, 2 王, 王中王, 10, 23, wang, 列,
李}}]
Select[zzz, ! StringFreeQ[#, "王"] &]
只能识别这种手动输入的字符串，如果我的集合有上千元素，我不可能手动逐个输入字符串
2019年05月29日 16点05分 3
wengdeping88
excel批量加引号
2019年05月30日 00点05分
qjy22qqqq
@wengdeping88 Mathematica也能批量加引号，但必须还要手动复制粘贴一遍，是什么导致了无法识别集合名称？
2019年05月30日 04点05分
xzcyr
……你把InputForm去掉就没事了。对于InputForm为什么会引发问题，可参看精品区的《为什么我的代码加了MatrixForm就出问题了？》（链接就不贴了，怕被吞。）
2019年06月01日 07点06分
吧务
level 7
wengdeping88
Select[ToString /@ {王2, 王5, 李4, 王6, 李2}, ! StringFreeQ[#, "王"] &]
Length@璐村惂鐢ㄦ埛_053Q95e馃惥
2019年05月30日 08点05分 4
qjy22qqqq
[真棒]
2019年05月31日 04点05分
qjy22qqqq
试了一下，除了平方形式的元素会出现奇怪的换行，其他都比较正常
2019年05月31日 04点05分
level 3
qjy22qqqq 楼主
2019年05月31日 04点05分 5
吧务
level 7
wengdeping88
Select[TextString /@ {王^2, 王5, 李4, 王6, 李2}, ! StringFreeQ[#, "王"] &]
2019年05月31日 08点05分 6
qjy22qqqq
[太开心]Perfect!
2019年05月31日 09点05分
level 3
qjy22qqqq 楼主
a = {王, 王2, 王5, 李4, 王6, 李2, 2 王, 王中王, 张, x, 35, abc, 王小二^2, Sqrt[大王]}
ToExpression /@ Select[TextString /@ a, ! StringFreeQ[#, "王"] &]
2019年05月31日 09点05分 7
1