MathGroup Archive 1998

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

Search the Archive

Re: Listable

  • To: mathgroup at smc.vnet.net
  • Subject: [mg15146] Re: Listable
  • From: BobHanlon at aol.com
  • Date: Wed, 16 Dec 1998 03:11:20 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 12/13/98 2:55:22 PM, rommel at bc.edu writes:

>I'd like to plot an GraphicsArray with a structure like
>
>Show[GraphicsArray[Plot[{{Sin[x],Cos[x]},{Tan[x],Cot[x]}},{x,0,3}]]]
>
>but when I make Plot listable
>
>SetAttributes[Plot,Listable]
>
>it mistakes the Range {x,0,3} as an argument. That I ca prevent by
>
>myPlot=Plot[#,{x,0,3}]&;
>
>SetAttributes[myPlot,Listable];
>
>Show[GraphicsArray[myPlot[{{Sin[x],Cos[x]},{Tan[x],Cot[x]}}]]]
>
>but still I get just one plot.
>
>FullForm shows me a lsit of lines?!
>
>Any sugestion?
>

Martin,

Study the differences between these statements and their outputs.

Bob Hanlon
_____________________________

Plot[{Sin[x], Cos[x], Tan[x], Cot[x]}, {x, 0, 3}];

Show[GraphicsArray[
	Plot[#, {x, 0, 3}, DisplayFunction->Identity]& /@ 
	{Sin[x], Cos[x], Tan[x], Cot[x]}], 
	DisplayFunction -> $DisplayFunction];

Show[GraphicsArray[
	Plot[#, {x, 0, 3}, DisplayFunction->Identity]& /@ 
	{{Sin[x], Cos[x]}, {Tan[x], Cot[x]}}], 
	DisplayFunction -> $DisplayFunction];

Show[GraphicsArray[
	{Plot[#, {x, 0, 3}, DisplayFunction->Identity]& /@ 
	{Sin[x], Cos[x]},  
	Plot[#, {x, 0, 3}, DisplayFunction->Identity]& /@ 
	{Tan[x], Cot[x]}}], 
	DisplayFunction -> $DisplayFunction];

Show[GraphicsArray[Partition[
	Plot[#, {x, 0, 3}, DisplayFunction->Identity]& /@ 
	{Sin[x], Cos[x], Tan[x], Cot[x]}, 2]], 
	DisplayFunction -> $DisplayFunction];


  • Prev by Date: I need to find the correlation coefficient
  • Next by Date: Re: Together chokes with Prime Modulus > 46337
  • Previous by thread: Re: I need to find the correlation coefficient
  • Next by thread: Pure Functions