Reducing system of 10 inequalities











up vote
1
down vote

favorite












I have the following system of inequalities of real variables



sys = 0.383706 x1 + 0.720204 x2 + 1.4568 x3 - 0.000244875 y >   0 && -0.0941312 x1 - 0.176681 x2 - 0.357383 x3 + 0.0000592689 y >   0 && 1.41819 x1 + 3.079 x2 + 2.53801 x3 - 0.00182772 y >   0 && -0.00258971 x1 - 0.00562247 x2 - 0.00463458 x3 +    3.93843*10^-6 y > 0 &&  0.129511 x1 + 0.214698 x2 + 0.286739 x3 - 0.0000795243 y >   0 && -0.660462 x1 - 1.09489 x2 - 1.46227 x3 + 0.000405426 y > 0 &&  0.351966 x1 + 3.44019 x2 + 7.59863 x3 + 0.00257072 y >   0 && -0.00265509 x1 - 0.0259514 x2 - 0.0573209 x3 -    0.0000199557 y > 0 &&  1.34471 x1 + 2.58639 x2 + 3.39561 x3 + 0.0000742173 y >   0 && -0.0314846 x1 - 0.0605571 x2 - 0.079504 x3 - 1.69328*10^-6 y >   0


I want to Reduce the system in order to see if it admits solutions or not. However, the command Reduce takes too much time and gets stuck. How can you check if this system admits solutions?



I have tried with FindInstance[sys,{x1,x2,x3,y},Reals] which returns {}. However, I am not sure this is a fully proof that the system does not admit solution. Indeed, If I run the command on a subsystem of inequalities I experience the following behaviour



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals]

(* {} *)


but If I ask for more instances, Mathematica found the points



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals, 2]

(*{{x1 -> -33., x2 -> 13.5619, x3 -> 1.98727, y -> 0.255564}, {x1 -> -51., x2 -> 20.9595, x3 -> 3.07117, y -> 0.601467}}*)


So, the subsystem [[1;;4]] admits at least a solution. I have run FindInstance[sys, {x1, x2, x3, y}, Reals, 2] for all the night and got the output {}. Still, is this a proof that the system does not admits solution?






equation-solving inequalities findinstance







share|improve this question


















  • 1




    Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
    – kglr
    yesterday






  • 1




    and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
    – kglr
    yesterday















up vote
1
down vote

favorite












I have the following system of inequalities of real variables



sys = 0.383706 x1 + 0.720204 x2 + 1.4568 x3 - 0.000244875 y >   0 && -0.0941312 x1 - 0.176681 x2 - 0.357383 x3 + 0.0000592689 y >   0 && 1.41819 x1 + 3.079 x2 + 2.53801 x3 - 0.00182772 y >   0 && -0.00258971 x1 - 0.00562247 x2 - 0.00463458 x3 +    3.93843*10^-6 y > 0 &&  0.129511 x1 + 0.214698 x2 + 0.286739 x3 - 0.0000795243 y >   0 && -0.660462 x1 - 1.09489 x2 - 1.46227 x3 + 0.000405426 y > 0 &&  0.351966 x1 + 3.44019 x2 + 7.59863 x3 + 0.00257072 y >   0 && -0.00265509 x1 - 0.0259514 x2 - 0.0573209 x3 -    0.0000199557 y > 0 &&  1.34471 x1 + 2.58639 x2 + 3.39561 x3 + 0.0000742173 y >   0 && -0.0314846 x1 - 0.0605571 x2 - 0.079504 x3 - 1.69328*10^-6 y >   0


I want to Reduce the system in order to see if it admits solutions or not. However, the command Reduce takes too much time and gets stuck. How can you check if this system admits solutions?



I have tried with FindInstance[sys,{x1,x2,x3,y},Reals] which returns {}. However, I am not sure this is a fully proof that the system does not admit solution. Indeed, If I run the command on a subsystem of inequalities I experience the following behaviour



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals]

(* {} *)


but If I ask for more instances, Mathematica found the points



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals, 2]

(*{{x1 -> -33., x2 -> 13.5619, x3 -> 1.98727, y -> 0.255564}, {x1 -> -51., x2 -> 20.9595, x3 -> 3.07117, y -> 0.601467}}*)


So, the subsystem [[1;;4]] admits at least a solution. I have run FindInstance[sys, {x1, x2, x3, y}, Reals, 2] for all the night and got the output {}. Still, is this a proof that the system does not admits solution?






equation-solving inequalities findinstance







share|improve this question


















  • 1




    Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
    – kglr
    yesterday






  • 1




    and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
    – kglr
    yesterday













up vote
1
down vote

favorite









up vote
1
down vote

favorite











I have the following system of inequalities of real variables



sys = 0.383706 x1 + 0.720204 x2 + 1.4568 x3 - 0.000244875 y >   0 && -0.0941312 x1 - 0.176681 x2 - 0.357383 x3 + 0.0000592689 y >   0 && 1.41819 x1 + 3.079 x2 + 2.53801 x3 - 0.00182772 y >   0 && -0.00258971 x1 - 0.00562247 x2 - 0.00463458 x3 +    3.93843*10^-6 y > 0 &&  0.129511 x1 + 0.214698 x2 + 0.286739 x3 - 0.0000795243 y >   0 && -0.660462 x1 - 1.09489 x2 - 1.46227 x3 + 0.000405426 y > 0 &&  0.351966 x1 + 3.44019 x2 + 7.59863 x3 + 0.00257072 y >   0 && -0.00265509 x1 - 0.0259514 x2 - 0.0573209 x3 -    0.0000199557 y > 0 &&  1.34471 x1 + 2.58639 x2 + 3.39561 x3 + 0.0000742173 y >   0 && -0.0314846 x1 - 0.0605571 x2 - 0.079504 x3 - 1.69328*10^-6 y >   0


I want to Reduce the system in order to see if it admits solutions or not. However, the command Reduce takes too much time and gets stuck. How can you check if this system admits solutions?



I have tried with FindInstance[sys,{x1,x2,x3,y},Reals] which returns {}. However, I am not sure this is a fully proof that the system does not admit solution. Indeed, If I run the command on a subsystem of inequalities I experience the following behaviour



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals]

(* {} *)


but If I ask for more instances, Mathematica found the points



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals, 2]

(*{{x1 -> -33., x2 -> 13.5619, x3 -> 1.98727, y -> 0.255564}, {x1 -> -51., x2 -> 20.9595, x3 -> 3.07117, y -> 0.601467}}*)


So, the subsystem [[1;;4]] admits at least a solution. I have run FindInstance[sys, {x1, x2, x3, y}, Reals, 2] for all the night and got the output {}. Still, is this a proof that the system does not admits solution?






equation-solving inequalities findinstance







share|improve this question













I have the following system of inequalities of real variables



sys = 0.383706 x1 + 0.720204 x2 + 1.4568 x3 - 0.000244875 y >   0 && -0.0941312 x1 - 0.176681 x2 - 0.357383 x3 + 0.0000592689 y >   0 && 1.41819 x1 + 3.079 x2 + 2.53801 x3 - 0.00182772 y >   0 && -0.00258971 x1 - 0.00562247 x2 - 0.00463458 x3 +    3.93843*10^-6 y > 0 &&  0.129511 x1 + 0.214698 x2 + 0.286739 x3 - 0.0000795243 y >   0 && -0.660462 x1 - 1.09489 x2 - 1.46227 x3 + 0.000405426 y > 0 &&  0.351966 x1 + 3.44019 x2 + 7.59863 x3 + 0.00257072 y >   0 && -0.00265509 x1 - 0.0259514 x2 - 0.0573209 x3 -    0.0000199557 y > 0 &&  1.34471 x1 + 2.58639 x2 + 3.39561 x3 + 0.0000742173 y >   0 && -0.0314846 x1 - 0.0605571 x2 - 0.079504 x3 - 1.69328*10^-6 y >   0


I want to Reduce the system in order to see if it admits solutions or not. However, the command Reduce takes too much time and gets stuck. How can you check if this system admits solutions?



I have tried with FindInstance[sys,{x1,x2,x3,y},Reals] which returns {}. However, I am not sure this is a fully proof that the system does not admit solution. Indeed, If I run the command on a subsystem of inequalities I experience the following behaviour



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals]

(* {} *)


but If I ask for more instances, Mathematica found the points



FindInstance[sys[[1 ;; 4]], {x1, x2, x3, y}, Reals, 2]

(*{{x1 -> -33., x2 -> 13.5619, x3 -> 1.98727, y -> 0.255564}, {x1 -> -51., x2 -> 20.9595, x3 -> 3.07117, y -> 0.601467}}*)


So, the subsystem [[1;;4]] admits at least a solution. I have run FindInstance[sys, {x1, x2, x3, y}, Reals, 2] for all the night and got the output {}. Still, is this a proof that the system does not admits solution?






equation-solving inequalities findinstance




equation-solving inequalities findinstance






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked yesterday









apt45

506211




506211








  • 1




    Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
    – kglr
    yesterday






  • 1




    and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
    – kglr
    yesterday














  • 1




    Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
    – kglr
    yesterday






  • 1




    and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
    – kglr
    yesterday








1




1




Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
– kglr
yesterday




Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] gives False.
– kglr
yesterday




1




1




and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
– kglr
yesterday




and RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) gives EmptyRegion[4].
– kglr
yesterday










1 Answer
1






active

oldest

votes

















up vote
3
down vote



accepted










Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] // RepeatedTiming



{0.24878, False}




RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) // 

   RepeatedTiming



{0.0152, EmptyRegion[4]}







share|improve this answer





















    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',
    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%2f186279%2freducing-system-of-10-inequalities%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    3
    down vote



    accepted










    Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] // RepeatedTiming



    {0.24878, False}




    RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) // 
    
   RepeatedTiming



    {0.0152, EmptyRegion[4]}







    share|improve this answer

























      up vote
      3
      down vote



      accepted










      Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] // RepeatedTiming



      {0.24878, False}




      RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) // 
      
   RepeatedTiming



      {0.0152, EmptyRegion[4]}







      share|improve this answer























        up vote
        3
        down vote



        accepted







        up vote
        3
        down vote



        accepted






        Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] // RepeatedTiming



        {0.24878, False}




        RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) // 
        
   RepeatedTiming



        {0.0152, EmptyRegion[4]}







        share|improve this answer












        Reduce[Rationalize[sys, 2^-12], {x1, x2, x3, y}, Reals] // RepeatedTiming



        {0.24878, False}




        RegionIntersection @@ (ImplicitRegion[#, {x1, x2, x3, y}] & /@ (List @@ sys)) // 
        
   RepeatedTiming



        {0.0152, EmptyRegion[4]}








        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered yesterday









        kglr

        171k8194399




        171k8194399






























             

            draft saved


            draft discarded



















































             


            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f186279%2freducing-system-of-10-inequalities%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

            'app-layout' is not a known element: how to share Component with different Modules

            Image
            0 My application was working fine until I decided to go with lazy loading: So, my shared component looks like this: import { Component, Renderer2 } from '@angular/core'; export interface FormModel { captcha?: string; } @Component({ selector: 'app-layout', templateUrl: './app-layout.component.html', styleUrls: ['./app-layout.css'] }) export class FullLayoutComponent { } app-layout.component.ts I am using this component in my Another component say school-home.component.html like this: <app-layout> </app-layout> and it was working fine until I created a Module school-home.module.ts like this: import { NgModule } from '@angular/core'; import { CommonModule } from '@angular/common'; import { SchoolhomeRoutingModule
            Read more

            android studio warns about leanback feature tag usage required on manifest while using Unity exported app?

            Image
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 This is a simple project showing cubes on Unity, exported to android project and imported on Android studio. On maifest file it showed following warning: Expecting <uses-feature android:name="android.software.leanback" android:required="false" /> tag I have no information about it. And also on default emptyview android project does not use/mention this feature. I know it is required by TV's and such but why its not added by default? Why is this? And Should I concern about it? android unity3d
            Read more

            SQL update select statement

            Image
            0 I'm trying to update an entry in my database (postgresql). I'm having a problem with updating the query: INSERT INTO prices (price, product_id) SELECT product_price, commn_id FROM products_temp as prod WHERE NOT EXISTS (SELECT * FROM prices od WHERE prod.commn_id = od.product_id) OR prod.product_price != ( SELECT price FROM prices as p WHERE p.product_id = prod.commn_id order by p.end desc LIMIT 1 ) Query works fine when i delete: OR prod.product_price != ( SELECT price FROM prices as p WHERE p.product_id = prod.commn_id order by p.end desc LIMIT 1 ) So it seems to me that it's looping through this operation. My question is, how can I fix it? sql postgresql
            Read more