RE: Many Functions Into One

*To*: mathgroup at smc.vnet.net*Subject*: [mg45516] RE: [mg45509] Many Functions Into One*From*: "David Park" <djmp at earthlink.net>*Date*: Sun, 11 Jan 2004 03:20:17 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Bruce, Some examples, but things also depend on how you want to merge them. xlist = Table[1 + Random[Real, {-1, 1}], {100}]; f[list_] := {Mean[list], Variance[list]} f[xlist] Or {Mean[#], Variance[#]} &[xlist] Or g[xlist] /. {{g -> Mean}, {g -> Variance}} Or MapThread[#[xlist] &, {{Mean, Variance}}] David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Bruce W. Colletti [mailto:bcolletti at compuserve.com] To: mathgroup at smc.vnet.net Let commands C1 and C2 have common argument X, e.g., C1 is Mean, C2 is Variance and X is a list of reals. Although C1@X and C2@X execute each, how can you merge these into a command that uses X once? I've seen this done but can't find the notes. Thankx. Bruce