Message Boards

WOLFRAM COMMUNITY

3197 Views

3 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Wolfram Language

How can I get this ParametricPlot3D to use a 2D Slider to control it?

Michael Harcrow

Michael Harcrow, University of North Texas

Posted 9 years ago

I have been having an issue getting a slider to control this equation. I would like a 2D Slider that moves from ymin to ymax on the vertical and xmin to xmax on the horizontal. Most likely the ranges from min to max on both of these will be -5 to 5 or so. Can you take a look at what I have to see how I could improve it? f[u_, v_] = {u - (u^3/3) + u v^2, v - (v^3/3) + u^2 v, u^2 - v^2}; Manipulate[ ParametricPlot3D[f[u, v], {u, xmin, xmax}, {v, ymin, ymax}, MeshStyle -> Thickness[0.001], BoundaryStyle -> Directive[Black, Thickness[0.004]], PlotPoints -> 25, ColorFunction -> "BlueGreenYellow", ImageSize -> 800, AxesLabel -> {x, y, z}, PlotRange -> {All, All}, LabelStyle -> Directive[Black, Medium, Bold]], {{xmin, -2}, -5, -1, 1}, Dynamic[xmin], {{xmax, 2}, 1, 5, 1}, Dynamic[xmax], {{ymin, -2}, -5, -1, 1}, Dynamic[ymin], {{ymax, 2}, 1, 5, 1}, Dynamic[ymax]] Attachments:

I have been having an issue getting a slider to control this equation. I would like a 2D Slider that moves from ymin to ymax on the vertical and xmin to xmax on the horizontal. Most likely the ranges from min to max on both of these will be -5 to 5 or so.

Can you take a look at what I have to see how I could improve it?

f[u_, v_] = {u - (u^3/3) + u v^2, v - (v^3/3) + u^2 v, u^2 - v^2};

Manipulate[
 ParametricPlot3D[f[u, v], {u, xmin, xmax}, {v, ymin, ymax}, 
  MeshStyle -> Thickness[0.001], 
  BoundaryStyle -> Directive[Black, Thickness[0.004]], 
  PlotPoints -> 25, ColorFunction -> "BlueGreenYellow", 
  ImageSize -> 800, AxesLabel -> {x, y, z}, PlotRange -> {All, All}, 
  LabelStyle -> Directive[Black, Medium, Bold]], {{xmin, -2}, -5, -1, 
  1}, Dynamic[xmin], {{xmax, 2}, 1, 5, 1}, 
 Dynamic[xmax], {{ymin, -2}, -5, -1, 1}, 
 Dynamic[ymin], {{ymax, 2}, 1, 5, 1}, Dynamic[ymax]]

POSTED BY: Michael Harcrow

3 Replies

Sort By:

Sean Clarke

Sean Clarke, Wolfram Research

Posted 9 years ago

You might also consider using IntervalSlider. http://reference.wolfram.com/language/ref/IntervalSlider.html

POSTED BY: Sean Clarke

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 9 years ago

I would do it with DynamicModule: DynamicModule[{p = {-1, -1}, q = {2, 2}}, Row[{LocatorPane[Dynamic[{p, q}], Graphics[{Gray, Dynamic@Rectangle[p, q]}, PlotRange -> {{-2, 5}, {-2, 5}}, Frame -> True]], Dynamic@ With[{xmin = p[[1]], xmax = q[[1]], ymin = p[[2]], ymax = q[[2]]}, ParametricPlot3D[f[u, v], {u, xmin, xmax}, {v, ymin, ymax}]]}]]

I would do it with DynamicModule:

DynamicModule[{p = {-1, -1}, q = {2, 2}},
 Row[{LocatorPane[Dynamic[{p, q}],
    Graphics[{Gray, Dynamic@Rectangle[p, q]},
     PlotRange -> {{-2, 5}, {-2, 5}}, Frame -> True]],
   Dynamic@
    With[{xmin = p[[1]], xmax = q[[1]], ymin = p[[2]], 
      ymax = q[[2]]},
     ParametricPlot3D[f[u, v], {u, xmin, xmax}, {v, ymin, ymax}]]}]]

POSTED BY: Gianluca Gorni

Michael Harcrow

Michael Harcrow, University of North Texas

Posted 9 years ago

This does work pretty well. However I would like to move it to just have one moving piece in the locator instead of two. Either way this will do. Thank you for your help!

POSTED BY: Michael Harcrow

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback