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

36
Task/Diversity-prediction-theorem/XBasic/diversity-prediction-theorem.basic Normal file
View file

@ -0,0 +1,36 @@
PROGRAM "Diversity prediction theorem"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
DIM test![1,4]
test![0, 0] = 48.0
test![0, 1] = 47.0
test![0, 2] = 51.0
test![1, 0] = 48.0
test![1, 1] = 47.0
test![1, 2] = 51.0
test![1, 3] = 42.0
TrueVal! = 49.0
FOR i = 0 TO 1
Vari! = 0.0
Sum! = 0.0
c = 0
DO WHILE test![i, c] <> 0
Vari! = Vari! + (test![i, c] - TrueVal!) ** 2
Sum! = Sum! + test![i, c]
INC c
LOOP
AvgErr! = Vari! / c
RefAvg! = Sum! / c
CrowdErr! = (TrueVal! - RefAvg!) ** 2
PRINT "Average error : "; FORMAT$(STR$(AvgErr!), "##.###")
PRINT " Crowd error : "; FORMAT$(STR$(CrowdErr!), "##.###")
PRINT " Diversity : "; FORMAT$(STR$(AvgErr! - CrowdErr!), "##.###")
PRINT
NEXT i
END FUNCTION
END PROGRAM