# Force this expression to be simplified

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[]/components[]*(1 + components[]/components[])^-1;
wpsymbolic = Sqrt[components[] + components[]]/ Sqrt[components[]*components[]*components[]*components[]*components[]];
Qpsymbolic = Sqrt[components[]*components[]]/(components[] + components[])*Sqrt[components[]/components[] + components[]/components[]];
numTSectionSymbolic = Assuming[components > 0, Simplify[Ksymbolic*wpsymbolic/Qpsymbolic*s]];

• Please post the Mathematica code. Jun 20 at 10:49
• You need assumptions to simplify further: Simplify[ ...,{R1B>0,R2B>0}] Jun 20 at 11:22
• @cvgmt I have posted a workable example code, thank you Jun 20 at 11:44
• @UlrichNeumann yes I am trying to do something like that, but failing. I have posted a workable example. Jun 20 at 11:45
• Thread[components > 0] Jun 20 at 12:24

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)*)

• 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. Jun 20 at 12:20

You can also do

PowerExpand[Simplify[Ksymbolic*wpsymbolic/Qpsymbolic*s]]