NUMERICAL INTEGRATION
1 'INT
2 "[": ?$>G: "]": ?$>H: "$E": ?$>B
3 0$>O: 1$>A: 1$>C:
4 G$>K: H$>L:
5 K: $Pf: $A$>I:
6 $L1:
7  L: $Pf: $A$>J:
8  (K+L)2: $Pf: $A$>D:
9  $L2:
10   (K+3L)4: $Pf: $A$>E:
11   (3K+L)4: $Pf: $A$>F:
12   $aI+$aJ:
13   $A$d0$}$l$A:
14   $a(L-K)$a(4E+4F-6D-I-J)<$0($A-B)$}$G3:
15   2A$>A:
16   2C$>C:
17   D$>J: E$>D:
18   (K+L)2$>L:
19  $G2:
20   $L3:
21   O+(L-K)(I+4E+2D+4F+J)12$>O:
22   A-1$>A:
23   A=0$}$G0:
24    $L4:
25     (A+C)2:
26     $i$A$d$A$}$G5:
27     .5A$>A: .5C$>C:
28    $G4:
29     $L5:
30     L$>K: J$>I:
31     L+(H-G)C$>L:
32 $G1:
33   $L0: O

TOP TOP