♪ 一つ積んでは父のため 二つ積んでは母のため 三つ積んでは国のため四つ積んでは何のため 昼は一人で遊べども 日も入りあいのその頃に
地獄の鬼が現れて 積みたる塔をおしくずす♪
もはや年中行事なのかもしれないorz
そういえば，清水さんから，
1/3乗とか1/5乗とかってどういう意味？
と聞かれて，とっさに図を書いてみました：
Rならさくさく。コードはこんな感じ：
library(lattice)x <- seq(0,100,length=1000)
y <- x^(1/3)
z <- x^(1/2)
a <- x^(1/5)
xyplot(y~x,
xlab = "x",
ylab = "value of powers",
ylim = c(-0.5,10.5),
panel = function(x,y){
panel.xyplot(x,y, type="l", col="blue", lty=1)
panel.xyplot(x,z, type="l", col="red", lty=2)
panel.xyplot(x,a, type="l", col="green", lty=3)
},
key = list(text=list(c("1/3","1/2","1/5")),
lines=list(col=c("blue","red","green"),lty=c(1,2,3)),
space="top", border=T
)
)
