问题标签 [mathematica-8]

这个问题是上一个线程的延续，用于比较具有相同长度的两个列表：

是否有任何有效的简单方法可以将两个具有相同长度的列表与 Mathematica 进行比较？

给定两个列表A={a1,a2,a3,...an}and B={b1,b2,b3,...bn}，我会说A>=B当且仅当 all ai>=bi。现在我们有了k列表H={{a11,a12,a13,...a1n}, {a21,a22,a23,...a2n},...,{ak1,ak2,ak3,...akn}}，如果存在的话，我们想找到最大的列表。

这是我的代码：

Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}];h

有什么更好的技巧来做到这一点？

编辑：

我想将其定义为如下函数：

maxList[H_]:=Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}];h

但问题是上面的代码跨越了两行，有什么解决办法吗？这是一些有效的代码，但不是那么漂亮

maxList[H_] := Module[{h = H[[1]]}, Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, Length[H]}]; h]

或者

maxList[H_]:=Last[Table[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}]]

我有 Mathematica 8，我正在尝试使用 GraphEdit[]，但我发现它非常烦人。一方面，我不知道如何使用它的输出来反馈给自己。

例如，我使用 GraphEdit[] 创建了一个简单的图形并返回：

但是，当我尝试以各种方式将此输出反馈给 GraphEdit 时，唯一有效的方法是剥离 Coordinates 和 VertexLabels 并将“Graph”值作为唯一参数传递。其他所有内容都会显示一个空图。剥离坐标和顶点标签会使图形对我毫无用处。

我意识到 GraphEdit[] 使用的格式与新的版本 8 Graph[] 函数不同，并且可能与旧的 Combinatorica 不完全兼容，但我希望输出很容易被按摩以传回给自己！这些文档并不是特别有用，也没有给出任何关于如何传递包含坐标和顶点信息的图形的示例。有什么明显（或不那么明显）我遗漏的东西吗？GraphEdit[] 是个没用的玩具吗？

或者，版本 8 中是否有新的东西可以让我编辑图表？我不得不承认 GraphEdit[] 界面有点受限，我想要更好的东西，我至少可以控制优化界面，但总比没有好。

Given a list containing k sublists, let A={{a1,a2,a3,...},{b1,b2,b3,...},...}, I want to sort those sublists by their Total[A[i]]. Is there any efficient way to make this?

我试过了

但是得到一个错误：

编辑：

即使在我指定了它的位置之后，MMA 似乎也没有找到编译器。

我在这里错过了什么吗？

http://reference.wolfram.com/mathematica/CCompilerDriver/tutorial/SpecificCompilers.html#394172820

我的操作系统是 Windows 7 64 位。我安装了 Microsoft C++ 2008 Express 版和 Intel C++ Compiler v11.1 x86 版。

现在我可以在 Mathematica 中成功编译 x86 C 代码，例如

但未能用于CompilationTarget -> "C"编译这样的函数

我想我需要指定一个默认值"TargetSystemID"-> "Windows"，因为我的平台是 x64，但不知道如何在 Mathematica 中设置这样的选项。

我在这里错过了什么吗？

PS：最近不想安装Microsoft Visual Studio。

这个问题可能看起来有点奇怪，但对我来说并不是那么疯狂。这很容易，但我需要你跟着我。

目的

我的目标是绘制三维图。

问题

问题是我手中的材料开始构建这个图表。实际上，我在 2D 空间中有一组点（因此是两个实数有序值的元组）。考虑将这些点的集合存储到一个数组中，现在考虑将它们绘制在 2D 图表上。您将对这些点有一个很好的稀疏视图。

好吧，第二步是这样的：考虑具有这些点的表面，并创建与绘制这些点的平面正交的第三个轴。目的是为每个点分配一个数值标量值（使用一个接受对并返回数值的函数）。因此，图表应显示从每个点开始的条形图，并根据分配函数具有特定值。

如何在 Mathematica 中实现这一点？

一个小笔记

基本上我在二维空间中的点也通过图表连接起来。是否可以将条形的顶部连接到其基点在二维图中连接在一起的其他条形的顶部？

其他一些注意事项

我的图表不必是一个表面，而只是一组放置在平面上的条形图，它们所指的对应点所在的确切位置。但是，如果您对如何绘制条形以外的表面有很好的提示，我们会​​很高兴地接受它。

我希望我很清楚。我想指出我有 Mathematica 8，所以所有功能都可用。谢谢你。

我有初始条件：

和颂歌：

我想要的是一个带有 NDSolve 的抽象解决方案 (sf(t),sm(t),p(t))，以便稍后绘制它。我的问题是所有变量在所有 3 个方程中都是依赖的，所以我不知道如何编写 NDSolve 调用。

我正在编写一个mathematica 脚本并在linux 批处理shell 中运行它。该脚本作为结果给出了一个数字列表。我想将此列表作为单列写入文件，不带大括号和逗号。为此，我尝试使用 Export 命令作为

但我得到了错误：

Export::infer: 无法推断文件 test1.txt 的格式

我尝试了其他格式，但我得到了同样的错误。有人可以告诉我出了什么问题，我能做什么？预先感谢

有谁知道如何更改图形属性“Norm”。一个命令；

不像我预期的那样工作。这是图形构造函数；

谢谢。

我是初学者Mathematica。如下图所示，我试图将 hat 和 bar 放在一些字母上（我只想写矢量符号），但只有一些字母可以有它们。我的做法有什么问题？

如果您可以提供涵盖这些语法的在线资源，那将更加可观。谢谢你。

（环境）{Mac OSX 10.7, Ubuntu 11.10, Ubuntu 10.10}, Mathematica 8.0.4 学生版