Dropping list elements from nested list after evaluation The 2019 Stack Overflow Developer Survey Results Are InHow do I delete items at the same position from every sub-list within a list?Using and replacing sequential elements of a listFinding the main parent after sorting in a multiplication processDeleting certain elements from a nested listData selection by comparing elements from different sublists in a nested listSelect from nested list and dropping non matching elementsSelecting elements in nested listRemove elements from deep nested listTake a specific eigenvalue from a list in its unevaluated formEliminate empty elements from a list with a specific pattern

Slides for 30 min~1 hr Skype tenure track application interview

How come people say “Would of”?

Cooking pasta in a water boiler

Compute the product of 3 dictionaries and concatenate keys and values

Is an up-to-date browser secure on an out-of-date OS?

$EDITOR environment variable won't set

Can there be female White Walkers?

Why are there uneven bright areas in this photo of black hole?

Why doesn't shell automatically fix "useless use of cat"?

Flight paths in orbit around Ceres?

Loose spokes after only a few rides

Is bread bad for ducks?

What is the light source in the black hole images?

Dropping list elements from nested list after evaluation

The phrase "to the numbers born"?

How to display lines in a file like ls displays files in a directory?

Deal with toxic manager when you can't quit

How to support a colleague who finds meetings extremely tiring?

Correct punctuation for showing a character's confusion

What is the most efficient way to store a numeric range?

How to translate "being like"?

What is the meaning of Triage in Cybersec world?

How to notate time signature switching consistently every measure

What is this sharp, curved notch on my knife for?



Dropping list elements from nested list after evaluation



The 2019 Stack Overflow Developer Survey Results Are InHow do I delete items at the same position from every sub-list within a list?Using and replacing sequential elements of a listFinding the main parent after sorting in a multiplication processDeleting certain elements from a nested listData selection by comparing elements from different sublists in a nested listSelect from nested list and dropping non matching elementsSelecting elements in nested listRemove elements from deep nested listTake a specific eigenvalue from a list in its unevaluated formEliminate empty elements from a list with a specific pattern










3












$begingroup$


I need to create a new list from a nested list but using the evaluation as criteria to drop the elements. For example let's say that that I have the following list:



list1=1,1,-(-1)^3,x,2*x,1,1,(-1)^3,x,2*x,
 1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


and I need to eliminate the elements of list1 that the absolute value of the third element give $1$, i.d. $-(-1)^3$ and $(-1)^3$, to obtain 



 list2=1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


In this case, list1 was created with the code



For[i = 1, i < 4, i++,
 For[j = 1, j < 4, j++, 
 list1[i, j, p_] = Sort[Eigenvalues[mat[i, j, p]]];
 ] ]


I have been trying to use Select but until now I am not been able to create list2 to plot it with 



list2=ParallelTable[Select[Abs[eigval[i, j, p][[3]]], 
 Abs[#] != 1 &] , i, 1, 4, j,1,4]


I am still learning to uses cases in Mathematica so I am not sure how to do it. Do you know if there is wise way to do it? Thanks in advance.






list-manipulation filtering







share|improve this question











$endgroup$
















    3












    $begingroup$


    I need to create a new list from a nested list but using the evaluation as criteria to drop the elements. For example let's say that that I have the following list:



    list1=1,1,-(-1)^3,x,2*x,1,1,(-1)^3,x,2*x,
     1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


    and I need to eliminate the elements of list1 that the absolute value of the third element give $1$, i.d. $-(-1)^3$ and $(-1)^3$, to obtain 



     list2=1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


    In this case, list1 was created with the code



    For[i = 1, i < 4, i++,
     For[j = 1, j < 4, j++, 
     list1[i, j, p_] = Sort[Eigenvalues[mat[i, j, p]]];
     ] ]


    I have been trying to use Select but until now I am not been able to create list2 to plot it with 



    list2=ParallelTable[Select[Abs[eigval[i, j, p][[3]]], 
     Abs[#] != 1 &] , i, 1, 4, j,1,4]


    I am still learning to uses cases in Mathematica so I am not sure how to do it. Do you know if there is wise way to do it? Thanks in advance.






    list-manipulation filtering







    share|improve this question











    $endgroup$














      3












      3








      3





      $begingroup$


      I need to create a new list from a nested list but using the evaluation as criteria to drop the elements. For example let's say that that I have the following list:



      list1=1,1,-(-1)^3,x,2*x,1,1,(-1)^3,x,2*x,
       1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


      and I need to eliminate the elements of list1 that the absolute value of the third element give $1$, i.d. $-(-1)^3$ and $(-1)^3$, to obtain 



       list2=1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


      In this case, list1 was created with the code



      For[i = 1, i < 4, i++,
       For[j = 1, j < 4, j++, 
       list1[i, j, p_] = Sort[Eigenvalues[mat[i, j, p]]];
       ] ]


      I have been trying to use Select but until now I am not been able to create list2 to plot it with 



      list2=ParallelTable[Select[Abs[eigval[i, j, p][[3]]], 
       Abs[#] != 1 &] , i, 1, 4, j,1,4]


      I am still learning to uses cases in Mathematica so I am not sure how to do it. Do you know if there is wise way to do it? Thanks in advance.






      list-manipulation filtering







      share|improve this question











      $endgroup$




      I need to create a new list from a nested list but using the evaluation as criteria to drop the elements. For example let's say that that I have the following list:



      list1=1,1,-(-1)^3,x,2*x,1,1,(-1)^3,x,2*x,
       1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


      and I need to eliminate the elements of list1 that the absolute value of the third element give $1$, i.d. $-(-1)^3$ and $(-1)^3$, to obtain 



       list2=1,1,x,2*x,3*x,1,1,-x,-2*x,-3*x


      In this case, list1 was created with the code



      For[i = 1, i < 4, i++,
       For[j = 1, j < 4, j++, 
       list1[i, j, p_] = Sort[Eigenvalues[mat[i, j, p]]];
       ] ]


      I have been trying to use Select but until now I am not been able to create list2 to plot it with 



      list2=ParallelTable[Select[Abs[eigval[i, j, p][[3]]], 
       Abs[#] != 1 &] , i, 1, 4, j,1,4]


      I am still learning to uses cases in Mathematica so I am not sure how to do it. Do you know if there is wise way to do it? Thanks in advance.






      list-manipulation filtering




      list-manipulation filtering






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 5 hours ago









      Roman

      5,05011130




      5,05011130










      asked 8 hours ago









      morsmors

      666




      666




















          3 Answers
          3






          active

          oldest

          votes


















          5












          $begingroup$

          If you prefer using DeleteCases,



          list2 = DeleteCases[list1, _?(Abs[#[[3]]] == 1 &)]



          1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







          share|improve this answer









          $endgroup$




















            5












            $begingroup$

            Delete[
             list1, 
             Position[Abs[list1[[All, 3]]], 1]
             ]



            1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







            share|improve this answer









            $endgroup$




















              4












              $begingroup$

              if you want to use Select, try this 



              Select[list1,!NumberQ@#[[3]]||Abs[#[[3]]]!=1&]



              1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







              share|improve this answer









              $endgroup$













                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%2f195019%2fdropping-list-elements-from-nested-list-after-evaluation%23new-answer', 'question_page');

                );

                Post as a guest















                Required, but never shown

























                3 Answers
                3






                active

                oldest

                votes








                3 Answers
                3






                active

                oldest

                votes









                active

                oldest

                votes






                active

                oldest

                votes









                5












                $begingroup$

                If you prefer using DeleteCases,



                list2 = DeleteCases[list1, _?(Abs[#[[3]]] == 1 &)]



                1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                share|improve this answer









                $endgroup$

















                  5












                  $begingroup$

                  If you prefer using DeleteCases,



                  list2 = DeleteCases[list1, _?(Abs[#[[3]]] == 1 &)]



                  1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                  share|improve this answer









                  $endgroup$















                    5












                    5








                    5





                    $begingroup$

                    If you prefer using DeleteCases,



                    list2 = DeleteCases[list1, _?(Abs[#[[3]]] == 1 &)]



                    1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                    share|improve this answer









                    $endgroup$



                    If you prefer using DeleteCases,



                    list2 = DeleteCases[list1, _?(Abs[#[[3]]] == 1 &)]



                    1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x








                    share|improve this answer












                    share|improve this answer



                    share|improve this answer










                    answered 5 hours ago









                    RomanRoman

                    5,05011130




                    5,05011130





















                        5












                        $begingroup$

                        Delete[
                         list1, 
                         Position[Abs[list1[[All, 3]]], 1]
                         ]



                        1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                        share|improve this answer









                        $endgroup$

















                          5












                          $begingroup$

                          Delete[
                           list1, 
                           Position[Abs[list1[[All, 3]]], 1]
                           ]



                          1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                          share|improve this answer









                          $endgroup$















                            5












                            5








                            5





                            $begingroup$

                            Delete[
                             list1, 
                             Position[Abs[list1[[All, 3]]], 1]
                             ]



                            1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                            share|improve this answer









                            $endgroup$



                            Delete[
                             list1, 
                             Position[Abs[list1[[All, 3]]], 1]
                             ]



                            1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x








                            share|improve this answer












                            share|improve this answer



                            share|improve this answer










                            answered 7 hours ago









                            Henrik SchumacherHenrik Schumacher

                            59.9k582166




                            59.9k582166





















                                4












                                $begingroup$

                                if you want to use Select, try this 



                                Select[list1,!NumberQ@#[[3]]||Abs[#[[3]]]!=1&]



                                1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                                share|improve this answer









                                $endgroup$

















                                  4












                                  $begingroup$

                                  if you want to use Select, try this 



                                  Select[list1,!NumberQ@#[[3]]||Abs[#[[3]]]!=1&]



                                  1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                                  share|improve this answer









                                  $endgroup$















                                    4












                                    4








                                    4





                                    $begingroup$

                                    if you want to use Select, try this 



                                    Select[list1,!NumberQ@#[[3]]||Abs[#[[3]]]!=1&]



                                    1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x







                                    share|improve this answer









                                    $endgroup$



                                    if you want to use Select, try this 



                                    Select[list1,!NumberQ@#[[3]]||Abs[#[[3]]]!=1&]



                                    1, 1, x, 2 x, 3 x, 1, 1, -x, -2 x, -3 x








                                    share|improve this answer












                                    share|improve this answer



                                    share|improve this answer










                                    answered 7 hours ago









                                    J42161217J42161217

                                    4,378324




                                    4,378324



























                                        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.




                                        draft saved


                                        draft discarded














                                        StackExchange.ready(
                                        function ()
                                        StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f195019%2fdropping-list-elements-from-nested-list-after-evaluation%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

                                        How to create a command for the “strange m” symbol in latex? Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)How do you make your own symbol when Detexify fails?Writing bold small caps with mathpazo packageplus-minus symbol with parenthesis around the minus signGreek character in Beamer document titleHow to create dashed right arrow over symbol?Currency symbol: Turkish LiraDouble prec as a single symbol?Plus Sign Too Big; How to Call adfbullet?Is there a TeX macro for three-legged pi?How do I get my integral-like symbol to align like the integral?How to selectively substitute a letter with another symbol representing the same letterHow do I generate a less than symbol and vertical bar that are the same height?

                                        Image
                                        Why does BitLocker not use RSA? Why do people think Winterfell crypts is the safest place for women, children & old people? Why can't I add a governing law to my terms of service to avoid GDPR? tikz: drawing arrow How to renew schengen visas Unix AIX passing variable and arguments to expect and spawn Why did Bronn offer to be Tyrion Lannister's champion in trial by combat? Why not use the yoke to control yaw, as well as pitch and roll? How is an IPA symbol that lacks a name (e.g. ɲ) called? Raising a bilingual kid. When should we introduce the majority language? How to get a single big right brace? How do you cope with tons of web fonts when copying and pasting from web pages? How do I overlay a PNG over two videos (one video overlays another) in one command using FFmpeg? Cutting branch and stick it in pot? Flameskull resistant to magical piercing damage? When speaking, how do you change your mind mid-sentence? Can I take recommendation from ...
                                        Read more

                                        Category:Tremithousa Media in category "Tremithousa"Navigation menuUpload media34° 49′ 02.7″ N, 32° 26′ 37.32″ EOpenStreetMapGoogle EarthProximityramaReasonatorScholiaStatisticsWikiShootMe

                                        Image
                                        Communities in Paphos District Help Category:Tremithousa From Wikimedia Commons, the free media repository Jump to navigation Jump to search .mw-parser-output #wdinfoboxwidth:210px;font-size:95%;table-layout:fixed;padding:0.mw-parser-output #wdinfoboxcaptionmargin-left:0px;background-color:white.mw-parser-output #wdinfobox thvertical-align:top;word-wrap:break-word.mw-parser-output #wdinfobox tdword-wrap:break-word.mw-parser-output .taxontree-lcell,.mw-parser-output .wikidatainfobox-lcelltext-align:right;background-color:#cfe3ff;padding-left:0.4em;padding-right:0.4em;font-weight:bold.mw-parser-output .taxontree-fullcelltext-align:center.mw-parser-output .taxontree-hdrcelltext-align:center;background-color:#cfe3ff;padding-left:0.4em;padding-right:0.4em;font-weight:bold.mw-parser-output .taxontree-rcell.mw-parser-output .taxontree-row@media screen and (max-width:600px).mw-parser-output .wdinfo_nomobiledisplay:none;visibility:hidden;height:0.mw-parse...
                                        Read more

                                        Dokschytsy (Steed) Kwelen | NawigatsjuunBelarus: Vitebsk Region, citypopulation.de

                                        Image
                                        Fering ArtiikelSteed uun't prowins Witsebsk WitjrüsRüsPoolskWitsebsk ProwinsWitjruslunDokschytsy Distrikt (function()var node=document.getElementById("mw-dismissablenotice-anonplace");if(node)node.outerHTML="u003Cdiv class="mw-dismissable-notice"u003Eu003Cdiv class="mw-dismissable-notice-close"u003E[u003Ca tabindex="0" role="button"u003EFersteegu003C/au003E]u003C/divu003Eu003Cdiv class="mw-dismissable-notice-body"u003Eu003Cdiv id="localNotice" lang="frr" dir="ltr"u003Eu003Cdiv id="sitenotice"u003Enu003Ccenteru003Enu003Ctable class="rahmenfarbe4" style="border-style: solid; border-width: thin; width: 70%;"u003Ennu003Ctbodyu003Eu003Ctru003Enu003Ctd style="text-align:center;"u003Eu003Ca href="/wiki/Datei:Nordfriesischeflagge.svg" class="image"u003Eu003Cimg alt="Nordfriesischeflagge.svg" src="//upload.wikimedia.o...
                                        Read more