Re: Column vectors should be interpreted as simple lists where
- To: mathgroup at smc.vnet.net
- Subject: [mg121332] Re: Column vectors should be interpreted as simple lists where
- From: Christopher Young <cy56 at comcast.net>
- Date: Sun, 11 Sep 2011 07:28:12 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <20110910115652.MZQ9L.1701997.imail@eastrmwml48>
On Sep 10, 2011, at 11:56 AM, Bob Hanlon wrote:
>
> MF[x_] := Map[Flatten, x]
>
> When using postfix notation you don't need to use a pure function form
such as MF[#]&
Right, thanks. Actually, I think I needed a second argument, a level
specifier in order to flatten column-vectors within a list of
column-vectors. I use before but forgot in the version I mailed.
>
> Graphics[{
> {Directive[Thick, Gray],
> Line[Table[{{x}, {Sin[x]}}, {x, 0, 6.3, 0.1}] // MF]},
> {Directive[Dashed, Blue],
> Line[{{{2}, {0}}, {{2}, {Sin[2]}}, {{0}, {Sin[2]}}} // MF]},
> {Directive[PointSize[0.02], Blue],
> Point[{{2}, {Sin[2]}}] // MF}},
> Axes -> True]
>
> However, you don't need Flatten if you don't insert all of those
extraneous brackets.
>
> Graphics[{
> {Directive[Thick, Gray],
> Line[Table[{x, Sin[x]}, {x, 0, 6.3, 0.1}]]},
> {Directive[Dashed, Blue],
> Line[{{2, 0}, {2, Sin[2]}, {0, Sin[2]}}]},
> {Directive[PointSize[0.02], Blue], Point[{2, Sin[2]}]}},
> Axes -> True]
>
> Eliminating other extraneous material
>
> Graphics[{
> {Thick, Gray,
> Line[Table[{x, Sin[x]}, {x, 0, 6.3, 0.1}]]},
> Dashed, Blue,
> Line[{{2, 0}, {2, Sin[2]}, {0, Sin[2]}}],
> PointSize[0.02],
> Point[{2, Sin[2]}]},
> Axes -> True]
>
>
> Bob Hanlon
Chris Young
cy56 at comcast.net