Re: Re: variable number of controls in manipulate
- To: mathgroup at smc.vnet.net
- Subject: [mg105555] Re: [mg105531] Re: variable number of controls in manipulate
- From: Syd Geraghty <sydgeraghty at me.com>
- Date: Tue, 8 Dec 2009 06:45:47 -0500 (EST)
- References: <200912070659.BAA12913@smc.vnet.net>
Hi Bob, A small correction to your second suggestion pasted below: varData = {{"Emissions", {"None", "1000GtC", "3000GtC", "5000GtC"}}, {"Weathering scheme", {"Globavg", "GKWM", "GEM_CO2"}}, {"Ca weather feedback", {"On", "Off"}}, {"Si weather feedback", {"On", "Off"}}}; Module[{n = 1}, Manipulate[Evaluate[Table[v[n], {n, Length[varData]}]], Evaluate[ Sequence @@ (Inner[{{v[n++], #2[[1]], #1}, #2} &, Sequence @@ Transpose[varData], List])]]] Note I have changed: > Length[varvalues]-->Length[varData] to be consistent with your recommendation (which if it were used) would not define varvalues in addition to varData: > I recommend that you enter and store the titles and values together to keep them linked Cheers .... Syd Syd Geraghty B.Sc, M.Sc. sydgeraghty at mac.com Mathematica 7.0.1.0 for Mac OS X x86 (64 - bit) (12th September 2009) MacOS X V 10.6.1 Snow Leopard MacBook Pro 2.33 GHz Intel Core 2 Duo 2GB RAM On Dec 6, 2009, at 10:59 PM, Bob Hanlon wrote: > Although I recommend that you enter and store the titles and values together to keep them linked. For example, > > varData = { > {"Emissions", > {"None", "1000GtC", "3000GtC", "5000GtC"}}, > {"Weathering scheme", > {"Globavg", "GKWM", "GEM_CO2"}}, > {"Ca weath feedback", > {"On", "Off"}}, > {"Si weath feedback", > {"On", "Off"}}}; > > Module[{n = 1}, > Manipulate[ > Evaluate[ > Table[v[n], {n, Length[varvalues]}]], > Evaluate[ > Sequence @@ ( > Inner[{{v[n++], #2[[1]], #1}, #2} &, > Sequence @@ > Transpose[varData], List])]]] > > > Bob Hanlon
- References:
- Re: variable number of controls in manipulate
- From: Bob Hanlon <hanlonr@cox.net>
- Re: variable number of controls in manipulate