Diversity prediction theorem: Difference between revisions

=={{header|BASIC256}}==

{{trans|FreeBASIC}}

<syntaxhighlight lang="vb">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</syntaxhighlight>