0
$\begingroup$

I am trying to simplify the following expression

$$\frac{\text{C3B} \times \text{R2B} \times s \times \sqrt{\frac{\text{R5B} \times(\text{R1B}+\text{R2B})}{\text{R1B} \times \text{R2B}}}}{\sqrt{\text{C3B} \times \text{C4B}} \times\sqrt{\text{R1B}+\text{R2B}} \times \sqrt{\text{C3B} \times \text{C4B} \times \text{R1B} \times \text{R2B} \times\text{R5B}}}$$

This is supposed to simply simplify to

$$\frac{1}{\text{R1B} \times \text{C4B}} s$$

How can I do it? I think Mathematica is assuming that the variables can be complex or real and negative, but they are real and positive. How can I force Mathematica to do this simplification? Thank you!

EDIT:

Workable code example

i=2;
components = {"R1", "R2", "C3", "C4", "R5"};
components = StringInsert[components, ToString[ToUpperCase[FromLetterNumber[i]]], -1];
components = ToExpression[components];
Ksymbolic = components[[5]]/components[[1]]*(1 + components[[4]]/components[[3]])^-1;
wpsymbolic = Sqrt[components[[1]] + components[[2]]]/ Sqrt[components[[1]]*components[[2]]*components[[3]]*components[[4]]*components[[5]]];
Qpsymbolic = Sqrt[components[[3]]*components[[4]]]/(components[[3]] + components[[4]])*Sqrt[components[[5]]/components[[1]] + components[[5]]/components[[2]]];
numTSectionSymbolic = Assuming[components > 0, Simplify[Ksymbolic*wpsymbolic/Qpsymbolic*s]];
Improve this question
$\endgroup$
5
  • 1
    $\begingroup$ Please post the Mathematica code. $\endgroup$
    – cvgmt
    Jun 20 at 10:49
  • $\begingroup$ You need assumptions to simplify further: Simplify[ ...,{R1B>0,R2B>0}] $\endgroup$
    – Ulrich Neumann
    Jun 20 at 11:22
  • $\begingroup$ @cvgmt I have posted a workable example code, thank you $\endgroup$
    – Granger Obliviate
    Jun 20 at 11:44
  • $\begingroup$ @UlrichNeumann yes I am trying to do something like that, but failing. I have posted a workable example. $\endgroup$
    – Granger Obliviate
    Jun 20 at 11:45
  • 2
    $\begingroup$ Thread[components > 0] $\endgroup$
    – cvgmt
    Jun 20 at 12:24

2 Answers 2

Reset to default
2
$\begingroup$

Mathematica doesn't understand components>0!

Change the last line of your code to

Simplify[Ksymbolic*wpsymbolic/Qpsymbolic*s, Map[# > 0 &, components]]
(*s/(C4B R1B)*)
Improve this answer
$\endgroup$
1
  • $\begingroup$ Excellent, thank you! I still struggle from lack of practice on using that "Map" command, but I have seen as a solution to many problems I have faced in the past. $\endgroup$
    – Granger Obliviate
    Jun 20 at 12:20
1
$\begingroup$

You can also do

PowerExpand[Simplify[Ksymbolic*wpsymbolic/Qpsymbolic*s]]
Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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