3D Dancing Pendulums

Posted on July 6th, 2011 in Cool Infographics & Data Visualizations , Huis , Posts by Hui , Random , simulation - 33 comments

Last week I published a post on constructing an Animated Pendulum at ExcelHero.Com with a sister post here at Chandoo.org on using simple VBA to Automate Repetitive Tasks.

I received a lot of positive feedback which is appreciated.

One respondent, Stephen, asked a question about the Pendulum not being modeled as 3D.

Which isn’t correct as the pendulums are moving on, and hence represented on, a 2D plane within 3D space.

However this got me thinking!

Pseudo 3D

There was no reason I couldn’t do a Side View and Top View of the Pendulums at the same time.

This allowed a user to view the Pendulums from the 3 views simultaneously. The animations will all be in sync as they should because they are all based on the same input and a series of named ranges.

The extra work involved adding a named range for each pendulum for the z value and copying the first chart and re-arranging axis for the different views.

This post won’t describe how to do this but if you are interested I direct you to the original post at Excelhero.com where the whole project is described.

Please enjoy the revised Pseudo 3D file.

Download the Pseudo 3D Pendulum 2007/10 Only.

Why Stop at Pseudo 3D ?

But why stop at pseudo 3D?

A while back I had played with a 3D transform spreadsheet that Andy Pope had made over at AJP Excel Information.

Andy had used a series of 3D transform matrices to transform 10 points on a scatter chart and rotate them around.

So I blatently stole borrowed Andy’s example and took the logic into the Named Formula that I had used for the Dancing Pendulums.

I hope you enjoy the outcome:

The Excel version is a lot faster with smoother and more fluid animation than the Animated GIF display above, especially if you are using Internet Explorer.

Construction

I will be doing a separate post on the construction of this model when I find the time.

But until then I refer you to:

A detailed explanation of the orginal Dancing Pendulums model is available at: ExcelHero.com.

Any Popes 3D Transform is at AJP Excel Information.

In the meantime, I will be happy to answer any questions you have regarding this model in the comments.

Download

I’m rather proud of how well this turned out and have to keep reminding myself that it is just a simple Excel XY Scatter Chart.

Please enjoy the 3D Dynamic Pendulums files.

3D Dynamic Pendulums Excel 2007/10 or 3D Dynamic Pendulums Excel 97/2003

I hope you enjoy this post as much as I did making it!

Update (7 July 2011)

I have added Axis Labelling and Automatic Y Axis Rotation options

Download 2007/10 Update Here

Your email address is safe with us. Our policies

Written by Hui...
Tags: , ,
Home: Chandoo.org Main Page
? Doubt: Ask an Excel Question

33 Responses to “3D Dancing Pendulums”

  1. Vijay says:

    Fantastic! I have seen many ways how Excel is being used and amazed at people’s imagination and innovations which makes me all the more humble about my knowledge of Excel. Nevertheless I have benefitted tremandously by your site and thanks a ton for that.

  2. Simran says:

    Excellent!

  3. SomeintPhia says:

    Just great! Not in 5% I will understand it, but it looks just great!
    Keep on doing things like that!

  4. Tom Quist says:

    Wow – that is amazing. I’m really impressed. You are of course right that it’s only a scatter chart, lol, but it took some serious skills/mathematical knowledge to come up with this. And it looks cool!

  5. Mark says:

    I am even more impressed with this one than I was with the original dancing pendulums! Amazing use of Excel. As before, I had no idea Excel could be used to animate something, and I still don’t quite understand how it does it. I have far to go to be “Awesome” but hopefully with your site I will get close one day!

  6. Stephen says:

    How cool to have inspired you to “attempt” to improve on your last post… that you achieved it is amazing.

    I’m a bit of a boffin and things like this capture my imagination… now to find a practical use in the finance department and baffle my collegues.

    fantastic work, love it!

  7. Amit says:

    Excellent …
    Manu«y congrats…
    One thing is for sure…You’ve got one more Fan.
    Keep it up.

    Amit

  8. Aman says:

    Awesome… I am totally amaze …

  9. Michelle says:

    Seriously Beautiful!

  10. TechRecur says:

    That’s awesome …. Amazing.

  11. Sushil says:

    hi,
    i am from india. how can i set reminder in excel via outlook task? if u have any link pl. sent me.

  12. Rahul says:

    Chandoo.. you are genious man.. You are helping so many people in this would with your great knowledge. Please keep doing this… You are heroooooo

  13. Surya says:

    What to say? all words were used by dif users……. It’s amazing. I have been struggling for years just to write a simple code on my own in VBA. It’s awresome work…

    • Hui... says:

      @Surya
      I Appreciate the comments :)
      Believe it or not I am by no means a good VBA coder but am handy with maths
      The 3D transforms are all done with Named Formula in Excel not VBA!
      The animation VBA code is not difficult

  14. Roger says:

    Hi this is one of those posts that can change people’s vision of what can be done in Excel.  The results are breathtaking!  Will tweet to my followers.

    Roger 

  15. Taruna says:

    Grrrrrr8!!!!!!!!!!!!

  16. art says:

    how may i find where is Huis_Excel_Pendulum_3D.xlsm!p5tz ?

    • Hui... says:

      @Art

      I’m not sure about a name p5tz ?

      There are Names like p5Len, p5x, p5y & p5z

      These are all accessible from the Name Manager

      Goto The Formula, Name Manager Tab

      Hui…

      • art says:

        in the scater chart,  the Series x values for series 1 is Huis_Excel_Pendulum_3D.xlsm!p1x

        i cant understand where this p1x is calculated, it is not in Name Manager nor VBA module! 

      • tao yang says:

        Hey Hui,
        It is amazing. It is completed beyond my imagination what excel can do.
        But Can you explain more how it works?
        So far I understand you use “Load_name_range” to create Name automatically. But in the Sheet(1) ‘s macro “Pendulum_Animate()”
        what does mean ” Application.Names.Add “t”, i ” . I think here is the all program to start.
        Or you can refer me something to study if you don’t have time.

        Kind Regards,

        Tao Y

        • Hui... says:

          @Tao Y
          The line Application.Names.Add “t”, i is the main line that drives the animation

          It is inside a loop For i = 0 To 2000 Step ti and so it is rewriting the value of i every loop. With every iteration of the loop it is incrementing up by the value of ti.

          So the Named Formula t, is the time counter and is then used to calculate the location of each of the the pendulum. Once the location is calculated, the location is transformed in 3D by the Rotation matrices to give the impact of rotation.

          The Named Formula for the original, untransformed, coordinates of Pendulum 1 are p1x, p1y and p1z.
          The Named Formula after transformation for Pendulum 1 are pp1x, pp1y and pp1z. These are the plotted coordinates

  17. art says:

    when running a program with DoEvents and I click a cell,  how may I fix in the program the address of this cell ? Help please!

  18. Hendrick says:

    Did you use excel plus? Something out of  this world, thank you for sharing this; you are a star.

    • Hui... says:

      @Hendrick
      No tricks, smoke or mirrors, just plain old vanilla flavored Excel just as you buy it
      No addins

      I’m Glad you enjoy it.
      I made it and I can’t believe how well it works
      I still smile every time I view it

  19. ????? says:

    ??? ?????????

  20. Vinicius Martim says:

    Hey, Chandoo and Hui.
    It’s awesome to see these things working so flawlessly. Awesome job. One day I would like to know as much as you guys know now. It’d be good enough xD

    I’m from Brazil, and here we use this in Portuguese. At the first glance, none of the worksheets ran, so I dug a little bit and found an addendum from Hui, about the animation code.
    He said that the non-english Excel would possibly suffer from the same error.
    It comes to be that “True” and “False” were between quotes. And the solution was just to remove that, letting this as code language and not as cell result (as far as I know – not very much)
    I think this could be simple for someone who knows VBA, but as newbie as I am, this was not trivial =|

    Thanks a lot and now I can enjoy this marvelous things you guys did here =D

Leave a Reply