Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: '3D locator Coordinate' topicStudent Support Forum > General > Archives > "3D locator Coordinate"

Next Comment >Help | Reply To Topic
Author Comment/Response
Tom
02/17/08 4:38pm

I found code which creates a mouse-over 3d locater. I'd like to know how I can get it to display the x,y,z coordinates somewhere on the screen as well. The code is below:

fun[x_, y_] := x^2 + y^2

DynamicModule[{f, b},
EventHandler[
Show[Plot3D[fun[x, y], {x, -1, 1}, {y, -1, 1}],
Graphics3D[
Dynamic@Quiet@
Check[Sphere[((f - b) t + f) /.
FindRoot[
fun[#1, #2] == #3 & @@ ((f - b) t + f), {t, 0}], .1], {}]],
BoxRatios -> {1, 1,
1}], {"MouseMoved" :> ({f, b} =
MousePosition["Graphics3DBoxIntercepts"])}]]



URL: ,

Subject (listing for '3D locator Coordinate')
Author Date Posted
3D locator Coordinate Tom 02/17/08 4:38pm
Re: 3D locator Coordinate yehuda ben-s... 02/24/08 4:40pm
Re: 3D locator Coordinate Xavier 02/27/08 2:50pm
Next Comment >Help | Reply To Topic