MathGroup Archive 2005

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

Search the Archive

Re: Thread

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53253] Re: Thread
  • From: Carlo Teubner <"see signature."@example.com>
  • Date: Mon, 3 Jan 2005 04:29:30 -0500 (EST)
  • References: <cr8eem$r86$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Sorry, there were some syntax errors in my previous ThreadOptions. Here 
is the corrected version.

ThreadOptions[f_[args___, opts___?OptionQ], spec___] :=
  Module[{fth=Thread[F[args], spec], oth},
   If[Head[fth]===F, F[args,opts],
    oth = Inner[#2->#1&, Thread[{opts}[[All,2]]], {opts}[[All,1]], seq];
    Which[ Head[oth]===seq, Append[#, oth]& /@ fth,
           Length[oth]==Length[fth], Inner[Append, fth, oth, List],
           True, ERROR
         ]  /. seq -> Sequence
    ]
   ] /. F -> f


Carlo

-- 
C   Teubner  t     offline   de
  dot       at minus       dot
   ...oops: "on" not "off" :)


  • Prev by Date: Re: How to draw a trajectory in DensityPlot&#65311;
  • Next by Date: Re: Play restarting to early
  • Previous by thread: Thread
  • Next by thread: Re: Thread