网页版Mathematica的介绍

网页版Mathematica的介绍

最近才发现，已经有了网页版的Mathematica了，并做了一番尝试，终于在网页上建立了.nb文件，并运行了代码。

下面，就说说怎么在网页上写Mathematica代码。

在百度上搜索“Mathematica10的新功能”，进入Mathematica的官网页面，里面讲述了Mathematica10.0版本的诸多新功能，比如机器学习和几何计算等。你可以点击相关链接，进入相应的教程。

好了，言归正传，看看我们的目标——网页版Mathematica：网页里有一个链接，引入Mathematica Oline。人家说的很明白（几乎都是汉语的）——可以直接使用……无需 安装软件。点击“了解更多信息”按钮，进入的是一个英文页面（此时可以用百度翻译）。

打不开页面？别着急，多刷新几次，应该就会好了。

大体上看一下里面的内容（全是英文，自行翻译）。然后，点击“Sign in”按钮，进入相关页面。

一共有四个选项，翻译过来，依次是：

开发平台；

程序设计实验；

在线版Mathematica；

数据科学平台。

如果有必要，你可以把四个选项全部点开，进去看看。此时此刻，我们直接进入“在线版Mathematica”选项。

进入“登录”页面之后，如果你已经有Mathematica账号了的话，可以直接登录；

如果没有，就要申请一个帐号：

点击“Creat One”按钮；

用你的私人邮箱申请帐号；

输入名字（可以随意些）；

两遍密码要一致；

点确定按钮；

到你的邮箱去激活你的帐号。

整个过程，最好保证网络畅通。

然后，登录！

登录之后，就进入了自己的Mathematica云空间了。下图就是我的空间缩影。

此时可以直接创建.nb文件——点击“Creat New Document”按钮，单击“Note Book”选项，看到新页面中央有一个笔记本图案，用鼠标双击这个图案，就新建了一个笔记本文件。

用“Ctrl”+“V”键，把复制的代码粘贴到刚才的笔记本里，并运行。你也可以自己写代码，鄙人绝不强求！

下面就是我的笔记本界面。

然后，我们就可以用Mathematica网页版试验一下。

能够画图。比如：Plot[Sin[x],{x,0,2 Pi}]和

circles =

Table[Circle[{1/3 Cos[k 2 π/5], 1/3 Sin[k 2 π/5]}], {k, 0,

4}];

sol = NSolve[p ∈BooleanRegion[BooleanCountingFunction[{2}, 5], circles], p];

Graphics[{{Lighter[Blue, 0.5], circles}, {Red, PointSize[Medium],Point[p /. sol]}}]

运行结果如图。

能够模拟函数的声音：

Play[Sin[5000*x],{x,0,2}]

而且声音还挺大！

还可以实现人际互动（但比较卡，受网速影响）：

Animate[Plot[Sin[n x],{x,0,2 Pi}],{n,1,6,1}]

缺点：导出的图片不在电脑上，而在云端。

缺点：绘制的3D图形几乎不能旋转。

下面，我们来试验一下Mathematica10的新功能：去掉图片的背景。

模仿网页上的步骤，只不过用另一张图片：

Mathematica网页版好像不能把图片赋值为一段文字：代码运行之后，没有变化，此时img并不代表后面的图片；

所以，我把图片直接放到代码里；

果然把背景去掉了，但是却也把气球堆里面的浅蓝色都去掉了。

给出目标曲线dline和dtri，然后在其外部画曲线，使得新曲线的每一个点 到目标曲线的最短距离是1。

dline = RegionDistance[Line[{{0, 0}, {1, 0}, {0, 1}}]];

dtri = RegionDistance[Triangle[{{0, 0}, {1, 0}, {0, 1}}]];

Table[ContourPlot[df[{x, y}], {x, -2, 3}, {y, -2, 3},

Contours-> 1,

Exclusions->None], {df, {dline, dtri}}]