home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 17401.ZIP / 17401A.DSK / contours.bas (.txt) < prev    next >
Locomotive BASIC  |  1997-12-15  |  2KB  |  26 lines
  1. CONTOURSBAS
  2.  "ANOTHER GO? Y OR N"
  3.  "CONTOURS(Kosniowsky)"
  4.  *** SETTING UP ***
  5.  *** FUNCTION CHOICE ***
  6. "Choose function"
  7. "1.COS(X*Y)"
  8. "2.COS(X*EXP(-Y/5))"
  9. "3.COS(X*Y/"
  10. "  SQR(X*X+Y*Y))"
  11. "4.COS(Y/(ABS(X)+.5))"
  12. "5.COS((X+Y)/"
  13. "  (LOG(X*X+Y^4+.5)))"
  14. "6.SIN((X+Y)/"
  15. "  LOG(ABS(X*Y)+1.1))"
  16. "7.SIN(X)*COS(Y)"
  17.  "SCALE- LARGE NUMBER GIVES LARGE RANGE";
  18.  *** PLOTTING ***
  19. "F=";
  20. ;"  S=";
  21. "F=";
  22. ;"  S=";
  23.  *** ENDING AND ANOTHER GO ***
  24.  "ANOTHER GO? Y OR N"
  25. (NONAME+7),A
  26.