Diversity prediction theorem: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 950: | Line 950: | ||
diversity : 10.5 |
diversity : 10.5 |
||
</pre> |
</pre> |
||
=={{header|PureBasic}}== |
|||
<lang PureBasic>Define.f ref=49.0, mea |
|||
NewList argV.f() |
|||
Macro put |
|||
Print(~"\n["+StrF(ref)+"]"+#TAB$) |
|||
ForEach argV() : Print(StrF(argV())+#TAB$) : Next |
|||
PrintN(~"\nAverage Error : "+StrF(vari(argV(),ref),5)) |
|||
PrintN("Crowd Error : "+StrF((ref-mea)*(ref-mea),5)) |
|||
PrintN("Diversity : "+StrF(vari(argV(),mea),5)) |
|||
EndMacro |
|||
Macro LetArgV(v) |
|||
AddElement(argV()) : argV()=v |
|||
EndMacro |
|||
Procedure.f mean(List x.f()) |
|||
Define.f m |
|||
ForEach x() : m+x() : Next |
|||
ProcedureReturn m/ListSize(x()) |
|||
EndProcedure |
|||
Procedure.f vari(List x.f(),r.f) |
|||
NewList nx.f() |
|||
ForEach x() : AddElement(nx()) : nx()=(r-x())*(r-x()) : Next |
|||
ProcedureReturn mean(nx()) |
|||
EndProcedure |
|||
If OpenConsole()=0 : End 1 : EndIf |
|||
Gosub SetA : ClearList(argV()) |
|||
Gosub SetB : Input() |
|||
End |
|||
SetA: |
|||
LetArgV(48.0) : LetArgV(47.0) : LetArgV(51.0) |
|||
mea=mean(argV()) : put |
|||
Return |
|||
SetB: |
|||
LetArgV(48.0) : LetArgV(47.0) : LetArgV(51.0) : LetArgV(42.0) |
|||
mea=mean(argV()) : put |
|||
Return</lang> |
|||
{{out}} |
|||
<pre>[49] 48 47 51 |
|||
Average Error : 3.00000 |
|||
Crowd Error : 0.11111 |
|||
Diversity : 2.88889 |
|||
[49] 48 47 51 42 |
|||
Average Error : 14.50000 |
|||
Crowd Error : 4.00000 |
|||
Diversity : 10.50000</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |