30 lines
552 B
Text
30 lines
552 B
Text
dim test(1,4)
|
|
test(0,0) = 48.0
|
|
test(0,1) = 47.0
|
|
test(0,2) = 51.0
|
|
|
|
test(1,0) = 48.0
|
|
test(1,1) = 47.0
|
|
test(1,2) = 51.0
|
|
test(1,3) = 42.0
|
|
|
|
TrueVal = 49.0
|
|
|
|
for i = 0 to 1
|
|
Vari = 0.0
|
|
Sum = 0.0
|
|
c = 0
|
|
while test(i,c) <> 0.0
|
|
Vari = Vari + (test(i,c) - TrueVal) ^2
|
|
Sum = Sum + test(i,c)
|
|
c = c + 1
|
|
wend
|
|
AvgErr = Vari / c
|
|
RefAvg = Sum / c
|
|
CrowdErr = (TrueVal - RefAvg) ^2
|
|
|
|
print "Average error : ", AvgErr using("##.###")
|
|
print " Crowd error : ", CrowdErr using("##.###")
|
|
print " Diversity : ", AvgErr - CrowdErr using("##.###")
|
|
print
|
|
next i
|