数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
楼主: 天山草

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

[复制链接]
 楼主| 发表于 2013-9-4 14:23 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

如果不想看到中间迭代的过程,只想知道迭代了多少次,可以这样编程:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2013-9-4 14:36 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

对于 1 万以内的所有正整数验证 3x + 1 猜想:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2013-9-4 14:57 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

下面引用由天山草2013/09/04 01:56pm 发表的内容:
热烈欢迎赵老师光临。不知 6 楼程序运行了多长时间?【n 等于 1 千万时】
9秒
 楼主| 发表于 2013-9-4 16:29 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

下面引用由重生8882013/09/04 02:11pm 发表的内容:
老师邮件收到了吗?谢谢!
没有收到,我已给你回了短消息。
 楼主| 发表于 2013-9-4 16:31 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

下面引用由zhaolu482013/09/04 02:57pm 发表的内容:
9秒
那还是很快的,很不错。只是精度好像差了一些。Mathematica 需要三分钟吧,可以得出准确数字。
发表于 2013-9-4 18:33 | 显示全部楼层

【分享】交流一下 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]]
=================
三维立体感暂时可由系统帮我们自动着色达成...
列表越大则一般锯齿越小,曲线感越强...
我们理解了基本原理,就可自由发挥了.这就看我们数学水平如何了.
谁能提供地球仪源码?谢谢!或者标准程序包中就有,但可能需要整理...
发表于 2013-9-4 19:07 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

提个建议:
最好直接贴源码文本,方便共享
Mathematica一般自动把用户输入的转换成"可视化"的,但是我"全选","复制",粘贴于记事本等又会自动转换为常规文本....
发表于 2013-9-4 19:57 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

常规文本的源码才是它的本分
 楼主| 发表于 2013-9-5 09:59 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

下面引用由ataorj2013/09/04 07:57pm 发表的内容:
常规文本的源码才是它的本分
    噢,如何得到程序的“源码”,这个本人不会。
 楼主| 发表于 2013-9-5 10:12 | 显示全部楼层

【分享】交流一下 Mathematica 编程方法,期望学习该软件的网友积极参与

对于一个较大的数,例如 99 的 99999 次方, 迭代次数是 4769879 次:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-3-28 15:59 , Processed in 0.065430 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表