Упрощающие константы

Question

В приведенных ниже выражений, х является переменной и , б, с, к не определены константы. Есть ли функция для упростить константы в Maxima?

Примеры,

• х^2 - 2a + B + C становится х^2 + K
• 2^х + A/B + C^2 стать 2^х + к

Answer 1

Для этого нет определенной функции, но я думаю, что вы можете создать что-то через freeof. Например .:

(%i12) merge_constants (expr, var, newconst) := 
     block ([freeof_var : sublist (args (expr), lambda ([e1], freeof (var, e1)))], 
      expr - apply ("+", freeof_var) + newconst) $ 
(%i13) merge_constants (x^2 - 2*a + b + c, x, k); 
            2 
(%o13)        x + k 
(%i14) merge_constants (2^x + a/b + c^2, x, k); 
            x 
(%o14)        2 + k 
(%i15) merge_constants (sin(u) + u*cos(v) + v^2 + tan(w), u, m); 
(%o15)      u cos(v) + sin(u) + m 

Эта функция merge_constants просто первая попытка. Я уверен, что есть способы улучшить его. Например. верните значение freeof_var, чтобы увидеть, что было заменено на newconst. В любом случае, я надеюсь, что это полезно.