Plot values of matrixplot as well as the matrixplot itself inside Manipulate

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
4
down vote

favorite












Given a MatrixPlot inside a Manipulate, say some $M(t)$ where $M_ij$ real for all entries, is there a way to show the values of each $M_ij$ inside matrix plot whilst the Manipulate runs?






graphics matrix







share|improve this question























  • Possible duplicate mathematica.stackexchange.com/questions/9884/…
    – Okkes Dulgerci
    2 hours ago










  • Possible duplicate of ArrayPlot with cells labeled by corresponding values
    – Edmund
    1 hour ago














up vote
4
down vote

favorite












Given a MatrixPlot inside a Manipulate, say some $M(t)$ where $M_ij$ real for all entries, is there a way to show the values of each $M_ij$ inside matrix plot whilst the Manipulate runs?






graphics matrix







share|improve this question























  • Possible duplicate mathematica.stackexchange.com/questions/9884/…
    – Okkes Dulgerci
    2 hours ago










  • Possible duplicate of ArrayPlot with cells labeled by corresponding values
    – Edmund
    1 hour ago












up vote
4
down vote

favorite









up vote
4
down vote

favorite











Given a MatrixPlot inside a Manipulate, say some $M(t)$ where $M_ij$ real for all entries, is there a way to show the values of each $M_ij$ inside matrix plot whilst the Manipulate runs?






graphics matrix







share|improve this question















Given a MatrixPlot inside a Manipulate, say some $M(t)$ where $M_ij$ real for all entries, is there a way to show the values of each $M_ij$ inside matrix plot whilst the Manipulate runs?






graphics matrix




graphics matrix






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 1 hour ago









kglr

170k8193397




170k8193397










asked 3 hours ago









MKF

1314




1314











  • Possible duplicate mathematica.stackexchange.com/questions/9884/…
    – Okkes Dulgerci
    2 hours ago










  • Possible duplicate of ArrayPlot with cells labeled by corresponding values
    – Edmund
    1 hour ago
















  • Possible duplicate mathematica.stackexchange.com/questions/9884/…
    – Okkes Dulgerci
    2 hours ago










  • Possible duplicate of ArrayPlot with cells labeled by corresponding values
    – Edmund
    1 hour ago















Possible duplicate mathematica.stackexchange.com/questions/9884/…
– Okkes Dulgerci
2 hours ago




Possible duplicate mathematica.stackexchange.com/questions/9884/…
– Okkes Dulgerci
2 hours ago












Possible duplicate of ArrayPlot with cells labeled by corresponding values
– Edmund
1 hour ago




Possible duplicate of ArrayPlot with cells labeled by corresponding values
– Edmund
1 hour ago










2 Answers
2






active

oldest

votes

















up vote
2
down vote













Here is using Graphics



SeedRandom@2;
matrix = RandomInteger[10, 5, 5];
MatrixForm@matrix



$left(beginarrayccccc
8 & 4 & 5 & 4 & 7 \
4 & 0 & 1 & 0 & 4 \
3 & 7 & 3 & 0 & 2 \
7 & 8 & 7 & 9 & 3 \
6 & 2 & 3 & 8 & 9 \
endarrayright)$




data = Join @@ Reverse@Table[i, j, j, 5, i, 1, 5];
values = Flatten@matrix;
minMax = MinMax@values;
data2 = Flatten /@ Partition[Riffle[values, data], 2];

Legended[Graphics[EdgeForm[Black], 
 ColorData["DarkRainbow"][Rescale[First[#], minMax]], 
 Rectangle[Rest[#]], Black, 
 Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2], 
 BarLegend["DarkRainbow", minMax]]


enter image description here



If you want to use MatrixPlot



Overlay[MatrixPlot[matrix, PlotRangePadding -> None, 
 ImagePadding -> None], 
 Graphics[Opacity@0, Rectangle[Rest[#]], Opacity@1, Black, 
 Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2, 
 PlotRangePadding -> None]]


enter image description here






share|improve this answer



























    up vote
    2
    down vote













    Using a Slider to change the dimensions of the matrix and EventHandler to increase (left mouse click) / decrease (right mouse click) values of matrix elements:



    DynamicModule[m = ConstantArray[0, 20, 20],
     Manipulate[mat = m[[;; n, ;; n]]; 
     Dynamic@EventHandler[
     MatrixPlot[mat, Mesh -> All, ImageSize -> 1 -> 50, 
     DataReversed -> True, 
     Epilog -> Dynamic[MapIndexed[Text[Style[#, Large], Reverse@#2 - .5] &, mat, 2]]], 
     "MouseClicked", 1 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
     m[[## & @@ p]] += 1],
     "MouseClicked", 2 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
     m[[## & @@ p]] -= 1]], 
     n, 5, 2, 20, 1]]


    enter image description here



    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',
      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%2f185720%2fplot-values-of-matrixplot-as-well-as-the-matrixplot-itself-inside-manipulate%23new-answer', 'question_page');

      );

      Post as a guest

















      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes








      up vote
      2
      down vote













      Here is using Graphics



      SeedRandom@2;
      matrix = RandomInteger[10, 5, 5];
      MatrixForm@matrix



      $left(beginarrayccccc
      8 & 4 & 5 & 4 & 7 \
      4 & 0 & 1 & 0 & 4 \
      3 & 7 & 3 & 0 & 2 \
      7 & 8 & 7 & 9 & 3 \
      6 & 2 & 3 & 8 & 9 \
      endarrayright)$




      data = Join @@ Reverse@Table[i, j, j, 5, i, 1, 5];
      values = Flatten@matrix;
      minMax = MinMax@values;
      data2 = Flatten /@ Partition[Riffle[values, data], 2];

      Legended[Graphics[EdgeForm[Black], 
       ColorData["DarkRainbow"][Rescale[First[#], minMax]], 
       Rectangle[Rest[#]], Black, 
       Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2], 
       BarLegend["DarkRainbow", minMax]]


      enter image description here



      If you want to use MatrixPlot



      Overlay[MatrixPlot[matrix, PlotRangePadding -> None, 
       ImagePadding -> None], 
       Graphics[Opacity@0, Rectangle[Rest[#]], Opacity@1, Black, 
       Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2, 
       PlotRangePadding -> None]]


      enter image description here






      share|improve this answer
























        up vote
        2
        down vote













        Here is using Graphics



        SeedRandom@2;
        matrix = RandomInteger[10, 5, 5];
        MatrixForm@matrix



        $left(beginarrayccccc
        8 & 4 & 5 & 4 & 7 \
        4 & 0 & 1 & 0 & 4 \
        3 & 7 & 3 & 0 & 2 \
        7 & 8 & 7 & 9 & 3 \
        6 & 2 & 3 & 8 & 9 \
        endarrayright)$




        data = Join @@ Reverse@Table[i, j, j, 5, i, 1, 5];
        values = Flatten@matrix;
        minMax = MinMax@values;
        data2 = Flatten /@ Partition[Riffle[values, data], 2];

        Legended[Graphics[EdgeForm[Black], 
         ColorData["DarkRainbow"][Rescale[First[#], minMax]], 
         Rectangle[Rest[#]], Black, 
         Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2], 
         BarLegend["DarkRainbow", minMax]]


        enter image description here



        If you want to use MatrixPlot



        Overlay[MatrixPlot[matrix, PlotRangePadding -> None, 
         ImagePadding -> None], 
         Graphics[Opacity@0, Rectangle[Rest[#]], Opacity@1, Black, 
         Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2, 
         PlotRangePadding -> None]]


        enter image description here






        share|improve this answer






















          up vote
          2
          down vote










          up vote
          2
          down vote









          Here is using Graphics



          SeedRandom@2;
          matrix = RandomInteger[10, 5, 5];
          MatrixForm@matrix



          $left(beginarrayccccc
          8 & 4 & 5 & 4 & 7 \
          4 & 0 & 1 & 0 & 4 \
          3 & 7 & 3 & 0 & 2 \
          7 & 8 & 7 & 9 & 3 \
          6 & 2 & 3 & 8 & 9 \
          endarrayright)$




          data = Join @@ Reverse@Table[i, j, j, 5, i, 1, 5];
          values = Flatten@matrix;
          minMax = MinMax@values;
          data2 = Flatten /@ Partition[Riffle[values, data], 2];

          Legended[Graphics[EdgeForm[Black], 
           ColorData["DarkRainbow"][Rescale[First[#], minMax]], 
           Rectangle[Rest[#]], Black, 
           Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2], 
           BarLegend["DarkRainbow", minMax]]


          enter image description here



          If you want to use MatrixPlot



          Overlay[MatrixPlot[matrix, PlotRangePadding -> None, 
           ImagePadding -> None], 
           Graphics[Opacity@0, Rectangle[Rest[#]], Opacity@1, Black, 
           Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2, 
           PlotRangePadding -> None]]


          enter image description here






          share|improve this answer












          Here is using Graphics



          SeedRandom@2;
          matrix = RandomInteger[10, 5, 5];
          MatrixForm@matrix



          $left(beginarrayccccc
          8 & 4 & 5 & 4 & 7 \
          4 & 0 & 1 & 0 & 4 \
          3 & 7 & 3 & 0 & 2 \
          7 & 8 & 7 & 9 & 3 \
          6 & 2 & 3 & 8 & 9 \
          endarrayright)$




          data = Join @@ Reverse@Table[i, j, j, 5, i, 1, 5];
          values = Flatten@matrix;
          minMax = MinMax@values;
          data2 = Flatten /@ Partition[Riffle[values, data], 2];

          Legended[Graphics[EdgeForm[Black], 
           ColorData["DarkRainbow"][Rescale[First[#], minMax]], 
           Rectangle[Rest[#]], Black, 
           Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2], 
           BarLegend["DarkRainbow", minMax]]


          enter image description here



          If you want to use MatrixPlot



          Overlay[MatrixPlot[matrix, PlotRangePadding -> None, 
           ImagePadding -> None], 
           Graphics[Opacity@0, Rectangle[Rest[#]], Opacity@1, Black, 
           Text[First[#], Rest[#] + 0.5, 0.5] & /@ data2, 
           PlotRangePadding -> None]]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 2 hours ago









          Okkes Dulgerci

          3,4461716




          3,4461716




















              up vote
              2
              down vote













              Using a Slider to change the dimensions of the matrix and EventHandler to increase (left mouse click) / decrease (right mouse click) values of matrix elements:



              DynamicModule[m = ConstantArray[0, 20, 20],
               Manipulate[mat = m[[;; n, ;; n]]; 
               Dynamic@EventHandler[
               MatrixPlot[mat, Mesh -> All, ImageSize -> 1 -> 50, 
               DataReversed -> True, 
               Epilog -> Dynamic[MapIndexed[Text[Style[#, Large], Reverse@#2 - .5] &, mat, 2]]], 
               "MouseClicked", 1 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
               m[[## & @@ p]] += 1],
               "MouseClicked", 2 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
               m[[## & @@ p]] -= 1]], 
               n, 5, 2, 20, 1]]


              enter image description here



              enter image description here






              share|improve this answer


























                up vote
                2
                down vote













                Using a Slider to change the dimensions of the matrix and EventHandler to increase (left mouse click) / decrease (right mouse click) values of matrix elements:



                DynamicModule[m = ConstantArray[0, 20, 20],
                 Manipulate[mat = m[[;; n, ;; n]]; 
                 Dynamic@EventHandler[
                 MatrixPlot[mat, Mesh -> All, ImageSize -> 1 -> 50, 
                 DataReversed -> True, 
                 Epilog -> Dynamic[MapIndexed[Text[Style[#, Large], Reverse@#2 - .5] &, mat, 2]]], 
                 "MouseClicked", 1 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                 m[[## & @@ p]] += 1],
                 "MouseClicked", 2 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                 m[[## & @@ p]] -= 1]], 
                 n, 5, 2, 20, 1]]


                enter image description here



                enter image description here






                share|improve this answer
























                  up vote
                  2
                  down vote










                  up vote
                  2
                  down vote









                  Using a Slider to change the dimensions of the matrix and EventHandler to increase (left mouse click) / decrease (right mouse click) values of matrix elements:



                  DynamicModule[m = ConstantArray[0, 20, 20],
                   Manipulate[mat = m[[;; n, ;; n]]; 
                   Dynamic@EventHandler[
                   MatrixPlot[mat, Mesh -> All, ImageSize -> 1 -> 50, 
                   DataReversed -> True, 
                   Epilog -> Dynamic[MapIndexed[Text[Style[#, Large], Reverse@#2 - .5] &, mat, 2]]], 
                   "MouseClicked", 1 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                   m[[## & @@ p]] += 1],
                   "MouseClicked", 2 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                   m[[## & @@ p]] -= 1]], 
                   n, 5, 2, 20, 1]]


                  enter image description here



                  enter image description here






                  share|improve this answer














                  Using a Slider to change the dimensions of the matrix and EventHandler to increase (left mouse click) / decrease (right mouse click) values of matrix elements:



                  DynamicModule[m = ConstantArray[0, 20, 20],
                   Manipulate[mat = m[[;; n, ;; n]]; 
                   Dynamic@EventHandler[
                   MatrixPlot[mat, Mesh -> All, ImageSize -> 1 -> 50, 
                   DataReversed -> True, 
                   Epilog -> Dynamic[MapIndexed[Text[Style[#, Large], Reverse@#2 - .5] &, mat, 2]]], 
                   "MouseClicked", 1 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                   m[[## & @@ p]] += 1],
                   "MouseClicked", 2 :> With[p = Reverse @ Ceiling @ MousePosition["Graphics"], 
                   m[[## & @@ p]] -= 1]], 
                   n, 5, 2, 20, 1]]


                  enter image description here



                  enter image description here







                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 1 hour ago

























                  answered 1 hour ago









                  kglr

                  170k8193397




                  170k8193397



























                       

                      draft saved


                      draft discarded















































                       


                      draft saved


                      draft discarded














                      StackExchange.ready(
                      function ()
                      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f185720%2fplot-values-of-matrixplot-as-well-as-the-matrixplot-itself-inside-manipulate%23new-answer', 'question_page');

                      );

                      Post as a guest
































































                      Comments

                      Post a Comment

                      Popular posts from this blog

                      Long meetings (6-7 hours a day): Being “babysat” by supervisor

                      Image
                      Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 31 down vote favorite 4 I hold a PhD in mechanical engineering with a 7 year background in self-guided, self-paced research including 2 years as a graduate level course instructor and a subject matter expert for various engineering projects in a university setting in the United States. For the last 10-11 months, I am working in a research industry in France where my task is to debug C++ spaghetti code written over a period of several years by my current supervisor. It is a team of 2: just I and my supervisor. Diurnally, I am posed with a "bug of the day" to get out of this C++ code. My supervisor generally gives me about 15-30 minutes to solve it and then accosts me about whether or not the task is completed and then rinses and repeats this until the end of the day. Off-late, my supervisor has been holding 6-7 hour long "meetin
                      Read more

                      Is the Concept of Multiple Fantasy Races Scientifically Flawed? [closed]

                      Image
                      Clash Royale CLAN TAG #URR8PPP up vote 2 down vote favorite Many fantasy worlds have multiple humanoid species (elves, orcs, humans, etc) living in the same world, in addition to that, they often have the ability to interbreed. And I can't help but question their believability... fantasy-races reproduction interspecies-relations share | improve this question edited Aug 9 at 14:46 Michael Kjörling ♦ 21.1k 10 85 161 asked Aug 9 at 13:13 Chlodio 118 6 closed as unclear what you're asking by MichaelK, Gryphon, John, Vincent, Frostfyre Aug 9 at 15:25 Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question. 3 Stack Exchange exist to
                      Read more

                      Confectionery

                      Image
                      Prepared foods made with a lot of sugar or other cabohydrates "Sweetmeat" redirects here. For the racehorse, see Sweetmeat (horse). Not to be confused with Sweetbread. This Kransekake is a traditional Scandinavian baker's confection. Confectionery is the art of making confections , which are food items that are rich in sugar and carbohydrates. Exact definitions are difficult. [1] In general, though, confectionery is divided into two broad and somewhat overlapping categories, bakers' confections and sugar confections. [2] Bakers' confectionery, also called flour confections , includes principally sweet pastries, cakes, and similar baked goods. Sugar confectionery includes candies ( sweets in British English), candied nuts, chocolates, chewing gum, bubble gum, pastillage, and other confections that are made primarily of sugar. In some cases, chocolate confections (confections made of chocolate) are treated as a separate category, as are sugar-free versions of
                      Read more