2
$\begingroup$

I have an expression as follows:

(ro*(RF + Rpi) + RC*(RF + ro + Rpi))/(RC + ro)

Now I would like to simplify it more to something like this:

RF + Rpi + (ro*RC)/(ro + RC)

I tried to use FullSimplify function but it doesn't work. Could anyone tell me how to do this? Thank you.

PS: I fixed a mistake.

$\endgroup$
5
  • $\begingroup$ But they are not the same. ClearAll[ro, RF, Rpi, RC, Rpi]; expr = (ro*(RF + Rpi) + RC*(RF + ro + Rpi))/(RC + ro); want = ro + Rpi + (ro*RC)/(ro + RC); Simplify[expr - want] gives RF - ro So the two expressions are not mathematically equivalent? $\endgroup$
    – Nasser
    Aug 3, 2016 at 17:58
  • $\begingroup$ Sorry, my mistake. The second expression is RF + Rpi + (ro*RC)/(ro + RC). $\endgroup$
    – emnha
    Aug 3, 2016 at 18:05
  • 1
    $\begingroup$ I do not know of direct way to do it. But you can do it using special code ofcourse. But what is the point? If they are mathematically equivalent, what is important about one form vs. the other? Mathematica is for computation, not for typesetting. Many simplifications work, but few expressions are hard to obtain as one wants by default. To get the expression to be in exactly the same form one wants, it is not always easy and I think it is not worth spending too much time on it, as long as the expressions are equivalent. In this case, one way to get what you want is .... $\endgroup$
    – Nasser
    Aug 3, 2016 at 18:34
  • $\begingroup$ ClearAll[ro, RF, Rpi, RC, Rpi]; expr = (ro*(RF + Rpi) + RC*(RF + ro + Rpi))/(RC + ro); t0 = Apart[expr]; t1 = Apart[t0[[1]]]; (Simplify[t1[[1]] + t1[[3]]]) + t1[[2]] + Last@t0 which gives !Mathematica graphics $\endgroup$
    – Nasser
    Aug 3, 2016 at 18:34
  • $\begingroup$ @Nasser Not disagreeing with the gist of your comment, I do think there are situations where such algebraic manipulations come in handy. Partial fractions for one. One can see the partial structure, discard certain terms and use the rest. $\endgroup$
    – BoLe
    Aug 3, 2016 at 19:02

2 Answers 2

4
$\begingroup$
expr = (ro*(RF + Rpi) + RC*(RF + ro + Rpi))/(RC + ro);

You can manually fashion specific parts. Check full form at any time if you're unsure.

expr // FullForm

(* expand the numerator *)
expand = MapAt[Expand, expr, 2]

(* collect terms in a certain way *) 
collect = MapAt[Collect[#, {RF, Rpi}] &, expand, 2]

(* divide each term separately *)
Apply[Plus, collect /. x_ y_ :> x List @@ y]

RF + (RC ro)/(RC + ro) + Rpi

$\endgroup$
1
$\begingroup$

Try this:

 expr = (ro*(RF + Rpi) + RC*(RF + ro + Rpi))/(RC + ro);

(expr /. {RF -> x - Rpi, RC -> y - ro} // Simplify) /. {x -> RF + Rpi,
   y -> RC + ro}

(*  RF + ro - ro^2/(RC + ro) + Rpi  *)

Have fun!

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.