ba网络的源程序代码，无标度

文档内容节选

program ba real knm bainm integersum10sum20sum30zs0 integerparameter n5m1000 integerarrnmabbn1bainmbi4suflagijmbnmnm0 open1filebatxt do i1n do j11n bij1 bji1 end do end do sum10 do i1n do j1n sum1sum1bij enddo arrisum1 enddo sum20 do i1n sum2sum2arri abbisum2 enddo susum2 kiabbisu do in1mn do i1bi call randownumberx do j1i1 ifbij0andxkjandflag0 then bij1 bji1 arrjarrj1 susu2 sum30 do m1i sum3sum3ar......