be5247a3-63f4-420a-a63c-d572650f3d7f 6 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

t.ini 0 :

t.end 10 :

pts 100 :

s F 10 s 2^2 s * + 10 + / 1 s / * :

a 6 :

ns 20 :

nd 19 :

t t.ini t.end t.end t.ini - (pts 1 - / range :

t.ini 0 ≡ t 1 el 105 -^: t if

n 1 ns nd + 1 + range α n el a n 1 - (π * i * + : β n el e a^1 - (n^* - : 21 line for

bdif 1 el nd 1 + Gamma nd 2 + 1 - Gamma / 1 Gamma / (:

β2 β ns 2 + ns 1 + nd + 11 submatrix :

n 2 nd range bdif n el nd 1 + Gamma nd 2 + n - Gamma / n Gamma / (bdif n 1 - el + : for

bdif bdif reverse 2 nd^/ :

n 1 nd range β2 n el β2 n el bdif n el * : for

β β 1 ns 1 + 11 submatrix β2 stack :

β 1 el β 1 el 2 / :

kt 1 pts range tt t kt el : s α tt / : βt β tt / : n 1 α length range βtF n el βt n el s n el F * : for RβtF βtF Re : ft kt el RβtF eval sum : 61 line for

# ft t ft augment :

s F ft