Manipulate with dynamic maximum on slider
- To: mathgroup at smc.vnet.net
- Subject: [mg113558] Manipulate with dynamic maximum on slider
- From: Arend <asluis at gmail.com>
- Date: Tue, 2 Nov 2010 05:03:13 -0500 (EST)
I am a newbie at Mathematica and playing around with Manipulate. My problem: I have two controls, one completely independent, the other dependent on the results of a calculation in the body of Manipulate. Here is my code (simplified from the actual use case for clarity): Manipulate[ SeedRandom[seed]; {rl, ll} = Module[{newNum = 10000, rList}, rList = Reap[ While[! PrimeQ[newNum], Sow[newNum = RandomInteger[{10000, 100000}]]]][[2, 1]]; {rList, Length[rList]}]; (* If[steps != ll, steps = ll]; *) Take[rl, steps], {{seed, 250}, 100, 400, 1, Appearance -> "Labeled"}, {{steps, ll}, 1, Dynamic[ll], 1, Appearance -> "Labeled"}] The issue is that after the user changes the value of seed, the steps slider should be given a new maximum value (determined by the length of the list generated by the While loop) and the steps slider should be set to this maximum value. That is, after choosing a new seed, the user should see the complete list by default. I've read the four Mathematica tutorials on Dynamic/Manipulate, which are wonderful, but perhaps a bit of information overload. What simple thing am I missing here? Thank you for your help!