29 lines
614 B
Text
29 lines
614 B
Text
10 REM Diversity prediction theorem
|
|
20 DIM EST(1,4):REM test
|
|
30 FOR I=0 TO 1
|
|
40 J=0:READ EST(I,J)
|
|
50 IF EST(I,J)=0 THEN 80
|
|
60 J=J+1:READ EST(I,J)
|
|
70 GOTO 50
|
|
80 NEXT I
|
|
90 DATA 48.0,47.0,51.0,0.0
|
|
100 DATA 48.0,47.0,51.0,42.0,0.0
|
|
110 TV=49:REM True value
|
|
120 FOR I=0 TO 1
|
|
130 SUM=0:J=0
|
|
140 IF EST(I,J)=0 THEN 170
|
|
150 SUM=SUM+(EST(I,J)-TV)^2:J=J+1
|
|
160 GOTO 140
|
|
170 AER=SUM/J
|
|
180 PRINT "Average error :";AER
|
|
190 SUM=0:J=0
|
|
200 IF EST(I,J)=0 THEN 230
|
|
210 SUM=SUM+EST(I,J):J=J+1
|
|
220 GOTO 200
|
|
230 AVG=SUM/J
|
|
240 CER=(TV-AVG)^2
|
|
250 PRINT "Crowd error :";CER
|
|
260 PRINT "Diversity :";AER-CER
|
|
270 PRINT
|
|
280 NEXT I
|
|
290 END
|