home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M11.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.1 KB  |  51 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "PLOT OF FUNCTIONS"
  3. 20   PRINT 
  4. 30   DIM Y(9),A$(11)
  5. 40   FOR I = 1 TO 11
  6. 50   READ A$(I)
  7. 60   NEXT I
  8. 70   PRINT "NUMBER OF FUNCTIONS TO BE PLOTTED";
  9. 80   INPUT N
  10. 90   PRINT "X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";
  11. 100   INPUT X1,X2,X3
  12. 110   PRINT "Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";
  13. 120   INPUT Y1,Y2,Y3
  14. 130  Y2 = (Y2 - Y1) / Y3
  15. 140   IF Y2 <  = 70 THEN 170
  16. 150   PRINT "Y-RANGE TOO LARGE"
  17. 160   GOTO 110
  18. 170   PRINT 
  19. 180   PRINT 
  20. 190   LPRINT "X-AXIS CROSSES Y-AXIS AT Y=";Y1
  21. 200   LPRINT "Y-AXIS CROSSES X-AXIS AT X=";X1
  22. 210   LPRINT
  23. 220   FOR X = X1 TO X2 STEP X3
  24. 221   REM  - FUNCTIONS Y(1) TO Y(9) SHOULD BE ENTERED AT INES 221 TO 229
  25. 230   FOR I = 1 TO N
  26. 240  Y(I) =  INT ((Y(I) - Y1) / Y3 + 0.5)
  27. 250   NEXT I
  28. 260   FOR I = 0 TO Y2
  29. 270  S = 0
  30. 280   FOR J = 1 TO N
  31. 290   IF Y(J) <  > I THEN 320
  32. 300  S = S + 1
  33. 310  T = J
  34. 320   NEXT J
  35. 330   IF S > 0 THEN 360
  36. 340   LPRINT A$( SGN (I) + 10);
  37. 350   GOTO 400
  38. 360   IF S > 1 THEN 390
  39. 370   LPRINT A$(T);
  40. 380   GOTO 400
  41. 390   LPRINT "*";
  42. 400   NEXT I
  43. 410   IF X > X1 THEN 430
  44. 420   LPRINT "Y";
  45. 430   LPRINT
  46. 440  A$(11) = " "
  47. 450   NEXT X
  48. 460   LPRINT "X"
  49. 470   DATA  "1","2","3","4","5","6","7","8","9","+","+"
  50. 480   RUN "MATH"
  51.