aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Diversity-prediction-theorem/QBasic/diversity-prediction-theorem.basic Normal file
View file

@ -0,0 +1,29 @@
DIM test(0 TO 1, 0 TO 4) AS DOUBLE
test(0, 0) = 48!
test(0, 1) = 47!
test(0, 2) = 51!
test(1, 0) = 48!
test(1, 1) = 47!
test(1, 2) = 51!
test(1, 3) = 42!
TrueVal = 49!
FOR i = 0 TO 1
Vari = 0!
Sum = 0!
c = 0
WHILE test(i, c) <> 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 USING "Average error : ##.####"; AvgErr
PRINT USING " Crowd error : ##.####"; CrowdErr
PRINT USING " Diversity : ##.####"; AvgErr - CrowdErr
PRINT
NEXT i