LOCAL na, n, maxa, maxb, Jml, nb, ax, bx, rank
******* normalisasi matrik kolom a (kriterria-a)
SELECT table1
CALCULATE MAX(a) TO maxa
SELECT table1
COUNT TO Jml
FOR n = 1 TO Jml
SELECT table1
LOCATE FOR no = n
IF FOUND()
na = a
x = 6
REPLACE ha WITH (na/maxa)
ENDIF
ENDFOR
******* normalisasi matrik kolom b (kriterria-b)
SELECT table1
CALCULATE MAX(b) TO maxb
FOR n = 1 TO Jml
SELECT table1
LOCATE FOR no = n
IF FOUND()
nb = b
x = 6
REPLACE hb WITH (nb/maxb)
ENDIF
ENDFOR
******* nilai preverensi
SELECT table1
COUNT TO Jml
SELECT table1
FOR n = 1 TO Jml
SELECT table1
LOCATE FOR no = n
IF FOUND()
x = 6
REPLACE tot WITH (ha*2)+(hb*3)
ENDIF
ENDFOR
******* keterangan yg dipilih
SELECT table1
CALCULATE MAX(tot) TO rank
SELECT table1
FOR n = 1 TO Jml
SELECT table1
LOCATE FOR no = n
IF FOUND()
x = 6
IF tot = rank
REPLACE ran WITH "Juara"
ENDIF
ENDIF
ENDFOR