Re: Illumination or obfuscation?
- To: mathgroup at smc.vnet.net
- Subject: [mg43979] Re: Illumination or obfuscation?
- From: Tom Burton <tburton at brahea.com>
- Date: Thu, 16 Oct 2003 04:16:16 -0400 (EDT)
- References: <bmj221$pll$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Obfuscation. Break it up.
On 10/14/03 10:55 PM, in article bmj221$pll$1 at smc.vnet.net, "Steven T.
Hatton" <hattons at globalsymmetry.com> wrote:
> To an experienced Mathematica user, is the following snippet clear, and easy
> to understand, or simply an exercise in obfuscation? Assume I already have
> px,py and m[] lying around.
>
> px = {1, 0};
> py = {0, 1};
>
> m[th_] := {{Cos[th], Sin[th]}, {-Sin[th], Cos[th]}}
>
> crossPoint[p_, th_:0, L_:0.5] :=
> Arrow[##,HeadLength -> 0.015]&@@#&/@(p+#.m[th]&/@{-#, #}&/@(L{px, py}))