read `JPDA.txt`:

p:=(j+1)*(j+2)/2:

for st from 0 to 6 do
 CutoffV(p,j,st,1,10000) :
od:

quit: