Message Boards Message Boards

GROUPS:

Turn symbolic eq1 into eq2 using patterns?

Posted 16 days ago
166 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 15 days ago

This way is to use pattern?

Yes, it uses patterns.

Posted 15 days 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