RosettaCodeData/Task/Diversity-prediction-theorem/QuickBASIC/diversity-prediction-theorem.basic

REM Diversity prediction theorem
DIM test(1, 4)
FOR I% = 0 TO 1
  J% = 0
  READ test(I%, J%)
  WHILE test(I%, J%) <> 0!
    J% = J% + 1
    READ test(I%, J%)
  WEND
NEXT I%
DATA 48.0, 47.0, 51.0, 0.0
DATA 48.0, 47.0, 51.0, 42.0, 0.0
TrueVal = 49!
FOR I% = 0 TO 1
  Sum = 0!: J% = 0
  WHILE test(I%, J%) <> 0!
    Sum = Sum + (test(I%, J%) - TrueVal) ^ 2: J% = J% + 1
  WEND
  AvgErr = Sum / J%
  PRINT USING "Average error : ##.###"; AvgErr
  Sum = 0!: J% = 0
  WHILE test(I%, J%) <> 0!
    Sum = Sum + test(I%, J%): J% = J% + 1
  WEND
  Avg = Sum / J%
  CrowdErr = (TrueVal - Avg) ^ 2
  PRINT USING "Crowd error   : ##.###"; CrowdErr
  PRINT USING "Diversity     : ##.###"; AvgErr - CrowdErr
  PRINT
NEXT I%
END