MMA如何按指定项进行合并

Question

Together[
   Cosh[(t Sqrt[(-Subscript[k, 22]) Subscript[m, 1] - Subscript[k, 11] 
                    Subscript[m, 2] + Sqrt[Subscript[k, 22]^2 Subscript[m, 1]^2 + 
                      2 (2 Subscript[k, 12] Subscript[k, 21] - Subscript[k, 11] 
                             Subscript[k, 22]) Subscript[m, 1] Subscript[m, 2] + 
                      Subscript[k, 11]^2 Subscript[m, 2]^2]])/
           (Sqrt[2] Sqrt[Subscript[m, 1]] Sqrt[Subscript[m, 2]])] 
       (Subscript[k, 22] Subscript[m, 1] - Subscript[k, 11] 
            Subscript[m, 2]) + 
     Cosh[(t Sqrt[(-Subscript[k, 22]) Subscript[m, 1] - 
                  Subscript[k, 11] Subscript[m, 2] + 
                  Sqrt[Subscript[k, 22]^2 Subscript[m, 1]^2 + 
                      2 (2 Subscript[k, 12] Subscript[k, 21] - Subscript[k, 11] 
                             Subscript[k, 22]) Subscript[m, 1] Subscript[m, 2] + 
                      Subscript[k, 11]^2 Subscript[m, 2]^2]])/
           (Sqrt[2] Sqrt[Subscript[m, 1]] Sqrt[Subscript[m, 2]])] 
       Sqrt[Subscript[k, 22]^2 Subscript[m, 1]^2 + 
           2 (2 Subscript[k, 12] Subscript[k, 21] - Subscript[k, 11] 
                  Subscript[k, 22]) Subscript[m, 1] Subscript[m, 2] + 
           Subscript[k, 11]^2 Subscript[m, 2]^2]]

两项的话可以可以使用Factor

但是四项的话无效了

也就是说按照Cosh[#]样式进行合并...

 

Comments

如果你不用Subscript的话这段代码贴出来后会好看很多。

Answer 1

我仿照Collect帮助中这个例子进行了尝试，Collect[%, Derivative[_][f][_], Together]，把Derivative[_][f][_]换为Cosh[_]后发现成功了

看大家还有别的好办法没有，贴出来比较交流一下...

Comments

我觉得用Collect已经是标准答案了……