This question was posted simultaneously on multiple forums. Some answers are posted at Mathematica StackExchange.