|
【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与
[这个贴子最后由ataorj在 2013/09/04 08:23pm 第 1 次编辑]
原帮助画三维曲面一部分内容
[官方网站 Mathematica v4 有关
http://reference.wolfram.com/legacy/v4-zh/]
2.9.11 画三维曲面
给出适当的图形基元列表后,基本上就可以用 Graphics3D 来表示任何三维对象. 通过明确给出边界相连的多边形集合就可用 Graphics3D 表示三维曲面.
如果要表示能折叠和自相交的任意曲面时,只有 Graphics3D 用一组多边形才能 实现, 这与 ParametricPlot3D 所做的相同.
但在很多情况下仅涉及到简单曲面,例如,Plot3D 和 ListPlot3D 产生无折叠, 且在每个x,y处高度有限的曲面. Mathematica 中这类简单曲面的表示不需要 给出多边形集合,而需要给出在每个网格处 高度的集合. 图形对象SurfaceGraphics[array] 表示用这种方式构造的曲面.
===========
我的简易理解:多边形实现的三维曲面
行列式元素只是高度z值,x,y如下自动隐含了:[我这些都不是正规描述,但是很方便于理解原理]
y轴总可视为仅是一个y轴
下面{0.2, -1.4, 3, 1}, {1.5, 0, 2.6, 3}可视为y轴上两个x轴上的元素,它们表示2*4的列表:
y0,x0,z=0,0,0.2
y0,x1,z=0,1,-1.4
y0,x2,z=0,2,3
y0,x3,z=0,3,1
y1,x0,z=1,0,1.5
y1,x1,z=1,1,0
y1,x2,z=1,2,2.6
y1,x3,z=1,3,3
源码:
Show[SurfaceGraphics[{{0.2, -1.4, 3, 1}, {1.5, 0, 2.6, 3}}]]
原帮助提供的一个例子:
moda = Table[Mod[i, j], {i, 4}, {j, 4}];Show[SurfaceGraphics[moda]]
=================
三维立体感暂时可由系统帮我们自动着色达成...
列表越大则一般锯齿越小,曲线感越强...
我们理解了基本原理,就可自由发挥了.这就看我们数学水平如何了.
谁能提供地球仪源码?谢谢!或者标准程序包中就有,但可能需要整理... |
|