Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Do You Know?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80404] Do You Know?
  • From: zzzz <giarc54 at gmail.com>
  • Date: Tue, 21 Aug 2007 05:07:51 -0400 (EDT)

When I run the program below,using Manipulate,
The larger sphere will change color depending on
the distance to the smaller sphere.However, when I use
ControllerManipulate, this color change does not occur.This behavior
happens after
Mathematica ceases to indicate that the program is running.Shouldn't
the program be running for
the sliders and the gamepad to affect the Graphics? Hey, I wouldn't
care if only the program would change the color of the sphere in the
intended way while using my gamepad(Logitech
cordless precision forPS3).I have been leaving the wireless reciever
pluged into the usb port
while trying to run both versions.How can I rewrite this program so
that the color change happens using the gamepad and
ControllerManipulate?
Here's the program...
DynamicModule[{x = 900, y = 900, z = 900, d = 0.00, p = 1.3, q = -2.4,
   r = 2, a = .9, va = 90 Degree, k = 0},
 Manipulate[
  Dynamic[
   Graphics3D[{PointSize[Large], Hue[a],
     Sphere[{0, 0, 0}, 200], {Hue[.8], Sphere[{x, y, z}, 50]}},
    PlotRange -> 1050, AspectRatio -> Automatic,
    BoxRatios -> {1, 1, 1}, Axes -> True, ImageSize -> {600, 600},
    ViewPoint -> {1.3 + k, -2.4 + k, 2},
    ViewAngle ->
     Dynamic[Module[{q = ControllerState["X3"]},
       If[Abs[q] > 0.2, va += q*0.005;
        va = Clip[va, {1 Degree, 179 Degree}]];
       va]]
    ]],
  Dynamic[
   d = N[Sqrt[((Dynamic[x] - 0)^2) + ((Dynamic[y] -
           0)^2) + ((Dynamic[z] - 0)^2)], 3  ]],
   Dynamic[a = (N[Dynamic[d]/1000, 3])],
  Dynamic[z = z + ControllerState["Y1"]],
  Dynamic[x = x + ControllerState["Z1"]],
  Dynamic[
   y = y + ControllerState["X1"],
   If[Abs[ControllerState["X1"]] > 0.2,
    y += ControllerState["X1"]*0.05; y = Clip[y, {-974, 974}]]; y] ,
  (*Print[],  *)
  "Y1" -> {z, -1000, 1000, .01},
  "Z1" -> {x, -1000, 1000, .01},
  "Y2" -> {y, -1000, 1000, .01},
  "X3" -> {q, -3, 3, .001},
  "Y3" -> {k, -2, 2, .000001},
   TrackedSymbols -> {All}]
        ]



  • Prev by Date: Fwd: Mathematica 6.0 bug in computing MathieuC
  • Next by Date: Re: Iteratively determing successive values from previous values....
  • Previous by thread: Re: Re: lower diagonal matrix
  • Next by thread: Re: Iteratively determing successive values from previous