8

I would like to combine a dynamic module with a manipulation, whilst maintaining the functionality of both. I have tried things like Show and Epilog -> Inset@..., but neither seem to work. The code for both dynamic module & manipulation are as follows:

Manipulate[
Plot[x^n, {x, 0, 5}, PlotRange -> {{0, 5}, {0, 5}}, GridLines -> {Range@5, Range@5}, 
GridLinesStyle -> Directive[GrayLevel[0.8], Dashed], AspectRatio -> Automatic, 
PlotStyle -> Thick, Axes -> False, ImageSize -> 200], {n, -3, 3},

DynamicModule[{x = 11}, Grid[Map[Button[ToString@#, x = #, Background -> 
Dynamic[If[Divisible[#, x], Green, Red]], ImageSize -> {40, 40}, Appearance -> 
"Frameless"] &, RandomInteger[{1, 10}, {5, 5}], {2}], Frame -> All, 
FrameStyle -> Dashed, Spacings -> {.2, .2}]]]

produces:

Functionality in the above illustration is preserved, but I would really like one to overlay the other (plot on top 'layer'). I have included the grid on both to show how I would like to align them.

I have looked here, and here, to no avail :(

This is a slimmed-down version of a previous (deleted) post - I hope it is a little clearer :)

Community
  • 1
martin
  • 8,678
  • 4
  • 23
  • 70

1 Answers1

8

Perhaps this?

Manipulate[
 Plot[x^n, {x, 0, 5}, PlotRange -> {{0, 5}, {0, 5}}, 
  GridLines -> {Range@5, Range@5}, 
  GridLinesStyle -> Directive[GrayLevel[0.8], Dashed], 
  AspectRatio -> Automatic, PlotStyle -> Thick, Axes -> False, 
  ImageSize -> 200, 
  Prolog -> 
   Inset@DynamicModule[{x = 11}, 
     Grid[
       Map[Button[ToString@#, x = #, 
          Background -> Dynamic[If[Mod[#, x] == 0, Green, Red]], 
          ImageSize -> {40, 40}, Appearance -> "Frameless"] &, 
        RandomInteger[{1, 10}, {5, 5}], {2}], Frame -> All, 
       FrameStyle -> Dashed, Spacings -> {.2, .2}]]],
 {n, -3, 3}]

Manipulate output

Michael E2
  • 235,386
  • 17
  • 334
  • 747
  • @ Michael E2, Thank you very much for your help on this - if this was what I was trying to achieve, I would be very happy with your solution, but I am trying to stitch together two longer, more complicated pieces of code (see update). I posted this as the question originally, but was advised to make it shorter ... I am really struggling with this though - pulling my hair out! :/ – martin Nov 22 '13 at 02:14
  • 2
    @martin You should be aware that the purpose of this site isn't helping you with your application, but with the Mathematica platform. Posting your full code will attract downvotes, cause people to skip reading your questions, you will probably catch dandruff and your fridge will stop working. Seriously, don't do that – Dr. belisarius Nov 22 '13 at 02:19
  • @ belisarius, Point taken - the struggle continues! – martin Nov 22 '13 at 02:21
  • 2
    @martin You might consider using ClickPane[graphics, func] instead of Button. You can use func to set your variable x and change the color of Rectangles (like you do the background) in response to mouse clicks. It's easier to combine graphics than mix graphics and non-graphics. – Michael E2 Nov 22 '13 at 03:36
  • @ Michael E2, Great, thanks - I will try that now :) – martin Nov 22 '13 at 16:07