home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1184 / gepackt.exe / TWOVAR.PLT < prev    next >
Encoding:
Text File  |  1994-02-22  |  687 b   |  32 lines
  1. # twovar.plt - example of plotting a function with two variables
  2. #
  3. # gcd(x,y) finds the greatest common divisor of x and y,
  4. #          using Euclid's algorithm
  5. # as this is defined only for integers, first round to the nearest integer
  6.  
  7. paper size 11 by 8.5
  8.  
  9. min(x,y) = (x < y) ? x : y
  10. max(x,y) = (x > y) ? x : y
  11.  
  12. gcd(x,y) = gcd1(rnd(max(x,y)),rnd(min(x,y)))
  13. gcd1(x,y) = (y == 0) ? x : gcd1(y, x - x/y * y)
  14. rnd(x) = int(x+0.5)
  15.  
  16. sampling 59
  17. map x 1,59
  18. format x 0 y 0
  19. divi x 6,2
  20.  
  21. color red
  22. plot gcd(x, 60)
  23.  
  24. color green
  25. map x 0 60
  26. draw x y
  27. ylabel 'Greatest Common Divisor'
  28.  
  29. color lblue
  30. char font 3 size 0.2 slant 10
  31. title 'Example of a Two-Variable Function'
  32.