求解后简化方程

Question

我在 Maxima 中输入：

   q_d: 1000-5*p_d;
   q_s: -250+2*p_s;
   p_d: (1+t)*p_s;
   eq:q_d = q_s;
   solve(eq,p_s);
   EC: 10*q_d + 0.01 * (q_d**2);

得到结果

p_s=1250/(5*t+7)

0.01*(1000-5*p_s*(t+1))^2+10*(1000-5*p_s*(t+1))

如何仅根据 't' 进一步简化 EC？

Answer 1

解决此问题的一种方法是将您列出的所有关系表示为方程式，然后求解要消去的变量的方程式，然后您可以根据 t 得到表达式代入 EC 以仅根据 t.

获得结果

(%i2) e1: q_d = 1000-5*p_d;
(%o2)                  q_d = 1000 - 5 p_d
(%i3) e2: q_s = -250+2*p_s;
(%o3)                   q_s = 2 p_s - 250
(%i4) e3: p_d = (1+t)*p_s;
(%o4)                   p_d = p_s (t + 1)
(%i5) e4: q_d = q_s;
(%o5)                       q_d = q_s
(%i6) solns: solve ([e1, e2, e3, e4], [q_d, q_s, p_d, p_s]);
                1250 t - 750          1250 t - 750
(%o6) [[q_d = - ------------, q_s = - ------------,
                  5 t + 7               5 t + 7
                                   1250 t + 1250         1250
                             p_d = -------------, p_s = -------]]
                                      5 t + 7           5 t + 7

现在在 %o6 中，我有一个要消去的变量的方程式列表。

(%i7) EC: 10*q_d + 0.01 * (q_d**2);
                               2
(%o7)                  0.01 q_d  + 10 q_d

我将代入 EC 以获得仅 t 的结果。

(%i8) subst (solns[1], EC);
                               2
            0.01 (1250 t - 750)    10 (1250 t - 750)
(%o8)       -------------------- - -----------------
                          2             5 t + 7
                 (5 t + 7)

我将使用 ratsimp 来简化结果。

(%i9) ratsimp (%);

rat: replaced 0.01 by 1/100 = 0.01
                           2
                    46875 t  + 68750 t - 58125
(%o9)             - --------------------------
                            2
                        25 t  + 70 t + 49

求解后简化方程

Simplify equation after solving

maxima