Possible bug in Solve function?












11














In 11.3.0 for Microsoft Windows (64-bit) (March 7, 2018) writing:



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)



eqn = {D[f[w, x, y, z], w] == 0, 

       D[f[w, x, y, z], x] == 0, 

       D[f[w, x, y, z], y] == 0, 

       D[f[w, x, y, z], z] == 0};



sol = Solve[eqn];



Table[eqn /. sol[[n]], {n, Length[sol]}]


I get:




{{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True}}




from which there are four wrong solutions.



Am I wrong or is it a Solve bug?






equation-solving bugs







share|improve this question






















  • You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
    – Szabolcs
    yesterday










  • Select[sol, And @@ eqn /. # &]
    – Bob Hanlon
    yesterday






  • 2




    Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
    – J. M. is computer-less♦
    yesterday
















11














In 11.3.0 for Microsoft Windows (64-bit) (March 7, 2018) writing:



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)



eqn = {D[f[w, x, y, z], w] == 0, 

       D[f[w, x, y, z], x] == 0, 

       D[f[w, x, y, z], y] == 0, 

       D[f[w, x, y, z], z] == 0};



sol = Solve[eqn];



Table[eqn /. sol[[n]], {n, Length[sol]}]


I get:




{{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True}}




from which there are four wrong solutions.



Am I wrong or is it a Solve bug?






equation-solving bugs







share|improve this question






















  • You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
    – Szabolcs
    yesterday










  • Select[sol, And @@ eqn /. # &]
    – Bob Hanlon
    yesterday






  • 2




    Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
    – J. M. is computer-less♦
    yesterday














11












11








11


1





In 11.3.0 for Microsoft Windows (64-bit) (March 7, 2018) writing:



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)



eqn = {D[f[w, x, y, z], w] == 0, 

       D[f[w, x, y, z], x] == 0, 

       D[f[w, x, y, z], y] == 0, 

       D[f[w, x, y, z], z] == 0};



sol = Solve[eqn];



Table[eqn /. sol[[n]], {n, Length[sol]}]


I get:




{{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True}}




from which there are four wrong solutions.



Am I wrong or is it a Solve bug?






equation-solving bugs







share|improve this question













In 11.3.0 for Microsoft Windows (64-bit) (March 7, 2018) writing:



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)



eqn = {D[f[w, x, y, z], w] == 0, 

       D[f[w, x, y, z], x] == 0, 

       D[f[w, x, y, z], y] == 0, 

       D[f[w, x, y, z], z] == 0};



sol = Solve[eqn];



Table[eqn /. sol[[n]], {n, Length[sol]}]


I get:




{{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True},
{False, True, True, False},
{True, True, True, True},
{True, True, True, True}}




from which there are four wrong solutions.



Am I wrong or is it a Solve bug?






equation-solving bugs




equation-solving bugs






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked yesterday









TeM

1,970621




1,970621












  • You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
    – Szabolcs
    yesterday










  • Select[sol, And @@ eqn /. # &]
    – Bob Hanlon
    yesterday






  • 2




    Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
    – J. M. is computer-less♦
    yesterday


















  • You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
    – Szabolcs
    yesterday










  • Select[sol, And @@ eqn /. # &]
    – Bob Hanlon
    yesterday






  • 2




    Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
    – J. M. is computer-less♦
    yesterday
















You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
– Szabolcs
yesterday




You could use List@ToRules@Reduce[eqn, {x, y, z, w}] to get all valid solutions. Filter for those that only have numeric values on the RHS of ->.
– Szabolcs
yesterday












Select[sol, And @@ eqn /. # &]
– Bob Hanlon
yesterday




Select[sol, And @@ eqn /. # &]
– Bob Hanlon
yesterday




2




2




Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
– J. M. is computer-less♦
yesterday




Next time, please do not add the bugs tag yourself on a question. The tag is only supposed to be added after your observations have been confirmed by other users.
– J. M. is computer-less♦
yesterday










2 Answers
2






active

oldest

votes


















5














Thanks for asking! In version 9.0 only 16 solutions are returned and they are all valid. In version 10.2 there are 20 solutions, with the extra 4 all being invalid. Contragulations! I think you found a bug. You may want to click "Help", then "Give Feedback...", and then fill out the form in your browser to report.



As another answer notes, you can always try Reduce instead which may give better results in some cases, but Solve is usually what you want.






share|improve this answer























  • Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
    – TeM
    yesterday






  • 1




    @TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
    – Szabolcs
    yesterday










  • @Szabolcs: Could you direct me where I can do it correctly?
    – TeM
    yesterday






  • 3




    @TeM wolfram.com/support/contact
    – Szabolcs
    yesterday



















4














You can use Reduce



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)

eqn = {D[f[w, x, y, z], w] == 0, D[f[w, x, y, z], x] == 0, 

   D[f[w, x, y, z], y] == 0, D[f[w, x, y, z], z] == 0};

red = Reduce[eqn, Backsubstitution -> True]



$left(z=0land x=0land w=-sqrt{1-y^2}right)lor left(z=0land x=0land w=sqrt{1-y^2}right)lor left(z=0land y=0land
w=-sqrt{1-x^2}right)lor left(z=0land y=0land w=sqrt{1-x^2}right)lor (z=0land y=-1land x=0land w=0)lor (z=0land y=0land x=0land
w=-1)lor (z=0land y=0land x=0land w=1)lor (z=0land y=1land x=0land w=0)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land
x=-frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)\
lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)$




First@eqn //. {ToRules[red]}



{True, True, True, True, True, True, True, True, True, True, True,
True, True, True, True, True}







share|improve this answer





















  • Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
    – TeM
    yesterday






  • 3




    I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
    – Okkes Dulgerci
    yesterday











Your Answer





StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f188900%2fpossible-bug-in-solve-function%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























2 Answers
2






active

oldest

votes








2 Answers
2






active

oldest

votes









active

oldest

votes






active

oldest

votes









5














Thanks for asking! In version 9.0 only 16 solutions are returned and they are all valid. In version 10.2 there are 20 solutions, with the extra 4 all being invalid. Contragulations! I think you found a bug. You may want to click "Help", then "Give Feedback...", and then fill out the form in your browser to report.



As another answer notes, you can always try Reduce instead which may give better results in some cases, but Solve is usually what you want.






share|improve this answer























  • Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
    – TeM
    yesterday






  • 1




    @TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
    – Szabolcs
    yesterday










  • @Szabolcs: Could you direct me where I can do it correctly?
    – TeM
    yesterday






  • 3




    @TeM wolfram.com/support/contact
    – Szabolcs
    yesterday
















5














Thanks for asking! In version 9.0 only 16 solutions are returned and they are all valid. In version 10.2 there are 20 solutions, with the extra 4 all being invalid. Contragulations! I think you found a bug. You may want to click "Help", then "Give Feedback...", and then fill out the form in your browser to report.



As another answer notes, you can always try Reduce instead which may give better results in some cases, but Solve is usually what you want.






share|improve this answer























  • Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
    – TeM
    yesterday






  • 1




    @TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
    – Szabolcs
    yesterday










  • @Szabolcs: Could you direct me where I can do it correctly?
    – TeM
    yesterday






  • 3




    @TeM wolfram.com/support/contact
    – Szabolcs
    yesterday














5












5








5






Thanks for asking! In version 9.0 only 16 solutions are returned and they are all valid. In version 10.2 there are 20 solutions, with the extra 4 all being invalid. Contragulations! I think you found a bug. You may want to click "Help", then "Give Feedback...", and then fill out the form in your browser to report.



As another answer notes, you can always try Reduce instead which may give better results in some cases, but Solve is usually what you want.






share|improve this answer














Thanks for asking! In version 9.0 only 16 solutions are returned and they are all valid. In version 10.2 there are 20 solutions, with the extra 4 all being invalid. Contragulations! I think you found a bug. You may want to click "Help", then "Give Feedback...", and then fill out the form in your browser to report.



As another answer notes, you can always try Reduce instead which may give better results in some cases, but Solve is usually what you want.







share|improve this answer














share|improve this answer



share|improve this answer








edited yesterday

























answered yesterday









Somos

3628




3628












  • Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
    – TeM
    yesterday






  • 1




    @TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
    – Szabolcs
    yesterday










  • @Szabolcs: Could you direct me where I can do it correctly?
    – TeM
    yesterday






  • 3




    @TeM wolfram.com/support/contact
    – Szabolcs
    yesterday


















  • Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
    – TeM
    yesterday






  • 1




    @TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
    – Szabolcs
    yesterday










  • @Szabolcs: Could you direct me where I can do it correctly?
    – TeM
    yesterday






  • 3




    @TeM wolfram.com/support/contact
    – Szabolcs
    yesterday
















Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
– TeM
yesterday




Well, it will mean that the next version will be the first calculation I will perform. Thank you! ^_^
– TeM
yesterday




1




1




@TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
– Szabolcs
yesterday




@TeM You should report it to Wolfram first, otherwise there's no chance for it to get fixed.
– Szabolcs
yesterday












@Szabolcs: Could you direct me where I can do it correctly?
– TeM
yesterday




@Szabolcs: Could you direct me where I can do it correctly?
– TeM
yesterday




3




3




@TeM wolfram.com/support/contact
– Szabolcs
yesterday




@TeM wolfram.com/support/contact
– Szabolcs
yesterday











4














You can use Reduce



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)

eqn = {D[f[w, x, y, z], w] == 0, D[f[w, x, y, z], x] == 0, 

   D[f[w, x, y, z], y] == 0, D[f[w, x, y, z], z] == 0};

red = Reduce[eqn, Backsubstitution -> True]



$left(z=0land x=0land w=-sqrt{1-y^2}right)lor left(z=0land x=0land w=sqrt{1-y^2}right)lor left(z=0land y=0land
w=-sqrt{1-x^2}right)lor left(z=0land y=0land w=sqrt{1-x^2}right)lor (z=0land y=-1land x=0land w=0)lor (z=0land y=0land x=0land
w=-1)lor (z=0land y=0land x=0land w=1)lor (z=0land y=1land x=0land w=0)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land
x=-frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)\
lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)$




First@eqn //. {ToRules[red]}



{True, True, True, True, True, True, True, True, True, True, True,
True, True, True, True, True}







share|improve this answer





















  • Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
    – TeM
    yesterday






  • 3




    I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
    – Okkes Dulgerci
    yesterday
















4














You can use Reduce



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)

eqn = {D[f[w, x, y, z], w] == 0, D[f[w, x, y, z], x] == 0, 

   D[f[w, x, y, z], y] == 0, D[f[w, x, y, z], z] == 0};

red = Reduce[eqn, Backsubstitution -> True]



$left(z=0land x=0land w=-sqrt{1-y^2}right)lor left(z=0land x=0land w=sqrt{1-y^2}right)lor left(z=0land y=0land
w=-sqrt{1-x^2}right)lor left(z=0land y=0land w=sqrt{1-x^2}right)lor (z=0land y=-1land x=0land w=0)lor (z=0land y=0land x=0land
w=-1)lor (z=0land y=0land x=0land w=1)lor (z=0land y=1land x=0land w=0)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land
x=-frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)\
lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)$




First@eqn //. {ToRules[red]}



{True, True, True, True, True, True, True, True, True, True, True,
True, True, True, True, True}







share|improve this answer





















  • Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
    – TeM
    yesterday






  • 3




    I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
    – Okkes Dulgerci
    yesterday














4












4








4






You can use Reduce



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)

eqn = {D[f[w, x, y, z], w] == 0, D[f[w, x, y, z], x] == 0, 

   D[f[w, x, y, z], y] == 0, D[f[w, x, y, z], z] == 0};

red = Reduce[eqn, Backsubstitution -> True]



$left(z=0land x=0land w=-sqrt{1-y^2}right)lor left(z=0land x=0land w=sqrt{1-y^2}right)lor left(z=0land y=0land
w=-sqrt{1-x^2}right)lor left(z=0land y=0land w=sqrt{1-x^2}right)lor (z=0land y=-1land x=0land w=0)lor (z=0land y=0land x=0land
w=-1)lor (z=0land y=0land x=0land w=1)lor (z=0land y=1land x=0land w=0)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land
x=-frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)\
lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)$




First@eqn //. {ToRules[red]}



{True, True, True, True, True, True, True, True, True, True, True,
True, True, True, True, True}







share|improve this answer












You can use Reduce



f[w_, x_, y_, z_] := w*x^2*y^3 - z*(w^2 + x^2 + y^2 - 1)

eqn = {D[f[w, x, y, z], w] == 0, D[f[w, x, y, z], x] == 0, 

   D[f[w, x, y, z], y] == 0, D[f[w, x, y, z], z] == 0};

red = Reduce[eqn, Backsubstitution -> True]



$left(z=0land x=0land w=-sqrt{1-y^2}right)lor left(z=0land x=0land w=sqrt{1-y^2}right)lor left(z=0land y=0land
w=-sqrt{1-x^2}right)lor left(z=0land y=0land w=sqrt{1-x^2}right)lor (z=0land y=-1land x=0land w=0)lor (z=0land y=0land x=0land
w=-1)lor (z=0land y=0land x=0land w=1)lor (z=0land y=1land x=0land w=0)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land
x=-frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=-frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=-frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land
w=-frac{1}{sqrt{6}}right)lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=-frac{1}{sqrt{3}}land
w=frac{1}{sqrt{6}}right)\
lor left(z=frac{1}{4 sqrt{3}}land y=frac{1}{sqrt{2}}land x=frac{1}{sqrt{3}}land w=frac{1}{sqrt{6}}right)$




First@eqn //. {ToRules[red]}



{True, True, True, True, True, True, True, True, True, True, True,
True, True, True, True, True}








share|improve this answer












share|improve this answer



share|improve this answer










answered yesterday









Okkes Dulgerci

4,1851816




4,1851816












  • Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
    – TeM
    yesterday






  • 3




    I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
    – Okkes Dulgerci
    yesterday


















  • Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
    – TeM
    yesterday






  • 3




    I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
    – Okkes Dulgerci
    yesterday
















Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
– TeM
yesterday




Yes, of course, I had already tried. I was almost certain it was a bug from Solve, so I pointed out. Thank you very much anyway, always very kind!
– TeM
yesterday




3




3




I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
– Okkes Dulgerci
yesterday




I believe Solve use the function Reduce under the hood. when you remove Backsubstitution -> True, you'll find implicit solution, somehow Solve messes up somewhere and it is definitely a bug..
– Okkes Dulgerci
yesterday


















draft saved

draft discarded




















































Thanks for contributing an answer to Mathematica Stack Exchange!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


Use MathJax to format equations. MathJax reference.


To learn more, see our tips on writing great answers.





Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


Please pay close attention to the following guidance:


  • Please be sure to answer the question. Provide details and share your research!

But avoid …



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f188900%2fpossible-bug-in-solve-function%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







-

Popular posts from this blog

An IMO inspired problem

Image
14 4 This problem from IMO 1988 is said to be one of the most elegant ones in functional equations. Problem : The function $f$ is defined on the set of all positive integers as follows: begin{align} f(1) = 1, f(3) &= 3, f(2n) = f(n), \ f(4n+1) &= 2f(2n+1) - f(n), \ f(4n+3) &= 3 f(2n+1) - 2f(n) end{align} Find the number of $n$ with $f(n) = n, 1 leq n leq 1988$. The main idea towards the solution is realizing that these conditions stand for the fact that $f(n)$ just reverses the digits in the binary representation of the number $n$. So, essentially the solution is finding the number of binary pallindromes $leq 1988_{10}$. My question is the following : How to reformulate the problem so that $f(n)$ reverses the digits of $n$ in its ternary representation. Or even better, can we reformulate it for a
Read more

Management

Image
Management From Wikipedia, the free encyclopedia Jump to navigation Jump to search "Manager" redirects here. For other uses, see Management (disambiguation) and Manager (disambiguation). An organization chart for the United States Coast Guard shows the hierarchy of managerial roles in that organization. Business administration Management of a business Accounting Management accounting Financial accounting Financial audit Business entities Cooperative Corporation Limited liability company Partnership Sole proprietorship State-owned enterprise Corporate governance Annual general meeting Board of directors Supervisory board Advisory board Audit committee Corporate law Commercial law Constitutional documents Contract Corporate crime Corporate liability Insolvency law International trade law Mergers and acquisitions Economics Commodity Pu
Read more

Has there ever been an instance of an active nuclear power plant within or near a war zone?

Image
36 3 The question Has there ever been a military combat going on around an active (running or in outage but not decommissioned) commercial nuclear power plant? Or dangerously near it? If yes, how did the plant and its personnel fare in such situation? Why I ask Let's assume for the scope of this question modern commercial nuclear power plants (CANDU, PWR, BWR of generation II plus all of gen III and newer) are usually reasonably safe to operate given that the engineering has been done right and there is a whole cohort of very well trained personnel on-site at all times, well rested and with considerable resources on their hands. Things hard to get with an armed conflict like the recent Syrian war raging around. I can't seem to find any reference or a comprehensive article about this, hence this question.
Read more