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

MathGroup Archive 1998

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

Search the Archive

RE: Thickness of ContourPlot[]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg12700] RE: [mg12679] Thickness of ContourPlot[]
  • From: Ersek_Ted%PAX1A at mr.nawcad.navy.mil
  • Date: Wed, 3 Jun 1998 02:20:53 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Rob Peterson wrote:
|From: "robpeterson"@iname.com at PMDF@PAXMB1 To: mathgroup at smc.vnet.net
|To: ersek ted; "mathgroup"@smc.vnet.net at PMDF@PAXMB1 |Subject: [mg12700] [mg12679]
Thickness of ContourPlot[] lin |Date: Monday, June 01, 1998 11:58PM |
|<<File Attachment: 00000000.TXT>>
|I haven't yet stumbled into how to make ContourPlot lines any thicker.
|Thickness isn't a option for the command and I can seem to find any
|graphics primitive that it will take. |
|Any help will be appreciated; these contour lines are too thin to copy!
|
|Rob
|

Check the available options.

In[1]:=
Options[ContourPlot]

Out[1]=
{AspectRatio -> 1, Axes -> False,
  AxesLabel -> None, AxesOrigin -> Automatic,
  AxesStyle -> Automatic, Background -> Automatic,
  ColorFunction -> Automatic,
  ColorOutput -> Automatic, Compiled -> True,
  ContourLines -> True, Contours -> 10,
  ContourShading -> True, ContourSmoothing -> True,
  ContourStyle -> Automatic,
  DefaultColor -> Automatic, Epilog -> {},
  Frame -> True, FrameLabel -> None,
  FrameStyle -> Automatic, FrameTicks -> Automatic,
  ImageSize -> Automatic, PlotLabel -> None,
  PlotPoints -> 15, PlotRange -> Automatic,
  PlotRegion -> Automatic, Prolog -> {},
  RotateLabel -> True, Ticks -> Automatic,
  DefaultFont :> $DefaultFont,
  DisplayFunction :> $DisplayFunction,
  FormatType :> $FormatType,
  TextStyle :> $TextStyle}

_________________________
You want ContourStyle.


In[2]:=
ContourPlot[Sin[x]Sin[y],{x,-2,2},{y,-2,2},ContourStyle->Thickness[0.01]]

(* Graphic not shown. *)

Out[2]=
 -ContourGraphics -

_________________________
You could the following line so it will work that way automatically.

In[3]:=
SetOptions[ContourPlot,ContourStyle->Thickness[0.01]];


Ted Ersek



  • Prev by Date: RE: Comparison Error. Is ther
  • Next by Date: Re: Thickness of ContourPlot[] lines?
  • Previous by thread: RE: Comparison Error. Is ther
  • Next by thread: Absolute coordinates in Mathematica