LISTING OF PROGRAM EXPECT

1 PROGRAM

2 E=-0.111

3 L2=9/4

4 R=INTS(450,12000)/500

5 P2=E+2/R-L2/R**2

6 CONSTRAIN(P2,R:P2.GE.0)

7 DR=R(2)-R(1)

8 P=SQRT(P2)

9 NORM=SUM(DR/P)

10 FF=DR/(P*NORM)

11 AVR(1)=SUM(FF*R)

12 AVR(2)=SUM(FF/R)

13 AVR(3)=SUM(FF/R**2)

14 AVR(4)=SUM(FF/R**3)

15 TABULATE AVR

16 END

AVR

***********

12.4064

.111027

.0248127

.0111268