home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / RLaB 1.15c / examples / humps.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  600 b   |  27 lines  |  [TEXT/RLAB]
  1. //
  2. //  Write a function that evaluates a mathematical function.
  3. //
  4.  
  5. humps = function(x) 
  6. {
  7.   return (1 ./ ((x-.3).^2 + .01) + 1 ./ ((x-.9).^2 + .04) - 6);
  8. }
  9.  
  10. //
  11. //  The following statements: 
  12. //  Create a vector of the independent variable.
  13.  
  14. //  x = -1:2:.01;
  15.  
  16. //
  17. //  Evaluate the function over the specified interval,
  18. //  and write out the result in one statement.
  19.  
  20. //  write("humps-data"; [x; humps(x)]')
  21.  
  22. //
  23. //  `hump(x)' evaluates the the function for x.
  24. //  `[x; hump(x)]'' forms a matrix with the independent variable (x)
  25. //  as the 1st column, and the evaluated function as the 2nd column.
  26. //
  27.