Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'A problem of NSolve' topicStudent Support Forum > General > "A problem of NSolve"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
08/23/12 11:16pm

In Response To 'Re: Re: A problem of NSolve'
---------
I am not certain I understand what you need to do.

Does this work for you?

Do[Do[Print[Flatten[{T12,T13,{x,y,z} /. FindRoot[{-(1+T12+T13)*x + T12*2/Pi* ArcTan[(Pi/2)*1.4*y] +T13*2/Pi* ArcTan[(Pi/2)*1.4*z] == 0, -(1 + T12 + 1)*y + T12*2/Pi* ArcTan[(Pi/2)*1.4*x] + 1*2/Pi* ArcTan[(Pi/2)*1.4*z] == 0, -(1 + T13 + 1)*z +T13*2/Pi* ArcTan[(Pi/2)*1.4*x] + 1*2/Pi* ArcTan[(Pi/2)*1.4*y] == 0}, {{x,1}, {y,1}, {z,1}}]}]], {T12,0,3,0.1}], {T13,0,3,0.1}]

If this does not work for you then what do you need it to do?

URL: ,

Subject (listing for 'A problem of NSolve')
Author Date Posted
A problem of NSolve Xizheng 08/23/12 11:06am
Re: A problem of NSolve Bill Simpson 08/23/12 11:47am
Re: Re: A problem of NSolve Xizheng 08/23/12 1:48pm
Re: Re: Re: A problem of NSolve Bill Simpson 08/23/12 11:16pm
Re: A problem of NSolve Xizheng 08/24/12 09:42am
Re: Re: A problem of NSolve Bill Simpson 08/25/12 10:58am
Re: Re: Re: A problem of NSolve Bill Simpson 08/26/12 3:11pm
Re: Re: Re: A problem of NSolve Xizheng 08/26/12 4:35pm
Re: A problem of NSolve Xizheng 08/24/12 09:43am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic