3
$\begingroup$

Is there a way to derive an simplified expression from other equations. Or create an alternate form such that the main equation takes other equations and manipulates the main function. Here is what I have. enter image description here

Subscript[ω, h] = Sqrt[Subscript[k, h]/m];
Subscript[ω, α] = Sqrt[Subscript[k, α]/Subscript[
  I, α]];
μ = m/(π*ρ*b^2);
Subscript[r, a] = Sqrt[Subscript[I, α]/(m*b^2)];
Subscript[x, α] = Subscript[S, α]/(m*b);
Subscript[E, 1] = (m + π*ρ*b^2)*z + 
Subscript[k, h]*w + (Subscript[S, α] - π*ρ*b^3*a)*
n + π*ρ*b^2*V*o + 
2*π*ρ*b*V*c (y + V*t + b*(1/2 - a)*o)
Improve this question
$\endgroup$
7
  • 7
    $\begingroup$ Please, have respect and copy-paste the code. $\endgroup$
    – m0nhawk
    Commented May 16, 2020 at 1:44
  • 1
    $\begingroup$ Code has been added. $\endgroup$
    – Aeroelasticity
    Commented May 16, 2020 at 2:36
  • 1
    $\begingroup$ Can you describe an example simplification of E1 that you would like to see in terms of your five previous equations? If so then sometimes Simplify[complicatedexpr, var==someexpr] will sometimes be able to find someexpr in complicatedexpr and replace that with var, for example. $\endgroup$
    – Bill
    Commented May 16, 2020 at 2:38
  • $\begingroup$ A 2D aerofoil utilizing the Theodrosen Theory to find the static divergence speed. The Simplify command did not work. I've done it by hand but there could be further simplification and I have more equations which need to be simplified that are much longer and since $\endgroup$
    – Aeroelasticity
    Commented May 16, 2020 at 2:45
  • $\begingroup$ If you can provide a much more concrete specific example, something like: Given this equation in Mathematica notation it should be able to make this specific simplification by replacing this with that, then perhaps someone can ask for more details and possibly give you a method of showing you how to get where you want to go. $\endgroup$
    – Bill
    Commented May 16, 2020 at 6:00

1 Answer 1

Reset to default
8
$\begingroup$

I presume that you wish to eliminate some variables in the last expression in terms of variables defined in the other expressions. Let me begin with two pieces of advice:

  • Do not use subscripted variables. They may look nice, but they can cause problems.
  • Simplification is in the eye of the beholder. Mathematica's idea of simplification, based on LeafCount, may not agree with the user's.

On this basis, rewrite the expressions as equations, named for convenience

eq1 = ωh^2 == kh/m;
eq3 = μ == m/(π*ρ*b^2);
eq5 = xα == Sα/(m*b);
eq6 = E1 == (m + π*ρ*b^2)*z + kh*w + (Sα - π*ρ*b^3*a)*n + π*ρ*b^2*V*o + 
    2*π*ρ*b*V*c (y + V*t + b*(1/2 - a)*o);

eliminate what I presume are the unwanted variables, and simplify the result.

FullSimplify[Eliminate[{eq1, eq3, eq5, eq6}, {ρ, kh, Sα}], b != 0 && m != 0]

(* E1 μ == m ((1 + c) o V - a (b n + 2 c o V) + (2 c V (t V + y))/b + 
            z + μ (b n xα + z + w ωh^2)) *)

If this is not completely simplified in the way you have in mind, you may need to play around with the code a bit, but this should give you some idea of how to proceed. Good luck.

Improve this answer
$\endgroup$
1

Your Answer

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

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