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

46
Task/Diversity-prediction-theorem/Pascal-P/diversity-prediction-theorem.pas Normal file
View file

@ -0,0 +1,46 @@
program diverspred(output);
(* Diversity prediction theorem *)
var
trueval, sum, avg, avgerr, crowderr: real;
estims: array [0 .. 1, 0 .. 4] of real;
i, j: integer;
begin
estims[0, 0] := 48.0;
estims[0, 1] := 47.0;
estims[0, 2] := 51.0;
estims[0, 3] := 0.0;
estims[0, 4] := 0.0;
estims[1, 0] := 48.0;
estims[1, 1] := 47.0;
estims[1, 2] := 51.0;
estims[1, 3] := 42.0;
estims[1, 4] := 0.0;
trueval := 49.0;
for i := 0 to 1 do
begin
sum := 0.0;
j := 0;
while estims[i, j] <> 0 do
begin
sum := sum + sqr(estims[i, j] - trueval);
j := j + 1;
end;
avgerr := sum / j;
writeln('Average error : ', avgerr: 10);
sum := 0;
j := 0;
while estims[i, j] <> 0 do
begin
sum := sum + estims[i, j];
j := j + 1;
end;
avg := sum / j;
crowderr := sqr(trueval - avg);
writeln('Crowd error : ', crowderr: 10);
writeln('Diversity : ', avgerr - crowderr: 10);
writeln;
end;
(* readln; *)
end.