Illumination or obfuscation?
- To: mathgroup at smc.vnet.net
- Subject: [mg43943] Illumination or obfuscation?
- From: "Steven T. Hatton" <hattons at globalsymmetry.com>
- Date: Wed, 15 Oct 2003 04:59:18 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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}))