2

Basically I want to reduce something like:

Subscript[P, 4] - Subscript[P, 5] == Subscript[R, 4, 5]* Subscript[i, 4, 5]

when only one of them is known (Subscript[R, 4, 5] == 1), so that Mathematica expresses the simplified form as:

Subscript[i, 4, 5] + Subscript[P, 5] - Subscript[P, 4] == 0
István Zachar
  • 47,032
  • 20
  • 143
  • 291
TehHO
  • 109
  • 1
  • 5

1 Answers1

1

I think you are looking for Replace:

p4 - p5 == r45 i45 /. r45 -> 1
(* p4 - p5 == i45 *)

% /. lhs_ == rhs__ -> rhs - lhs == 0
(* i45 + p5 - p4 == 0 *)
djp
  • 1,493
  • 14
  • 18