28 lines
689 B
Text
28 lines
689 B
Text
100 cls
|
|
110 dim estimates(1,5)
|
|
120 estimates(0,0) = 48
|
|
130 estimates(0,1) = 47
|
|
140 estimates(0,2) = 51
|
|
150 estimates(1,0) = 48
|
|
160 estimates(1,1) = 47
|
|
170 estimates(1,2) = 51
|
|
180 estimates(1,3) = 42
|
|
190 trueval = 49
|
|
200 for i = 0 to 1
|
|
210 vari = 0
|
|
220 sum = 0
|
|
230 c = 0
|
|
240 while estimates(i,c) <> 0
|
|
250 vari = vari+(estimates(i,c)-trueval)^2
|
|
260 sum = sum+estimates(i,c)
|
|
270 c = c+1
|
|
280 wend
|
|
290 avgerr = vari/c
|
|
300 refavg = sum/c
|
|
310 crowderr = (trueval-refavg)^2
|
|
320 print using "Average error : ###.###";avgerr
|
|
330 print using " Crowd error : ###.###";crowderr
|
|
340 print using " Diversity : ###.###";avgerr-crowderr
|
|
350 print
|
|
360 next i
|
|
370 end
|