Turn symbolic eq1 into eq2 using patterns?

Questions
, ,
1

QQ图片20181031133406.png
QQ图片20181031133406.png602×133 2.88 KB

eq1 = Derivative[1][H][t] == 
  H[t] (-\[Mu] B[t] - Subscript[d, e] + (
     Subscript[r, 
      e] (H[t] (Subscript[d, e] - Subscript[r, e]) + 
        Subscript[K1, e] Subscript[r, e] + 
        L[t] Subscript[k, e] (-Subscript[d, e] + Subscript[r, e])))/(
     Subscript[K1, e] Subscript[r, e] + 
      L[t] Subscript[k, e] (-Subscript[d, e] + Subscript[r, e])))

eq2 = Derivative[1][H][t] == 
  H[t] (-\[Mu] B[t] - Subscript[d, e] + Subscript[r, e] + (
     Subscript[r, e] H[t] (Subscript[d, e] - Subscript[r, e]))/(
     Subscript[K1, e] Subscript[r, e] + 
      L[t] Subscript[k, e] (-Subscript[d, e] + Subscript[r, e])))
2

This is a way:

eq1 /.
  a_/b_ :> Subscript[r, e] + Factor[a/b - Subscript[r, e]] /.
 
 a_/b_ :> a/Collect[b, L[t]]
3

This way is to use pattern?

4

Yes, it uses patterns.

5

Thanks for your help.