MathGroup Archive 2003

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

Search the Archive

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}))


  • Prev by Date: Problem with 4.2 on Slackware 9.1
  • Next by Date: Signals&Systems package
  • Previous by thread: Re: Problem with 4.2 on Slackware 9.1
  • Next by thread: Re: Illumination or obfuscation?