Это немного связано с этим вопросом
Определить элемент управления как переменную в Mathematica
Но этот вопрос не ответил на мою проблему, поскольку он говорит о полном определении контроля. (Я также пробовал некоторые из трюков, показанных там, но они не работают для моей проблемы).
Теперь я спрашиваю об определении только для части элемента управления. (Также очень сложно следить за старым вопросом, используя этот формат форума. Поскольку использование крошечной области комментариев трудно задавать и показывать больше, задавая новый вопрос, где пространство больше, и можно вставлять код и изображений).
Все попытки, которые я сделал, не работают. Начну с простого примера, чтобы объяснить проблему.
Предположим, что вы хотите написать
Clear["Global`*"];
Manipulate[Plot[f*g, {x, -1, 1}],
Grid[{
{Style["f(x)="],
PopupMenu[Dynamic[f], {x, x^2, x^3}, ImageSize -> Tiny]},{Style["g(x)="],
PopupMenu[Dynamic[g], {x, x^2, x^3}, ImageSize -> Tiny]}
}]
]
вы можете видеть, что в каждом определении элемента есть дублирование кода. (такие вещи, как ImageSize, Spacings- > и многие другие настройки украшений, повторяются снова и снова для каждого элемента управления.
Что будет здорово, если я смогу написать что-то вроде
Manipulate[Plot[f*g, {x, -1, 1}],
Grid[{
{Style["f(x)="], PopupMenu[Dynamic[f], [email protected]@v]},
{Style["g(x)="], PopupMenu[Dynamic[g], [email protected]@v]}
}],
Initialization :>
(
v = {{x, x^2, x^3}, ImageSize -> Tiny}
)
]
Но это не работает. Я провожу много других вещей вдоль вышеприведенной строки, и ничего не работает. Как
{Style["f(x)="], PopupMenu[Dynamic[f], v]},
и
{Style["f(x)="], PopupMenu[Dynamic[f], [email protected]]}
и
Manipulate[Plot[f*g, {x, -1, 1}],
{{v, {{x, x^2, x^3}, ImageSize -> Tiny}}, None},
Grid[{
{Style["f(x)="], PopupMenu[Dynamic[f], [email protected]]},
{Style["g(x)="], PopupMenu[Dynamic[g], v]}
}]
]
не может заставить его работать.
Но вот правила игры: Это будет для демонстрации, поэтому код должен начинаться с Manipulate. Не может быть Module Out Manipulate. Кроме того, не может использовать Hold и его друзей. Но можно использовать Unevaluated.
Я надеялся, что здесь у экспертов может быть трюк. Воля уменьшит размер кода, если это возможно, так как многие из элементов управления, которые у меня есть, содержат множество "опций", подобных вышеперечисленным, которые являются одинаковыми, и возможность выполнить вышеизложенное сделает код более легким для чтения и управления.
спасибо,
пс. То, что я прошу, похоже на то, что вы делаете для вариантов Plot, где можно использовать SetOptions для установки некоторых стандартных параметров по умолчанию, чтобы каждый раз не приходилось дублировать их для каждой команды Plot. Но в этом случае нет такой вещи.
Обновление
Используя метод, показанный Леонидом ниже (макро-трюк), я хотел использовать его, чтобы помочь мне определить количество элементов управления, используя одну общую настройку. Это то, что я пробовал:
Manipulate[{x, y},
[email protected][
{
control1 = Function[{var, initialValue, str, from, to, incr},
{
{{var, initialValue, str}, from, to, incr, ImageSize -> Tiny}
}
,
HoldAll
]
},
{
[email protected][x, 0, "x=", 0, 1, .1],
[email protected][y, 0, "y=", 0, 2, .1],
[email protected][z, 0, "z=", 0, 10, .1]
},
]
]
Проблема заключается только в дополнительном {} во всем этом, иначе он будет работать. Будут продолжать пытаться решить это. Но приблизиться. Tried Sequence [] и Flatten [.., 1] и т.д., Но еще не может этого сделать. Делать больше кофе, должно помочь.
Обновление 2
Ниже приведен пример использования метода Саймона для определения общего определения для нескольких элементов управления. Таким образом, можно использовать его для уменьшения дублирования кода для общих опций при наборе отдельных элементов управления.
Обратите внимание, что нужно было использовать Control[], чтобы заставить его управлять.
Manipulate[{x, y, z},
Dynamic[Grid[{
{control1[x, 0, "x=", 0, 1, .1]},
{control1[y, 0, "y=", 0, 2, .1]},
{control1[z, 0, "z=", 0, 10, .1]}
}]],
{{control1,
Function[{var, initialValue, str, from, to, incr},
Control[{{var, initialValue, str}, from, to, incr,
ImageSize -> Tiny}], HoldFirst]}, None}
]
Обновление 3
И получил метод Леонида, чтобы работать и на более чем одном контроле. Хитрость заключается в использовании Control[]. Невозможно использовать простой старый {{x,0,"x"},...} [EDIT, да, вы можете, просто нужен метод Sequence @@, как показано ниже, с помощью обновления Leonid.].
Вот он:
Manipulate[{x, y, z},
[email protected][
{
control1 = Function[{var, initialValue, str, from, to, incr},
Control[{{var, initialValue, str}, from, to, incr,
ImageSize -> Tiny}]
, HoldAll
]
},
Grid[{
{control1[x, 0, "x=", 0, 1, .1]},
{control1[y, 0, "y=", 0, 2, .1]},
{control1[z, 0, "z=", 0, 10, .1]}
}]
]
]
Я попытаюсь интегрировать один из этих методов в мою основную демонстрацию (имеет более 600 строк кода только для макета управления до сих пор и растет с каждым разом, мы надеемся, что эти методы уменьшат это немного)
Обновление 9/26/11. 7 вечера
Мне показалось, что я публикую вид "птичьего глаза" на сохранение кода, используя "макросы" для определения элементов управления, которые содержат много общего кода котельной. Вот скриншот до и после.
Еще раз спасибо за ответ и помощь.
