Re: Help with Manipulate
- To: mathgroup at smc.vnet.net
- Subject: [mg88390] Re: Help with Manipulate
- From: m.r at inbox.ru
- Date: Sat, 3 May 2008 06:19:55 -0400 (EDT)
- References: <fvbr4m$pk2$1@smc.vnet.net>
On May 1, 2:23 am, Steve Gray <stev... at roadrunner.com> wrote:
> Details of computations omitted; much too complicated, and irrelevant.
> After lots of computation, "showit" calls Graphics3D[{........}].
>
> manip2[xyz_] := Module[{xr},
> ptvertS[[5]] = xyz;
> finlist; sphrAll; allspt; setDisp; showit
> ]
> m1 = 100; m2 = {m1,m1,m1};
>
> Manipulate[manip2[xyz], {{xyz, {-22, -92, +47}, "V5, XYZ"}, -m2, m2}]
>
> This works fine (at least some of the time), including the=
> initial value and label. ptvertS[[1]],...,ptvertS[[5]] are each just
> numerical {x,y,z} coordinates.
> However the 3-part slider no longer has the little symbol
> which you can expand to see values and control them. Is there a way to
> see the values of a list in this situation? Currently I use Epilog to
> display them.
>
> ***********************
>
> BUT this one does not work, giving an error message someth=
ing
> like "indeterminate should be triple of numbers". But as an example,
> manip3[{11,22,33},{44,55,66}] by itself works.
>
> manip3[xyz1_, xyz2_] := Module[{xr},
> ptvertS[[1]] = xyz1; ptvertS[[2]] = xyz2;
> finlist; sphrAll; allspt; setDisp; showit
> ]
> m1 = 100; m2 = {m1, m1, m1};
> Manipulate[manip3[c1, c2], {c1, -m2, m2}, {c2, -m2, m2}]
>
> I will appreciate any help.
>
> Steve Gray
You can create a row of controls manually:
Manipulate[u,
{{u, {0, 0, 0}}, None},
Row[Manipulator[Dynamic@ u[[#]],
AppearanceElements -> {"InlineInputField", "InputField"},
ImageSize -> Tiny]& /@
Range[3], Spacer[5]]]
It won't look as good if you want to include all the Manipulator
elements though.
Maxim Rytin
m.r at inbox.ru