Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,16 +0,0 @@
|
|||
$url = "https://oeis.org/A000045/b000045.txt"
|
||||
$file = "$env:TEMP\FibonacciNumbers.txt"
|
||||
(New-Object System.Net.WebClient).DownloadFile($url, $file)
|
||||
|
||||
$benford = Get-Content -Path $file |
|
||||
Select-Object -Skip 1 -First 1000 |
|
||||
ForEach-Object {(($_ -split " ")[1].ToString().ToCharArray())[0]} |
|
||||
Group-Object |
|
||||
Select-Object -Property @{Name="Digit" ; Expression={[int]($_.Name)}},
|
||||
Count,
|
||||
@{Name="Actual" ; Expression={$_.Count/1000}},
|
||||
@{Name="Expected"; Expression={[double]("{0:f5}" -f [Math]::Log10(1 + 1 / $_.Name))}}
|
||||
|
||||
$benford | Sort-Object -Property Digit | Format-Table -AutoSize
|
||||
|
||||
Remove-Item -Path $file -Force -ErrorAction SilentlyContinue
|
||||
Loading…
Add table
Add a link
Reference in a new issue