home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / EXPONENT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-02  |  682 b   |  30 lines
  1.     'draw an exponential graph
  2.     open "Here is an exponential curve" for graphics as #g
  3.  
  4.     print #g, "color blue"
  5.     print #g, "down"
  6.  
  7.     for x = 1 to 300 step 25
  8.         print #g, "line "; x ; " 0"; " "; x ; " 350"
  9.         print #g, "line 0 "; x; " 350 "; x
  10.     next x
  11.  
  12.     print #g, "place 0 0"
  13.     print #g, "color red"
  14.  
  15.     for x = 1 to 270 step 10
  16.         print #g, "goto "; x ; " "; (x * x / 260) + 10
  17.         print #g, "place "; x ; " "; (x * x / 260) + 10
  18.         print #g, "\o"
  19.     next x
  20.  
  21.     print #g, "place 0 32"
  22.     print #g, "color green"
  23.     print #g, "\\\Exponential \Plot "
  24.  
  25.         print #g, "flush"
  26.  
  27.     input r$
  28.  
  29.     close #g
  30.