解决后简化方程

Question

在千里马我把：

   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))

如何进一步简化EC中只有“T”一词？

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