当您可以使用Solve执行相同的操作时，为什么会存在root函数？当您实际查找根时，root会生成更清晰的输出 此外，在手册中： 根是在求解和 相关函数不能产生 显式解决方案。选择往往是错误的 在这种情况下给出 当您实际查找根时，根会产生更干净的输出 此外，在手册中： 根是在求解和 相关函数不能产生 显式解决方案。选择往往是错误的 在这种情况下给出 根仅适用于x^2==1等。 Solve也可以处理复数上的多项式方程，但它缺少很多更高级的多项式技巧选项。 例如，根允许您指定您想要模n上的解，或者您

如果我有一个操纵语句，例如： Manipulate[ Graphics[Line[{{0, 0}, pt}], PlotRange -> 2], {{pt, {1, 1}}, Locator}] 如何以最简单的方式更改定位器对象的外观？我必须求助于动态语句吗？具体来说，我希望使定位器不可见。尝试向定位器控件添加外观->无： Manipulate[ Graphics[ Line[{{0, 0}, pt}] , PlotRange -> 2 ] , {{pt

首先，谢谢你的回复。我正在尽力跟上所有的建议。然而，我正在努力保持正轨 所以现在我有了 s = Table[RandomChoice[{Heads, Tails}, 2 i + 1], {i, 10}]; 接下来，我想计算每个“I”出现的“头”的数量 我可以为一个案例做这个……比如说5 n = RandomChoice[{Heads, Tails}, 5]; n1 = Count[n, Heads]; 但是我在扩展这个方面有困难 再次感谢 p、 什么是反对票？太简单了？映射（/@）在列表中计

我需要找到迭代映射x[n]==1/2x[n-1]^2-Mu的不动点。 我的做法： Subscript[g, n_ ][Mu_, x_] := Nest[0.5 * x^2 - Mu, x, n] fixedPoints[n_] := Solve[Subscript[g, n][Mu, x] == x, x] Plot[ Evaluate[{x, Table[Subscript[g, 1][Mu, x], {Mu, 0.5, 4, 0.5}]} ], {x, 0, 0.5},

我刚刚注意到，如果您在MMA（8.0.1/win7-64）中有此功能： 然后将其复制到（只需ctrl-c ctrl-v），您将得到以下结果： (maxY - minY)/stepy/(maxX - minX)/stepx 这在数学上是不等价的。应该是这样的： ((maxY - minY)/stepy)/((maxX - minX)/stepx) 或者（上面的输入格式）： 它不是由StackOverflow的内部结构引起的，就像复制到记事本一样 我们是否还有更多类似的问题（特别是在与SO

在下面的mathematica代码位中 a1 = {{0, -I}, {I, 0}} a2 = {{0, 1}, {1, 0}} a3 = {{1, 0}, {0, -1}} c = I*a1*a2 // MatrixForm d = c*a3 // MatrixForm d的显示显示为一个二乘二矩阵，其中1,1和2,2元素本身就是2x2矩阵，而我希望它是一个普通的2x2标量矩阵 use () to protect expression from MatrixFrom which is a w

在Mathematica的V8中，转换（在V8中添加）和过滤器选项的文档说明如下 # Cos[# Pi]& ramp filter multiplied by cosine function 我不知道他们为什么在上面加上“Pi”。我想这里的人可能有个想法。此函数的文档非常稀少 我在sinc（z）的定义中见过这种情况，因为有些人将sinc（z）定义为sin（piz）/（piz），有些人将其定义为sinc（z）=sin（z）/z 这是因为（）： InverseRadon使用一个选项，

Leonid在他的书的第四章中写道：“……模块、块和With。这些构造在Mathematica书和Mathematica帮助中有详细的解释，所以我将在这里就它们说几句……” 从我所读到的（能找到的）来看，我仍然一无所知。对于打包函数，我（简单地）使用模块，因为它可以工作，而且我知道其构造。但这可能不是最好的选择。我（从文档中）不完全清楚何时、何地以及为什么要使用With（或Block） 问题。对于何时使用模块、With或Block（对于包中的函数），是否有经验法则/指南？与模块相比是否存在限制？

我发现ClickPane中的MatrixPlot会导致我的一个处理器内核在出现FrameTicks->Automatic选项时以大约50%的活动率循环。我已将代码缩减为以下内容（实际上没有任何作用）： 切换到FrameTicks->None将停止核心活动 为了研究处理器行为，我让时钟在None和Automatic之间每隔20秒循环一次（首先移除上面的单击窗格）： 这将显示以下处理器活动： 这是在我的Win7-64/MMA 8.0.1系统上 我的问题是： 这在其他系统上可重复吗 我是做错了

在计算过程中可以暂停内核吗？这里有一个例子 Module[{}, Mathematica code.... .......... .......... { Calls an external program with some argument Needs to wait for an external program to create a file (* How ?*) }

在Mathematica中，是否有一个内置的程序来进行数值积分？给定两个数据列表，如{x1，x2，…，xn}和{y1，y2，…，yn} 我想做一些像梯形积分之类的事情。似乎没有集成可以做到这一点。当然我可以自己写。试想一下，可能有太多的数值积分方案需要尝试，尤其是当我急于开始时。可能不是您想要的，但您可以设置一个插值函数： dat = {#, Sin[#]} & /@ Range[0, 2*Pi, .1]; 创建数据点列表（以{x，y}的形式） 创建插值函数（尝试绘制Plot[fun[

在Mathematica中，我是否必须使用显式循环来计算给定列表中元素（可能很长）与另一个数的乘积 如果有，请教我你优雅的方法。谢谢 编辑 举个例子 list=Range[2000];Mod[Product[list],32327] 上面的方法效率很低，因为在计算乘积时，可以采用模来减小乘法器 编辑2 我想我的问题与如何替换for循环有关 Module[{ret = initial_value}, For[i = 1, i <= Length[list], i++, ret = gene

我试图在mathematica中对一个项目的一些数据运行非线性模型。这是一个相当复杂的模型，有9个系数和5个自变量。我按照模型需要的方式创建了数据，并且我认为我正确地调用了函数。 以下是数据示例： {{16.5892, 0.631, 1.7707, 1258.21, 580.271, 14.02}, {16.2855, 0.813, 1.76756, 2098.41, 745.624, 13.59}, {16.036, 0.58, 1.77311, 846.994, 718.092, 13.4

我有两个列表，{1,2,3,4,5}和{a，b，c，d，e}。我想以{{1，a}，{2，b}，{3，c}，{4，d}，{5，e}结束，这个怎么样： l1 = {1, 2, 3, 4, 5}; l2 = {a, b, c, d, e}; Partition[Riffle[l1, l2], 2] {1，a}，{2，b}，{3，c}，{4，d}，{5，e} 那很好。你试过什么？ {{1, a}, {2, b}, {3, c}, {4, d}, {5, e}} l1 = {1, 2, 3, 4, 5

我试图使用NDSolve数值求解一长串常微分方程，如下所示： sols=NDSolve[deqs，operons，{t，0，1000}] 其中，deqs保存微分方程列表，operons存储函数列表 我的错误是“NDSolve:：deqn:在第一个参数中应为等式或等式列表，而不是False” 随后它给我的一个错误代码字符串示例是： acs'[t]=-0.04 acs[t]+（0.08Sin[0.01t]^4）/（1+Sin[]^4），acs[0]==0，adaalkB'[t]=-0.04adaal

我试图从数据文件中绘制一个向量场。我可以以任何方式将数据放入文件，但目前数据文件包含以下形式的信息： x y外汇基金 其中Fx和Fy是向量的x和y分量 你知道如何绘制它吗？给定一个文件vector.txt，该文件位于恰好包含八行的适当位置 1 1 2 3 1 2 5 3 1 3 4 5 1 4 2 2 2 1 3 3 2 2 5 6 2 3 4 1 2 4 1 4 （任何地方都没有任何额外的空白） 还有一本新的数学家笔记本，里面有 datain = Partition[ToExpression

我试图为我的家庭作业计算导数，家庭作业使用的是一个求和序列，我在代码的第一行显示了这个序列 Mathematica在本系列中为我扩展了所有术语。我想知道是否有一种方法可以让它使用ε符号返回结果 f[x_]=Sum[k*Exp[-Subscript[a,k]*x^3],{k,1,7}] E^(-x^3 Subscript[a, 1]) + 2 E^(-x^3 Subscript[a, 2]) + 3 E^(-x^3 Subscript[a, 3]) + 4 E^(-x^3 Subscript

我试图用mathematica解两能级的光学布洛赫方程 这是我写的代码。我想求解Rho12，看看Rho12的虚部相对于失谐量[资本增量]的变化 “它们是超越方程”是错误的 有人能帮我吗 \[CapitalOmega]21 = Conjugate[\[CapitalOmega]12]; n := \[Rho]11 + \[Rho]22 + \[Rho]12 + \[Rho]21 = 1; Solution == DSolve[{ \[Rho]11'[t] == (\[CapitalGamma]2*

我试过了 ColorConvert[img, "Grayscale"] 要将RGB转换为灰度。 我想知道mathematica的详细计算 Gray level= square(R^2+G^2+B^2)? 或者其他什么？有关如何进行计算的详细信息，请参阅 下面的命令生成的两个图像非常匹配，但是您可以通过一个简短的程序进行多次比较来计算出精确的缩放向量。对不同图像的进一步测试将确定ColorConvert是否始终使用相同的向量，或者是否在转换前对图像进行分析以获得最佳灰度外观 ColorConv

我有一个非解析方程。我可以求解不同的参数值，但我的程序根本不起作用。最后我想画y和x f[x_] := y + Sqrt[3 + x*y - x^20 - y^4] Table[f[x], {x, 0.1, 0.5, 0.1}] NSolve[f[x] == 0, y] 这就产生了结果，从中我们可以看到第一个和第二个解产生了复数。首先绘制两个真实解 y3 = subs[[All, 3, 1, 2]]; y4 = subs[[All, 4, 1, 2]]; ListLinePlot[{Tr

我试图定义一个对象，它在某些变量中起作用，在其他指数中起作用。 我的尝试是： Clear[mat, k]; mat[k_] := {{0,0},{0,0}}; mat[k_][[1, 1]] := k + 1 mat[k_][[1, 2]] := k + 2 mat[k_][[2, 1]] := k + 3 mat[k_][[2, 2]] := k + 4 mat[1] 它给出的输出是： During evaluation of In[268]:= SetDelayed::setps: mat

我在mathematica中最大化这个函数时遇到了一个问题： Maximize[a + 0.3 * b, 0 < b < 10, a] 最大化[a+0.3*b，0

我试图将一个值附加到列表中，并将其传递给函数，例如： p = {{"Blaaaa"}}; AppendTo[p, {"Lalala"}]; dran [h_] := AppendTo[h, {"Hahaha"}] dran[p] 但我收到了以下错误： AppendTo:{{Blaaaa}，{Lalala}}不是带值的变量，因此无法更改其值 我不明白。我的意思是我没有改变任何价值观。任何帮助都将不胜感激。错误的原因是，在mathematica中，默认情况下，函数arg通过副本有效地传递，并且无法

我目前正试图获得表达式有效范围的分析表达式。我用Mathematica中的reduce来做这件事，但它一直给我根函数的表达式。我试着去解它，这些根都有解析解，有没有办法得到一个更清晰的表达式，最好是只考虑参数，而不考虑根函数 代码： FullSimplify[Reduce[{-（（6[Alpha]^4+21[Alpha]^3[Lambda]+27[Alpha]^2+15[Alpha]\[Lambda]^3+3[Lambda]^4+Sqrt[3]Sqrt[-（[Alpha]+[Lambda]）^6

我试图写遗传网络的主方程，因为它们是许多方程，我试图制作一个表格，以便在同一时间写出所有的方程。但是，我不知道如何调整边界，我的意思是： 我写了一个矩阵，包含了我需要的所有变量： p={{p11，p12}，{p21，p22}} 然后我写了一个表格来创建微分方程： Table[p[[i，j]]'[t]==p[[i-1，j]][t]+p[[i，j-1]][t]+p[[i+1，j]][t]+p[[i，j+1]][t]，{i，1,2}，{j，1,2}] 然而，当i=1时，部分p[[i-1，j]]是p[[

我得到了以下方程式（作为示例）： 我想确定w11，w12，w21，w22。但是，只需执行以下操作： Solve[{3 w11 + 2 w21 == 5 w11 + 3 w12, w11 + w21 == 5 w21 + 3 w22, 3 w12 + 2 w22 == -2 w11 - w12, w12 + w22 == -2 w21 - w22}, {w11, w12, w21, w22}] 因为方程组是欠定的。我有一个想法，就是使用矩阵代数。但我需要自动将w11、w12、w21、

我想优化一个字符串验证函数。字符串长度为2n，由0和1组成，例如str=“100001”。我想测试： 1） 字符串中奇数索引位置的1的数量（必须不小于1）是否等于均匀索引位置的数量 2） 无论对于每个StringTake[str，2*i]，i从1运行到n-1，字符串中奇数索引位置的1的数量不等于均匀索引位置的数量 总之，我想测试位置2n是否是第一次字符串中奇数索引位置的1的数量是否等于均匀索引位置的数量 “100001”和101101是一个好字符串，但不是100100，100000或000000

我试图解一个微分方程： DSolve[{0.02*x^2*y'[x]-y'[x]-y[x]==0}，y[x]，x] 但我得到了警告： Part:：partw:{1}的第2部分不存在。 我如何理解这个警告？非常感谢。我可以在V7.0.1中重现这一点，但在V8.0.1中无法重现，因此它看起来像是在某个时候修复的bug。两个版本的最终答案是相同的。我使用的是v7。所以我得到了警告

如果我有时间序列数据——一个{x，y}对的列表——并且想要平滑它，我可以使用指数移动平均值，如下所示： EMA[data_, alpha_:.1] := Transpose @ {#1, ExponentialMovingAverage[#2, alpha]}& @@ Transpose@data 您将如何实施 如果它能自己算出alpha和gamma的好值，那就太好了 关于如何处理时间序列中存在差距的情况的相关问题，即样本在一段时间内分布不均匀： 我不确定这是最快的代码，但以下

我偶然发现贝里萨利斯的回答很有趣。想知道他是否有人可以把他的 完成mma代码并给出一些解释。总的来说，我的问题是如何在mma中实现这种annimation/plotting行为。对我来说它看起来太棒了 非常感谢 如果需要进一步解释，请告诉我 x[t_] := {Cos@t, Sin@t, .1 t} /; t <= 3 Pi; x[t_] := {Cos@t, Sin@t, .3 Pi (4 - t/Pi)} /; t > 3 Pi; plotRange = {{-110, 11

我正在寻找一个实用程序，它将接受一个表达式并提取该表达式中的所有变量。 以下五个示例涵盖了我的几乎所有变量模式 a，下标[a，…]，下标[a，…][…]，a[…]，a[…][…] 这里有两个测试用例 expr1 = -Log[Subscript[\[Mu], 2][]] Subscript[\[Mu], 2][] - Log[Subscript[\[Mu], 2][2]] Subscript[\[Mu], 2][2] + Log[Subscript[\[Beta], 1, 2][

我觉得这有点烦人 我做了一个3D绘图，最初它以默认方向出现。然后，用鼠标，我把它旋转了一圈 现在，我再次运行该命令，希望获得原始形状（即，在我用鼠标旋转它之前的原始方向），但相反，它只给了我屏幕上的相同绘图，即，它似乎保留/记住了该输出单元格中的最后一个视点 我想让它回到原来的观点。因此，我删除了输出单元格以实现它 你认为这就是它的工作原理吗？当我尝试这件事时，不得不不断删除单元格输出是很烦人的。我认为它应该回到原来的默认方向 Graphics3D[ Cuboid[{-.1,-.1,-.1}

在Mathematica中，如何将像a==b | | a==-b这样的表达式简化为a^2=b^2？我尝试过的每个函数（包括Reduce、Simplify和FullSimplify）都不能做到这一点 请注意，我希望它适用于任意（多项式）表达式a和b。再比如, a == b || a == -b || a == i b || a == -i b a == b || a == -b || c == d （对于虚拟的i）和 两者都应该简化为a^4==b^4 注意：解决方案应在逻辑级别工作，以免损害其

SaveDefinitions是操作的一个不错的选项。它使操纵将用于其创建的任何定义存储在操纵面板中。这样做的操作可以复制到一个空笔记本上，并且仍然可以自己工作。此外，你的工作笔记本包含许多这样的操作，打开时也不会变成一堆粉红色的盒子，下面有打印的错误信息。太好了 然而，所有这些善良都有其黑暗的一面，如果你没有意识到它，它会狠狠地咬你一口。我已经在一个笔记本上写了这句话，我已经写了几天了，但是我现在给你一个逐步的玩具示例场景，它重现了这个问题 在这种情况下，您需要创建一个操纵来显示一个漂亮的波浪

如何使用Mathematica的收集/收集/转置函数转换： { { {1, foo1}, {2, foo2}, {3, foo3} }, { {1, bar1}, {2, bar2}, {3, bar3} } } 到 编辑：谢谢！我希望有一个简单的方法，但我想不是 以下是您的列表： tst = {{{1, foo1}, {2, foo2}, {3, foo3}}, {{1, bar1}, {2, bar2}, {3, bar3}}} 这里有一个方法： In[84]:= Flatten/

绝对是初学者的问题。 我在mathematica有两个列表。 第一个由Table命令生成： 表[QP[[i]]，{i，10}] 将生成以下列表： {52.5,45,37.5,30,22.5,15,7.5,0.，-7.5，-15.} 第二个是范围 范围[0,9,1] 它生成{0,1,2,3,4,5,6,7,8,9} 我需要把这些列成一个列表。i、 e.{0,52.5}，{1,45}…}等等，但我似乎不明白。你需要使用循环吗？因为我认为我想要的可以通过Table和Array命令生成 谢谢表的第一个参

是否有一种方法可以禁用单元组/部分中的所有输入单元，并且以后可以很容易地反转 我的目标是保持笔记本的一部分完好无损，但在前端选择“评估笔记本”时，防止对其进行评估 有Cell->Cell properties->evaluable，但使用它需要手动选择每个输入单元格并更改/恢复此属性。这工作太多了。我让文本/分段/输出单元格交错 有没有更好的方法使用UI？如果没有，是否有一种简单的编程方式 编辑：我找到了Alt click，它选择笔记本中的所有输入单元格。这能否仅限于一个区段/单元组？ 选项单击

有人知道为什么下列矩阵的随机分布会生成不同的图吗？这是从使用逆Wishart分布采样的一组10x10矩阵生成第一个单元的PDF图的代码；令人惊讶的是，根据执行矩阵求逆的方式，曲线图是不同的——似乎正确的曲线图是通过求逆得到的，为什么 基本代码： << MultivariateStatistics`; Module[{dist, p, k, data, samples, scale, graphics, distribution}, p = 10; k

我想用数学计算系数。例如，我编写这段代码是为了找到（a+b*cos（x））^4中的cos（kx）系数，其中“a”和“b”是参数 f[x_] := (a + b Cos[x])^4 f1[x_] := TrigReduce[f[x]] g[x_, k_] := Coefficient[f1[x], Cos[k x]] 它适用于cos（k*x）的系数 例如，cos（2x）的系数为 但它不适用于常数（这里常数的意思是独立于cos（kx）。换句话说，只有带有数字和参数“a”和“b”的术语） 我想写

是否存在随机的细胞自动机规则（如规则30）并有3种颜色？这是一个研究问题-您必须对您发现的细胞自动机（CA）规则进行统计测试，以证明它是随机的。如果你想做一个像这样的研究项目，看看吧 现在，让我们看看哪些信息和工具可以帮助您开始 首先，为了更好地理解这一主题，我会阅读《新型科学》（NKS）一书及其周边章节 我还要看一下Wolfram演示项目 接下来，您可以从上找到的优秀候选人开始。按照这个链接，阅读关于3色CAs的图片说明，其行为非常随机。在线图书是免费的（您可能需要注册一次）。我还建议阅读第6

我正在尝试使用Mathematica v8中的PlotLegend绘制带有图例的函数列表。作为一个简单的测试来说明我在做什么 <<PlotLegends` test = Table[f[x], {f, {Sin, Cos, Tan, Log, Exp}}] Plot[test, {x, 0, 1}, PlotRange -> Full, Axes -> {True, False}, PlotStyle -> Thick, AxesOrigin -> {0,

你是我最后的希望。 在我的大学里，没有人能回答我的问题。 我得到了一个非常复杂的函数，它依赖于6个参数a0，a1，a2，b0，b1，b2，这些参数通过一个新的状态方程来计算，使压强，体积液体和体积蒸汽的增量最小。 NMinimize非常慢，我不能考虑这个等式，因为时间非常长。 在代码中有一些关于我的代码的解释和一些问题。 跪下，我请求你帮助我。 很抱歉，但在构建这些方程4个月后，我无法测试它。挫折感与日俱增 Clear["Global`*"]; data = {{100., 34.376,

我正试图用麦克劳林级数近似来做一个近似Cos（2）的函数。到目前为止，我已经做了一个“Do”循环，但我的近似值是-1 我的职能： valX = 2 result = 0 numTerms = 5 i = 0 Do[ Print[ SetPrecision [ result = result + (-1)^i* (valX^(2*i)/Factorial[2*i]), 10]], {i, numTerms}] 结果: -2.000000000 -1.33333

假设我们想在linux命令行中集成e**x，每次的集成范围可能不同，我们可以调用集成脚本，每次在命令行中输入指定的集成范围。 我读过它有点简练。 Q1 它一定是一个.m脚本吗？ 问题2 它可能是nb文件吗？那么公式就可以很容易地编写。对于这样简单的东西，你甚至不需要脚本： echo "Integrate[Exp[x],{x,0,y}]" | math 如果您想批量执行笔记本，您需要创建一个wrapper.m脚本，用于打开并评估笔记本，但请参见此处： 对于这样简单的事情，您甚至不需要脚本： ec

我正在使用Mathematica增强和细化图像。我用它来处理单个图像，现在我想用它来处理多个图像。因此，我必须导入6个图像，进行细化并将它们存储在列表中，例如。有谁能告诉我怎么做吗？？ 这些图像将用于生物识别系统 由于您需要一个列表，因此您可能会考虑使用表或映射。其中任何一个都可以一个接一个地做n件事情，并将结果放入最终列表 因为您没有显示处理单个列表所使用的步骤，所以很难确切地告诉您如何围绕该列表包装表或映射 如果您有一个图像文件名列表，那么您可以使用Map一次处理一个图像文件名。处理可以是一

我想突出显示mathematica图中的拟合区域，该图上有适当的拟合误差条。要使用错误条绘制某些数据，我编写了以下示例： data={{{0, 0.00126517235028}, ErrorBar[0.0097546177348]}, {{1, 0.0132870239578}, ErrorBar[0.00717311242327]}, {{2, 0.00968907928987}, ErrorBar[0.0125454440978]}, {{3, 0.00835906062

下面的代码也在逗号周围键入两个引号 fp = OpenAppend["Math.txt"]; mycomma = “,”; (*var1 and var2 are variables*) Write[fp,var1 ,mycomma,var2]; (*other attempts Write[fp,var1 ,"\,",var2]; *) (*other attempts Write[fp,var1 , \, ,var2]; *) Close[fp]; 这可能会帮助您：使用WriteStrin

可以使用以下方法测试参数是否为无显式值的符号： func[s_Symbol] = ... 但是，如果函数具有Hold属性，则该模式将匹配所有符号，而不仅仅是那些没有显式值的符号。我可以使用： func[s_] /; Head[s] === Symbol = ... 但这带来了比我希望的更大的性能损失。为\u Symbol添加规则对性能的影响相当小，HoldFirst似乎没有任何性能损失，但是Head[s]==Symbol在一个简单函数上有很大的开销。使用ValueQ和MatchQ[s，\u

假设： f[c_,x_]:= c x (1-x) 在[0,1]中固定一个间隔（a，b）。f的庞加莱回归（到区间（a，b））映射是一个函数 R[c，x]=f^k[c，x] 其中k是第一次迭代，a您遇到的问题是，实际上没有从模块返回任何内容。为了修复你的代码，我会使用 R[f_[x___], a_, b_, n_, x0_] := Module[{i, y = x0}, Catch[ For[i = 0, i <= n, i++, Print["i= ", i]; If

我刚刚开始学习Wolfram Mathematica 9，并试图学习如何使用外部函数。我有一个问题，我想生成一个列表，其中包含掷两个骰子的所有可能结果。我有下面的清单开始 number={1,2,3,4,5,6} 我想生成的列表应该在下面的表单上 {{1,1}，{1,2}，{1,3}，{6,6} 我试过类似的方法 Outer[时间、数字、数字] 无济于事。我如何解决这个问题 提前谢谢你 如果你想坚持使用外部试试外部[列表，数字，数字]如果你想坚持使用外部试试外部[列表，数字，数字]正如前面提到的