小编Sjo*_*ies的帖子

如何定义不应计算公式,而是以传统格式显示？这里有两个例子,第一个显示就像我想要的那样,但第二个是简化的.

Print["5. ", Limit[f[x]/g[x], x -> a], "=", Limit[f[x], x -> a]/Limit[g[x], x -> a], ", where ", Limit[g[x], x -> a] != 0];
Print["7. ", Limit[c, x -> a], "=", c]

我有2条曲线用以下Mathematica代码说明:

Show[Plot[PDF[NormalDistribution[0.044, 0.040], x], {x, 0, 0.5}, PlotStyle -> Red],
 Plot[PDF[NormalDistribution[0.138, 0.097], x], {x, 0, 0.5}]]

我需要做两件事:

1. 找到两条曲线相交的x和y坐标
2. 找到上面交点中x坐标右侧红色曲线下方的区域.

我之前没有在Mathematica中做过这种问题,也没有找到在文档中做到这一点的方法.不确定要搜索什么.

如果我输入

DateString[{2011, 2, 29, 0, 0, 0}, {"DayName"}]

它给出了"Tuesday".

并且,

DateString[{2011, 2, 29, 0, 0, 0}, {"DayName"}]

DateString[{2011, 3, 1, 0, 0, 0}, {"DayName"}]

通过CounterBox["Section"]使用Insert > Automatic Numbering...菜单插入自动编号对象,可以自动对笔记本部分进行编号.然而,这对象只控制显示的部分号码,我想获得它的数字值在程序中使用.知道怎么做吗？

编辑
我想要使​​用它的原因在这里概述.

我有列矢量形式的N个特征值.因此,存在与这些特征值对应的N个本征向量,形成特征向量矩阵.

现在,我正在处理的问题要求我按降序对特征值列向量进行排序.如何按照与特征值相同的顺序对特征向量矩阵进行排序以保持对应？

我正在尝试使用Mathematica找到最小的跨越树,我想使用Combinatorica中的MinimumSpanningTree函数.我正在使用以下代码.

Needs["Combinatorica`"] 
MinimumSpanningTree[GraphPlot[m]]

其中m是矩阵.但是,MinimumSpanningTree变为红色并且不起作用.输出给出

out = MinimumSpanningTree[<maximum spanned tree>]  //can't show the tree here

如何使MinimumSpanningTree工作？它为什么变成红色？

几个月前我在Mathematica新闻组上发布了这个,但没有得到有用的回复.我以为我会尝试一下.

问题是:我似乎无法找到生成我正在研究的Mathematica文档的目录的方法.有谁知道这个特色的藏身之处？

David Annetts向我指出了AuthorTools的方向,这是一个旧的v5.1实用程序包,它仍然隐藏在Mathematica中.但是,它不适用于我的文档(v7).任何线索？

编辑
TOC应包含正确的部分编号(如果样式表中存在)和列表页码(这需要考虑页面大小设置).

衍生函数D和Dt似乎没有像宣传的那样起作用.按照http://reference.wolfram.com/mathematica/ref/Constants.html的"属性和关系"部分中的第一个示例,我有:

In[1]:= {Dt[ax^2 + b, x, Constants -> {a, b}], D[ax^2 + b, x]}

Out[1]= {2 ax Dt[ax, x, Constants -> {a, b}], 0}

我复制了输入,但输出完全不同.我如何获得预期的输出{ 2 a x, 2 a x}？

我正在使用Rutgers大学安装的64位Mathematica 8.0.1.0.

我想在mathematica中为double sum编写这个简单的代码,但它对我没有答案

实际上我想把以下系列的平方(n可能是无穷大)写为双和.

这是我的一个程序.看一看.

For[m = 1, m <= mode1, m++,
  For[n = 0, n <= mode2, n++,
    A[m, n][t_] = a[m, n]*Cos[\[Omega]*t];
    B[m, n][t_] = b[m, n]*Cos[\[Omega]*t];
  ]
]

temp = 0;
For[m = 1, m <= mode1, m++,
  For[n = 0, n <= mode2, n++,
    temp++;
    equation[temp] = 
      ExpandAll[Integrate[eqC[m, n]*Cos[\[Omega]*t], {t, 0, (2*Pi)/\[Omega]}]];
    equation[temp] = ExpandAll[Simplify[equation[temp]/10^9]];
    Print["\n\nEquation ", temp, "-\n", equation[temp]];
    temp++;
    equation[temp] = 
      ExpandAll[Integrate[eqS[m, n]*Cos[\[Omega]*t], {t, 0, (2*Pi)/\[Omega]}]];
    equation[temp] = ExpandAll[Simplify[equation[temp]/10^9]];
    Print["\n\nEquation ", temp, "-\n", equation[temp]];
  ]
]

在运行这段代码后,我应该得到几个方程,然后通过一系列的微分来创建一个矩阵.我知道矩阵必须是对称的.问题是,当我输入简单数据,即e = …