Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Setting parameters via Manipulate?
Replies: 5   Last Post: Jan 31, 2013 8:46 PM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: Setting parameters via Manipulate?
Posted: Jan 30, 2013 4:25 AM

If I understand what you want, this is one approach:

initialSettings = {
{a -> a1, b -> b1, c -> c1, d -> d1},
{a -> a2, b -> b2, c -> c2, d -> d2},
{a -> a3, b -> b3, c -> c3, d -> d3},
{a -> a4, b -> b4, c -> c4, d -> d4},
{a -> a5, b -> b5, c -> c5, d -> d5}};

m = Length[initialSettings];

Manipulate[
is = {a, b, c, d} /. initialSettings[[parameterSet]];
Manipulate[
Column[{
StringForm[
"a = `1`, b = `2`, c = `3`, d = `4`",
a, b, c, d],
"\n",
f[a, b, c, d]}],
Row[{
Control[{{a, is[[1]], "Set a"},
initialSettings[[All, 1, -1]],
Spacer[10],
Control[{{b, is[[2]], "Set b"},
initialSettings[[All, 2, -1]],
Spacer[10],
Control[{{c, is[[3]], "Set c"},
initialSettings[[All, 3, -1]],
Spacer[10],
Control[{{d, is[[4]], "Set d"},
initialSettings[[All, 4, -1]],
{{parameterSet, 1, "Select\ninitial values"},

Bob Hanlon

On Tue, Jan 29, 2013 at 2:42 AM, Peter =C4=8Cendula <cendos@gmail.com> wrote:
> Thanks Bob, this show possible solution when "fixedSettings" influence ONLY parameters a,b,c,d and NOT parameters e,g. What I'm interested is how to set also initial values of a,b,c,d through ParameterSet, so something like|(which yields Part::pspec message):
>
>
> {{a, a /. fixedSettings[[ParameterSet]], "set a"},
>
> Also when I change ParameterSet through PopupMenu, value of "a" should be set appropriately.
>
> Peter
> On Saturday, January 26, 2013 10:58:42 PM UTC+1, Bob Hanlon wrote:

>> fixedSettings = {
>>
>> {a -> a1, b -> b1, c -> c1, d -> d1},
>>
>> {a -> a2, b -> b2, c -> c2, d -> d2},
>>
>> {a -> a3, b -> b3, c -> c3, d -> d3},
>>
>> {a -> a4, b -> b4, c -> c4, d -> d4},
>>
>> {a -> a5, b -> b5, c -> c5, d -> d5}};
>>
>>
>>
>> Manipulate[
>>
>> Column[{
>>
>> StringForm[
>>
>> "a = `1`, b = `2`, c = `3`,
>>
>> d = `4`, e = `5`, g = `6`",
>>
>> a, b, c, d, e, g],
>>
>> "\n",
>>
>> f[a, b, c, d, e, g]
>>
>> }] /.
>>
>> fixedSettings[[ParameterSet]],
>>
>> Control[
>>
>> {{ParameterSet, 1, "Select\nParameter Set"},
>>
>>
>>
>> Control[
>>
>> {{e, Pi/2, "Select e"}, Range[-Pi, Pi, Pi/4],
>>
>>
>> {{g, 0, "Set g"}, -5, 5, 1,
>>
>> Appearance -> "Labeled"}]
>>
>>
>>
>>
>>
>> Bob Hanlon
>>
>>
>>
>>
>>
>> On Sat, Jan 26, 2013 at 1:41 AM, Peter =C4=8Cendula wrote:
>>

>> > Hi Tamas, I have exactly the same problem. Did you come to solution in the meantime?
>>
>> >
>>
>> > Thanks
>>
>> > Peter
>>
>> >
>>
>> > On Thursday, October 6, 2011 10:27:47 AM UTC+2, Lengyel Tamas wrote:
>>
>> >> Dear Community,
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> I am facing a rather hard to learn problem in Mathematica: setting
>>
>> >>
>>
>> >> multiple parameters simultaneously.
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> The basic problem is as follows: I have a set of parameters that define a
>>
>> >>
>>
>> >> physical element (in my case an optical fiber). There are some standard
>>
>> >>
>>
>> >> fibers with fixed parameters.
>>
>> >>
>>
>> >> I wish to have a drop down menu (PopUpMenu in Math 8.0 I believe) that
>>
>> >>
>>
>> >> sets these parameters to fixed values and have a few other parameters that
>>
>> >>
>>
>> >> are adjustable in my simulation.
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> Ideally I wish to have all parameters to be able to be set using
>>
>> >>
>>
>> >> Manipulate or some other sort of way (input string) and have drop down
>>
>> >>
>>
>> >> menus that make these variables "jump" to the defined value.
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> My questions are:
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> -how can I implement this selection-type menu with fixed parameter sets and
>>
>> >>
>>
>> >> -how can I have those parameters be adjustable alongside the above met hod?
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> Thank you in advance.
>>
>> >>
>>
>> >>
>>
>> >>
>>
>> >> Tam=E1s Lengyel
>>
>> >
>>
>> >
>
>

Date Subject Author
10/6/11 Lengyel Tamas
1/26/13 Peter Čendula
1/26/13 Bob Hanlon
1/29/13 Peter Čendula
1/30/13 Bob Hanlon
1/31/13 Peter Čendula