mirror of
https://github.com/Rucknium/misc-research.git
synced 2025-01-18 16:24:31 +00:00
Merge branch 'main' of github.com:Rucknium/misc-research into main
This commit is contained in:
commit
cddbc4f8a0
2 changed files with 4 additions and 4 deletions
|
@ -1,9 +1,11 @@
|
|||
# Statistical Monero Logo
|
||||
These files create an animated gif that visually builds a Monero logo from random draws of a probability density function.
|
||||
|
||||
![Statistical Monero Logo](Statistical-Monero-Logo.gif)
|
||||
|
||||
The probability density function was constructed from the coordinates embedded in this SVG file:
|
||||
|
||||
https://raw.githubusercontent.com/fluffypony/monero-logo-artefacts/master/Logo Subsequent%20Tweaks/monero%20file.svg
|
||||
https://raw.githubusercontent.com/fluffypony/monero-logo-artefacts/master/Logo%20Subsequent%20Tweaks/monero%20file.svg
|
||||
|
||||
To create the gif, first run data-construction.R . This may take days to complete since over 50 million observations have to be drawn from a cumulative distribution function that is created through numerical integration. Then run gif-construction.R . For best results, it is recommended to install Cairo, which is software separate from R. Read gif-construction.R for more details.
|
||||
|
||||
|
|
|
@ -47,8 +47,6 @@ M.outline <- M.outline[(-1) * (which.min(M.outline$x) + 1):(which.max(M.outline$
|
|||
|
||||
M.outline <- M.outline[(-1) * c(1, 9), ]
|
||||
|
||||
M.outline <- M.outline
|
||||
|
||||
M.outline$x <- M.outline$x - min(M.outline$x)
|
||||
M.outline$x <- M.outline$x / max(M.outline$x)
|
||||
|
||||
|
@ -88,7 +86,7 @@ for ( i in 3:48) {
|
|||
save(generated.logo.observations, file = "generated-logo-observations.Rdata")
|
||||
# When i = 48, y will be length 57280991
|
||||
|
||||
print(paste(i, length(generated.logo.observations) )
|
||||
print(paste(i, length(generated.logo.observations) ))
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue