MathGroup Archive 2004

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

Search the Archive

Re: Thichness of Plot does not change Solved


Thanks Philippe

I had tried your trick with the following statements-

=======================================================
ln[1]:= Clear[minX, maxX, minY, maxY, G1];
	minX = -5; maxX = 5; minY = -5; maxY = 5;
	G1 = ImplicitPlot[{x^2 + y^2 == 3},
		{x, -Pi, Pi}, 
	        PlotStyle -> {CMYKColor[1, .6, 0, 0]}, 
       	        PlotPoints -> 50,
		DisplayFunction -> Identity];

	FF = FullForm[Graphics[G1]];

	FF /. {CMYKColor[a_, b_, c_, d_], Line[e_]} ->
	      {CMYKColor[a, b, c, d],
                Thickness[0.007], Line[e]};

	Show[Graphics[%]];
=======================================================

But it displays as error -

=======================================================
Graphics::gprim: 
 Graphics[List[List[List[],List[List[\[LeftSkeleton]1
	\[RightSkeleton],List[\[LeftSkeleton]1
        \[RightSkeleton]]]],List[]]],List[\[LeftSkeleton]1
        \[RightSkeleton],\[LeftSkeleton]26\[RightSkeleton]]]
	was encountered where a Graphics primitive or
        directive was expected.
=======================================================


What i am doing wrong?
I am using mathematika 4.1.
Please help me i am very new to Mathemtika. I will really appreciate
it.

San


  • Prev by Date: Re: solve and simplify. force left hand side to be 0==
  • Next by Date: Re: No more memory available
  • Previous by thread: Re: Re: Thichness of Plot does not change Solved
  • Next by thread: Re: Thichness of Plot does not change Solved