Re: Display of 3D contours in 2D
- To: mathgroup at smc.vnet.net
- Subject: [mg4309] Re: Display of 3D contours in 2D
- From: Xah Lee <xah at best.com>
- Date: Tue, 9 Jul 1996 00:48:15 -0400
- Organization: Best Internet Communications
- Sender: owner-wri-mathgroup at wolfram.com
DR JOHN C ERB wrote: >... > If indeed the graphic is 2D contours displayed on 2 perpendicular > planes, can anyone tell me how I can do this? Replace your 2D points by 3D points. Example, contour1 = First@ Graphics@ ContourPlot[ x y, {x,-1,1},{y,-1,1}, AspectRatio->Automatic, ContourShading->False ];0; contour2 = First@ Graphics@ ContourPlot[ x^2+y^2, {x,-1,1}, {y,-1,1}, AspectRatio->Automatic, PlotRange->All, ContourLines->True, ContourShading->False ];0; contour1 = contour1 /. {x_?AtomQ, y_?AtomQ} ->{x,0,y}; contour2 = contour2 /. {x_?AtomQ, y_?AtomQ} ->{0,x,y}; Show[ Graphics3D[{contour1, contour2} ] ];0; Xah xah at best.com; 74631.731 at compuserve.com http://www.best.com/~xah/SpecialPlaneCurves_dir/specialPlaneCurves.html Mountain View, CA, USA ==== [MESSAGE SEPARATOR] ====