« 06.08 2年前は秋葉原ですが | ココ | 06.11 見通しがよくなりました »
2010年6月10日
考えない人のことは考えない
何かをしようと思ったときによく考えないでやると後で大変になるということが分かっているのか、いないのか。分かってないからなんだろうなぁ。
「考えない人のことは考えない」、そんなときに慰めになる言葉です。考えない人が上の人だと考えないわけにはいかないんですが…どうにかしようにもどうにもならないのが苦しい。
Rメモ。
x<-seq(-0.1, 20, 0.01)
y<-(30*dnorm(x,6.4,0.06)
+20*dnorm(x,6,0.1)
+50*dnorm(x,14,0.2)
+10*dnorm(x,16,0.02)
+150*dgamma(-20+x*2.5,2)
+150*dgamma(-24+x*2.5,2)
+80*dnorm(x,4,0.05)
+500*dgamma(x*1.1,1.2)
+runif(x,-2,2)*0
+rnorm(x,3,0.5)
+ifelse((r<-mapply(function(xx) -(xx-20)^2/2.5+40,x))<0,0,r)
+5)plot(x,y,type="l")
runif()を見るたびいつもrun+if()だと思ってしまって何の関数か分からなくなる。r+unif()で一様分布からランダムに選択する関数なのに。
By ただ at 21:27 カテゴリー ; 仕事関係
« 06.08 2年前は秋葉原ですが |
06月の記事
| 06.11 見通しがよくなりました »
トラックバック
このエントリーのトラックバックURL:
http://pinmarch.sakura.ne.jp/mt/mt-tb.cgi/1600
