Akiyah

#install.packages("ggplot2")
library(ggplot2)

path <- '~/Dropbox/tech/graph_animation'

fun <- function(x) 2^x

for (j in seq(66, 98, by=1)) {
  p <- ggplot(data=data.frame(X=c(-1, 10 + 1)), aes(x=X))
  p <- p + stat_function(fun=fun)

Akiyah

draw <- function(l, filename) {
  png(filename, width=500, height=500)
  barplot(dpois(0:10, l), names.arg=0:10, ylim=c(0,1), col="#993435")
  text(5, 0.8, paste0("λ=", sprintf("%1.1f", l)), cex=5)
  dev.off()
}

l <- (1:50) / 10
for (i in 1:length(l)) {
  draw(l[i], sprintf("plot_%04d.png", i))

Akiyah

# plus
"%+%" <- function(f, g) {
  return(paste0("(", f, ") * (", g,")"))
}

# minus
m <- function(f) {
  paste0( "-(", f, ")" )
}

Akiyah

Example
2019-05-04 02:31:22 +0900
...........................
-----
def foo
  "Hello world" if%
       false
end
puts foo

Akiyah

require 'benchmark'

M = 1000

Benchmark.bm 30 do |r|
  [1, 10, 100, 1000].each do |n|
    a = (0...(n*100)).to_a
    b0 = ((0*n)...(1*n)).to_a
    b1 = ((1*n)...(2*n)).to_a
    b2 = ((2*n)...(3*n)).to_a

Akiyah

outer_product <- function (a, b) {
  c(a[2]*b[3] - a[3]*b[2], a[3]*b[1] - a[1]*b[3], a[1]*b[2] - a[2]*b[1])
}

d <- function(t) {
  s <- t/sqrt(3)
  h <- sqrt(1 - ((1 + sqrt(3)/2)^2 + (1/2)^2)*s^2)
  
  A <- c(s, 0, 0)
  B <- c(-1/2*s, sqrt(3)/2*s, 0)

Akiyah

outer_product <- function (a, b) {
  c(a[2]*b[3] - a[3]*b[2], a[3]*b[1] - a[1]*b[3], a[1]*b[2] - a[2]*b[1])
}

d <- function(t) {
  s <- t/sqrt(3)
  h <- sqrt(1 - ((1 + sqrt(3)/2)^2 + (1/2)^2)*s^2)
  
  A <- c(s, 0, 0)
  B <- c(-1/2*s, sqrt(3)/2*s, 0)

Akiyah

library(gmp)
library(gtools)

MARIO <- paste0(
  "             ...",
  "      *****  ...",
  "     *********..",
  "     @@@..@. @@@",
  "    @.@...@...@@",
  "    @.@@...@...@",

Akiyah

WebGL必要です

Akiyah

参考
https://bramp.github.io/js-sequence-diagrams/