1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        LIMSIN:   LIMIT OF (SIN X)/X
4  REM
5  REM        36622 REV  A   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
50  REM LIMSIN - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN
100  REM  BRUCE BRENT   HHHH   BKLYN POLY   7/11/69 
105  REM  REVISED BY C.LOSIK   8-27-70
110  PRINT "     THIS PROGRAM DEMONSTRATES THAT THE LIMIT OF"
115  PRINT "F(X) = (SIN X)/X,  AS X APPROACHES 0, IS EQUAL TO 1,"
117  PRINT "PROVIDED X IS MEASURED IN RADIANS."
120  PRINT 
125  PRINT " ","       SIN(X)"
130  PRINT " ","LIMIT  ------  =  1"
135  PRINT " ","X-->0    X"
140  PRINT 
150  PRINT 
160  PRINT "WHEN X IS IN DEGREES,","WHEN X IS IN RADIANS,"
165  PRINT "---------------------","---------------------"
170  PRINT "X IS","F(X) IS","X IS","F(X) IS"
175  PRINT "----","-------","----","-------"
180  PRINT 
200  FOR Y=90 TO 5 STEP -5
210  LET Z=Y
220  LET Z=3.14159*Z/180
230  LET X=SIN(Z)/Z
240  LET Q=SIN(Z)/Y
250  PRINT Y,Q,Z,X
260  NEXT Y
270  PRINT 
300  FOR Y=1 TO .1 STEP -.1
310  LET Z=Y
320  LET Z=3.14159*Z/180
330  LET X=SIN(Z)/Z
340  LET Q=SIN(Z)/Y
350  PRINT Y,Q,Z,X
360  NEXT Y
370  PRINT 
400  FOR Y=.09 TO .01 STEP -.01
410  LET Z=Y
420  LET Z=3.14159*Z/180
430  LET X=SIN(Z)/Z
440  LET Q=SIN(Z)/Y
450  PRINT Y,Q,Z,X
460  NEXT Y
500  END 
