如何在wxMaxima中获得预期的结果

Question

这个问题看起来很简单，但我不知道如何得到解决方案

在wxMaxima中输入

xt:xm-w/2;
z:w/(xmax-xmin+2*ma);
xa:xt/z;
x:xa+xmax/2+xmin/2;

expand(x);
              -(xm*xmin)/w + xmin + (xm*xmax)/w + (2*ma*xm)/w - ma

这是可以的，但我们可以更深一层地简化。

由我自己简化

x =  -(xm*xmin)/w + xmin + (xm*xmax)/w + (2*ma*xm)/w - ma
x = xm/w * (xmax-xmin + 2*ma) + xmin - ma
or
z = w/(xmax-xmin+2*ma)

So
x = xm/z + xmin - ma

问题：

在wxMaxima中有可能得到这样的结果吗？

x = xm/z + xmin - ma

提前感谢

克里斯蒂安

Answer 1

您可以尝试使用公式而不是变量：

(%i) remvalue(all)$
(%i) EQ1:xt=xm-w/2$
(%i) EQ2:z=w/(xmax-xmin+2*ma)$
(%i) EQ3:xa=xt/z,[EQ1,EQ2]$
(%i) EQ4:x=xa+xmax/2+xmin/2,[EQ3]$
(%i) EQ5:solve([EQ2],w)$
(%i) EQ4,[EQ5]$
(%i) expand(%);
(%o) x=xm/z+xmin-ma

为了更好地理解：

xa=xt/z,[EQ1,EQ2];

是:的缩写形式：

ev(xa=xt/z,[xt=xm-w/2,z=w/(xmax-xmin+2*ma)]);

Answer 2

与此同时，我找到了另一个解决方案。谢谢:-)

xt:xm-w/2;
z:w/(xmax-xmin+2*ma);
xa:xt/z;
x:xa+xmax/2+xmin/2;
w:solve('z=z,w)[1];
x:subst(w,x);
expand(x);