Re: elementwise vector scalar subtraction
- To: mathgroup at smc.vnet.net
- Subject: [mg35645] Re: elementwise vector scalar subtraction
- From: phbrf at t-online.de (Peter Breitfeld)
- Date: Wed, 24 Jul 2002 02:06:10 -0400 (EDT)
- References: <ahj04h$goi$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
O.A. Linares, M.D., Ph.D. schrieb:
> 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
>
I don't know if this is the best way:
tc15=Flatten[{First[t],Subtract[Rest[t],0.2]}]
Gruß Peter
--
=--=--=--=--=--=--=--=--=--=--=--=--=--= http://home.t-online.de/home/phbrf
Peter Breitfeld, Bad Saulgau, Germany Meinen GnuPG/PGP-5x Key gibts dort