【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
如果不想看到中间迭代的过程，只想知道迭代了多少次，可以这样编程：【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
对于 1 万以内的所有正整数验证 3x + 1 猜想：【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
下面引用由天山草在 2013/09/04 01:56pm 发表的内容：热烈欢迎赵老师光临。不知 6 楼程序运行了多长时间？【n 等于 1 千万时】
9秒
【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
下面引用由重生888在 2013/09/04 02:11pm 发表的内容：老师邮件收到了吗？谢谢！
没有收到，我已给你回了短消息。
【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
下面引用由zhaolu48在 2013/09/04 02:57pm 发表的内容：9秒
那还是很快的，很不错。只是精度好像差了一些。Mathematica 需要三分钟吧，可以得出准确数字。
【分享】交流一下 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 表示用这种方式构造的曲面.
===========
我的简易理解:多边形实现的三维曲面
行列式元素只是高度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]
原帮助提供的一个例子:
moda = Table, {i, 4}, {j, 4}];Show]
=================
三维立体感暂时可由系统帮我们自动着色达成...
列表越大则一般锯齿越小,曲线感越强...
我们理解了基本原理,就可自由发挥了.这就看我们数学水平如何了.
谁能提供地球仪源码?谢谢!或者标准程序包中就有,但可能需要整理...
【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
提个建议:最好直接贴源码文本,方便共享
Mathematica一般自动把用户输入的转换成"可视化"的,但是我"全选","复制",粘贴于记事本等又会自动转换为常规文本....
【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
常规文本的源码才是它的本分【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与
下面引用由ataorj在 2013/09/04 07:57pm 发表的内容：常规文本的源码才是它的本分
噢，如何得到程序的“源码”，这个本人不会。