Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

GreyLevel in ParametricPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg6312] GreyLevel in ParametricPlot3D
  • From: ca10 at ukc.ac.uk (C.Antonopoulos)
  • Date: Sat, 8 Mar 1997 00:26:37 -0500 (EST)
  • Organization: University of Kent at Canterbury, UK.
  • Sender: owner-wri-mathgroup at wolfram.com

hi,

I have prepared a ParametricPlot3D consisting
of two forms:
	i. a closed sinusoidal 'ribbon'
	ii. a plane annular ring

The following works ok:
In[7]:= ParametricPlot3D[	{
	{u Sin[t], u Cos[t], Sin[3t]},
	{u Sin[t], u Cos[t], 0}
				},
	{t, -Pi, Pi}, {u, 0.9, 1.1},
	Boxed -> False, Axes -> False, PlotPoints -> {200,2}]

My PROBLEM arises when trying to change the GrayLevel[] of the
two forms (independently). The following doesn't work:

In[7]:= ParametricPlot3D[       {
        {u Sin[t], u Cos[t], Sin[3t], GrayLevel[0.8]},
        {u Sin[t], u Cos[t], 0, GrayLevel[0.2]}
                                },
        {t, -Pi, Pi}, {u, 0.9, 1.1},
        Boxed -> False, Axes -> False, PlotPoints -> {200,2}]

After saving the ParametricPlot3D into a "file", I use the command:

psfix "file" -epsf > "file.eps"

in order to use the plot into a LaTex file. The final graphic is of
a single GrayLevel ... unfortunately.

Do you know if there is any way to solve this problem?

thanks


  • Prev by Date: Substitution of variables in differential equations
  • Next by Date: Fwd: Generating lists of normally-distributed numbers?
  • Previous by thread: Substitution of variables in differential equations
  • Next by thread: Raster-Based Graphics