我想做出比特之理的Tag效果,可是没有思路,大家看一下,不行的话做成二维
貌似叫力导向图
http://www.kylen314.com/archives/5335
MMA提供了这个范例,我是我需要更多的数学名词和符号,这该如何从Wolfram的服务器获取想要的数据呢?
WordCloud[
ToString[HoldForm[
ContourPlot3D[
Cos[x] Sin[y] + Cos[y] Sin[z] + Cos[z] Sin[x] == 0, {x, -2 \[Pi],
2 \[Pi]}, {y, -2 \[Pi], 2 \[Pi]}, {z, -2 \[Pi], 2 \[Pi]},
ContourStyle ->
Directive[FaceForm[Orange, Red], Specularity[White, 30]],
Mesh -> None]]],
ColorFunction -> (ColorData["DarkRainbow"][RandomReal[]] &)]
我自己手动添加名词到data,做出了这个图,不过数据还是太少了而且也没有数学符号...先这样,看哪位高手可以抓取一些数学方面的数据了
data2 = {{"数学分析", 10}, {"高等代数", 7}, {"解析几何", 4}, {"概率论与数理统计",
3}, {"拓扑学", 7}, {"近世代数", 8}, {"复变函数与积分变换", 7}, {"常微分方程",
4}, {"偏微分方程", 6}, {"实变函数论", 14}, {"数学模型", 8}, {"最优化理论", 5}, {"图论",
6}, {"泛函分析", 10}, {"调和分析", 15}, {"组合数学", 7}, {"经典力学中的数学方法",
6}, {"微分几何", 6}, {"数值分析", 7}, {"代数数论", 9}, {"代数几何", 10}, {"初等数论",
8}, {"微分流形与李群基础", 11}, {"现代密码学", 4}, {"运筹学", 3}, {"博弈论",
5}, {"符号计算系统", 7}, {"计算机图形学", 4}, {"群与代数表示论", 5}}
WordCloud[data2, Disk[], FontFamily -> "STHUPO",
WordSpacings -> {5, 1}, ImageSize -> 400]