Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Re: A Functional Programming Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg25049] Re: [mg24761] Re: A Functional Programming Question
  • From: Jacqueline Zizi <jazi at club-internet.fr>
  • Date: Sun, 3 Sep 2000 22:11:07 -0400 (EDT)
  • References: <8mdm9v$5o7@smc.vnet.net> <200008090632.CAA00987@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

The following works without step 1 (and 2). It is just another solution.

With [{xyz = #[[1]] & /@ eqns/{a, b, c}},
xyz /. Dispatch[  # -> # == 0 & /@ xyz]]

Mariusz Jankowski wrote:

> David, I suggest the following method:
>
> (1) define a helper function
>
> f[x_,y_]:=(#/y&)/@x
>
> (2) then, as you guessed, use MapThread
>
> MapThread[f[#1, #2] &, {eqns, {a, b, c}}]
>
> I am curious to see how it can be done without step (1).
>
> Regards, Mariusz
>
> ======================================
> Mariusz Jankowski
> University of Southern Maine
> email: mjkcc at usm.maine.edu



  • Prev by Date: Fourier Transform & Data imported from Excel
  • Next by Date: Re: plotsymbol
  • Previous by thread: Re: Fourier Transform & Data imported from Excel
  • Next by thread: newbie PolarPlot question