home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / sci / math / symbolic / 3043 < prev    next >
Encoding:
Text File  |  1992-11-19  |  1.2 KB  |  34 lines
  1. Newsgroups: sci.math.symbolic
  2. Path: sparky!uunet!stanford.edu!leland.Stanford.EDU!sarrenhe
  3. From: sarrenhe@leland.Stanford.EDU (mo Saarenheimo)
  4. Subject: Plotting implicite functions in Mathematica
  5. Message-ID: <1992Nov19.174001.1294@leland.Stanford.EDU>
  6. Sender: news@leland.Stanford.EDU (Mr News)
  7. Organization: DSG, Stanford University, CA 94305, USA
  8. Date: Thu, 19 Nov 92 17:40:01 GMT
  9. Lines: 23
  10.  
  11. I am using Mathematica, and my problem is the following:
  12.  
  13. I have an implicite function F(X,A)=0, 0<A<1, which can not be solved 
  14. explicitly for X. I wish to plot X as a function of A. Here's the best
  15. I've been able to work out.
  16.  
  17. Plot[X/.FindRoot[F[X,A]==0,{X,Xinit}],{A,0,1}]
  18.  
  19. The obvious problem with this approach is that, for every value of A, the
  20. iteration for X begins from the same initial value Xinit. This is, of
  21. course, inefficient, and often there exists no initial value Xinit for
  22. which the iteration converges for every value of A.
  23.  
  24. Since F(X,A) is continuous, the obvious alternative is to use the solution
  25. reached by FindRoot for previous value of A as the initial value for the 
  26. next iteration.
  27.  
  28. Can somebody suggest an elegant and efficient way to do this?
  29.  
  30. Thanks in advance,
  31.  
  32. Tuomas Saarenheimo
  33.  
  34.