21 lines
426 B
Text
21 lines
426 B
Text
dim test = {{48.0, 47.0, 51.0, 0.0}, {48.0, 47.0, 51.0, 42.0, 0.0}}
|
|
TrueVal = 49.0
|
|
|
|
for i = 0 to 1
|
|
Vari = 0.0
|
|
Sum = 0.0
|
|
c = 0
|
|
while test[i,c] <> 0
|
|
Vari += (test[i,c] - TrueVal) ^2
|
|
Sum += test[i,c]
|
|
c += 1
|
|
end while
|
|
AvgErr = Vari / c
|
|
RefAvg = Sum / c
|
|
CrowdErr = (TrueVal - RefAvg) ^2
|
|
|
|
print "Average error : "; AvgErr
|
|
print " Crowd error : "; CrowdErr
|
|
print " Diversity : "; AvgErr - CrowdErr
|
|
print
|
|
next i
|