Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #1970 > unrolled thread

Re: Postfix specification graphics, etc.

Back to article view | Back to comp.soft-sys.math.mathematica

Contents

  Re: Postfix specification graphics, etc. Heike Gramberg <heike.gramberg@gmail.com> - 2011-04-29 11:29 +0000

#1970 — Re: Postfix specification graphics, etc.

To get the points on top of the lines you need to list the points in the Graphics
argument after all the lines, e.g.

Graphics[{Thickness[0.02], PointSize[0.05],
  Table[{Hue[0.8 (i - 1)/9], Line[P[[i]] ]}, {i, 1, 11}],
  Table[{Hue[0.8 (i - 1)/9], Point /@ P[[i]] }, {i, 1, 11}]}]

(note that you don't have to repeat Thickness[0.02] and PointSize[0.05]
in each iteration).

You can also Transpose the original Table:

Graphics[{Thickness[0.02], PointSize[0.05],
  Transpose[Table[{{Hue[0.8 (i - 1)/9], Line[P[[i]] ]},
     {Hue[0.8 (i - 1)/9], Point /@ P[[i]] }}, {i, 1, 11}]]}]

By the way, to get the lists of start and finish points, why not simply use something
like

S = P[[All,1]];
F = P[[All,-1]];

Heike.

On 28 Apr 2011, at 11:34, Christopher O. Young wrote:

> I think I'm finally catching on to the pure function notation enough to put
> everything into the kind of postfix notation I prefer. It just seems
> preferable to me to have the geometrical objects positioned first, where
> they're most prominent, and have the commands that modify their display
> following them.
>
> For example, the following plots a "trammel" sliding in a corner, always
> tangent to the same hyperbola. All the lines are colored with corresponding
> colors for the points.
>
>
> P = {{0, k}, {10 - k, 0}}~Table~{k, 0, 10};
>    (* Points for the lines *)
>
> S = Drop[P, {}, {2}] // Flatten[#, 1] &;
>            (* The start points *)
>
> F = P // Drop[#, {}, {1}] & // Flatten[#, 1] &;
>
>    (* The finish points *)
>
> ({
>  Line[{S[[j]], F[[j]]}] //  {Hue[0.8 (j - 1)/9],Thickness[0.02], #} &,
> {Point[S[[j]]], Point[F[[j]]]} //{Hue[0.8 (j - 1)/9],PointSize[0.05],#} &
>
> }
>   ~Table~{j, 1, 11})\
> // Graphics
>
> It's a little irritating to have to add parentheses to get Graphics to have
> enough scope, and a backslash to continue to the next line, but I still like
> getting the lines and points first.
>
> One interesting thing here is that
>
>  {Hue[0.8 (j - 1)/9],Thickness[0.02], #} &
>
>  is being used as a pure function, i.e., the list function, so that I can
> list each set of graphics directives after the objects they modify.
>
> Also it's lucky that I can get away with putting the points in a list and
> then applying the directives via another list, since I haven't been able to
> get it to work via numbered slots (i.e., #1, #2, etc.).
>
>
> I don't think it's accidental that the "//" form resembles the "pipe"
> operator from Unix, since it seems to be possible to use it for the same
> purpose, to "pipe" the output of one command into another.
>
> One question: How do I get all the points to plot on top?
>
> Chris Young
> cy56@comcast.net
> IntuMath.org
>
>
>

[toc] | [standalone]

Back to top | Article view | comp.soft-sys.math.mathematica

csiph-web