home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mathaids / misc / isinicos.asc < prev    next >
Text File  |  1996-06-30  |  360b  |  11 lines
  1. 1 REM SI/CI INTEGRALS
  2. 5 PI= 3.1415927#
  3. 10 INPUT "ENTER X";X:IF X=0 THEN STOP
  4. 20 IF X>5 THEN CI=SIN(X)/X:SI=PI/2-COS(X)/X:CN=CI+LOG(1.781*X):GOTO 60
  5. 30 SI=X-X^3/18+X^5/600-X^7/35280&+X^9/3265920&
  6. 40 CI=LOG(1.781*X)-X^2/4+X^4/96-X^6/4320+X^8/322560&-X^10/36288000&
  7. 50 CN=X^2/4-X^4/96+X^6/4320-X^8/322560&+X^10/36288000&
  8. 60 PRINT SI:PRINT CI:PRINT CN
  9. 70 GOTO 10
  10.  
  11.