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

Re: For loop outputs to a list

• To: mathgroup at smc.vnet.net
• Subject: [mg112948] Re: For loop outputs to a list
• From: Peter Pein <petsie at dordos.net>
• Date: Thu, 7 Oct 2010 03:37:03 -0400 (EDT)
• References: <i8c90m$gd8$1@smc.vnet.net>

Am Mon, 4 Oct 2010 10:07:18 +0000 (UTC)
schrieb matthew <mattypang at gmail.com>:

> Hello, I'm a bit rubbish at mathematica and I've tried searching this
> group for help.
> 
> For[i = 0, i < 10^6, i++,
>   If[Abs[Re[LS2[0.004 + i*Pre]] - Re[RS[0.004 + i*Pre]]] < 10^-7  ,
>    Print[N[0.004 + i*Pre]]
>     If[0.004 + i*Pre > 0.007, Break[]]
>    ]];
> 
> which gives me an output of:
> 0.00424538
> 
> 0.00448576
> 
> 0.00514995
> 
> 0.00584308
> 
> 0.00584309
> 
> 0.00646176
> 
> 0.00758337
> 
> How would I get these into a list or some way i can manipulate it?
> 

Hi,

as the Break depends only on i and the constant Pre, it is easy to use
Select:

Select[.004 + Pre Range[Ceiling[3/(1000 Pre)]],
 Abs[Re[LS2[#]] - Re[RS[#]]] < 10^-7 &]

Peter