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 / sine.b < prev    next >
Text File  |  1996-09-28  |  100b  |  6 lines
  1. for (i=0; i<8*a(1); i=i+.01) x=s(i)
  2. x
  3. for (i=i; i<16*a(1); i=i+.01) x=s(i+.1234123412341234)
  4. x
  5. quit
  6.