Saw

Published on January 2017 | Categories: Documents | Downloads: 67 | Comments: 0 | Views: 326
of 1
Download PDF   Embed   Report

Comments

Content

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

Sponsor Documents

Or use your account on DocShare.tips

Hide

Forgot your password?

Or register your new account on DocShare.tips

Hide

Lost your password? Please enter your email address. You will receive a link to create a new password.

Back to log-in

Close