Diversity prediction theorem: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section.) |
(→{{header|QuickBASIC}}: Added a solution.) |
||
Line 252: | Line 252: | ||
Crowd Error : 4.00000 |
Crowd Error : 4.00000 |
||
Diversity : 10.50000</pre> |
Diversity : 10.50000</pre> |
||
==={{header|QuickBASIC}}=== |
|||
{{trans|XPL0}} |
|||
<syntaxhighlight lang="qbasic"> |
|||
REM Diversity prediction theorem |
|||
DIM Estimates(1, 4) |
|||
FOR I% = 0 TO 1 |
|||
J% = 0 |
|||
READ Estimates(I%, J%) |
|||
WHILE Estimates(I%, J%) <> 0! |
|||
J% = J% + 1 |
|||
READ Estimates(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 Estimates(I%, J%) <> 0! |
|||
Sum = Sum + (Estimates(I%, J%) - TrueVal) ^ 2: J% = J% + 1 |
|||
WEND |
|||
AvgErr = Sum / J% |
|||
PRINT USING "Average error : ##.###"; AvgErr |
|||
Sum = 0!: J% = 0 |
|||
WHILE Estimates(I%, J%) <> 0! |
|||
Sum = Sum + Estimates(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 |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
Average error : 3.000 |
|||
Crowd error : 0.111 |
|||
Diversity : 2.889 |
|||
Average error : 14.500 |
|||
Crowd error : 4.000 |
|||
Diversity : 10.500 |
|||
</pre> |
|||
==={{header|Visual Basic .NET}}=== |
==={{header|Visual Basic .NET}}=== |