0
$\begingroup$

I want to solve the inequality but I can't type it in Mathematica and always get an error. It's too complicated for me.

enter image description here

Please help me to solve it.

$\endgroup$

closed as off-topic by Feyre, corey979, MarcoB, bbgodfrey, Sascha Jan 20 '17 at 6:53

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Feyre, corey979, MarcoB, bbgodfrey, Sascha
If this question can be reworded to fit the rules in the help center, please edit the question.

  • $\begingroup$ @Feyre I have tried many structures to write it but I'm not able to write it $\endgroup$ – S.H.W Jan 19 '17 at 11:29
3
$\begingroup$

Make a function f[n] returning True if the inequality holds, and False if not:

f[n_] := n - 1 + (n - 1)/4 Sum[Csc[(i - 2) Pi/(n - 1)], {i, 3, n}] < 
  n/4 Sum[Csc[(i - 1) Pi/n], {i, 2, n}]

E.g. f[5] returns False.

n = 3;
While[! f[n], n++]
n

12

i.e. f[11] === False, but f[12] === True.

$\endgroup$
  • $\begingroup$ Fantastic! Thank you $\endgroup$ – S.H.W Jan 19 '17 at 11:48

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