小编Cap*_*esh的帖子

我昨天问过这个问题,但不确定我是否明确了我在寻找什么.说我有定义为两条曲线f[x_]:=...和g[x_]:=...如下所示.我想使用Mathematica来确定两条曲线的切线的横坐标交点,并分别存储每条曲线的值.也许这真是一项微不足道的任务,但我确实感谢你的帮助.我是Mathematica的中间人,但这是我无法找到其他地方的解决方案.

说我已经设置了以下功能f[a,b,c],我希望在改变积a和b

f[a_,b_,c_]:=a b c Exp[a b]

Manipulate[
Plot
[
f[a,b,c],
{c,0,1},
PlotRange->{{0,0.05},Automatic}
],
{a,0,1},
{b,0,1}
]

当我修正横坐标观察范围时,是否可以自动缩放纵坐标？您会注意到上面的代码,当变化时a,b纵坐标会自动缩放,就好像我正在查看整个范围{c,0,1}.我希望它仍然处理c从0到1,但如果我想查看该图的较小部分,例如c从0到0.05,仍然可以正确缩放垂直轴.感谢大家的帮助.

FindRoot[
 27215. - 7.27596*10^-12 x + 52300. x^2 - 9977.4 Log[1. - 1. x] == 0
 , 
 {x, 0.000001}
]

收敛到解决方案{x -> -0.0918521}但是如何让Mathematica在解决方案之前避免以下错误消息:

FindRoot::nlnum: The function value {Indeterminate} is not a list of numbers with dimensions {1} at {x} = {1.}. >>

我正在使用FindRoot来解决一些非常混乱的表达式.我有时也收到以下错误,虽然Mathematica仍然会产生答案,但我想知道是否有办法避免它:

FindRoot::lstol: The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits …

我正在使用的表达式太复杂,无法完全进入此处,但我已经包含了一个简单的示例,突出了我遇到的问题.我希望有人有足够的编程毅力来帮助我解决这个问题.让我先说一下我在编程方面几乎没有背景,但我知道Mathematica的基础知识.非常感谢任何和所有的帮助.假设我已经设置了以下功能:

X[x_] := x Log[x]
X[0] := 0
Y[y_] := y Log[y]
Y[0] := 0
Z[z_] := z Log[z]
A[x_, y_, z_] := X[x] + Y[y] + Z[z]

In[7]:= A[x, y, z]

Out[7]= x Log[x] + y Log[y] + z Log[z]

In[8]:= B[x_, y_, z_] := 
 Evaluate[A[x, y, z] - x*D[A[x, y, z], x] - y*D[A[x, y, z], y] - 
   z*D[A[x, y, z], z]]

In[9]:= B[x, y, z]

Out[9]= x Log[x] - x (1 + Log[x]) + y Log[y] - …