应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 数学 » 计算数学 » mathematic 三维图
71/1返回列表
查看: 1933  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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]
回复此楼

» 收录本帖的淘帖专辑推荐

木虫小天地

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
一份耕耘一份收获
1楼 2011-11-14 15:34:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

luolingmm

金虫 (小有名气)

黄金铜虫
很急，求回答( ⊙ o ⊙ )啊！
赞一下 回复此楼
一份耕耘一份收获
2楼2011-11-15 09:24:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

beavere71

铜虫 (初入文坛)

【答案】应助回帖

luolingmm(金币+5): 先试试哦，等好了给你们追加 2011-11-17 16:15:30
luolingmm(金币+10): 我去 help中找到了你说的BarChart3D的使用，可是我将代码复制过来，我的mathematica执行不了，这是为什么呢？求解答，可追加金币。 2011-11-17 18:41:05
Mathematica中好象没有ScatterPlot3D这个函数吧！应该用BarChart3D，详情见BarChart3D帮助中的“应用”。
赞一下 回复此楼
3楼2011-11-17 12:49:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

beavere71

铜虫 (初入文坛)
还可以用RectangleChart3D函数。
赞一下 回复此楼
4楼2011-11-17 12:55:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

luolingmm

金虫 (小有名气)

黄金铜虫
灰常感谢哦
回复此楼
一份耕耘一份收获
5楼2011-11-17 16:15:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

beavere71

铜虫 (初入文坛)

【答案】应助回帖

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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

beavere71

铜虫 (初入文坛)
用“芝加哥在 2001 年和 2007 年之间的平均月温度”这个例子可能会快些。它需要的数据量少，而且更接近你要的结果。
赞一下 回复此楼
7楼2011-11-18 11:29:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 luolingmm 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭