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

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

Search the Archive

RE: elementwise vector scalar subtraction

  • To: mathgroup at smc.vnet.net
  • Subject: [mg35637] RE: [mg35625] elementwise vector scalar subtraction
  • From: "DrBob" <majort at cox-internet.com>
  • Date: Wed, 24 Jul 2002 02:05:55 -0400 (EDT)
  • Reply-to: <drbob at bigfoot.com>
  • Sender: owner-wri-mathgroup at wolfram.com

Try something like this:

t = {0, 1, 1.5, 2, 2.5, 4, 6, 8, 10, 15, 20, 30};
Remove @@ Names["tc*"]
(Evaluate@Symbol["tc" <> ToString@#] = {0}~Join~(Rest[t] - #/100.)) & /@
\
Range[15, 30, 5];
?tc*

Bobby Treat

-----Original Message-----
From: O.A. Linares, M.D., Ph.D. [mailto:divinesaam at aol.com] 
To: mathgroup at smc.vnet.net
Subject: [mg35637] [mg35625] elementwise vector scalar subtraction

Dear Colleagues,

I have a t-vector

t = {0, 1, 1.5, 2, 2.5, 4, 6, 8, 10, 15, 20, 30};

I want to subtract 0.15 from each element except the first to get

tc15 = {0, 1 - 0.15, 1.50 - 0.15, 2 - 0.15, 2.5 - 0.15, 4 - 0.15, 6 -
0.15, 8 - 0.15, 10 - 0.15, 15 - 0.15, 20 - 0.15, 30 - 0.15};
       
I then want to subtract 0.20 to get

tc20 = {0, 1 - 0.20, 1.50 - 0.20, 2 - 0.20, 2.5 - 0.20, 4 - 0.20, 6 -
0.20, 8 - 0.20, 10 - 0.20, 15 - 0.20, 20 - 0.20, 30 - 0.20};
       
Is there a way to automate this process for n subtractions from 0.15
to 0.30 to yield individual t-vectors for tc15 through tc30 ?

With Much Appreciation,

Oscar





  • Prev by Date: AW: elementwise vector scalar subtraction
  • Next by Date: RE: GraphicsArray: same width, different height ? 360deg-fly around a surface
  • Previous by thread: Re: elementwise vector scalar subtraction
  • Next by thread: RE: elementwise vector scalar subtraction