小编Sjo*_*ies的帖子

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

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

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

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

我想绘制一系列线条,每行填充一个半空格.通过将不透明度设置为小于1的值,我想使重叠突出.我看到的是这样的:

Plot[Table[x + a, {a, 0, 5}], {x, -1/2, 1/2}, 
 RegionFunction -> Function[{x, y}, y < 5],
 Filling -> 5, FillingStyle -> Directive[Opacity[0.25]]]

这可以.现在我想以特定方式为每个半空间着色.而不是目前每个人的平面阴影,说我想用它来遮蔽它y.即,如果平面阴影颜色为蓝色,则蓝色阴影按比例缩放y(0最强烈或5最强烈无关紧要).因此,在第一次重叠时2y,3y当两个半空间重叠时,它会自动变为.

我该怎么做呢？

请考虑 :

dalist = Transpose@{{"Noise1",1,1,1,1,1},{"Blah", 1, 2, 3, 4, 5},
                   {"Noise2",2,2,2,2,2}, {"COGCondition", 1, 2, 1, 2, 1}}

COGCondition1 = 10
COGCondition2 = 20

给定"COGCondition"栏中的值,我想替换"Blah"列中的值,这样:

如果对于给定的行,"COGCondition"列中的值= 1,则"Blah"列中的值应等于COGCondition1(和2 - > COGCondition2)

期望的输出:

我需要这个用于大型数据集并且我尝试使用Table并且Switch失败了.我可以轻松生成新列,但无法弄清楚如何使用替换值Switch.

衍生函数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.

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

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 = …

我有两个问题:

1. Mathematica中的超级函数命令是什么？
2. 上层超函数和超空间函数有什么区别,它是奇数变量乘以普通函数？它们是一样的吗？

在维基百科中,f的超函数S(z)被定义为S(z)= f(f(f(... f(t))))(z total f's).

我是Mathematica的初学者.我的问题是:我在名为XCORD,YCORD,ZCORD的单独列表中有大量的x,y和z坐标,我想将它们组合在一个列表中

示例:
如果x co-oridinates列表由XCORD = {x1,x2,x3}y坐标列表YCORD = {y1,y2,y3}和z坐标列表给出ZCORD = {z1,z2,z3},我希望得到一个坐标的结果列表,如下所示:

 {{x1,y1,z1},{x2,y2,z2},{x3,y3,z3}}

我有以下问题.

我需要构建大量的定义(*),如

f[{1,0,0,0}] = 1
f[{0,1,0,0}] = 2
f[{0,0,1,0}] = 3
f[{0,0,0,1}] = 2
...
f[{2,3,1,2}] = 4
...
f[{n1,n2,n3,n4}] = some integer
...

这只是一个例子.参数列表的长度不需要是4,但可以是任何值.我意识到当参数列表的长度增加时,每个值的查找会以指数复杂性减慢.也许这并不是那么奇怪,因为很明显原则上Mathematica需要存储多少定义的组合爆炸.

虽然,我预计Mathematica会很聪明,而且值提取应该是恒定的时间复杂度.显然它不是.

有没有办法加快查找时间？这可能与Mathematica内部处理符号定义查找的方式有关.它是否会在找到匹配项之前对列表进行短语？它似乎就是这样.

所有建议都高度赞赏.最好的问候佐兰

(*)我正在开发一个随机模拟软件,它可以生成系统的所有配置,并且需要存储每个配置发生的次数.在这个意义上,列表{n1,n2,...,nT}描述了系统的特定配置,表示存在类型1的n1个粒子,类型2的n2个粒子,......,类型为T的nT粒子.可以指数多个这样的配置.

下面的代码有效,但当我用ListPlot3D替换ListPointPlot3D时,它不起作用!

这有效:

ListPointPlot3D[Transpose[Table[{i,j, (150*(Sin[((i - 90)*2*3.14)/180]^2)* (Sin[((j - 45)*2*3.14)/180]^2)) - 150}, {i, 0, 270, 5}, {j, 0, 270, 5}]]]

这不起作用:

ListPlot3D[Transpose[Table[{i,j, (150*(Sin[((i - 90)*2*3.14)/180]^2)* (Sin[((j - 45)*2*3.14)/180]^2)) - 150}, {i, 0, 270, 5}, {j, 0, 270, 5}]]]

任何想法为什么它不起作用？

在Mathematica如果我有一个符号代数方程,我怎样才能得到它由特定术语相乘的因素是什么？

我的意思是说,作为一些计算的结果,我得到一个符号方程a x^2 + b x + c y,并说我对任何乘以x^2(即a在这里)感兴趣.如果应用于a x^2 + b x + c y退货,我应该写什么声明a.

(请注意,在示例中有一个b x术语,所以我不能使用衍生物来提取因子)

这是一个功能,使用了几天前我问过的问题答案的建议.让我们在Mathematica中创建一个Graphics3D对象.我从这里使用这个3D几何数据.

cd = Import[NotebookDirectory[] <> "withwake.obj"];
vertices = cd[[1, 2, 1]];
polygons = Flatten[cd[[1, 2, 2, 1]] /. Polygon -> List, 2];
Graphics3D[GraphicsComplex[vertices, Polygon[polygons]]]

对于每个多边形,我们创建一个指向其顶点的数字列表,然后是指向每个边连接到的多边形的数字.重要的是要注意表面正常; 定义面板的节点顺序应为逆时针.通过右手规则,如果手指弯曲以跟随编号,拇指将显示应指向"向外"几何的法线向量.

如果Graphics3D对象中的所有多边形都是三角形,则此函数会创建此类列表.

EdgeSorting[vertices_, polygons_] := 
Block[{triangleEdges, singleEdges, edgesNeighbors, relations, n, n1,
 n2, trires, triangleNeigbours, TriangleMaker, polygonArea, tring},
(*Split every triangle in 3 edges,with nodes in each edge sorted*)   
triangleEdges = (Sort /@ Subsets[#, {2}]) & /@ polygons;
(*Generate a list of edges*)
singleEdges = Union[Flatten[triangleEdges, 1]];
(*Define a function …

我正在尝试创建一个Mathematica脚本,它将两个变量的函数作为输入,然后以详细的方式计算所有必要的步骤(找到第一个偏导数的根,检查相关的二阶条件)(例如,显示全部寻找局部极值点的偏导数.

大部分都是直截了当的,我最大的问题是如何重用Solve[]连续计算中找到的根.我开始是这样的:

f[x_,y_] :=  y^3 -3 x^2 y
dfx[x_,y_]:=D[f[x,y],x]
dfy[x_,y_]:=D[f[x,y],y]
dfxx[x_,y_]:=D[f[x,y],x, x]
dfyy[x_,y_]:=D[f[x,y],y, y]
dfx[x_,y_]:=D[f[x,y],x]
dfxy[x_,y_]:=D[f[x,y],x,y]
dff[x_,y_]:=dfxx[x,y]*dfyy[x,y]-(dfxy[x,y])^2
Solve[{dfx[x,y]==0, dfy[x,y]==0},{x,y}]
Apply[dff, %]
Evaluate[dff[%]]

我被困在这里,任何帮助都会很棒!

我有两个阵列,说A={1, 2, 3}和B={2, 4, 8}(数组项计数和编号可能不同).如何在阵列之间找到双射.

在这种情况下,它会 f:A->B; f(x)=2^(x)