From NewWiki

Abbys Graphics Experiments

Testing Some Graphics Commands
Sample Graphing
Uploading Notebook Experiment
Related Pages

Testing Some Graphics Commands

This page is taking a while to load...I may have too many LiveGraphics3D items on it already...

In[1]:= Plot[Cos[x]+Sin[5x],{x,-4Pi,4Pi},AspectRatio->Automatic,ImageSize->350]

Out[1]:=

In[2]:= Needs["Graphics`Graphics`"]

In[3]:= PolarPlot[Sin[8t]+Cos[3t],{t,0,2Pi},PlotStyle->Hue[0.75,1,0.75]]

Out[3]:=

Let's try ParametricPlot3D...

In[4]:= ParametricPlot3D[{Sin[3u] Cos[v], u Sin[v], u}, {u,-2,2},{v,0,2Pi}]

Out[4]:=

In[5]:= ParametricPlot3D[{u Sin[u]Cos[v],v Sin[u]Sin[v],v Cos[u]},{u,0,2Pi},{v,0,5Pi/4},Boxed->False, Axes->False]

Out[5]:=

What about cylindrical...

In[6]:= Needs["Graphics`ParametricPlot3D`"]

In[7]:= CylindricalPlot3D[(4Pi-r)Cos[r]+Cos[4t],{r,Pi,4Pi},{t,0,2Pi},Boxed->False,Axes->False]

Out[7]:=

Spherical...

In[8]:= SphericalPlot3D[3 Cos[2phi], {phi, 0, Pi}, {theta, 0, 2Pi},Boxed->False,Axes->False]

Out[8]:=

More Spherical Graphs

Let's try vector fields...

2D:
In[9]:= Needs["Graphics`PlotField`"]

In[10]:= PlotVectorField[{x,y},{x,-2,2},{y,-2,2}]

Out[10]:=

3D:
In[11]:= Needs["Graphics`PlotField3D`"]

In[12]:= PlotVectorField3D[{x,y,z},{x,-1,1},{y,-1,1},{z,-1,1},VectorHeads\[Rule]True,Boxed->False]

Out[12]:=

Sample Graphing

Say we want to graph two surfaces together.

In[13]:= plane=ParametricPlot3D[{0,y,z},{y,-1,1},{z,-1,1},PlotPoints->2]

Out[13]:=

In[14]:= surf=Plot3D[y Cos[x],{y,-1,1},{x,-Pi/2,Pi/2}]

Out[14]:=

In[15]:= Show[plane,surf]

Out[15]:=

This works better if the plane is graphed with more points.
In[16]:= plane=ParametricPlot3D[{0,y,z},{y,-1,1},{z,-1,1},PlotPoints->20]; Show[plane,surf]

Out[16]:=

Ah, but I can remove the "edges."
In[17]:= plane=ParametricPlot3D[{0,y,z,EdgeForm[]},{y,-1,1},{z,-1,1},PlotPoints->20]; Show[plane,surf]

Out[17]:=

(Note: DisplayFunction->Identity doesn't work.... I just did them the in the same ExpressionLive command.)

Other options...
In[18]:= surf=Plot3D[y Cos[x],{y,-1,1},{x,-Pi/2,Pi/2},Mesh->False,Boxed->False,AxesEdge->{-1,-1}]

Out[18]:=

But (I forgot) AxesEdge doesn't work with LiveGraphics3D.
In[19]:= surf=Plot3D[y Cos[x],{y,-1,1},{x,-Pi/2,Pi/2},Mesh->False,Boxed->False,AxesEdge->{-1,-1}]

Out[19]:=

or
In[20]:= Plot3D[y Cos[x],{y,-1,1},{x,-Pi/2,Pi/2},Mesh->False,Boxed->False,Axes->False]

Out[20]:=

Spin the one below in certain ways and it looks like a flat sheet flapping around. It's addictive...

In[21]:= Plot3D[y Cos[x],{y,-1,1},{x,0,Pi},Mesh->False,Boxed->False,Axes->False]

Out[21]:=

Uploading Notebook Experiment

Below I told it to "visualize" a Mathematica notebook. Basically it is taking a notebook file I made in Mathematica and showing it as html. The RealTime3D doesn't work this way.