Re: Quick way to return the boundaries of an inequality?
- To: mathgroup at smc.vnet.net
- Subject: [mg111945] Re: Quick way to return the boundaries of an inequality?
- From: Themis Matsoukas <tmatsoukas at me.com>
- Date: Fri, 20 Aug 2010 07:07:33 -0400 (EDT)
Perhaps not the most elegant solution but should work if \[Theta] is always bounded on both sides:
PickBounds[a_] := Module[
{b, c},
b = If[Depth[a] == 3, a, {a}];
c = Table[Apply[List, b[[i]]], {i, 1, Length[b]}];
Delete[c, Table[{i, 2}, {i, 1, Length[b]}]]
]
PickBounds[1.0848 <= \[Theta] <= 1.18296 || 3.64861 <= \[Theta] <= 3.70078]
{{1.0848, 1.18296}, {3.64861, 3.70078}}
PickBounds[1.0848 <= \[Theta] <= 1.18296]
{{1.0848, 1.18296}}
Themis