1
$\begingroup$

I got the error message 'Reduce::nsmet: This system cannot be solved with the methods available to Reduce.'

Here is my code

neweqns = {Sin[a] + Sin[a - b] + Sin[a - c] == 0 && 
 Sin[a - b] == Sin[b] + Sin[b - c] && Sin[a] + Sin[c] == Sin[b] && 
 Sin[a - c] + Sin[b - c] == Sin[c]}

result = Reduce[neweqns && 0 <= a <= 2 π && 0 <= b <= 2 π && 
   0 <= c <= 2 π, {a, b, c}, Reals]

Could anyone help? Thank you!

$\endgroup$
10
  • $\begingroup$ You should explain what you are going to achive, what the symbols are inteded to describe and you shouldn't use illegible (for the most of users) signs. 'Text...' doesn't seem to generate problems and so it is a bad idea to include it into your code, it should be a minimal example instead. $\endgroup$
    – Artes
    Feb 10, 2022 at 11:51
  • $\begingroup$ @Artes Yes, thank you. I just edited the code. I hope it looks more straightforward now. $\endgroup$
    – M.K
    Feb 10, 2022 at 11:57
  • $\begingroup$ Notation [something] is incorrect without the head of a function. The system includes 4 equations and only 3 unknown variables and so it is an overdetermined system. Although there are solutions, they are easy to guess. $\endgroup$
    – Artes
    Feb 10, 2022 at 14:04
  • $\begingroup$ You cannot use function brackets ([ ]) in place of parentheses (( )). Then use TrigExpand on neweqns. $\endgroup$
    – Bob Hanlon
    Feb 10, 2022 at 14:15
  • $\begingroup$ @BobHanlon I don't understand. which [] brackets, the one in Reduce? Thank you! $\endgroup$
    – M.K
    Feb 10, 2022 at 14:52

1 Answer 1

5
$\begingroup$

Let us expand sines of differences, then Reduce can crack it.

newesteqns =  Sin[a] + Sin[a]*Cos[b] - Cos[a]*Sin[b] + Sin[a]*Cos[c] - 
Cos[a]*Sin[c] == 0 &&  Sin[a]*Cos[b] - Cos[a]*Sin[b] == 
Sin[b] + Sin[b]*Cos[c] - Cos[a]*Sin[c] &&  Sin[a] + Sin[c] == Sin[b] &&  
Sin[a]*Cos[c] - Cos[a]*Sin[c] + Sin[b]*Cos[c] - Cos[b]*Sin[c] == 
Sin[c];
result = Reduce[newesteqns && 0 <= a <= 2 \[Pi] && 0 <= b <= 2 \[Pi] && 
0 <= c <= 2 \[Pi], {a, b, c}, Reals]

a == \[Pi] && ((b == 0 && (c == 0 || c == \[Pi] || c == 2 \[Pi])) || (b == \[Pi] && (c == 0 || c == \[Pi] || c == 2 \[Pi])) || (b == 2 \[Pi] && (c == 0 || c == \[Pi] || c == 2 \[Pi])))) || (b == 0 && ((a == 0 && (c == 0 || c == \[Pi] || c == 2 \[Pi])) || (a == 2 \[Pi] && (c == 0 || c == \[Pi] || c == 2 \[Pi])))) || (b == \[Pi] && ((a == 0 && (c == 0 || c == \[Pi] || c == 2 \[Pi])) || (a == 2 \[Pi] && (c == 0 || c == \[Pi] || c == 2 \[Pi])))) || (b == 2 \[Pi] && ((a == 0 && (c == 0 || c == \[Pi] || c == 2 \[Pi])) || (a == 2 \[Pi] && (c == 0 || c == \[Pi] || c == 2 \[Pi]))))

$\endgroup$
2
  • 1
    $\begingroup$ you can also use TrigExpand to do the expansion: Reduce[And @@ TrigExpand@neweqns && 0 <= a <= 2 \[Pi] && 0 <= b <= 2 \[Pi] && 0 <= c <= 2 \[Pi], {a, b, c}, Reals] (+1) $\endgroup$
    – kglr
    Feb 10, 2022 at 14:08
  • $\begingroup$ @kglr: Thank you for your valuable comment. $\endgroup$
    – user64494
    Feb 10, 2022 at 14:41

Your Answer

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

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