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

刚入职一家规模很小的公司，我需要用mathematica学习一些物理上的东西，做做计算。如果我在公司电脑上装mathematica，用算号器激活，会有风险吗？ 目前在使用mathematica eigine+vscode 效果差完整版mathematica太远了

神秘化简问题, 仅仅是移项甚至只是对调了一下不等式的方向就不行了. 原问题是在一定条件下化简一个复杂的不等式, 预期结果是true或false, 没有达到预期结果, 结果是part1 > part2, 找不出原因的情况下, 我尝试直接化简part1 > part2, 并且将part1 > part2稍微变形或原样添加进assum, 也就是assum的第二部分. 原样添加进assum的时候, 可以得到true, 说明Simplify能够这样工作. 前两行的Simplify[expr,assum]的assum的第二部分是part1 > part2经过稍微简单移项得到的, 最后一

DSolve[(\[Lambda] (2 Derivative[ 1][(x Sqrt[1 + x^2] (-3 + 2 x^2) + 3 ArcSinh[x])][\[Lambda]] + \[Lambda] ((x Sqrt[ 1 + x^2] (-3 + 2 x^2) + 3 ArcSinh[x])^\[Prime]\[Prime])[\[Lambda]]))/ x^3 == -4 \[Pi] x^3 \[Lambda]^2, ， \[Lambda][x], x]

有没有大佬知道这种函数用什么软件可以完整的画出来

constraints = {A >= 0, B >= 0, A + 2 B == T, S == T*V + 2.4*B^3}; Simplify[Minimize[{T, constraints}, {A, B, T}, Reals], {S > 0, V >= 0}] 这是一个运动学问题，假设物体初速为V，初加速度为0的情况下，先匀速运动A时间，然后以2.4的加加速度运动B时间，再以-2.4的加加速度运动B时间，总位移为S，总用时则为T；求解最短运动时间T 显然，最短运动时间要达成，A应该为0，解得T=2B，这里答案和MMA输出的是一样的 但是为什么MMA输出的A是这个奇怪的东西？

怎么能使下面两个求导结果输出的sq1h,sq2h,sq3h的对x的导数给显示为命令行第4-6条的那三条中的sq4h,sq5h,sq6h，我试了4-6三条反过来赋值也不能，还试了1-3三条删去，结果显示递归超出了限制，请问这个是应该怎么操作。 ClearAll sq1h = -sq1[x]; sq2h = sq2[x] - sq3[x]; sq3h = -sq3[x]; sq1h'[x] = sq4h; sq2h'[x] = sq5h; sq3h'[x] = sq6h; A = D[{raih*Cos[sq2h - \[Theta]]*Cos[sq1h]*Sin[\[Theta]] + raih*Sin[sq2h - \[Theta]]*Cos[\[Theta]], raih*Cos[sq2h - \[Theta]]*Sin[sq1h], raih*Cos[sq2h - \[Theta]]*Cos[sq1h]*Cos[\[Theta]]

Z1=1/(1/(1/(1/(R3+I*w1*L3)+1/R2)+I*w1*L2)+1/R1)+I*w1*L1 Z2=1/(1/(1/(1/(R3+I*w2*L3)+1/R2)+I*w2*L2)+1/R1)+I*w2*L1 Z3=1/(1/(1/(1/(R3+I*w3*L3)+1/R2)+I*w3*L2)+1/R1)+I*w3*L1 Simplify[ComplexExpand[ReIm[Z1]]][[1]] Simplify[ComplexExpand[ReIm[Z1]]][[2]] Simplify[ComplexExpand[ReIm[Z2]]][[1]] Simplify[ComplexExpand[ReIm[Z2]]][[2]] Simplify[ComplexExpand[ReIm[Z3]]][[1]] Simplify[ComplexExpand[ReIm[Z3]]][[2]] Solve[ Z1R==Simplify[ComplexExpand[ReIm[Z1]]][[1]]&& Z1I==Simplify[ComplexExpand[ReIm[Z1]]][[2]]&& Z2R==Simplify[ComplexExpand[ReIm[Z2]]][[1]]&& Z2I==Simplify[ComplexExpand[R

如上图输入后按Tab出现闪退，有遇到同样情况的小伙伴吗？

主要目的是更优雅的定义奇异函数的Macaulay括号积分法则。 如果要计算奇异函数，如下定义。Macaulay的下值。 Macaulay[x_, a_, n_Integer?NonNegative] := (x - a)^n*UnitStep[x - a] Macaulay[x_, a_, n_Integer?Negative] := Derivative[-n - 1][DiracDelta][x - a] 对积分法则，定义 Macaulay的上值 Macaulay /: Integrate[Macaulay[x_, a_, n_Integer?Negative], x_] := Macaulay[x, a, n + 1] Macaulay /: Integrate[ Macaulay[x_, a_, n_Integer?NonNegative], x_] := 1/(n + 1) Macaulay[x, a, n + 1] 现在的问题是，因为Macaula已经有了下值定义，在积分时

求助，怎么在mathematica中打一个左括号[ 就可以自动打两个 [ ] 并且光标放中间？我感觉要是能这样设置的话会方便很多！求助怎么弄

其实本来想用的标题是《【交流】“这些问题你换软件也没用！”——受限于数学发展而无法或很难求解却经常有人想用Mathematica解的问题》。Mathematica作为一个软件，必然无法超越现有的数学理论，也就是说，对于尚未在理论上得到很好解决的问题，Mathematica是不太可能直接求解出来的——这话说出来大家都明白，但是，一般用户常常很难分辨哪些问题目前在理论上是很难或无法求解的，故开此交流帖，大家可以来谈谈自己所知道的相关问题。为避免

ClearAll 的正确用途及语法请参看帮助，不知道怎么查帮助的人，以及不知道我现在在说啥的人，请参看《你查过自带帮助了吗？你真的会查自带帮助吗？》：https://tieba.baidu.com/p/4392855072 顺便，clc，clear all之类的东西在Mathematica里也是没有任何意义的。 再顺便，如果你模模糊糊地觉得MATLAB、Mathematica、Maple、C、Pascal……其实是一个东西，那么，你是错的。 （这条其实已经收在《十戒》里了，但想想还是单开个标题好懂的帖强调一下。）

NDSolve:无法求得一个导数公式，考虑使用选项设置：...... 大致看一下这是什么问题？我在知乎上问说没有见过。 这个代码有些长，我在评论区也补上了一部分。 l = 1 g = 2 w = 2 b = 2 a = 3 \[Theta] = 2 m = 1 L10 = 1/6 (-6 g w (l Cos[\[Theta]] Cos[\[Alpha]1[ t]] Cos[\[Theta] - \[Beta]1[t]] + Sin[\[Theta]] (b + l Sin[\[Theta] - \[Beta]1[t]])) - 3 m (3 b Sin[\[Theta]] + a Cos[\[Theta]] Sin[\[Alpha]1[t]] - 2 l Cos[\[Beta]1[t]] Sqrt[ Cos[\[Alpha]1[t]]^2 Cos[\[Theta] - \[Beta]1[t]]^2 + Sin[\[Theta] - \[Beta]1[t]]^2]) - 6 g w (Cos[\[Theta]] (-l Cos

Integrate[x^2/Sqrt[4*Exp[2*x] + (x^2 + 2*x + 2)^2], x] Integrate[Floor[Exp[x]], {x, 0, 2}] 在这里我严重认为MMA不会算取整函数积分 Integrate[Sum[(-1)^k*Max[0, x - k], {k, 0, Infinity}]^(-2),{x, 1, Infinity}] Integrate[Sqrt[1/(4*x^2) + 1/x - x] - Sqrt[x^4/4 - x + 1] - 1/(2*x), {x, 0, 1}] 只要是关于取整或MAX,MIN积分我都没写，除了第二题，最后上一个难题 Integrate[(ArcTan[x]*Log[1 + x^2])/(x*(1 + x^2)), {x, 0, Infinity}]

Subscript[\[Pi], 1]=\[Lambda] Subscript[p, 1h] Subscript[Q, 1]+(1-\[Lambda])Subscript[p, 1l] Subscript[D, 1l]-w Subscript[Q, 1]+b(1-\[Lambda])(Subscript[Q, 1]-Subscript[D, 1l]); Subscript[\[Pi], 2]=\[Lambda] Subscript[p, 2h] Subscript[Q, 2]+(1-\[Lambda])Subscript[p, 2l] Subscript[D, 2l]-w Subscript[Q, 2]+b(1-\[Lambda])(Subscript[Q, 2]-Subscript[D, 2l]); Subscript[\[Pi], s]=(w-c)(Subscript[Q, 1]+N Subscript[Q, 2])-(1-\[Lambda])(b+\[Delta])((Subscript[Q, 1]-Subscript[D, 1l])+N(Subscript[Q, 2]-Subscript[D, 2l])); Subscript[\[CapitalPi], I]=Subscript[\[Pi], 1]+N Subscript[\[Pi], 2]+Subscript[\[Pi]

今天偶然通过简单的“三叶草”曲线画出这样一个看起来不错的曲面

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

\[Integral]1/ 2 Sqrt[-((-4 r^2 - 16 r^3 + 8 r^4 - 8 r^5 + 4 r^6 (1 - \[Omega]^2))/(r^2 (-2 r + r^2)^2))] \[DifferentialD]r 代码太长超过贴吧要求字数了，结果就放了个图

1. 帮助文件安装很顺利，没有出现某网友遭遇的尴尬现象。 2. 但是在mathematica中查找某条命令的帮助文件时，会跳到Mathematica官网上的帮助网页。这样，似乎也就无所谓中文版和英文版的区别了。你上的官网是中文版的，网页上帮助文件就是中文版的。 3. 离线无法查找帮助。不知这算不算一个缺点？

不知编译为何的同学先看这里： note.youdao.com/share/?id=bf2a031f7d0d69064941032c7857dfd1&type=note#/ 这是我前两天灵光一闪意识到的：既然配置GCC的时候，用的是GenericCCompiler选项——这选项里有个Generic啊，那说不定，其他的编译器也能用这个方法配置？于是仔细读了读帮助又试了试，发现还真是这样。总之这里给出配置方法。 TCC的配置方法与GCC几乎是一样的，这里依旧以64位Windows为例。 首先把TCC下载下来。官网地址：download.savannah.gnu.org/releases/tinycc/ （目前Win

提问时请附上引发问题的代码。对标题论断有疑虑的同学请阅读下面这篇对 FindRoot::nlnum 警告的简要解说： https://zhidao.baidu.com/question/810397720290271692.html

Solve[-w - \[Delta] + \[Tau] + qs (p + \[Alpha] - \[Tau]) g[qs] == 0, qs] Solve::nsmet: 无法利用 Solve 现有的方法求解该系统. 小白求问，这种式子该怎么解啊

具体代码放在了楼下

嗯……吧里关心微分方程的人不多，不过这个月新帖也少，姑且发个帖说说近期出现在Stackexchange的这个我觉得还比较有意思的帖子。我们知道，对于不规则区域上的偏微分方程求解，目前有限元法（finite element method, FEM）几乎可以说是一家独大（我甚至见过某些对微分方程求解不甚了解的童鞋竟模模糊糊地觉得“解偏微分方程=用一下有限元”）；目前，在Mathematica的NDSolve函数的内置方法里，它也是唯一一种可以在不规则域上求解偏微分方程的方法。

但是安装包都是同一个 就是序列号不同

比如x^2+y^2+xy+xy^2，处理之后只剩下x^2+y^2+xy，只要有y^2和xy，xy^2这一项就去掉。但如果是x^2+xy^2，处理过后还是x^2+xy^2

求助，只生成sinx这种图像都能生成，但是这种就一个点都不给我生成？为什么呀？ 附代码： probability[n_] := 1 - (Arrange[365, n]/365^n + Binomial[n, 2]*Arrange[365, n - 1]/365^n) Plot[probability[n], {n, 1, 50}, AxesLabel -> {"人数 n", "至少三人生日在同一天的概率"}, PlotLabel -> "生日问题概率图像", ImageSize -> Medium, PlotStyle -> Blue, AxesStyle -> Directive[Black, 12], LabelStyle -> Directive[Black, 14]]

大佬们求函数最值的时候怎么限定自变量的取值范围啊，一限定就原封不动给我把题目输出来了

我想将向量场 r sin(\[Theta])Overscript[\[CurlyPhi], ^] 从球坐标 {r,\[Theta],\[CurlyPhi]} 转化为直角坐标 {x,y,z}，并且保持场点仍以球坐标系表达，而场量以直角坐标系表达： 我可以分两步编程实现，代码如下： In[11]:= TransformedField[ "Cartesian" -> "Spherical", #, {x, y, z} -> {r, \[Theta], \[CurlyPhi]}] & /@ TransformedField[ "Spherical" -> "Cartesian", {0, 0, r Sin[\[Theta]]}, {r, \[Theta], \[CurlyPhi]} -> {x, y, z}] Out[11]= {-r Sin[\[Theta]] Sin[\[CurlyPhi]], r Cos[\[CurlyPhi]] Si

链接不发了。楼下简述更新内容

Clear["`*"] b = Exp[I (a - I \[Eta]) (\[Epsilon] - C1 (1/(1 - I C2 \[Epsilon]) + 1/(1 + I C2 \[Epsilon])))]; Integrate[b, {\[Epsilon], -Infinity, \[Epsilon]F}, Assumptions -> {a \[Element] Reals, \[Eta] \[Element] Reals, C1 \[Element] Reals, C2 \[Element] Reals}]

在尝试求解把vk/vkdig这样的变上限积分携带自变量代入到微分方程中求解时，发现它的计算速度非常的慢。请问该怎么优化呢？

k = 1.38/10^23; r = 8.314; model = c*Exp[-(eV1/(k*t))] + a*(1 - Exp[-(eV1/(k*t))])*Exp[-(eV2/(r*t))]; data = {{298, 74.9}, {278, 39.7}, {258, 26.8}, {238, 11.1}, {218,7.}, {198, 3.}, {178, 1.8}, {158, 1.1}, {138, 0.7}}; nlm = NonlinearModelFit[data, model, {c, a, eV1, eV2}, t]; Show[ListPlot[data], Plot[nlm[t], {t, 130, 300}] 代码和图片如上，要拟合的model中指数上方有常数k，有没有k的拟合结果是一样的，但是拟合的方程发生了变化 TraditionalForm[model = nlm[t]] 有k时，结果(98268.67366331698*(1 - E^(-7.246376811594202*^22/t)))/E^(2145.3785836139396/t

请问各位大佬，mathematica在数值求解微分方程时需要根据求解的量，分成四个方程来求解：使用分段函数会报错： 在第一个参数 {<<3895220256 bytes>>} 中应该使用方程或者方程列表，而不是 \ Piecewise[<<3895218928 bytes>> (*机架势能求解：每当换腿一次，机架的势能就要改一次*) Subscript[m, w] = 0.730; Subscript[F, T] = 0.8; \[CapitalDelta]t = 0.001; (*0-90°时前左腿*) Subscript[y, G01] = Subscript[r, 1]*Sin[Subscript[\[Theta], 1][t]] + Subscript[r, 2]*Sin[Subscript[\[Theta], ql2]] + Subscrip

考虑到此类问题和“Mathematica已经装好了，但不能用”即“Mathematica一开始就不能用”有一定区别，特开专帖讨论。今后此类问题原则上请不要单开主题。 这里的“不能用”，包括不限于 1. Mathematica突然无法正常打开 2. Mathematica突然变得无法正常工作（1+1也算不了等） 3. Mathematica突然在执行正确的代码时出现莫名其妙的警告。 如果你的“Mathematica一开始就不能用”，请看置顶。 闲话少叙，说一说可能的修复方法： 此类问题似乎和Mathematica的Paclet更新不

wholedata = {{0, 394, 372, 11.02`}, {28, 394, 372, 12.7`}, {56, 394, 372, 14.56`}, {84, 394, 372, 6.17`}, {112, 394, 372, 17.25`}, {168, 394, 372, 22.59`}, {224, 394, 372, 21.63`}, {280, 394, 372, 19.34`}, {336, 394, 372, 16.12`}, {392, 394, 372, 14.11`}, {224, 0, 372, 6.39`}, {224, 49, 372, 9.48`}, {224, 98, 372, 12.46`}, {224, 147, 372, 14.33`}, {224, 196, 372, 17.1`}, {224, 294, 372, 21.94`}, {224, 394, 372, 22.64`}, {224, 489, 372, 21.34`}, {224, 587, 372, 22.07`}, {224, 685, 372, 24.53`}, {224, 394, 0, 15.75`}, {224, 394, 47, 16.76`}, {224, 394, 93, 16.89`}, {224, 394, 140, 16.24`}, {224,

请问各位前辈大佬，我有一个方程组，是由8个方程联立，但是未知数是7个，也就是8个方程构成的方程组求解7个未知量，请问用什么指令最好呢？个人试过DSolve、Nsolve、LeastSquares（最小二乘法）、Reduce以及广义逆矩阵的方法等求解，结果要么是零解，要么解不准确。但是我心里知道这个方程在虚数范围内是有解的。请问如何到底怎么求解呢？谢谢。

请问大佬 怎么用mathematica画出跳棋棋盘？

各位大佬，我求解一个简单的微分方程，在Mathematica7.0版本可以直接运算得到结果，但是在14上面，总是这样显示出问题，请问到底是怎么回事？不知道哪里出问题了。谢谢。 AAA = \!\( \*SubscriptBox[\(\[PartialD]\), \( \*SubscriptBox[\(x\), \(1\)], \*SubscriptBox[\(x\), \(1\)]\)]\((Exp[I*\((k* \*SubscriptBox[\(x\), \(1\)] - \[Omega]*t)\)]*f[ \*SubscriptBox[\(x\), \(2\)]])\)\) BBB = \!\( \*SubscriptBox[\(\[PartialD]\), \( \*SubscriptBox[\(x\), \(2\)], \*SubscriptBox[\(x\), \(2\)]\)]\((Exp[I*\((k* \*SubscriptBox[\(x\), \(1\)] - \[Omega]*t)

有人遇到过这种问题，程序运行后，在重新打开，所有的代码前面都会添加上"In[1] / Out[1]"之类的字样，而且所有的Cell会合并成一个Cell。如图所示：第一张第二张分别是运行后，和关闭重新打开后的

症状： 顶楼中的 [ 和 ] 会被自动转换为 [lbk] 和 [rbk]。此现象在回复帖中不存在。 影响范围： 此bug至少在去年10月16日即已出现，至今（安卓12.58.1.0）未修。IPhone受影响情况不明，欢迎实验补充。 对策： 对于提问者，最简单的对策就是改用电脑访问贴吧网页版，不要使用使用手机客户端发帖。如果确有相关需求（所以说你们到底为什么会有这种需求？电脑没连网？那也可以开手机热点啊，访问网页又花不了什么流量），避免在顶楼张贴代码也是一个

和Maple对照很明显，而且用Simplify也无法化简了

如题。自编规则当然也不难，不过这里我想知道的是，能不能用Simplify，TrigExpand一类的化简型指令来得到这个结果。试了半天没试出来……是正好不支持这个化简呢，还是我没有找到？是我漏了什么重要假设吗？（我试验过的假设只有d属于Reals……）

ArcTan[cos[170 D]/(cos[170 D] + 8/3 sin[40 D] sin[80 D])] 怎么得结果 ？