Re: 3D Projection
- To: mathgroup at smc.vnet.net
- Subject: [mg19746] Re: 3D Projection
- From: adam.smith at hillsdale.edu
- Date: Wed, 15 Sep 1999 03:53:01 -0400
- References: <7ri605$8it@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <7ri605$8it at smc.vnet.net>,
Daniel Kolb <daniel_kolb at gmx.de> wrote:
> Hi
> I don't know if this is the right place for this question.
> I'm searching for a formula for 3D central-projection
> thanx
>
>
I am not sure if this is what you want. But the following
code "projects" a function of 3 dimensions onot the corresponding
planes.
Notes:
1. I apply the option EdgeForm[] to eliminate the grid lines. They
seem to clutter up the plot. Especially for large values of PlotPoints.
2. Picking larger values for PlotPoints reduces the graininess of the
resulting plot, but of course requires more processing time and memory.
Adam Smith
-----------------------------------------------------------------
In[1]:=
<<Graphics`
In[2]:=
m = 1;
n = 2;
p = 3;
thing = ParametricPlot3D[ {
{t,u,0,{EdgeForm[],Hue[ (1-Sin[m Pi t] Sin[n Pi u])/2]}},
{0,t,u,{EdgeForm[],Hue[ (1-Sin[n Pi t] Sin[p Pi u])/2]}},
{t,0,u,{EdgeForm[],Hue[ (1-Sin[m Pi t] Sin[p Pi u])/2]}} },
{t,0,1},{u,0,1},
Lighting->False,PlotPoints->25,AxesLabel->{x,y,z},
ViewPoint->{2.013, 1.731, 1.356},AxesEdge\[Rule]{{-1,1},{-1,1},{-
1,1}},
DisplayFunction->$DisplayFunction];
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.