Egymásba ágyazott ciklusokkal mit csinálsz? Pl. a trace AB kiszámítása, ami fortranban
c trace AB
tr=0
do i = 1,n
do j = 1,n
s = s+a(i,j)*b(j,i)
end do
end do
(Persze, kiszámolhatnám külön a szorzatmátrixot, vagy végigmehetnék k=1,n*n, és i=k/n, j=mod(k,n), de az azért lassabb is, meg nem is olyan olvasható.)
Amúgy az a sor szerintem csak azért olyan "bonyolult", mert a BASIC-ben a LET-tel oldották meg az egyenlő és a legyen egyenlő megkülönböztetését, hogy ne zavarják össze azokat, akik a számítástechnikát teljesen most kezdik, de matekot már tanultak, és abból, hogy A=A+2 arra következtetnének, hogy A=0. Ugyanaz Fortranban
s=-s/3
(Vagy ugyanez lenne C-ben, a Fortran-t csak azért mondom, mert a BASIC-et szerintem az befolyásolta a leginkább.)