Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*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 1995

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

Search the Archive

Mesh

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg1195] Mesh
  • From: donald darling <ddarling at math.uci.edu>
  • Date: Mon, 22 May 1995 02:52:49 -0400

	A late entry in the interleaf speed contest.  The following
simple procedure was used with my klunky DX2-66 running under windows.


  v1={a,b,c,d,e,f,g};v2={A,B,C,D,E,F,G};

  MapThread[If[Random[Integer]==0,#1,#2]&,{v1,v2}]
  {a, B, C, D, e, F, G}

  Do[MapThread[If[Random[Integer]==0,#1,#2]&,{v1,v2}],{1000}]//Timing

  {4.833 Second, Null}

Don Darling



  • Prev by Date: Re: BUGGY Graphics
  • Next by Date: Re: Graphic Bugs
  • Previous by thread: Re: Declaring Variables as Real?
  • Next by thread: Transpose[{1,2}]