[Date Index] [Thread Index] [Author Index]

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