Inverting the order of a Table - Prime numbers












1














In a previous post I asked for the possibility to have a binary image of the coprimality inside the natural numbers. The following code



     TableForm[
table = Table[Boole[CoprimeQ[m, n]], {m, 13}, {n, 13}],
TableHeadings -> {Range[13], Range[13]}]


together with



     table == Table[Boole[GCD[m, n] == 1], {m, 13}, {n, 13}]

(* True *)

ArrayPlot[table, FrameTicks -> {Range[13], Range[13]}]


provides the following the result



enter image description here



Unfortunately, I need a plot as given below.



enter image description here



The problem is that the vertical axis should go from 1 to 13 and not vice versa. Any idea or tip?










share|improve this question


















  • 1




    Reverse.....?
    – Henrik Schumacher
    3 hours ago
















1














In a previous post I asked for the possibility to have a binary image of the coprimality inside the natural numbers. The following code



     TableForm[
table = Table[Boole[CoprimeQ[m, n]], {m, 13}, {n, 13}],
TableHeadings -> {Range[13], Range[13]}]


together with



     table == Table[Boole[GCD[m, n] == 1], {m, 13}, {n, 13}]

(* True *)

ArrayPlot[table, FrameTicks -> {Range[13], Range[13]}]


provides the following the result



enter image description here



Unfortunately, I need a plot as given below.



enter image description here



The problem is that the vertical axis should go from 1 to 13 and not vice versa. Any idea or tip?










share|improve this question


















  • 1




    Reverse.....?
    – Henrik Schumacher
    3 hours ago














1












1








1







In a previous post I asked for the possibility to have a binary image of the coprimality inside the natural numbers. The following code



     TableForm[
table = Table[Boole[CoprimeQ[m, n]], {m, 13}, {n, 13}],
TableHeadings -> {Range[13], Range[13]}]


together with



     table == Table[Boole[GCD[m, n] == 1], {m, 13}, {n, 13}]

(* True *)

ArrayPlot[table, FrameTicks -> {Range[13], Range[13]}]


provides the following the result



enter image description here



Unfortunately, I need a plot as given below.



enter image description here



The problem is that the vertical axis should go from 1 to 13 and not vice versa. Any idea or tip?










share|improve this question













In a previous post I asked for the possibility to have a binary image of the coprimality inside the natural numbers. The following code



     TableForm[
table = Table[Boole[CoprimeQ[m, n]], {m, 13}, {n, 13}],
TableHeadings -> {Range[13], Range[13]}]


together with



     table == Table[Boole[GCD[m, n] == 1], {m, 13}, {n, 13}]

(* True *)

ArrayPlot[table, FrameTicks -> {Range[13], Range[13]}]


provides the following the result



enter image description here



Unfortunately, I need a plot as given below.



enter image description here



The problem is that the vertical axis should go from 1 to 13 and not vice versa. Any idea or tip?







plotting table prime-numbers






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 4 hours ago









Spook82

244




244








  • 1




    Reverse.....?
    – Henrik Schumacher
    3 hours ago














  • 1




    Reverse.....?
    – Henrik Schumacher
    3 hours ago








1




1




Reverse.....?
– Henrik Schumacher
3 hours ago




Reverse.....?
– Henrik Schumacher
3 hours ago










1 Answer
1






active

oldest

votes


















3














Use the option DataReversed:



ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]}, 
DataReversed -> True, Mesh -> All]


enter image description here



table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];
ArrayPlot[table2, Frame -> True, FrameTicks -> {Range[13], Range[13]},
DataReversed -> True, Mesh -> All]


enter image description here






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',
    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%2f188655%2finverting-the-order-of-a-table-prime-numbers%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









    3














    Use the option DataReversed:



    ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]}, 
    DataReversed -> True, Mesh -> All]


    enter image description here



    table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];
    ArrayPlot[table2, Frame -> True, FrameTicks -> {Range[13], Range[13]},
    DataReversed -> True, Mesh -> All]


    enter image description here






    share|improve this answer


























      3














      Use the option DataReversed:



      ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]}, 
      DataReversed -> True, Mesh -> All]


      enter image description here



      table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];
      ArrayPlot[table2, Frame -> True, FrameTicks -> {Range[13], Range[13]},
      DataReversed -> True, Mesh -> All]


      enter image description here






      share|improve this answer
























        3












        3








        3






        Use the option DataReversed:



        ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]}, 
        DataReversed -> True, Mesh -> All]


        enter image description here



        table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];
        ArrayPlot[table2, Frame -> True, FrameTicks -> {Range[13], Range[13]},
        DataReversed -> True, Mesh -> All]


        enter image description here






        share|improve this answer












        Use the option DataReversed:



        ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]}, 
        DataReversed -> True, Mesh -> All]


        enter image description here



        table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];
        ArrayPlot[table2, Frame -> True, FrameTicks -> {Range[13], Range[13]},
        DataReversed -> True, Mesh -> All]


        enter image description here







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 4 hours ago









        kglr

        177k9198404




        177k9198404






























            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%2f188655%2finverting-the-order-of-a-table-prime-numbers%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

            404 Error Contact Form 7 ajax form submitting

            How to know if a Active Directory user can login interactively

            TypeError: fit_transform() missing 1 required positional argument: 'X'