home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo3.zip / ROOT.PAS / ROOT.PAS
Pascal/Delphi Source File  |  1991-06-12  |  1KB  |  81 lines
  1. .TXT 0 0 0 0
  2. C a111,584,38
  3. {\rtf1\ansi \deff0
  4. {\fonttbl
  5. {\f0\fnil Helv;}
  6. }
  7. {\f0 \fs20 \b \i0 \ul0 ROOT FUNCTION}
  8. }
  9. .TXT 2 2 0 0
  10. C a253,568,60
  11. {\rtf1\ansi \deff0
  12. {\fonttbl
  13. {\f0\fnil Helv;}
  14. }
  15. Suppose you want to find zeroes of\par the
  16.  following function:
  17. }
  18. .EQN 5 3 0 0
  19. f(x):(x)^(3)-3*x+1
  20. .TXT 3 -3 0 0
  21. C a91,568,19
  22. {\rtf1\ansi \deff0
  23. {\fonttbl
  24. {\f0\fnil Helv;}
  25. }
  26. Start with a plot:
  27. }
  28. .EQN 0 16 0 0
  29. x:-2,-1.9;2
  30. .EQN 1 -16 0 0
  31. 3&-3&f(x)@2&-2&x
  32. 0 1 0 1 0
  33. 0 1 0 1 0
  34. 0 1 0 0 NO-TRACE-STRING
  35. 0 2 1 0 NO-TRACE-STRING
  36. 0 3 2 0 NO-TRACE-STRING
  37. 0 4 3 0 NO-TRACE-STRING
  38. 0 1 4 0 NO-TRACE-STRING
  39. 0 2 5 0 NO-TRACE-STRING
  40. 0 3 6 0 NO-TRACE-STRING
  41. 0 4 0 0 NO-TRACE-STRING
  42. 0 1 1 0 NO-TRACE-STRING
  43. 0 2 2 0 NO-TRACE-STRING
  44. 0 3 3 0 NO-TRACE-STRING
  45. 0 4 4 0 NO-TRACE-STRING
  46. 0 1 5 0 NO-TRACE-STRING
  47. 0 2 6 0 NO-TRACE-STRING
  48. 0 3 0 0 NO-TRACE-STRING
  49. 0 4 1 0 NO-TRACE-STRING
  50. 0 1 21 9
  51.  
  52. .TXT 15 -1 0 0
  53. C a138,568,26
  54. {\rtf1\ansi \deff0
  55. {\fonttbl
  56. {\f0\fnil Helv;}
  57. }
  58. [Scroll to see solutions]
  59. }
  60. .TXT 4 2 0 0
  61. C a265,560,69
  62. {\rtf1\ansi \deff0
  63. {\fonttbl
  64. {\f0\fnil Helv;}
  65. }
  66. Now, with three different guesses, we\par 
  67. can find the three solutions.
  68. }
  69. .EQN 5 0 0 0
  70. x:-2
  71. .EQN 0 7 0 0
  72. root(f(x),x)={18998}?
  73. .EQN 3 -7 0 0
  74. x:0
  75. .EQN 0 7 0 0
  76. root(f(x),x)={18998}?
  77. .EQN 3 -7 0 0
  78. x:2
  79. .EQN 0 7 0 0
  80. root(f(x),x)={18998}?
  81.