Akiyah

html {
    height:100%;
}

body {
    margin: 0;
    padding: 0;
    background: gray;
    width:100%;
    height:100%;

Akiyah

<script src="http://dygraphs.com/1.0.1/dygraph-combined.js"></script>

<div id="graphdiv"></div>
<div id="graphdiv_m"></div>
<div id="graphdiv_y"></div>

Akiyah

png("example_1_1.png", width=600, height=600)
dotchart(c(5,5,2,6,10,7),labels=c("Tennis", "Soccor", "Hockey", "Football", "Basketball", "Baseball"))
dev.off()

Akiyah

html {
    height:100%;
}

body {
    background: gray;
    width:100%;
    height:100%;
    overflow : hidden;
}

Akiyah

todo:

* -影をぼんやりさせる-
* 押しているモノも表示する
* へこみ関数の最適化(押した感じにする)
* シワをつける(丸くする)
* -倍精度で計算する-

Akiyah

x <- rnorm(20)
y <- rnorm(20)

p <- -0.9
u <- x + 2
v <- p * x + sqrt(1 - p**2) * y + 2

u <- (u - min(u)) / (max(u) - min(u))
v <- (v - min(v)) / (max(v) - min(v))

Akiyah

"+" <- function(e1, e2=NA) {
    if (is.character(e1) & is.character(e2)) {
        return(paste0(e1, e2))
    }
    ifelse(is.na(e2), base::"+"(e1), base::"+"(e1, e2))
}

1+2+3
#=> [1] 6
"f"+"g"+"h"

Akiyah

s <- 100
index_h <- 500^(((1:s)-1)/(s-1))
index <- as.integer(c(index_h, rev(index_h)))
for (i in 1:length(index)) {
  png(sprintf("plot_%04d.png", i), width=500, height=500)
  np <- index[i]
  n <- 1000
  p <- np/n
  q <- 1 - p
  x <- 0:n

Akiyah

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

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

Akiyah

* {
  margin: 0;
  padding: 0;
  border: 0;
}

body {
  background: #ddd;
  font: 30px sans-serif;
}