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