怎么用mathematica创建可互动网页？

1、用“云部署”来建立一个网页，用户可以用来绘制正多边形：

CloudDeploy[ FormPage[

{"n", "请输入大于3的正整数："} ->Restricted["Integer", {3, Infinity}],   Graphics[RegularPolygon[#n]]&]]

运行上面的代码，可以生成一个网页链接。

2、打开对应的网页，可以看到如下情形。

3、输入一个大于3的正整数，可以得到正多边形。

4、当输入50，得到了正50边形，几乎和一个圆无异。

5、创建另一个网页，绘制参数方程{Cos[n t],Sin[(n-1) t]}的图像，其中n需要手动输入。

6、输入6，得到下图。

7、输入36，得到下图。

8、改为滑块拖动。