Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: 2D Plot for a face of a 3D plot box?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122881] Re: 2D Plot for a face of a 3D plot box?
  • From: Dan <dflatin at rcn.com>
  • Date: Mon, 14 Nov 2011 07:06:56 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201111130943.EAA00017@smc.vnet.net> <j9ocj5$17u$1@smc.vnet.net>

On Nov 13, 7:18 am, Heike Gramberg <heike.gramb... at gmail.com> wrote:
> You could use MeshFunctions to draw curves on a 3D surface. For example
>
> f[x_, y_] := Sin[x y];
> Plot3D[f[x, y], {x, 0, 2 Pi}, {y, 0, 2 Pi}, PlotPoints -> 40,
>  MeshFunctions -> Function[{x, y, z}, (x - Pi)^2 + (y - Pi)^2],
>  Mesh -> {{4}},
>  MeshStyle -> {Thick, Blue}]
>
> Alternatively, you could use ParametricPlot3D to draw the curve
> separately and use Show to combine the plots, e.g.
>
> Show[{Plot3D[Sin[x y], {x, 0, 2 Pi}, {y, 0, 2 Pi}, Mesh -> None,
> PlotPoints -> 40],
>   ParametricPlot3D[{Pi + 2 Cos[t], Pi + 2 Sin[t], f[Pi + 2 Cos[t], Pi +
> 2 Sin[t]]},
>    {t, 0, 2 Pi},
>    PlotStyle -> {Thick, Blue}]}]
>
> You can also use this method to plot graphs on the bounding box of a 3D
> plot. For example
>
> With[{bb = {{0, 2 Pi}, {0, 2 Pi}, {-1.5, 1.5}}},
>  Show[{
>    Plot3D[Sin[x y], {x, 0, 2 Pi}, {y, 0, 2 Pi}, Mesh -> None, PlotPoints
> -> 40],
>    ParametricPlot3D[{Pi + 2 Cos[t], Pi + 2 Sin[t], bb[[3, -1]]},
>     {t, 0, 2 Pi},
>     PlotStyle ->  {Thick, Red}]},
>   PlotRange -> bb]]
>
> Heike
>
> On 13 Nov 2011, at 10:43, Brentt wrote:
>
>
>
>
>
>
>
> > Hello,
>
> > Is there a way to have a 2D plot on a face of the bounding box of a 3D
> > surface plot? Only ordered pairs in the 2D function would have any opacity
> > of course, so the view of the 3D surface won't be obstructed.

While not exactly what the original poster wanted, here is one more
possibility for combining 2D and 3D plots:

With[{bb={{0,2 Pi},{0,2 Pi},{-1.5,1.5}}},
  Module[{cplot,vtc,cpanecoords},
    cplot=Texture[Rasterize@ContourPlot[Sin[x y],{x,0,2 Pi},{y,0,2
Pi},Frame->False]];
    vtc={{0,0},{1,0},{1,1},{0,1}};
    cpanecoords={{0,0,1.5},{0,2Pi,1.5},{2Pi,2Pi,1.5},{2Pi,0,1.5}};
    Show[{

Graphics3D[{Opacity[0.5],cplot,Polygon[cpanecoords,VertexTextureCoordinates-
>vtc]}],
      Plot3D[Sin[x y],{x,0,2 Pi},{y,0,2 Pi},Mesh->None,PlotPoints->40]
    }]
  ]
]

-- Dan



  • Prev by Date: Re: Replace in an elegant way
  • Next by Date: Re: Replace in an elegant way
  • Previous by thread: Re: 2D Plot for a face of a 3D plot box?
  • Next by thread: how to plot new data points to pre-existing figure