Simple Fractal square

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











up vote
3
down vote

favorite












I am working on a math question about infinite series, and one of the question images is below.



iterations of subdividing a square



Each new white square has an area that is 1/4 of the previous square.



Always looking to learn elegant ways to create things using Mathematica, and in this case, probably recursion as well?



I know it's not complicated, but any help with the process would be appreciated.



Having a NICE diagram really helps with creating a better response.
(questions about sums of areas of white, black, etc.)






graphics recursion iteration







share|improve this question

























    up vote
    3
    down vote

    favorite












    I am working on a math question about infinite series, and one of the question images is below.



    iterations of subdividing a square



    Each new white square has an area that is 1/4 of the previous square.



    Always looking to learn elegant ways to create things using Mathematica, and in this case, probably recursion as well?



    I know it's not complicated, but any help with the process would be appreciated.



    Having a NICE diagram really helps with creating a better response.
    (questions about sums of areas of white, black, etc.)






    graphics recursion iteration







    share|improve this question























      up vote
      3
      down vote

      favorite









      up vote
      3
      down vote

      favorite











      I am working on a math question about infinite series, and one of the question images is below.



      iterations of subdividing a square



      Each new white square has an area that is 1/4 of the previous square.



      Always looking to learn elegant ways to create things using Mathematica, and in this case, probably recursion as well?



      I know it's not complicated, but any help with the process would be appreciated.



      Having a NICE diagram really helps with creating a better response.
      (questions about sums of areas of white, black, etc.)






      graphics recursion iteration







      share|improve this question













      I am working on a math question about infinite series, and one of the question images is below.



      iterations of subdividing a square



      Each new white square has an area that is 1/4 of the previous square.



      Always looking to learn elegant ways to create things using Mathematica, and in this case, probably recursion as well?



      I know it's not complicated, but any help with the process would be appreciated.



      Having a NICE diagram really helps with creating a better response.
      (questions about sums of areas of white, black, etc.)






      graphics recursion iteration




      graphics recursion iteration






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 1 hour ago









      Tom De Vries

      1,6351224




      1,6351224




















          2 Answers
          2






          active

          oldest

          votes

















          up vote
          3
          down vote













          coords = 0, 0, 0, 1, 1, 1, 1, 0;
          tf = Composition[TranslationTransform[1/2, 0], ScalingTransform[1/2, 1/2]]
          rects = NestList[tf /@ ## &, coords, 4];
          Graphics[ EdgeForm[Black], Rectangle,
          FaceForm[Gray], Polygon@#, FaceForm[White], Polygon@#2 & @@@ 
          Transpose[rects, Most /@ rects], FaceForm[White], Polygon[Last@rects]]


          enter image description here






          share|improve this answer





























            up vote
            1
            down vote













            n = 100;
            T1 = Developer`ToPackedArray[-1., 0., -0.5, 0., -0.5, 0.5];
            T2 = Developer`ToPackedArray[-0.5, 0.5, 0., 0.5, 0., 1.];
            Graphics[
             Polygon[Table[0.5^k T1, k, 0, n]],
             Polygon[Table[0.5^k T2, k, 0, n]]
             ]


            enter image description here





            share




















              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: false,
              showLowRepImageUploadWarning: true,
              reputationToPostImages: null,
              bindNavPrevention: true,
              postfix: "",
              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%2f184560%2fsimple-fractal-square%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
              3
              down vote













              coords = 0, 0, 0, 1, 1, 1, 1, 0;
              tf = Composition[TranslationTransform[1/2, 0], ScalingTransform[1/2, 1/2]]
              rects = NestList[tf /@ ## &, coords, 4];
              Graphics[ EdgeForm[Black], Rectangle,
              FaceForm[Gray], Polygon@#, FaceForm[White], Polygon@#2 & @@@ 
              Transpose[rects, Most /@ rects], FaceForm[White], Polygon[Last@rects]]


              enter image description here






              share|improve this answer


























                up vote
                3
                down vote













                coords = 0, 0, 0, 1, 1, 1, 1, 0;
                tf = Composition[TranslationTransform[1/2, 0], ScalingTransform[1/2, 1/2]]
                rects = NestList[tf /@ ## &, coords, 4];
                Graphics[ EdgeForm[Black], Rectangle,
                FaceForm[Gray], Polygon@#, FaceForm[White], Polygon@#2 & @@@ 
                Transpose[rects, Most /@ rects], FaceForm[White], Polygon[Last@rects]]


                enter image description here






                share|improve this answer
























                  up vote
                  3
                  down vote










                  up vote
                  3
                  down vote









                  coords = 0, 0, 0, 1, 1, 1, 1, 0;
                  tf = Composition[TranslationTransform[1/2, 0], ScalingTransform[1/2, 1/2]]
                  rects = NestList[tf /@ ## &, coords, 4];
                  Graphics[ EdgeForm[Black], Rectangle,
                  FaceForm[Gray], Polygon@#, FaceForm[White], Polygon@#2 & @@@ 
                  Transpose[rects, Most /@ rects], FaceForm[White], Polygon[Last@rects]]


                  enter image description here






                  share|improve this answer














                  coords = 0, 0, 0, 1, 1, 1, 1, 0;
                  tf = Composition[TranslationTransform[1/2, 0], ScalingTransform[1/2, 1/2]]
                  rects = NestList[tf /@ ## &, coords, 4];
                  Graphics[ EdgeForm[Black], Rectangle,
                  FaceForm[Gray], Polygon@#, FaceForm[White], Polygon@#2 & @@@ 
                  Transpose[rects, Most /@ rects], FaceForm[White], Polygon[Last@rects]]


                  enter image description here







                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 4 mins ago

























                  answered 14 mins ago









                  kglr

                  167k8188390




                  167k8188390




















                      up vote
                      1
                      down vote













                      n = 100;
                      T1 = Developer`ToPackedArray[-1., 0., -0.5, 0., -0.5, 0.5];
                      T2 = Developer`ToPackedArray[-0.5, 0.5, 0., 0.5, 0., 1.];
                      Graphics[
                       Polygon[Table[0.5^k T1, k, 0, n]],
                       Polygon[Table[0.5^k T2, k, 0, n]]
                       ]


                      enter image description here





                      share
























                        up vote
                        1
                        down vote













                        n = 100;
                        T1 = Developer`ToPackedArray[-1., 0., -0.5, 0., -0.5, 0.5];
                        T2 = Developer`ToPackedArray[-0.5, 0.5, 0., 0.5, 0., 1.];
                        Graphics[
                         Polygon[Table[0.5^k T1, k, 0, n]],
                         Polygon[Table[0.5^k T2, k, 0, n]]
                         ]


                        enter image description here





                        share






















                          up vote
                          1
                          down vote










                          up vote
                          1
                          down vote









                          n = 100;
                          T1 = Developer`ToPackedArray[-1., 0., -0.5, 0., -0.5, 0.5];
                          T2 = Developer`ToPackedArray[-0.5, 0.5, 0., 0.5, 0., 1.];
                          Graphics[
                           Polygon[Table[0.5^k T1, k, 0, n]],
                           Polygon[Table[0.5^k T2, k, 0, n]]
                           ]


                          enter image description here





                          share












                          n = 100;
                          T1 = Developer`ToPackedArray[-1., 0., -0.5, 0., -0.5, 0.5];
                          T2 = Developer`ToPackedArray[-0.5, 0.5, 0., 0.5, 0., 1.];
                          Graphics[
                           Polygon[Table[0.5^k T1, k, 0, n]],
                           Polygon[Table[0.5^k T2, k, 0, n]]
                           ]


                          enter image description here






                          share











                          share


                          share










                          answered 7 mins ago









                          Henrik Schumacher

                          42.8k261127




                          42.8k261127



























                               

                              draft saved


                              draft discarded















































                               


                              draft saved


                              draft discarded














                              StackExchange.ready(
                              function ()
                              StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f184560%2fsimple-fractal-square%23new-answer', 'question_page');

                              );

                              Post as a guest
































































                              Comments

                              Post a Comment

                              Popular posts from this blog

                              What does second last employer means? [closed]

                              Image
                              Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address...
                              Read more

                              Installing NextGIS Connect into QGIS 3?

                              Image
                              Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugins nextgis share | improve this question edited 3 hours ago PolyGeo ♦ 51.9k 17 77 233 asked 4 hours ago IanGS 16 4 New contributor IanGS is a new contributor to this site. Take care in asking for clarification, commenting, and answering. Check out our Code of Conduct. add a comment  |  up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugin...
                              Read more

                              One-line joke

                              A one-liner is a joke that is delivered in a single line. A good one-liner is said to be pithy - concise and meaningful. [1] Comedians and actors use this comedic method as part of their act, e.g. Jimmy Carr, Tommy Cooper, Rodney Dangerfield, Norm Macdonald, Ken Dodd, Stewart Francis, Zach Galifianakis, Mitch Hedberg, Anthony Jeselnik, Milton Jones, Shappi Khorsandi, Jay London, Mark Linn-Baker, Demetri Martin, Groucho Marx, Dan Mintz, Emo Philips, Tim Vine, Steven Wright and Henny Youngman and Arnold Schwarzenegger. [ citation needed ] Many fictional characters are also known to deliver one-liners, including James Bond, who usually includes pithy and laconic quips after disposing of a villain. [ citation needed ] Examples "A baby seal walks into a club." "A dyslexic man walks into a bra." (Anonymous) "There are three types of people, those who can count and those who can't." "Venison's dear, isn't it?" (Jimmy Carr) "An escala...
                              Read more