因为要在Linux用MMA又想用MMA中文帮助，目前提取了11.1和11.3的中文语言包，顺便分享出来。以后可能会补充其他版本的语言。（度盘限速没办法下载太多版本） 参照了 贴吧/p/4024190694 语言包不提供任何担保。 如有侵权，联系删除。 楼下放链接和教程

我有个方程比较复杂积分弄不出來，现在想用数值积分的方法。比如我定义域是（0.5）。然后我想以0.01为步长进行积分，有没有什么办法可以把每一段步长的积分值一次性输出出来。我如果每次手动改区间工作量太大了。

搜了一下，发现吧里好像没有主题帖专门说这个。（尽管我觉得这应该是任何一个有心学习Mathematica的人都能很容易地接触到的常识。）那就专开一帖好了。 为了便于修订，照例放到云笔记上： note.youdao.com/noteshare?id=7334ad886b97de3565d59beea50b5350 ……其实不看云笔记都无所谓，概括起来就那么几句话： 1. For循环写起来很冗长——这其实是其次的； 2. For循环在Mathematica里很慢——这其实也是其次的； 3. For循环的表意逻辑，几乎在任何情况下，都无意义地复

如图所示，在输出的结果中有小括号代表什么意思呢？能否输出一个确定的值呢？源代码如下所示： In[1]:= n = 2;(*稳定器个数*) D1 = 24.4;(*钻头直径Db*) D2 = 24.4; (*井眼直径*) l1 = 1800; (*第一跨钻铤长度*) l2 = 900; (*第二跨钻铤长度*) Dl1 = 20.32; (*第一跨钻铤外径 8寸钻铤*) DL1IN = 7.14;(*第一跨钻铤内径 8寸钻铤*) Dl2 = 17.8;(*第二跨钻铤外径 7寸钻铤*) DL2IN = 7.14;(*第二跨钻铤内径 7寸钻铤*) Dl3 = 17.8;(*第三跨钻铤外径 7寸钻铤*) DL3IN = 7.14;(*第三跨钻铤内径 7寸钻铤*) DS1 =

以这个为例 ListPlot[Monitor[Table[{x, Sin[x]}, {x, 0, 2 Pi, 0.2}], x]] 比如想从红色渐变到蓝色，点集连线的渐变色我能弄出来，ListLinePlot，再加上ColorFunction -> {Blend[{Red, Blue}, # 1] &}，但是对于点集ListPlot的渐变色就不行了。 应该怎么弄？谢谢！！

贴吧新弄了个贴条，贴条只能同时存在10个并且只能实际只能显示26字，于是我就在想着是不是该总结些Mathematica新手最常见的问题贴到那上面滚动播出（虽然很多人或许不会看，但有总比没有好嘛……）。试着弄了个草稿（二十戒），大家可以看看，哪些需要修改，哪些需要删节或补充： 二十戒 1　不要为了节约硬盘选择过老的版本。至少要用版本7 2 　自带帮助是最好的教材，提问前先打开软件按下F1仔细查查 3　将光标停在不认识的函数前/中/后再

【求助】画图的数值问题。 请问怎么让Plot3D或者等高线contourplot作出的图使固定颜色对应固定数值呢？并且这个标准适用每一张图。plotlegends只能在每张图的旁边加一个色彩棒，但并不是让所有图处于同一标准之下。

sp500 = FinancialData["SP500", "FractionalChange", {{2000, 1, 1}, {2009, 1, 1}, "Day"}] edist = EstimatedDistribution[sp500, NormalDistribution[\[Mu], \[Sigma]]] hist = Histogram[sp500, Automatic, "PDF"];Show[hist, Plot[PDF[edist, Quantity[x, "%"]], {x, -10, 12}, PlotStyle -> Thick, PlotRange -> All]]

自己输入的代码是这样的 In[6]:= \[Psi][\[Xi]] = E^(-\[Xi]^2/2) H[\[Xi]]; H[\[Xi], Subscript[a, \[Nu]]] = Sum[Subscript[a, \[Nu]] \[Xi]^\[Nu], {\[Nu], 0, \[Infinity]}]; \[Psi][\[Xi]] Out[8]= E^(-(\[Xi]^2/2)) H[\[Xi]] In[9]:= \[Psi]'[\[Xi]] = D[E^(-(\[Xi]^2/2)) \!\( \*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\( \*SuperscriptBox[\(\[Xi]\), \(\[Nu]\)]\ \*SubscriptBox[\(a\), \(\[Nu]\)]\)\), \[Xi]] Out[9]= E^(-(\[Xi]^2/2)) \!\( \*UnderoverscriptBox[\(\[Sum]\), \(\[Nu] = 0\), \(\[Infinity]\)]\(\[Nu]\ \*SuperscriptBox[\(\[Xi]\), \(\(-1\) + \[Nu]\)]\ \*SubscriptBox[\

没有求出来解，也没有显示报错

有没有大神知道这个图像怎么做到吗？

也算是对这帖（http://tieba.baidu.com/p/2964416898）的2，3，4条的解说吧。有什么意见或建议欢迎提出： http://note.youdao.com/share/?id=abd51087f44c0b6a41ff6022d549dc4

有什么函数将其转为三维吗？

In[30]:= RowReduce[{{1, l1, 0}, {l1, 0, l2}, {l2, 0, l1}}] Out[30]= {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}} 显然当(l1=l2)≠0时结果是错的。 正确答案应该为： {{1,l1,1},{0,-l1,1},{0,0,0}} 要怎样才能得到正确的答案？

这个 mathematica 10启动界面下面明明有字，为什么显示不完全？简直不能忍，每次一看到，就有满满的负能量

大佬们，怎么才能让我图中的这三个数据求和，然后其他的元素不变啊

也差不多该针对语义式匹配（Semantic Pattern Matching）专开个帖子了。为方便修订，照例开个云笔记，请各位多点一下鼠标： http://note.youdao.com/noteshare?id=77b86cb08aaf29ce8747990c9e71 有什么意见或建议欢迎提出。

在实践中发现对此不甚明了的人意外地多，故开此主题。为方便修订，照例弄个云笔记，请多点一下鼠标： http://note.youdao.com/noteshare?id=f2cdd9e72b66c73f372296800de7

如果你 1. 觉得:=能把自变量全部染绿感觉很好看所以只用:= 2. 觉得:=写出来显得很专业所以只用:= 3. 在某一次使用:=或是=定义函数后出了问题，从此后就只用=或是:=了 4. 觉得=更像传统数学表达式所以只用= 5. 因为自带帮助教程《立即定义和延时定义》（tutorial/ImmediateAndDelayedDefinitions）里说了一句“在无法确定时用 := 总比用= 好一些. ”而开始无脑使用:=定义函数 6. 某篇教程声称=是用来定义变量的而:=是用来定义函数的 7. 因为其他的什么理由而只使用:=

我需要求一个积分，积分中有一个函数YO[x]，YO函数为YO[x_] = Sum[E^(((I*h*Pi)/(\[Lambda]*f))*x^2)*Subscript[Y, h][x, z = 13.5], {h, -5, -1}] /. S（其中Subscript [Y,h][x,z]是偏微分方程的一个解）。我在｛x，0，30｝x的正向区间运行了一下YO[3]，发现可以得到具体的值。在这之后我需要把只包含x正方向函数的YO拓展到｛x,-30,30｝，负区间上函数值和正区间的值是对称的。所以我手动定义了一个分段函数，用Piecewise和If函数都试了一下，将函数YO[x]在负区间时的值等于YO[Abs[x]],但是

如图在帮助文档中由横线隔开的区域的上下文都不相同。对于tfm，上下文分别为Cell$$4882`和Cell$$4889`。怎样能实现这个功能呢？

因为课题需要最近要解一个一阶含有11个函数的偏微分方程组，向学校解过这个方程组师兄和老师咨询了一下，他们是用的matlab,python,fotron等语言利用有限元或者有限差分法解的。了解到mathematica新增了一个NDSolve的函数功能，就想着尝试一下，因为这个方程组虽然函数多但是只是个一阶的，而且看到官方的帮助文档中有解耦合偏微分方程组的例子。Mathematica的解给出的是插值函数的形式，但是画图却是一片空白（因为函数中带有复数，所以最后画图时用

如图所示，我使用的mathematica版本是10.1 已经使用了两个多月，一直没有发现有什么问题，最近使用的时候发现很简单很简单的计算，发出运行命令后，软件一直在running，无法完成计算。计算机也没有发现有发热之类别的故障，其他程序运行十分正常。 请问广大吧友有没有遇到过这种情况，有没有什么办法可以解决？ 非常感谢。

想用NonlinearModelFit拟合自己写的一个函数的参数，效果非常差（附图），且速度极慢，求助大侠帮忙 附：（代码） ClearAll["Global`*"]; MR[B_, le_, lp_, \[Eta]_ ] := Block[{cq = 6.16*10^-6, \[Rho] = 20.2*10^4, fun, x, y, g, ps, qs, pt, qt, zs, fs, zt, ft, Z, F, lB, \[Alpha], \[Beta], \[Sigma]}, fun[x_, y_] := (2 Sqrt[-x] Sin[1/3 ArcCos[(3 y)/(2 x) Sqrt[-3/x]]])/ Sqrt[-4 x^3 - 27 y^2]; g = (2 (1 - \[Eta]))/(3 (\[Eta] + 1)) ; ps = -4/(3 g^4) (1 - 1/3 g - 8/9 g^2 + 1/3 g^3 - 1/2 g^4); qs = 1/g^6 (16/27 - 8/27 g - 80/81 g^2 + 664/729 g^3 - 28/81 g^4 -

安装时出现错误：hostname: command not found 解决方案： sudo cp /bin/hostnamectl /bin/hostname

有n颗钻石，其中可能有假钻石。(现有一台检测机，能检测钻石数量没有上限，可以一个一个测，也可以混合在一起测，但检测过程中只要有一个假的就会发出红灯。提醒你有假钻石。）你能找到一种方法使得用最少的测量次数，就可以辨别所有钻石吗？请给出证明过程。(如果缺少已知条件，大家补充)

model = CreateSystemModel[{x1'[t] == x2[t], x2'[t] == -9.8 x1[t] + a[t], a[t] == 9.8 x1[t] - x2[t] - Sign[x1[t] + x2[t]], x1[0] == 1, x2[0] == 0}, t] sim = SystemModelSimulate[model, 10, Method -> {"RungeKutta", "StepSize" -> 0.001}] SystemModelPlot[sim, "a", PlotRange -> {-10, 10}, Frame -> True, GridLines -> {Range[10], Automatic}] 仿照MATLAB进行滑模控制的一个例子，按理说在t=1s之后应该出现抖振，但却没有出现，这是怎么回事？

12.1.1中文版的mathematica，从官方发来的邮件里面的链接下载的安装程序打开后如下 不知道是不是win10的问题，字体小的几乎看不见 有大佬知道怎么办吗

最开始的时候用的Integrate，用积分来画曲线图，但是由于光场连续性以及遇到奇点时，这个命令就不能够很好地解决这个问题，前几天老板让换个思路，用微分的方法，即用NDsolve来解决，在学习中最后碰到一个很奇怪的问题，它报错说我的方程值与前置数不属于一个有维度的数字序列（？）： 程序如下： k = 2 \[Pi] \[Phi]0 = \[Pi]/2 EXP = Exp[i*k*z*Cos[t]] Bessel1 = BesselJ[1, k*r*Sin[t]] f[t] = Sqrt[Cos[t]]*Sin[t]*Bessel1*Exp[i*k*z*Cos[t]] EP = NDSolve[{Derivative[1][f][t] == f[t], f[0] == 0},

Limit[(1+2/x)^3x,x->Infinity] 计算结果是∞ 用重要极限算，难道不应该是e^6吗？

但是，请做好没人答你的问题的心理准备。 决定暂时不做处罚的原因，主要是目前会这么做的人很少。（一个月也不见得有一个。）“司法”实践不足。 顺便，自己没有做任何尝试的帖子原则上都可以判断为求码帖，诸位吧务应该没忘吧？ 最后表个态，我不会回答任何设置了“你需要关注TA才能发表评论”的主题。

其实经常在SE答题的盆友应该都有所察觉，那就是Mathematica对LaTeX的导入导出一直不完美。上面提及的这个问题很可能是继承自下面这个问题： ToExpression["\\mathbb{A}", TeXForm] 输出的是普通的A嗯。 \[DoubleStruckCapitalA]右键复制为LaTeX倒是可以正确导出为\mathbb{A}，不过这个步骤是由FrontEnd`CopyAsTeX[]函数控制的。参看 mathematica.stackexchange.com/q/102928/1871 个人感觉这回这个LaTeX直接输入功能的上线有点仓促，把 Underscript 的快捷键占了，结果 Underscript 的自带帮

@xzcyr 这位大神常常告诫我们要看看代码的颜色，黑了就赋值了，蓝了就没被赋值，但是我肿么发现有些时候前端卡卡之后，再恢复，结果就发现即使赋值过的东西也会是蓝色的诶……这还好说，关键是这个程序我让它跑了一天了，虽然所有的东西都变成蓝色的了，但是貌似程序还在好好运行着呢（有dynamic做的监控，程序运行没问题） 这是不是由于前端卡顿，然后不知如何之后造成的bug呢？ bug会在前端处理大图像卡顿，显示未响应，然后恢复之后出

这种时候我还是有点斗志的： ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, PlotLegends -> Automatic, Contours -> 10, ContourShading -> False, ContourStyle -> ColorData["AvocadoColors"] /@ Rescale@Array[# &, 10], PlotPoints -> 100] 更多内容可参考 mathematica.stackexchange.com/q/54900/1871 另，觉得Jet方案好看的各位，建议阅读 mathematica.stackexchange.com/q/101625/1871 开头给出的几篇文章。大家都在用Jet？（当年）大家还都用ie6呢。

版本11.1时“偏好设置”菜单里的选项改了一次，官网上曾经给出了一份该改动的完整对照表（是的，现在这表在官网找不到了，不知道啥情况），这里贴一下： 这里面有的选项我个人觉得还挺有用的，比如代码自动补全时不区分大小写（CaseSensitiveCommandCompletion）。

请问大佬们，用Table生成的高维数组，Export的时候应该用什么文件格式，"Table","CSV","xls"之类的都试过，导出文件再导入没法再正确地读出数来。

之前电脑死机，没有及时关闭Mathematica，现在每次点击Mathematica12.1的时候会出现“严重启动错误”的警告字样，并无法打开，卸载重装后无果。求助

actual(t)的取值的表格我们定义为ss, forecast（t）的取值我们定义为predicts，这个n总共有50个值

如题

已知 k=Sqrt[kx^2+ky^2]，对kx和ky一系列复杂计算后结果里有很多kx^2+ky^2项，怎样才能把它们换成k^2以化简结果？谢谢

我发现Solve只能求解单个变量如x,或者两个{x,y}，那么如何求解一个表达式呢（比如x*y） 对于结果是一个常量的表达式我通过FullSimplify来求解，如： 但是如果结果也是一个代数式呢，我发现文档的Reduce，Refine函数也都是只能针对变量进行操作，那么如何才能针对一个代数式进行求解呢，比如： 已知 求： 我发现如果直接使用Solve还是FullSimplify都没法解决，我目前只能手动的去一步步做： verticalEnergy := v1 Sin[theta1] - v2 Sin[theta2] totalEnergy := (m v1^2 - m v2^2)/2 + (

我想把一个文件夹下所有的文件名字转化为一个一维数组，有什么好方法吗，改名什么的就算了，数据太多了会乱

样本是n组四元数组，写成了n*4的矩阵形式，用Sort重排了一下，然后对应的n个标签怎么按照n个数组重排的方式重排呢。

L[x_, y_] := Integrate[l[t], {t, 0, 1.6}] p[x_, y_] := D[L[x, y], x] =和:=都试过了，但赋值给p[x,y]是总是is not a valid variable， 怎么避免它把常数代入求偏导的变量中啊 萌新求助(＠_＠;)?

向大家请教一个问题：如何把DO循环中每一步的结果都输出一次到excel文档里？比如说Do[s=i;export["i.xls",s],{i,1,10,0.1}]，但是这样输出文件的名字不会随i变化。我希望对不同的i输出文件的名字也不同。请问应该如何解决？

利用龙格库塔算法求解三体问题运动轨迹的话，用mathematica怎么编写龙格库塔算法呢？

之前的版本没有这个问题。新版这个特性可能是为了鼠标交互时更流畅吧。 我知道一种方法是设置RenderingOptions -> {"3DRenderingEngine" -> "Mesa"} 这个方法的缺点是图元多一些就很容易卡顿，比如MengerMesh[3, 3]，还有虚线显示有点问题。 有没有更好的方法呢？