Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Thichness of Plot does not change Solved

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51164] Re: Thichness of Plot does not change Solved
  • From: "Kevin J. McCann" <kjm at KevinMcCann.com>
  • Date: Thu, 7 Oct 2004 05:25:40 -0400 (EDT)
  • References: <cjr8hn$ope$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

David,

I thought your solution was a little strange, because I would not have 
guessed that a second pair of wiggly brackets was necessary. What I 
found is that the following works:

ImplicitPlot[x^2 + y^2 == 4, {x, -Pi, Pi},
      PlotStyle -> {AbsoluteThickness[2], CMYKColor[1, .6, 0, 0]}];

i.e. remove the brackets around x^2 + y^2 == 4, then you don't need the 
second set on the PlotStyle.

Kevin


David Park wrote:
> Actually, what is needed is an extra pair of {}.
> 
> ImplicitPlot[{x^2 + y^2 == 4}, {x, -Pi, Pi}, 
>     PlotStyle -> {{AbsoluteThickness[2], CMYKColor[1, .6, 0, 0]}}];
> 
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/ 
> 
> From: Philippe [mailto:philippe.morel at ezct.net]
To: mathgroup at smc.vnet.net
> 
> Here is the trick: to get the internal structure of the graphic and to
> use replacement rules:
> 
> if your plot is:
> 
> myPlot=ImplicitPlot[{x^2 + y^2 ==
>    4}, {x, -Pi, Pi}, PlotStyle -> {CMYKColor[1, .6, 0, 0]}]
> 
> Then type:
> 
> myPlotFromTheInside = FullForm[Graphics[myPlot]];
> 
> Then the replacement rule like this:
> 
> myPlotFromTheInside /. {CMYKColor[a_, 
>     b_, c_, d_], Line[e_]} -> {CMYKColor[a, b, c, 
>           d], AbsoluteThickness[5], Line[e]};
> 
> Then:
> Show[Graphics[%]];
> 
> It works!!!
> Also usefull for any options that you can add this way to your plot
> Philippe
> 
> 
> 
> On 27 Sep 04 14:21:31 -0400 (EDT), San wrote:
> 
>>Hi, to all
>>
>>I am facing problem in changing Thickness of plots, plotted using
>>Standard packages.
>>I have tried with following statement.
>>
>><<Graphics`ImplicitPlot`;
>>ImplicitPlot[{x^2 + y^2 == 4},
>>		{x,-Pi, Pi},
>>		PlotStyle -> {CMYKColor[1, .6, 0, 0],
>>		AbsoluteThickness[2]}];
>>
>>Now set AbsoluteThickness[...] to any value it does not affect the
>>graph.
>>I have also tried with Thickness[...] but the result was same.
>>
>>This problem is mainly with standard packages. Like
>>ImplicitPlot, FilledPlot, PolarPlot, InequalityPlot
>>
>>Does anyone has any clue to solve this problem.
>>
>>San
> 
> 
> 
> 


  • Prev by Date: Re: Reads in only part of file
  • Next by Date: Re: Conveniently Restarting Notebooks
  • Previous by thread: Re: Thichness of Plot does not change Solved
  • Next by thread: Re: Trouble with NDSolve Function