开这帖没别的目的，就为了把十戒（http://tieba.baidu.com/p/2964416898）里的9到11条 9　没赋值的变量是蓝色的，注意这点能有效避免低级错误 10　赋过值的变量会变黑，注意这点能有效避免低级错误 11　内置函数全是黑色的，注意这点能有效避免低级错误 以一个更显眼的方式强调一遍（话说能理解上面三句的诸位可以出帖了，下面没新东西），顺便补充少许的例子。 为了便于修订，照例开了个笔记，请大家多点一下鼠标： note.youdao.com/noteshare?id=06adaac6aaf85c8

小白一枚，请问一下各位大佬们，为什么程序出现了既跑不出来又不报错的情况，而且我在中间故意改错几个它也是一点反应也没有

um=4; list=Table[ParametricPlot3D[{Cos[u]+n/2,Sin[u]+n/2,v}, {v,0,1},{u,0,um},Axes->False,Boxed->False, PlotStyle->Directive[FaceForm[Green,Texture["ABCDEFG"]]], TextureCoordinateFunction->({2#5,#4}&),Lighting->"Neutral", Mesh->None,PlotRange->All,ViewPoint->{-30,10,20}, ViewAngle->.025],{n,0,2}] Show[list[[1 ;; 3]]]

Reduce[-(( 4 (-1 + r) \[Alpha]^2 \[Beta]^2)/(-4 \[Alpha] \[Beta] + r (\[Beta] (-1 + \[Theta])^2 + \[Alpha] \[Theta]^2))^2) + ( 4 (-1 + r) \[Alpha]^2)/(-4 \[Alpha] + r (-1 + \[Theta])^2)^2 >= 0 && 0 < \[Theta] < 1 && 0 < r < 1 && 0 < \[Alpha] && 0 r < 4 \[Alpha] < 4 \[Beta] && -4 \[Alpha] \[Beta] + r (\[Beta] (-1 + \[Theta])^2 + \[Alpha] \[Theta]^2) < 0 && -4 \[Alpha] + r (-1 + \[Theta])^2 < 0, \[Theta]] // FullSimplify

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

我暂时无法将这个错误缩减为一段简单的代码, 完全的代码在二楼. 问题完全出在被命名为problem的函数上, 所以只看problem这一块就好了. problem函数计算了两个积分w0和w1, 第一个积分w1在数学上的结果是1. 尝试运行测试函数 test[1] 第一个积分结果为1, 很好, test[2] 第一个积分结果就不正确了. 但! 如果退出内核, 先运行 test[2] 第一个积分结果为1, 反而后运行的 test[1] 不正确了, 也就是只能正确计算首次接受的参数. 错误可能是Δ[index_] := Δ[index] = … 这样的“有

新手绘图时遇到个不知如何下手的问题，理论上曲线中间还有一小段圈将左右两段勾连在一起，但绘图出来后总是缺这么一小段关键部分断开，求助各位吧友，实在不知道问题出在哪里了不清楚是参数太小了精细度不足还是什么其他原因，以下是代码： b0 = 0.5; b1 = 4; b2 = 0.05; b3 = 0.003; x0 = 0.11; sigma = 0.002; k = 0.2; gamma = 0.2; lambda = 0.3; alpha = 0.1; beta[lbk]x_[rbk] := (b0 + b1*x/(b2 + x))*(1 - b3*E^(-(x - x0)^2/sigma)); bb[lbk]x_[rbk] := alpha*k + beta[lbk]x[rbk]*(x + k + gamma); cc[lbk]x_[rbk] :

他的帖子也跟着隐藏了，目前吧里损失不小，希望有空的朋友能一起来帮忙申诉下。具体地说，就是访问 tieba.baidu.com/pmc/feedback 然后选“账号被封禁”，把他的账号 asdasd1dsadsa 贴进去，再回车，如下图：

我用的是14.0中文版的Mathematica，在打开调试打开堆栈窗口的时候会跳出很多堆栈窗口，直到再跳出“格式化笔记本”的对话框。运气好点打开十八九个窗口后会停下来，其中只有一个窗口能显示堆栈，其它都是空白，内存也是占用了一两个G，运气不好的话停下来后直接完全退出，对文件的改动不能保存。 原来用的是14.0是注册机弄的，现在换成试用版下载安装也是这样，软件路径也确定是英文，但是软件本地的存档没有清过。这个情况常见吗？是什么

In[72]:= f = 5 - r^2 - r; ff[r_] := 5 - r^2; cf1 = Compile[{{r, _Real}}, f] cf2 = Compile[{{r, _Real}}, ff[r]] cf1[2] cf2[2] Out[74]= CompiledFunction[{11, 14., 5470}, { Blank[Real]}, {{3, 0, 0}, {3, 0, 1}}, {{5, {2, 0, 0}}}, {0, 1, 4, 0, 0}, {{46, Function[{r}, f], 3, 0, 0, 3, 0, 1}, {1}}, Function[{r}, f], Evaluate] Out[75]= CompiledFunction[{11, 14., 5470}, { Blank[Real]}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{47, ff, 3, 0, 0, 3, 0, 1}, {1}}, Function[{r}, ff[r]], Evaluate] \:6B63\:5728\:8BA1\:7B97In[72]:= CompiledFunction::cfse: 被编译表达式 5-r-r^2 应该是一个 machine-s

含有参数α和Q的二阶常微分方程：\left[1 - (1 + Q^2)(1 - x) + Q^2(1 - x)^2\right] f''(x) + \left[(1 + Q^2) - 2Q^2(1 - x)\right] f'(x) = \alpha Q^2 f(x) 有初始条件：f[0] == 1, f'[0] == α Q^2/(Q^2 - 1) 和边界条件f(1)=0 要怎么得到可以得到参数α和Q的关系啊，应该没有解析解 用gpt写一直报错

问题如图 下面是我计算的代码： DiffusionEquation={D[\[Rho][r,t],t]-d*1/r*D[D[\[Rho][r,t],r]*r,r]==0,\[Rho][r,0]==c,Piecewise[{{D[\[Rho][r,t],r]==c,r<R0},{D[\[Rho][r,t],r]==0,r>R0}}]}; DSolve[DiffusionEquation,\[Rho][r,t],{r,0,+\[Infinity]},{t,0,+\[Infinity]}] 这样的边界条件应该怎么处理？求助各位！

三次方怎么解出有效的解析解呀，难道是要简化参数了吗？好难呀，想做一下两种模式的利润比较，结果比不出来。 Manipulate[ Module[{result}, result = Simplify[-((\[Lambda] ((-2 + \[Theta]) \[Theta] + \[Beta] \ (-1 + \[Theta]) \[Xi])^2)/( 4 (\[Theta]^2 + (-1 + \[Theta]) (\[Alpha]s + \[Theta] (-1 + \ \[Alpha]d + \[Theta])) \[Lambda]))) + ( k ((-2 + \[Theta]) \[Theta] + \[Beta] (-1 + \[Theta]) \[Lambda] \ \[Xi])^2)/( 4 k (\[Alpha]s (-1 + \[Theta]) + \[Theta] - \[Alpha]d \[Theta] + \ \[Theta]^2 (-1 + \[Alpha]d + \[Theta])) - 2 \[Beta]^2 (-1 + \[Theta])^2

FullSimplify[Solve[\[Pi]mYR - \[Pi]mNR == 0, \[Lambda]]] {{\[Lambda] -> Root[-17916796875000000000 + 31250000000000000000 \[Omega] - 136643898437500000000 #1 + (-218550898945312500000 + 2187500000000000000 \[Omega]) #1^2 - 14729351792968750000 #1^3 + (121134832362753906250 - 22050000000000000000 \[Omega]) #1^4 + 351782505267375000000 #1^5 + (348916432147793125000 - 12691000000000000000 \[Omega]) #1^6 - 125878931825762500000 #1^7 + (-85747006371034312500 - 2689120000000000000 \[Omega]) #1^8 - 5676317980870600000 #1^9 + (-4448713765162793000 - 201684000000000000 \[Omega]) #1^10 + 130974452817

我运行之后他一直显示正在运行，但是不出图，想问一下代码哪里错了吗 α = 0.6; γ = 0.5; t[lbk]lbk[rbk]x_[lbk]rbk[rbk] := (1/π) Integrate[lbk]lbk[rbk](-1)^(Gamma[lbk]lbk[rbk]1 + α + 0.5 t[lbk]rbk[rbk])/(Gamma[lbk]lbk[rbk]1 + t[lbk]rbk[rbk]) Cos[lbk]lbk[rbk](1 + α + 0.5 t) π/2[lbk]rbk[rbk] x^(1 + α + 0.5 t), {t, 0, ∞}[lbk]rbk[rbk] Plot[lbk]lbk[rbk]t[lbk]lbk[rbk]x[lbk]rbk[rbk], {x, 0, 1}[lbk]rbk[rbk] 原公式是图二

如果要将动态的图像放在ppt里，要怎么做，需要保留互动按键

我把软件里面将生成的图像保存为png的形式放到word里面，然后我学长说不够清晰不能放进论文里面...

如图 定义了一个函数H（数学上复杂，不必理会），对其关于两个变量l,p画柱状图。由于柱子高度差异比较大，想用对数刻度。但是用对数刻度后，发现柱子高度从1往下增长，感觉应该从0往上增长才对。 求助各位热心吧友 找一下问题出现在哪里，非常感激，谢谢~ 代码单独粘一楼，请吧主勿删，感谢~

各位大神，想画出U0,1[Y]关于Y的函数图像，程序没报错但图出不来，请各位指教，代码及截图如下： \[CapitalGamma] = 2; \!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) = 40; \[Beta] = 0.01; \ \[CapitalLambda] = 0.8; Pe = 0.05; \[Gamma] = 0.02; \[Chi] = 0.5; Subscript[\[Kappa], 1] = 1 - Tanh[ \!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\)]/ \!\(\*OverscriptBox[\(\[Kappa]\), \(_\)]\) + \!\(\* SubsuperscriptBox[ StyleBox[ RowBox[{"\[Epsilon]", StyleBox["De", "TI"]}]], "\[Kappa]", "2"]*\(\((Cosh[3* \*OverscriptBox[\(\[Kappa]

自己写了个程序和帮助文档，从别的帮助文档复制了个单元过来，结果不仅修改不了还删除不了，查看了单元的属性，发现是不可编辑，也不知道怎么改属性，求助一下🙏

rt

URLFetch::invhttp: A library error occurred. The raw details are: "libcurl error (6): Could not resolve host: api.wolframalpha.com"

SystemOpen@Export[lbk]"S-1.xlsx", Cases[lbk]Normal@ Plot[lbk]b1/b2 - b21/b22, {\[lbk]CapitalOmega[rbk], -30, 30}, PlotRange -> {-5, 5}, PlotPoints -> 50[rbk], Line[lbk]b_[rbk] -> b, Infinity[rbk][rbk]

找了个容易验证答案的题目 查了一下自带文档，找到了新函数线积分(LineIntegrate)函数适合解决这类题 但从实际情况和帮助文档来看，貌似都不支持把隐式区域作为积分区域，只支持参数区域和一些简单的几何图形，如下 p1 = ImplicitRegion[x^2 + y^2 + z^2 == 1 && x + y + z == 1, {x, y, z}]; LineIntegrate[{y, z, x}, {x, y, z} ∈ p1] p2 = ParametricRegion[{1/3 + Cos[t]/3 - Sin[t]/Sqrt[3], 1/3 + Cos[t]/3 + Sin[t]/Sqrt[3], 1/3 - (2 Cos[t])/3}, {{t, 0, 2 Pi}}];(*和p1一样，自己代入验证*) LineIntegrate[{y, z, x}

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

特殊情况, 电脑不能联网 因此想请教, 不用联网就可以使用的 mathematica 的最高版本是哪个？

代码如下： Plot[{(3600.` 2.5`[250 - 4 (10 + e)])/( 1800 - 22.5` (1 + e)^2 (5 + 3 e) - 0.75` 4[-e^2 + (2.5` + e)^2][4800 - 9.` (1 + e)^2])}, {e, 0, 7}, PlotLegends -> "Expressions", AxesLabel -> {"e", "p1"}, LabelStyle -> Directive[15, FontFamily -> "Times New Roman", FontColor -> Black], ImageSize -> {300}]

现在是我的图生成出来了，然后我想要把最大值的坐标给他生成出来，生成成数据那样的形式，我现在只是我鼠标放在图中，它有这个坐标的位置。想问一下添加什么命令可以使得坐标生成出来。以下是我的代码：Manipulate[ Plot[{Cos[2 Pi (\[Nu]*t - x/\[Lambda]1) + 1], Cos[2 Pi (\[Nu]*t + x/\[Lambda]2)], Cos[2 Pi (\[Nu]*t - x/\[Lambda]1) + 1] + Cos[2 Pi (\[Nu]*t + x/\[Lambda]2)]}, {x, 0, 5}, PlotLegends -> "Expressions"], {t, 0, 10}, {\[Nu], 1, 10}, {\[Lambda]1, 1, 10}, {\[Lambda]2, 1, 10}]

这个关于编译（Compile）的帖子我也算构思了满久了，不过还是不敢说已经定了稿，为了便于修订并避免链接的迅速报废，这次尝试着放在了有道云笔记上，大家多点一下鼠标吧： http://note.youdao.com/share/?id=bf2a031f7d0d69064941032c7857dfd

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

我现在的动画干涉过程和效果都不太明显，想问下可以怎么去调节呢？ Clear[lbk]"Global`*"[rbk]A1 = 1; w1 = 1; \[lbk]CurlyPhi[rbk]1 = 0; k1 = 1; k2 = 1;Manipulate[lbk]Plot3D[lbk]A1*Cos[lbk]w1*t + \[lbk]CurlyPhi[rbk]1 - k1*Sqrt[lbk]x^2 + y^2[rbk][rbk] + A2*Cos[lbk]w2*t + \[lbk]CurlyPhi[rbk]2 - k2*Sqrt[lbk]x^2 + (y - 5)^2[rbk][rbk], {x, -20, 20}, {y, -20, 20}, AxesLabel -> {"x", "y", "wave1+wave2"}, Mesh -> None, ColorFunction -> "Rainbow", ColorFunctionScaling -> False, PlotPoints -> 150[rbk], {t, 0, 10}, {

吞私信标准并不明确。 网址，包括不限于qq号手机号的各类号码，过长的mathematica代码，似乎都有可能被吞。 如果确有发私信的需求，建议在发完之后补发一条“我刚发了X条私信，你是否收到了。” 另，自从百度贴吧封杀pc端私信（是的，封杀了，尽管你在pc端看到的提示是“对方不接受私信”）后我个人就再也没回答过私信中的问题；我个人也一直不喜欢非公开的mathematica讨论，希望大家尽量在吧内提问以便知识的继承。

各位大佬，，大家知道如何把带控件的交互式动态图放到PPT中吗？

Clear["Global`*"] mu = SetPrecision[5/1000, 20]; \[CapitalLambda] = SetPrecision[65/100, 20]; Gs = SetPrecision[493/100, 20]; r = SetPrecision[1/10, 20]; a0 = SetPrecision[675/100, 20]; a1 = SetPrecision[-195/100, 20]; a2 = SetPrecision[2625/1000, 20]; a3 = SetPrecision[-744/100, 20]; b3 = SetPrecision[75/100, 20]; b4 = SetPrecision[75/10, 20]; T0 = SetPrecision[27/100, 20]; b2[T_] := a0 + a1*(T0/T) + a2*(T0/T)^2 + a3*(T0/T)^3; U[\[CapitalPhi]_, \[CapitalPhi]\[CapitalPhi]_, T_] := (-(1/2)* b2[T]*\[CapitalPhi]*\[CapitalPhi]\[CapitalPhi] - (b3/ 6)*(\[CapitalPhi]^3 + \[CapitalPhi]\[Capi

像如图的常微分方程，想对图中的x(t)与复合函数i(x(t))以t为变量进行绘图，需要怎么处理呢其中i(x）与D(x)的形式都比较复杂，小白刚上手mathmatica没几天实在搞不懂，提前谢谢各位佬们阿里嘎多思密达

怎么提取网页https://www.2bt0.com/movie/1.html内的所有文本信息

关键词：Export Import Read ReadList BinaryRead BinaryReadList DumpSave 导入 导出 Excel 用户友好 CSV XLS XLSX TXT 图片 PDF EPS …… 想想还是开个帖子整理下常见的导入导出问题及技巧。为方便修订照例放在云笔记上，请大家多点几下鼠标： note.youdao.com/noteshare?id=cca8f44b56fcab28a6b9bfb394397e21 有什么意见或已经议欢迎提出，不过回帖不看帖的照例直接删。

如何算一列点的下凸包！

一起交流

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

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

为方便修订，文章放在了云笔记上，请大家多点一下鼠标。有什么意见或建议欢迎提出： http://note.youdao.com/noteshare?id=a9c14381c11b44ad47980c44c200

请问这种可以显示子单元的符号是怎么跳出来的

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