| 查看: 1872 | 回复: 6 | |||
luolingmm金虫 (小有名气)
黄金铜虫
|
[求助]
mathematic 三维图
|
|
大虾们好，我现在正在用mathematic 做一个三维柱状图，思路是想用矩阵和Plot3D联合起来，xyz分别是样品名称，时间，含量。样品名称用1，2，3，4代替，时间为0，8，18，27，36，47天，含量即为不同样品在不同时间的含量值。现在疑惑的是该采用哪个三维的函数，以及如何设置图的各参数，我做出来的不知道什么原因会出现如下错误。arr = {{"samples", "time", "contents"}, {1.0, 0.0, 99.72}, {1.0, 8.0, 95.37}, {1.0, 18.0, 6.98}, {2.0, 0.0, 102.02}, {2.0, 8.0, 101.47}, {2.0, 18.0, 99.08}, {2.0, 27.0, 99.59}, {2.0, 36.0, 93.05}, {2.0, 47.0, 84.29}, {3.0, 0.0, 102.51}, {3.0, 8.0, 93.43}, {3.0, 18.0, 5.50}, {4., 0.0, 100.40}, {4., 8.0, 97.99}, {4., 18.0, 97.26}, {4., 27.0, 94.03}, {4., 36.0, 94.51}, {4., 47.0, 86.88}}; len = Length@arr; t1 = ScatterPlot3D[arr[[Range[2, 18], Range[1, 3]]], PlotJoined -> False]; Show [t1] |
回复此楼» 收录本帖的淘帖专辑推荐
 木虫小天地 |
» 猜你喜欢
时间戳变了，能看出什么问题？
已经有20人回复
-
重要消息，中午系统在维护
已经有12人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有20人回复
-
言之凿凿，8月21号(明天)放榜
已经有14人回复
-
只有每年这种时候来逛逛小木虫
已经有21人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有125人回复
-
今天基金会出结果吗？20260819
已经有15人回复
-
filecode，4个jtjc了
已经有13人回复
-
为什么余额宝的年化利率越来越低？主要原因有哪些？
已经有5人回复
-
今天放榜没戏了吧
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教origin三维作图问题
已经有4人回复
- 多幅二维图生成三维图
已经有8人回复
- 请教高手在Win7系统下如何将数据利用origin 8.0画成三维图
已经有12人回复
- ArcGIS三维图的制作？
已经有17人回复
- 怎样把用solidworks画的三维图用到ansys中？？？急急急！！！！
已经有22人回复
- 求助六棱体的三维图应该用什么软件处理？
已经有1人回复
- 【求助】tecplot能否自己导入一个txt数据画一个三维图？
已经有13人回复
- 【前沿】新发明可将大脑核磁共振成像转化成三维图像
已经有4人回复
- 这一类的三维图怎么画呀
已经有4人回复
- 求助画三维图的软件
已经有4人回复
- 【讨论】求推荐三维画图软件
已经有15人回复
- origin怎么用已知方程画出三维图
已经有8人回复
- 求助0origin做三维图
已经有10人回复
- 如何用Origin软件将AFM三维图片数据重画
已经有7人回复
luolingmm
金虫 (小有名气)
黄金铜虫
- 应助: 2 (幼儿园)
- 金币: 2147.9
- 散金: 10
- 红花: 5
- 帖子: 160
- 在线: 94.7小时
- 虫号: 841861
- 注册: 2009-09-06
- 性别: MM
- 专业: 药剂学
2楼2011-11-15 09:24:20
3楼2011-11-17 12:49:02
4楼2011-11-17 12:55:42
luolingmm
金虫 (小有名气)
黄金铜虫
- 应助: 2 (幼儿园)
- 金币: 2147.9
- 散金: 10
- 红花: 5
- 帖子: 160
- 在线: 94.7小时
- 虫号: 841861
- 注册: 2009-09-06
- 性别: MM
- 专业: 药剂学
5楼2011-11-17 16:15:56
【答案】应助回帖
luolingmm(金币+15): 好的，太谢谢了 2011-11-19 09:25:13
|
可能是网络的问题。 比方说用人均国内生产总值的例子： 代码： countries = CountryData["G8"]; data = Table[ With[{country = c, v = Round@CountryData[c, "GDPPerCapita"]}, Button[v, Speak[StringJoin[country, ", $", ToString[v]]]]], {c, countries}]; Mathematica会显示： Updating data from Wolfram Research data server (1%). 这是因为它要从网上下载相应数据的内容。如果网络慢的话要等一会儿呢。下载好了后，不出现“Updating data from ...”，你再运行代码： BarChart3D[data, PlotLabel -> "GDP Per Capita", ChartLabels -> Placed[countries, Center, Rotate[#, Pi/2] &]] 就可以得到图形了。 |
6楼2011-11-18 10:36:20
7楼2011-11-18 11:29:20
