Re: Mathematica loop help

*To*: mathgroup at smc.vnet.net*Subject*: [mg121369] Re: Mathematica loop help*From*: Anshuman <anshumanbgg at gmail.com>*Date*: Mon, 12 Sep 2011 04:23:24 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Hey Bill, Thanks a lot for your help (and also Don's who emailed me). I had written my code as an algorithm so I can get my idea across. Thanks to both your help, the code as follows works: I wanted to solve for G1 and G2 and spit out x,y,and two functions of x and y, namely F1 and F2, in my table. Table[{x,y,F1(x,y),F2(x,y)}/.FindRoot[{G1[x,y]==0,G2[x,y]==0},{x,30},{y,40}],{a,0,10,1}] However, 1. FindRoot is sensitive to the start point choice. Since I have some idea about the direction in which my Roots might move when I alter the parameters in my loop, I was wondering if I could add new start points for FindRoot with every iteration. What is happening right now is that your code works for a while (For example from {a,0,5,1} and then starts giving errors so I have to run the code twice, once from {a,0,5,1} with start point {x,30},{y,40} and then {a,6,10,1} but with different start point for FindRoot say {x,55},{y,70}. Could I put the solution of iteration #i as the FindRoot start point for iteration #i+1? 2. Also, What if I wanted to do something more complicated than simply compute formulae like Cos[x+y] from my FindRoot solutions but wanted to something more involved, say some Solve or another FindRoot , and then have the final output in a table. Is there a way to write a more complicated program that spits our a table in the end. Thanks a lot, A