Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: programming competition

  • To: mathgroup at smc.vnet.net
  • Subject: [mg4910] Re: [mg4847] programming competition
  • From: Fred Simons <wsgbfs at wsgbo02.win.tue.nl>
  • Date: Fri, 4 Oct 1996 00:17:45 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

In the following oneliner for Xah Lee's programming competition [mg 4847],
test is the row of points (which may be in any R^n) and len the value of
maxLength.

Flatten[ (Table[ #[[1]] + i (#[[2]] - #[[1]]),
{i, 0, 1, len/Sqrt[(#[[2]]-#[[1]]).(#[[2]]-#[[1]])]} ]&) /@
Partition[test, 2, 1], 1 ]

Fred Simons
Eindhoven University of Technology

==== [MESSAGE SEPARATOR] ====


  • Prev by Date: Differential equations
  • Next by Date: Re: optimal control
  • Previous by thread: Differential equations
  • Next by thread: Re: Re: programming competition