1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        DERSIN:   COMPUTER-AUGMENTED CALCULUS TOPICS
4  REM
5  REM        36663 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
100  PRINT "PROGRAM TO ESTIMATE THE DERIVATIVE OF"
110  PRINT "SIN(X) FOR ANY VALUE OF X."
120  PRINT 
130  PRINT "WHAT IS X";
140  INPUT X
150  PRINT 
160  PRINT 
170  LET Z=SIN(X)
180  PRINT "X = ";X;"SIN(X) = ";Z
190  PRINT 
200  PRINT "  H             (SIN(X+H)-SIN(X))/H"
210  PRINT 
220  FOR N=1 TO 4
230  LET H1=10^(-N)
240  LET H2=-H1
250  LET Y1=(SIN(X+H1)-Z)/H1
260  LET Y2=(SIN(X+H2)-Z)/H2
270  PRINT H1,Y1
280  PRINT H2,Y2
290  NEXT N
300  GOTO 120
310  END 
