1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        ROOTNR:  LOCATES ROOT OF A FUNCTION WHOSE DERIVATIVE IS KNOWN
4  REM
5  REM        36696  REV A  --  10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  **************************************
9000  REM  ROOTNR--LOCATES A ROOT OF A FUNCTION WITH KNOWN DERIVATIVE
9002  DEF FNX()=^2-2*SQR()+1
9004  PRINT 
9006  READ X,A
9008  PRINT "F[X]            X"
9010  PRINT 
9012  LET N=10
9014  FOR I=1 TO N
9016  LET Y=FNX(X)
9018  LET Y1=2*X-1/SQR(X)
9020  PRINT Y,X
9022  IF ABS(Y) <= A THEN 9999
9024  LET X=X-Y/Y1
9026  NEXT I
9028  PRINT 
9030  PRINT N"ITERATIONS HAVE BEEN PERFORMED WITH INSUFFICIENT"
9032  PRINT "CONVERGENCE. TO PERFORM 'N' MORE ITERATIONS ENTER THE VALUE"
9034  PRINT "OF 'N'. TO STOP THE PROGRAM ENTER THE VALUE OF 'N' AS ZERO."
9036  PRINT "N =";
9038  INPUT N
9040  PRINT 
9042  IF N>0 THEN 9014
9900  DATA 2,.00001
9999  END 
