Message Boards Message Boards

GROUPS:

Turn symbolic eq1 into eq2 using patterns?

Posted 5 months ago
815 Views
|
4 Replies
|
2 Total Likes
|

enter image description here

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])))
4 Replies

This is a way:

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

 a_/b_ :> a/Collect[b, L[t]]
Posted 5 months ago

This way is to use pattern?

Yes, it uses patterns.

Posted 5 months ago

Thanks for your help.

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract