Help with Manipulate
- To: mathgroup at smc.vnet.net
- Subject: [mg88308] Help with Manipulate
- From: Steve Gray <stevebg at roadrunner.com>
- Date: Thu, 1 May 2008 03:21:29 -0400 (EDT)
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 something
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