« back to japan | メイン | maroon/violet for beamer »

August 18, 2008

●Re: earthslide

♪ 一つ積んでは父のため 二つ積んでは母のため 三つ積んでは国のため 四つ積んでは何のため 昼は一人で遊べども 日も入りあいのその頃に 地獄の鬼が現れて 積みたる塔をおしくずす♪

snowslide08bb.jpg

もはや年中行事なのかもしれないorz

そういえば,清水さんから,
1/3乗とか1/5乗とかってどういう意味?
と聞かれて,とっさに図を書いてみました:
powers.gif
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
)
)

トラックバックURL

このエントリーのトラックバックURL:
http://www.law.tohoku.ac.jp/~hatsuru/cgi-local/mt/mt-tb.cgi/1570

コメントする