如何在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);