Re: inequations

• To: mathgroup at smc.vnet.net
• Subject: [mg62847] Re: inequations
• From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
• Date: Tue, 6 Dec 2005 23:10:17 -0500 (EST)
• Organization: The Open University, Milton Keynes, UK
• References: <dn368i\$2ri\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Norbe wrote:
> Can somebody help me with this Inequation?
>
> (( 2*Sin [a] ) / (3*Pi / 4 ) -a ) +1 -d  >= 0
>
> I need solve for a, but i can't found any function or easy form for solve.
>
>
> Thank
>
Hi,

An obvious choice would be the function *Reduce*, unfortunately it fails
to solve the inequality:

In[1]:=
expr = ((2*Sin[a])/(3*(Pi/4)) - a) + 1 - d;

In[2]:=
Reduce[expr >= 0, a]

Reduce::nsmet: This system cannot be solved with the methods available
to Reduce. More...

Out[2]=
Reduce[1 - a - d + (8*Sin[a])/(3*Pi) >= 0, a]

Therefore, you might be on your own to find a general formula. Studying
some particular cases by giving some values to the parameter d and
plating the graph of the functions f(a) = 1 - a - d + (8*Sin[a])/(3*Pi)
and y = d should help visualizing what's going on (f{a} is decreasing on
R and we are interested in the intersection point of f(a) and the
horizontal straight line y = d. Then, the required value of a are on the
left of the graph). You could try

In[3]:=
Plot[{expr /. d -> 1, 1}, {a, -10, 10}];

or the following one that gives a family of intersecting curves and
their intersection points:

In[4]:=
Needs["Graphics`Graphics`"]
Plot[Evaluate[Table[{expr /. d -> n, n}, {n, -5, 5}]], {a, -10, 10},
PlotStyle -> {{Red}, {Blue, Dashing[{0.015}]}}, ImageSize -> 500,
Frame -> True, FrameTicks -> {UnitScale[-3*Pi, 3*Pi, 8/(3*Pi)],
Automatic, None, None}, Axes -> None,
Epilog -> {PointSize[0.015], Point /@
Table[{a /. FindRoot[expr == n /. d -> n, {a, -n}], n},
{n, -5, 5}]}];

Hope this helps,
/J.M.

```

• Prev by Date: Re: Re: Types in Mathematica thread
• Next by Date: Re: Re: Re: Re: Re: Types in Mathematica thread