从CDF播放器中获取数据

Question

对于我的怀疑论者工作组,我在Mathematica中编写了一个程序来测试dowser评估通过照片向他们显示的人的状态的能力.对于空值测量,我将此文档以CDF格式分发给我们组的成员(新的v8可计算文档格式,意味着与CDF播放器一起运行).在我的计算机上(使用mma)它一切正常,但其他人无法导出数据(程序导出到Excel文件).在阅读细则时,我看到播放器不支持导出.所以我的问题是:

有没有办法从CDF播放器中获取数据？

Answer 1

出于可以理解的原因,数学/ CDF播放器在输入和输出方面都受到严重限制.

但是,Print工作,所以你可以打印TableForm- 产生TSV - 然后将其复制/粘贴到Gnumeric('因为你为什么要使用Excel？!).

我刚刚在Gnumeric和OpenOffice中对它进行了测试,它运行良好.

将以下代码放入CDF文档进行测试.

Button["Press me!", Print[TableForm[RandomReal[{0, 1}, {10, 10}]]]]

请注意,您无法编辑Input,但您可以按按钮并复制输出.怀疑论者团体通常是技术上相当称职的人,这应该是一个可行的解决方案......

Answer 2

我认为我可以在一张图片中对我的数据进行编码,然后我会让小组成员从CDF文档中复制并发送电子邮件给我.它看起来像这样:

定义数据槽的顶行和底行包含编码为颜色的数据.但是,我发现Outlook会压缩放置在电子邮件正文中的图片,因此会使图片略微模糊,从而导致数据损坏.下一步是使用更强大的代码,如QR条码.幸运的是,自上周以来Wolfram | Alpha能够生成QR条形码,如下所示:

WolframAlpha[
 "QRcode:\"" <> ToString[N[Pi, 100]] <> "\"", {{"QRCodeBarcode", 1}, 
  "Content"}]

我现在已经自己下载并安装了CDF播放器,它似乎也在CDF文档中工作,尽管我必须在正确处理互联网连接之前第二次生成QR码.不知道这是否是一个虚假的结果.