860Pl=VAL(Power$)

870Slope2=SGN(P2-PI)

880IF Slope2Slope THEN

890Flips=Flips+l

900Slopel=Slope

910ELSE

920IF Slope2=0 THEN Flips=Flips+.2

930END IF

940PO=Pl

950UNTIL Flips>=3

960Power=(PO+Pl)/2

970RETURN Power

980FNEND

Page 130
Image 130
HP 24A, 83620A, 22A manual Fnend