作业帮 > 综合 > 作业

怎么用mathematica 绘制 三维 散点图

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 11:00:33
怎么用mathematica 绘制 三维 散点图
颜色根据权重来显示深浅.
数据已从excel中导入.格式为{74.,781.,5.,
7.84},{1373.,731.,11.,5.93},{1321.,1791.,28.,4.9},{0.,
1787.,4.,6.56},{1049.,2127.,12.,6.35},{1647.,2728.,6.,
14.08},{2883.,3617.,15.,8.94},{2383.,3692.,7.,
9.62},{2708.,2295.,22.,7.41},{2933.,1767.,7.,8.72},{4233.,
895.,6.,5.93},{4043.,1895.,14.,9.17},{2427.,3971.,2.,
5.72},{3526.,4357.,7.,4.49}……
前三个为坐标,后一个为权重
Graphics3D, Point, Hue相结合, 毫无压力.

再问: 大神,求指导~~ 前三维是表示坐标的,最后一维表示颜色的深浅~~~ 我已近快死了,求大神捞我一把……
再答: 问问你的背景, 你是新手还是老手? 如果你是新手我直接贴代码, 才两三行而已. 如果是老手, 根据这几个函数应该可以直接出结果的啦.
再问: 新手,求代码,数据有上千个,几乎组成连续画面,球体大小可能需要改,能QQ指导吗?如果不行的话,求这段代码吧
再答: {point,weight}={Transpose[#][[1;;3,All]]//Transpose,Transpose[#]//Last}&[{{74.,781.,5.,7.84},{1373.,731.,11.,5.93},{1321.,1791.,28.,4.9},{0.,1787.,4.,6.56},{1049.,2127.,12.,6.35},{1647.,2728.,6.,14.08},{2883.,3617.,15.,8.94},{2383.,3692.,7.,9.62},{2708.,2295.,22.,7.41},{2933.,1767.,7.,8.72},{4233.,895.,6.,5.93},{4043.,1895.,14.,9.17},{2427.,3971.,2.,5.72},{3526.,4357.,7.,4.49}}] weightNorm=(#-Min[#])/(Max[#]-Min[#])&[weight] Graphics3D[{PointSize[0.05],{RGBColor[#,0,0]&/@weightNorm,Point/@point}//Transpose},AspectRatio->1,BoxRatios->1,Axes->True]