HP 24A, 83620A, 22A manual 860 Pl=VALPower$ 870 Slope2=SGNP2-PI 880 IF Slope2Slope THEN

Models: 83620A

1 508
Download 508 pages 6.17 Kb
Page 130
Image 130
860Pl=VAL(Power$)

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 860 Pl=VALPower$ 870 Slope2=SGNP2-PI 880 IF Slope2Slope THEN, Flips=Flips+l 900 Slopel=Slope 910 ELSE