Do loops in Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg55170] Do loops in Mathematica*From*: "dumb_founded" <andreajagger_8 at hotmail.com>*Date*: Tue, 15 Mar 2005 00:22:03 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

I am having trouble setting up Do loops in Mathematica. Even when I put in a return statement, I get no output. Below is a concrete example of code I am putting in: Do[{p = Solve[x^2 + 3*x + 1 == 0, x], Return[2*p]}, {i, 1}] I get nothing out of it. Here is a sketch of the code I want to construct but am scared to because of the above problem I keep encountering. (1) the first expression in the Do loop calls the FindRoot function on nonlinear function of x that involves a constant c. The constant c is in curly brackets at the end of the Do loop specifying a beginning value for c and an ending value for c. (2) I take the root found in the previous expression and I use it to calculate two numerical integrals (3) I add or subtract the two numerical integrals found in the previous expressions and I return the value of this expression (and this expression alone). I am having a headache figuring out this simple chore. Mathematica simply refuses to behave.

**Follow-Ups**:**Re: Do loops in Mathematica***From:*"Matthias Bode" <lvsaba@hotmail.com>