1
$\begingroup$

I'm thinking about adding some animations in Mathematica to my last Physics assignment and I don't quite know where to start.

Id like to make somthing like this image:

enter image description here

which I made using PowerPoint and IguanaTeX, and I'd like to control the number of blue dots using Manipulate[]. I mean, I have an expression which gives me the number of blue dots that should appear in any of the two levels, so I'd like to make something using Manipulate in order to be able to see how the number of blue dots in each level changes as I change the parameters of my expression.

I have the background image (I can erase the blue dots in the one I am showing you) but I don't know how to control the blue dots.

Could you give me some hints? Thank you for your help!

$\endgroup$
  • $\begingroup$ It is always better for future users and those who wish to help answer to post code with your question. It is also better practice to wait a bit before accepting an answer so that others may submit their attempts at answers. Welcome to Mathematica.SE! $\endgroup$ – CA Trevillian Mar 23 at 13:28
  • $\begingroup$ Okay, thank you. I'll try next time! :) $\endgroup$ – Patrick Mar 23 at 13:48
1
$\begingroup$
prolog = Graphics[{Join[{Black, Arrow[{{-1, 0}, {-1, 5}}], Orange, 
 Line[{{{0, 2}, {10, 2}}, {{0, 0}, {10, 0}}}], Green}, 
Table[Arrow[{{i, 3}, {i, 5}}], {i, 7, 9}]]}];
dots[n_Integer] :=
Graphics[{Blue, Table[Disk[{4 + i, 2}, 0.1], {i, n}]}];
Manipulate[Show[{prolog, dots[n]}], {n, 1, 5, 1}]
| improve this answer | |
$\endgroup$
  • $\begingroup$ Thank you very much!!!!! It helped me a lot. I modified it to make some adjustments on the lower level and added some text. Thank you a lot!!! $\endgroup$ – Patrick Mar 23 at 13:21

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.