图一是需要修改什么格式才能变成类似图二这种吗

然后是第一个的输入文本 Subscript[\[Pi], 2] = ( a^2 (-1 + b \[Theta] \[Lambda])^2 - 4 m (-2 + b^2 \[Lambda]^2)^2 + (-1 + b \[Lambda]) (Subscript[c, 1] + Subscript[c, 2]) (-2 a (-1 + b \[Theta] \[Lambda]) + (-1 + b \[Lambda]) Subscript[c, 1] + (-1 + b \[Lambda]) Subscript[c, 2]))/(4 (-2 + b^2 \[Lambda]^2)^2) 最后画图的输入文本是 Manipulate[ Plot[Subscript[\[Pi], 2], {b, 0, 1}, PlotRange -> {{0, 1}, {-10, 10}}], {\[Lambda], 0, 1}] 系统提示没有错误，然后运行出来没有图像，麻烦伙伴们给看看是哪里出问题了

r[g_, h_] = If[#1 == 0, g[##2], h[#0[#1 - 1, ##2], #1 - 1, ##2]] &; r[1 &, #1 (#2 + 1) &][5] 请问下这行代码的递归是如何实现的呀，还有#1，#2有两个变量不是应该给出两个值吗？为什么最后那里只给出一个值【5】就可以了

请问有大佬可以发个安装包吗

求大神指教，为什么第一步求出各变量的值后，带到第二个式子出不来G的结果呢，是我写的有问题么 代码如下 Simplify[Solve[{P2g == (m y (-1 - a P1a - P1d + r w1 - r w2 + a y))/( 2 (-2 - 2 m + 2 a y - b y + 2 a m y)), P1d == ( k (-2 + 2 a y - b y + m (-1 + r w2 + b (P2g - y) + a y)) (4 - 4 a y + 2 b y - m (-4 + 3 a y - 2 b y + y^2)))/( m (2 m r^2 + k (-8 + 8 a y - 4 b y + m (-8 + a^2 + 6 a y - 4 b y + y^2)))), P1a == -(( k (a - y) (-2 + 2 a y - b y + m (-1 + r w2 + b (P2g - y) + a y)))/( 2 m r^2 + k (-8 + 8 a y - 4 b y + m (-8 + a^2 + 6 a y - 4 b y + y^2))

这个吧是不是人有点少啊

大概意思是这样Plot[4 (a b t2 - t1 t2 (r + t2)) (b^2 t2 + a^2 (-r + t2) + a r (r + t2) - b r (r + t2) - 6 t1 t2 (r + t2) + a b (r + 4 t2)), {r, 0, 1}], {a, 0, 1}, {b, 0, 1}, {t1, 0, 1}, {t2, 0, 1}, {a^2 (r - t2) + b^2 (r - t2) + 8 t1 t2 (r + t2) -2 a b (r + 3 t2) < 0}]

大家有mathmatica12.0的教程吗?我只有4版本的教程，感觉太老了，你们是怎么学习mathmatica的呢

mathematica可以用@ # &等符号来简化表达式，有没有哪个命令可以把包含简化符号表达式按全名进行还原的。新手，看简化符号实在是费劲。如果能还原，看起来可能更便于理解。

最好不是度娘盘

solve函数怎么会出现超过1024深度递归呢？？只是想要右图的结果求助各位，谢谢大家！

有没有安装包发一下啊,百度网盘就算了. 官网的下载链接我进不去啊

求助大佬： 用plot画出图后，纵坐标的数值太少了看不到接下来的图形，怎么调整纵坐标啊！！！！

a={0.014462171564145424, 0.028157568511414748, 0.5972559582618941,0.801425802710295} PutAppend[a,"1.txt"] 怎么才能让txt里出现4列 0.5214938604064148 0.6068017119071198 0.5998567213784503 0.002783846637259023 这种格式的文档。 这行代码出现的是{0.014462171564145424, 0.028157568511414748, 0.5972559582618941, 0.801425802710295}，不但第三个数换行，而且有括号 只能putappend，因为要循环输入几千次。必须列队齐无括号。因为matlab的load只能读取简单格式

求mathmatica的安装包

求救：请问这种事什么情况啊啊啊

这问题有人遇到吗，我已经搞了一天了，还是搞不好。

群里有同学会这个的吗 一个小问题求助 急急急

一个红外光谱图。我想让它的坐标轴从左到右时4000到300

模拟一个光传播过程，代码如下，请问我用matlab算的热图跟MMA算的为啥不一样啊 MMA特别难看，见附图 Clear["Global`*"] SetDirectory[NotebookDirectory[]] "C:\\Users\\Tiny\\Desktop\\Mei_波导NLSE" c = 3 10^8; (*Generate time axis*) N1 = 2^12; \[ScriptCapitalS][x_] := Join[Take[x, -(Length[x]/2)], Take[x, Length[x]/2]]; tw = 50 10^-12; fs = 10^-15; ps = 10^-12; mm = 1 10^-3; nm = 10^-9; um = 10^-6; dt = tw/N1 // N; t = Table[x, {x, -N1/2 dt, (N1/2 - 1) dt, dt}]; (*Generate frequency axis*) \[Omega] = (2 \[Pi])/tw Table[x, {x, -(N1/2), N1/2 - 1

图片1是我所要求解的方程组，包含初始条件和编辑条件。想得到它的求解结果及图像，但是运行过程没有结果也没有报错，图像是空白。有没有大神指点一下！！

如题，我想解下面这个方程中的r，其中，t的范围是{1,3,5.......39}，我想解出每一个t对应的r（就是t=1时r是

R1 = 20; theta = 0; h = 9; phase3d = Table[{r*Cos[fai], r*Sin[fai], (R1*fai)/(2 \[Pi]) - R1 Tan[theta \[Pi]/180]}, {fai, \[Pi], 2 \[Pi], \[P

试过用Densityplot画2D隐函数没问题，但是3D的为啥就不行了，求指教，代码贴下面： m = -1; \[Lambda] = 0.785; k =

用mathematica求函数在定义域下的值域怎么求

在这个网站中有 破解器，我就是到里面下载的 蓝羽乐享 http://www.lanur.cn

一个变量已经被清除了，难道还有别的什么属性吗

mathmatica11，破解版

找到一个，但是一直运行不出来是为什么

利用内置函数Hankeltransform计算含有Bessel函数的表达式，没有结果。只是把式子重新输出而已，请问是mathmatica本身计算能力还不够吗？

新手求教，我想编辑一个函数，自动算出0-1,1-2,2-3.。。。。99-100区间内y=e^x的积分数值，编程该怎么弄？

初学者求教关于mathmatica求定积分的问题，如下图所示，为什么积分结果当中还是含有变量x，是积分结果错了么?请各位大佬不吝赐教

我的MathID是6239-65886-41110，能帮我算出 Activation Key和password吗

求助各位大神：Solve解方程组求得未知数（x,y），为什么计算x+y还是得到x+y而不是一个数呢？

有没有哪位有mathematica软件安装包？邮箱2449351763@qq.com

最近在画图，很简单，用Plot命令来画。但是在细节上需要添加一些文字，设置下文字大小，数字输出格式

这个在mathmatica里定义这个函数该怎么输入式子?