home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / bc-1.03-src.tgz / tar.out / fsf / bc / Test / sqrt.b < prev    next >
Text File  |  1996-09-28  |  184b  |  14 lines
  1. scale = 5
  2. for (a=1; a<500; a++) r=sqrt(a)
  3. r
  4. scale = 10
  5. for (a=1; a<500; a++) r=sqrt(a)
  6. r
  7. scale = 25
  8. for (a=1; a<500; a++) r=sqrt(a)
  9. r
  10. scale = 40
  11. for (a=1; a<500; a++) r=sqrt(a)
  12. r
  13. quit
  14.