Leonhard-E

摘要： 拖动滚动条，就得到相应的均值和方差的动态效果，可能会有点小卡如果看不到效果的应该是浏览器的插件问题，可以进这里http://www.wolfram.com/mathematica/plugin/success.html?platform=WIN 下载CDF的插件解决 Wolfram推出的.cdf的动态文件已经有一段时间了，内容非常丰富，详细可以到wolfram的官网http://www.wolfram.com/查看。今天只想小试牛刀，关于在网页中嵌入CDF文档的一些常规步骤。这里有个小插曲，因为需要先上传CDF文件到服务器（对于有自己网站的情形类似，关键是Javascript的代码能找到该.. 阅读全文

摘要： Matlab与Mathematica都是目前比较好的数学软件，个人感觉Matlab比较偏应用，工程计算方面，而Mathematica比较适合数学推理，，理论比较重，个人最喜欢就是它的二维输入格式，比较切合实际的数学书写。但是在对于外部接口方面，Matlab做得比较好，感觉比较开放。对于Matlab来说比较缺失的是一些比较专业的数学函数，特别是数论的函数，而在这方面恰恰是Mathematica的强项，因此可以在Matlab中调用Mathematica会有很大的益处。还是入正题吧，注意，先说明一下，我的是64位win7操作系统，32位的机器会有个别地方不同，我会特别说明一下。首先是要作前期的准备. 阅读全文

摘要： 很久没更新东西，这个学期比较忙~~~基于最近对大作业的探讨，写了一些比较有用的代码，拿出来分享一下。直接进主题：SolveDiotN[A_List, M_] :=Module[{T = {}, Y = {}, X, x, y, i, d, n, u}, n = Length[A]; Array[d, n]; X = Array[x, n]; For[i = 1, i <= n, i++, AppendTo[Y, x[i] >= 0]]; For[i = 1, i <= n, i++, AppendTo[T, x[i]]]; d[2] = GCD[A[[1]], A[[2]]] 阅读全文

摘要： 终于考完Mathematica，趁有时间发个BLOG先。一直自学着潘承洞的 《初等数论》 \，里面关于原根、指标的计算实在繁杂，所以编了几个Packages在做题时用，希望对学习数论的朋友有用。（已经假定你具备已有的知识） 先介绍几个Mathematica的本身的命令： EulerPhi[n] // 欧拉函数MultiplicativeOrder[k, n, 1] //求mod n，k的指数 PrimitiveRoot[n] // 求n最小正原根 PrimePowerQ[n] // 判别n是否素数的方幂 MultiplicativeOrder[k, n, r] //(字符编辑原因，不能识别La 阅读全文

摘要： 实践了一个晚上，终于把大概的思路弄明白~~~~为此还编了个模板。在Mathematica 7.0模板如下： BeginPackage["自定义函数名`",{"需要用到的PACKAGE（通常在AddOns可以找到）`"," `"}] 自定义函数名::usage="对函数的注释"Begin["`Private`"] 程序段 End[]EndPackage[]想了想，比较空乏，给个原型吧BeginPackage["PrimitiveQ`", "NumberTheory`& 阅读全文